plan9port

fork of plan9port with libvec, libstr and libsdb
Log | Files | Refs | README | LICENSE

t14.c (559B)

      1 #include "a.h"
      2 
      3 /*
      4  * 14. Three-part titles.
      5  */
      6 void
      7 r_lt(int argc, Rune **argv)
      8 {
      9 	Rune *p;
     10 
     11 	if(argc < 2)
     12 		nr(L(".lt"), evalscale(L("6.5i"), 'm'));
     13 	else{
     14 		if(argc > 2)
     15 			warn("too many arguments for .lt");
     16 		p = argv[1];
     17 		if(p[0] == '-')
     18 			nr(L(".lt"), getnr(L(".lt"))-evalscale(p+1, 'm'));
     19 		else if(p[0] == '+')
     20 			nr(L(".lt"), getnr(L(".lt"))+evalscale(p+1, 'm'));
     21 		else
     22 			nr(L(".lt"), evalscale(p, 'm'));
     23 	}
     24 }
     25 
     26 void
     27 t14init(void)
     28 {
     29 	addreq(L("tl"), r_warn, -1);
     30 	addreq(L("pc"), r_nop, -1);	/* page number char */
     31 	addreq(L("lt"), r_lt, -1);
     32 }