home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / troff / n9.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  5.4 KB  |  329 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. troff9.c
  12.  
  13. misc functions
  14. */
  15.  
  16. extern int cbuf[];
  17. extern int *cp;
  18. extern int ch;
  19. extern int chbits;
  20. extern int dfact;
  21. extern int vflag;
  22. extern int pts;
  23. extern int fc;
  24. extern int padc;
  25. extern int tabtab[];
  26. extern int nlflg;
  27. extern int lss;
  28. extern int tabch, ldrch;
  29. extern int tabc, dotc;
  30. extern int nchar, rchar;
  31. extern int xxx;
  32.  
  33. setz(){
  34.     register i;
  35.  
  36.     if(!((i = getch()) & MOT))i |= ZBIT;
  37.     return(i);
  38. }
  39. setline(){
  40.     register *i, length, c;
  41.     int w, cnt, delim, rem, temp;
  42.  
  43.     if((delim = getch()) & MOT)return;
  44.         else delim &= CMASK;
  45.     vflag = 0;
  46.     dfact = EM;
  47.     length = quant(atoi(),HOR);
  48.     dfact = 1;
  49.     if(!length){
  50.         eat(delim);
  51.         return;
  52.     }
  53. s0:
  54.     if(((c = getch()) & CMASK) == delim){
  55.         ch = c;
  56.         c = 0204 | chbits;
  57.     }else if((c & CMASK) == FILLER)goto s0;
  58.     w = width(c);
  59.     i = cbuf;
  60.     if(length < 0){
  61.         *i++ = makem(length);
  62.         length = -length;
  63.     }
  64.     if(!(cnt = length/w)){
  65.         *i++ = makem(-(temp = ((w-length)/2)));
  66.         *i++ = c;
  67.         *i++ = makem(-(w - length - temp));
  68.         goto s1;
  69.     }
  70.     if(rem = length%w){
  71.         switch(c & CMASK){
  72.             case 0204: /*rule*/
  73.             case 0224: /*underrule*/
  74.             case 0276: /*root en*/
  75.                 *i++ = c | ZBIT;
  76.             default:
  77.                 *i++ = makem(rem);
  78.         }
  79.     }
  80.     if(cnt){
  81.         *i++ = RPT;
  82.         *i++ = cnt;
  83.         *i++ = c;
  84.     }
  85. s1:
  86.     *i++ = 0;
  87.     eat(delim);
  88.     cp = cbuf;
  89. }
  90. eat(c)
  91. int c;
  92. {
  93.     register i;
  94.  
  95.     while(((i = getch() & CMASK) != c) &&
  96.         (i != '\n'));
  97.     return(i);
  98. }
  99. setov(){
  100.     register i, j, k;
  101.     int *p, delim, o[NOV], w[NOV];
  102.  
  103.     if((delim = getch()) & MOT)return;
  104.         else delim &= CMASK;
  105.     for(k=0; (k<NOV) && ((j=(i = getch()) & CMASK) != delim) &&
  106.         (j != '\n'); k++){
  107.             o[k] = i;
  108.             w[k] = width(i);
  109.     }
  110.     o[k] = w[k] = 0;
  111.     if(o[0])for(j=1; j;){
  112.         j = 0;
  113.         for(k=1; o[k] ; k++){
  114.             if(w[k-1] < w[k]){
  115.                 j++;
  116.                 i = w[k];
  117.                 w[k] = w[k-1];
  118.                 w[k-1] = i;
  119.                 i = o[k];
  120.                 o[k] = o[k-1];
  121.                 o[k-1] = i;
  122.             }
  123.         }
  124.     }else return;
  125.     p = cbuf;
  126.     for(k=0; o[k]; k++){
  127.         *p++ = o[k];
  128.         *p++ = makem(-((w[k]+w[k+1])/2));
  129.     }
  130.     *p++ = makem(w[0]/2);
  131.     *p = 0;
  132.     cp = cbuf;
  133. }
  134. setbra(){
  135.     register i, *j, k;
  136.     int cnt, delim, dwn;
  137.  
  138.     if((delim = getch()) & MOT)return;
  139.         else delim &= CMASK;
  140.     j = cbuf + 1;
  141.     cnt = 0;
  142. #ifdef NROFF
  143.     dwn = (2*t.Halfline) | MOT | VMOT;
  144. #endif
  145. #ifndef NROFF
  146.     dwn = EM | MOT | VMOT;
  147. #endif
  148.     while(((k = (i = getch()) & CMASK) != delim) && (k != '\n') &&
  149.         (j <= (cbuf+NC-4))){
  150.         *j++ = i | ZBIT;
  151.         *j++ = dwn;
  152.         cnt++;
  153.     }
  154.     if(--cnt < 0)return;
  155.         else if (!cnt){
  156.             ch = *(j-2);
  157.             return;
  158.     }
  159.     *j = 0;
  160. #ifdef NROFF
  161.     *--j = *cbuf = (cnt*t.Halfline) | MOT | NMOT | VMOT;
  162. #endif
  163. #ifndef NROFF
  164.     *--j = *cbuf = (cnt*EM)/2 | MOT | NMOT | VMOT;
  165. #endif
  166.     *--j &= ~ZBIT;
  167.     cp = cbuf;
  168. }
  169. setvline(){
  170.     register i, c, *k;
  171.     int cnt, neg, rem, ver, delim;
  172.  
  173.     if((delim = getch()) & MOT)return;
  174.         else delim &= CMASK;
  175.     dfact = lss;
  176.     vflag++;
  177.     i = quant(atoi(),VERT);
  178.     dfact = 1;
  179.     if(!i){
  180.         eat(delim);
  181.         vflag = 0;
  182.         return;
  183.     }
  184.     if(((c = getch()) & CMASK) == delim){
  185.         c = 0337 | chbits;    /*default box rule*/
  186.     }else getch();
  187.     c |= ZBIT;
  188.     neg = 0;
  189.     if(i < 0){
  190.         i = -i;
  191.         neg = NMOT;
  192.     }
  193. #ifdef NROFF
  194.     ver = 2*t.Halfline;
  195. #endif
  196. #ifndef NROFF
  197.     ver = EM;
  198. #endif
  199.     cnt = i/ver;
  200.     rem = makem(i%ver) | neg;
  201.     ver = makem(ver) | neg;
  202.     k = cbuf;
  203.     if(!neg)*k++ = ver;
  204.     if(rem & ~MOTV){
  205.         *k++ = c;
  206.         *k++ = rem;
  207.     }
  208.     while((k < (cbuf+NC-3)) && cnt--){
  209.         *k++ = c;
  210.         *k++ = ver;
  211.     }
  212.     *(k-2) &= ~ZBIT;
  213.     if(!neg)k--;
  214.     *k = 0;
  215.     cp = cbuf;
  216.     vflag = 0;
  217. }
  218. casefc(){
  219.     register i;
  220.  
  221.     fc = IMP;
  222.     padc = ' ';
  223.     if(skip() ||
  224.        ((i = getch()) & MOT) ||
  225.        ((i &= CMASK) == '\n'))return;
  226.     fc = i;
  227.     if(skip() || (ch & MOT) || ((ch &= CMASK) == fc))return;
  228.     padc = ch;
  229. }
  230. setfield(x)
  231. int x;
  232. {
  233.     register i, j, *fp;
  234.     int length, ws, npad, temp, type;
  235.     int **pp, *padptr[NPP];
  236.     static int fbuf[FBUFSZ];
  237.     int savfc, savtc, savlc;
  238.  
  239.     if(x == tabch) rchar = tabc | chbits;
  240.     else if(x ==  ldrch) rchar = dotc | chbits;
  241.     temp = npad = ws = 0;
  242.     savfc = fc; savtc = tabch; savlc = ldrch;
  243.     tabch = ldrch = fc = IMP;
  244.     for(j=0;;j++){
  245.         if((tabtab[j] & TMASK)== 0){
  246.             if(x==savfc)prstr("Zero field width.\n");
  247.             j = 0;
  248.             goto rtn;
  249.         }
  250.         if((length = ((tabtab[j] & TMASK) - v.hp)) > 0 )break;
  251.     }
  252.     type = tabtab[j] & (~TMASK);
  253.     fp = fbuf;
  254.     pp = padptr;
  255.     if(x == savfc){while(1){
  256.         if(((j = (i = getch()) & CMASK)) == padc){
  257.             npad++;
  258.             *pp++ = fp;
  259.             if(pp > (padptr + NPP - 1))break;
  260.             goto s1;
  261.         }else if(j == savfc) break;
  262.             else if(j == '\n'){
  263.                 temp = j;
  264.                 nlflg = 0;
  265.                 break;
  266.             }
  267.         ws += width(i);
  268.     s1:
  269.         *fp++ = i;
  270.         if(fp > (fbuf + FBUFSZ -3))break;
  271.     }
  272.     if(!npad){
  273.         npad++;
  274.         *pp++ = fp;
  275.         *fp++ = 0;
  276.     }
  277.     *fp++ = temp;
  278.     *fp++ = 0;
  279.     temp = i = (j = length-ws)/npad;
  280.     i = (i/HOR)*HOR;
  281.     if((j -= i*npad) <0)j = -j;
  282.     i = makem(i);
  283.     if(temp <0)i |= NMOT;
  284.     for(;npad > 0; npad--){
  285.         *(*--pp) = i;
  286.         if(j){
  287.             j -= HOR;
  288.             (*(*pp)) += HOR;
  289.         }
  290.     }
  291.     cp = fbuf;
  292.     j = 0;
  293.     }else if(type == 0){
  294.     /*plain tab or leader*/
  295.         if((j = width(rchar)) == 0)nchar = 0;
  296.         else{
  297.             nchar = length /j;
  298.             length %= j;
  299.         }
  300.         if(length)j = length | MOT;
  301.         else j = getch0();
  302.     }else{
  303.     /*center tab*/
  304.     /*right tab*/
  305.         while(((j = (i = getch()) & CMASK) != savtc) &&
  306.             (j != '\n') && (j != savlc)){
  307.             ws += width(i);
  308.             *fp++ = i;
  309.             if(fp > (fbuf +FBUFSZ - 3)) break;
  310.         }
  311.         *fp++ = i;
  312.         *fp++ = 0;
  313.         if(type == RTAB)length -= ws;
  314.         else length -= ws/2; /*CTAB*/
  315.         if(((j = width(rchar)) == 0) || (length <= 0))nchar = 0;
  316.         else{
  317.             nchar = length/j;
  318.             length %= j;
  319.         }
  320.         length = (length/HOR)*HOR;
  321.         j = makem(length);
  322.         cp = fbuf;
  323.         nlflg = 0;
  324.     }
  325. rtn:
  326.     fc = savfc; tabch = savtc; ldrch = savlc;
  327.     return(j);
  328. }
  329.