home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / troff / n6.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  3.9 KB  |  264 lines
  1. #include "tdef.h"
  2. extern
  3. #include "d.h"
  4. extern
  5. #include "v.h"
  6. #ifdef NROFF
  7. extern
  8. #include "tw.h"
  9. #endif
  10.  
  11. /*
  12. troff6.c
  13.  
  14. width functions, sizes and fonts
  15. */
  16.  
  17. extern int eschar;
  18. extern int widthp;
  19. extern int ohc;
  20. extern int xfont;
  21. extern int smnt;
  22. extern int setwdf;
  23. extern char trtab[];
  24. extern int chbits;
  25. extern int nonumb;
  26. extern int noscale;
  27. extern int font;
  28. extern int font1;
  29. extern int pts;
  30. extern int sps;
  31. extern int nlflg;
  32. extern int nform;
  33. extern int dfact;
  34. extern int dfactd;
  35. extern int lss;
  36. extern int lss1;
  37. extern int vflag;
  38. extern int ch0;
  39. extern int level;
  40. extern int ch;
  41. extern int res;
  42. extern int xxx;
  43. int fontlab[] = {'R','I','B','S',0};
  44.  
  45. width(c)
  46. int c;
  47. {
  48.     register i,j,k;
  49.  
  50.     j = c;
  51.     k = 0;
  52.     if(j & MOT){
  53.         if(j & VMOT)goto rtn;
  54.         k = j & ~MOTV;
  55.         if(j & NMOT)k = -k;
  56.         goto rtn;
  57.     }
  58.     if((i = (j & CMASK)) == 010){
  59.         k = -widthp;
  60.         goto rtn;
  61.     }
  62.     if(i == PRESC)i = eschar;
  63.     if((i == ohc) ||
  64.        (i >= 0370))goto rtn;
  65.     if(j & ZBIT)goto rtn;
  66.     i = trtab[i] & BMASK;
  67.     if(i < 040)goto rtn;
  68.     k = (*(t.codetab[i-32]) & 0177) * t.Char;
  69.     widthp = k;
  70. rtn:
  71.     return(k);
  72. }
  73. setch(){
  74.     register i,*j,k;
  75.     extern int chtab[];
  76.  
  77.     if((i = getrq()) == 0)return(0);
  78.     for(j=chtab;*j != i;j++)if(*(j++) == 0)return(0);
  79.     k = *(++j) | chbits;
  80.     return(k);
  81. }
  82. find(i,j)
  83. int i,j[];
  84. {
  85.     register k;
  86.  
  87.     if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
  88.     for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
  89.     return(k);
  90. }
  91. mchbits(){
  92.     chbits = (((pts)<<2) | font) << (BYTE + 1);
  93.     sps = width(' ' | chbits);
  94. }
  95. setps(){
  96.     register i,j;
  97.  
  98.     if((((i=getch() & CMASK) == '+')  || (i == '-')) &&
  99.       (((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9))){
  100.         ch = 0;
  101.         return;
  102.     }
  103.     if((i -= '0') == 0){
  104.         return;
  105.     }
  106.     if((i > 0) && (i <= 9)){
  107.         if((i <= 3) &&
  108.           ((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9)){
  109.             i = 10*i +j;
  110.             ch = 0;
  111.         }
  112.     }
  113. }
  114. caseft(){
  115.     skip();
  116.     setfont(1);
  117. }
  118. setfont(a)
  119. int a;
  120. {
  121.     register i,j;
  122.  
  123.     if(a)i = getrq();
  124.         else i = getsn();
  125.     if(!i || (i == 'P')){
  126.         j = font1;
  127.         goto s0;
  128.     }
  129.     if(i == 'S')return;
  130.     if((j = find(i,fontlab))  == -1)return;
  131. s0:
  132.     font1 = font;
  133.     font = j;
  134.     mchbits();
  135. }
  136. setwd(){
  137.     register i, base, wid;
  138.     int delim, em, k;
  139.     int savlevel, savhp, savfont, savfont1;
  140.  
  141.     base = v.st = v.sb = wid = v.ct = 0;
  142.     if((delim = getch() & CMASK) & MOT)return;
  143.     savhp = v.hp;
  144.     savlevel = level;
  145.     v.hp = level = 0;
  146.     savfont = font;
  147.     savfont1 = font1;
  148.     setwdf++;
  149.     while((((i = getch()) & CMASK) != delim) && !nlflg){
  150.         wid += width(i);
  151.         if(!(i & MOT)){
  152.             em = 2*t.Halfline;
  153.         }else if(i & VMOT){
  154.             k = i & ~MOTV;
  155.             if(i & NMOT)k = -k;
  156.             base -= k;
  157.             em = 0;
  158.         }else continue;
  159.         if(base < v.sb)v.sb = base;
  160.         if((k=base + em) > v.st)v.st = k;
  161.     }
  162.     nform = 0;
  163.     setn1(wid);
  164.     v.hp = savhp;
  165.     level = savlevel;
  166.     font = savfont;
  167.     font1 = savfont1;
  168.     mchbits();
  169.     setwdf = 0;
  170. }
  171. vmot(){
  172.     dfact = lss;
  173.     vflag++;
  174.     return(mot());
  175. }
  176. hmot(){
  177.     dfact = EM;
  178.     return(mot());
  179. }
  180. mot(){
  181.     register i, j;
  182.  
  183.     j = HOR;
  184.     getch(); /*eat delim*/
  185.     if(i = atoi()){
  186.         if(vflag)j = VERT;
  187.         i = makem(quant(i,j));
  188.     }
  189.     getch();
  190.     vflag = 0;
  191.     dfact = 1;
  192.     return(i);
  193. }
  194. sethl(k)
  195. int k;
  196. {
  197.     register i;
  198.  
  199.     i = t.Halfline;
  200.     if(k == 'u')i = -i;
  201.     else if(k == 'r')i = -2*i;
  202.     vflag++;
  203.     i = makem(i);
  204.     vflag = 0;
  205.     return(i);
  206. }
  207. makem(i)
  208. int i;
  209. {
  210.     register j;
  211.  
  212.     if((j = i) < 0)j = -j;
  213.     j = (j & ~MOTV) | MOT;
  214.     if(i < 0)j |= NMOT;
  215.     if(vflag)j |= VMOT;
  216.     return(j);
  217. }
  218. casefp(){
  219.     register i, j;
  220.  
  221.     skip();
  222.     if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3))return;
  223.     if(skip() || !(j = getrq()))return;
  224.     fontlab[i] = j;
  225. }
  226. casevs(){
  227.     register i;
  228.  
  229.     skip();
  230.     vflag++;
  231.     dfact = INCH; /*default scaling is points!*/
  232.     dfactd = 72;
  233.     res = VERT;
  234.     i = inumb(&lss);
  235.     if(nonumb)i = lss1;
  236.     if(i < VERT)i = VERT;
  237.     lss1 = lss;
  238.     lss = i;
  239. }
  240. xlss(){
  241.     register i, j;
  242.  
  243.     getch();
  244.     dfact = lss;
  245.     i = quant(atoi(),VERT);
  246.     dfact = 1;
  247.     getch();
  248.     if((j = i) < 0)j = -j;
  249.     ch0 = ((j & 03700)<<3) | HX;
  250.     if(i < 0)ch0 |= 040000;
  251.     return(((j & 077)<<9) | LX);
  252. }
  253. casefz(){}
  254. caseps(){}
  255. caselg(){}
  256. casecs(){}
  257. casebd(){}
  258. casess(){}
  259. getlg(i)
  260. int i;
  261. {
  262.     return(i);
  263. }
  264.