home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libI77 / wrtfmt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-05-03  |  5.0 KB  |  256 lines
  1. #include "fio.h"
  2. #include "fmt.h"
  3. extern int cursor;
  4. mv_cur()
  5. {    /*buggy, could move off front of record*/
  6.     for(;cursor>0;cursor--) (*putn)(' ');
  7.     if(cursor<0)
  8.     {
  9.         if(cursor+recpos<0) err(elist->cierr,110,"left off");
  10.         if(curunit->useek) fseek(cf,(long)cursor,1);
  11.         else err(elist->cierr,106,"fmt");
  12.         cursor=0;
  13.     }
  14.     return(0);
  15. }
  16. w_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen len;
  17. {
  18.     if(mv_cur()) return(mv_cur());
  19.     switch(p->op)
  20.     {
  21.     default:
  22.         fprintf(stderr,"w_ed, unexpected code: %d\n%s\n",
  23.             p->op,fmtbuf);
  24.         abort();
  25.     case I:    return(wrt_I(ptr,p->p1,len, 10));
  26.     case IM:
  27.         return(wrt_IM(ptr,p->p1,p->p2,len));
  28.     case O:    return(wrt_I(ptr, p->p1, len, 8));
  29.     case L:    return(wrt_L(ptr,p->p1));
  30.     case A: return(wrt_A(ptr,len));
  31.     case AW:
  32.         return(wrt_AW(ptr,p->p1,len));
  33.     case D:
  34.     case E:
  35.     case EE:
  36.         return(wrt_E(ptr,p->p1,p->p2,p->p3,len));
  37.     case G:
  38.     case GE:
  39.         return(wrt_G(ptr,p->p1,p->p2,p->p3,len));
  40.     case F:    return(wrt_F(ptr,p->p1,p->p2,len));
  41.     }
  42. }
  43. w_ned(p,ptr) char *ptr; struct syl *p;
  44. {
  45.     switch(p->op)
  46.     {
  47.     default: fprintf(stderr,"w_ned, unexpected code: %d\n%s\n",
  48.             p->op,fmtbuf);
  49.         abort();
  50.     case SLASH:
  51.         return((*donewrec)());
  52.     case T: cursor = p->p1-recpos;
  53.         return(1);
  54.     case TL: cursor -= p->p1;
  55.         return(1);
  56.     case TR:
  57.     case X:
  58.         cursor += p->p1;
  59.         return(1);
  60.     case APOS:
  61.         return(wrt_AP(p->p1));
  62.     case H:
  63.         return(wrt_H(p->p1,p->p2));
  64.     }
  65. }
  66. wrt_I(n,w,len, base) uint *n; ftnlen len; register int base;
  67. {    int ndigit,sign,spare,i;
  68.     long x;
  69.     char *ans;
  70.     if(len==sizeof(short)) x=n->is;
  71.     else if(len == sizeof(char)) x = n->ic;
  72.     else x=n->il;
  73.     ans=icvt(x,&ndigit,&sign, base);
  74.     spare=w-ndigit;
  75.     if(sign || cplus) spare--;
  76.     if(spare<0)
  77.         for(i=0;i<len;i++) (*putn)('*');
  78.     else
  79.     {    for(i=0;i<spare;i++) (*putn)(' ');
  80.         if(sign) (*putn)('-');
  81.         else if(cplus) (*putn)('+');
  82.         for(i=0;i<ndigit;i++) (*putn)(*ans++);
  83.     }
  84.     return(0);
  85. }
  86. wrt_IM(n,w,m,len) uint *n; ftnlen len;
  87. {    int ndigit,sign,spare,i,xsign;
  88.     long x;
  89.     char *ans;
  90.     if(sizeof(short)==len) x=n->is;
  91.     else if(len == sizeof(char)) x = n->ic;
  92.     else x=n->il;
  93.     ans=icvt(x,&ndigit,&sign);
  94.     if(sign || cplus) xsign=1;
  95.     else xsign=0;
  96.     if(ndigit+xsign>w || m+xsign>w)
  97.     {    for(i=0;i<w;i++) (*putn)('*');
  98.         return(0);
  99.     }
  100.     if(x==0 && m==0)
  101.     {    for(i=0;i<w;i++) (*putn)(' ');
  102.         return(0);
  103.     }
  104.     if(ndigit>=m)
  105.         spare=w-ndigit-xsign;
  106.     else
  107.         spare=w-m-xsign;
  108.     for(i=0;i<spare;i++) (*putn)(' ');
  109.     if(sign) (*putn)('-');
  110.     else if(cplus) (*putn)('+');
  111.     for(i=0;i<m-ndigit;i++) (*putn)('0');
  112.     for(i=0;i<ndigit;i++) (*putn)(*ans++);
  113.     return(0);
  114. }
  115. wrt_AP(n)
  116. {    char *s,quote;
  117.     if(mv_cur()) return(mv_cur());
  118.     s=(char *)n;
  119.     quote = *s++;
  120.     for(;*s;s++)
  121.     {    if(*s!=quote) (*putn)(*s);
  122.         else if(*++s==quote) (*putn)(*s);
  123.         else return(1);
  124.     }
  125.     return(1);
  126. }
  127. wrt_H(a,b)
  128. {    char *s=(char *)b;
  129.     if(mv_cur()) return(mv_cur());
  130.     while(a--) (*putn)(*s++);
  131.     return(1);
  132. }
  133. wrt_L(n,len) ftnint *n;
  134. {    int i;
  135.     for(i=0;i<len-1;i++)
  136.         (*putn)(' ');
  137.     if(*n) (*putn)('t');
  138.     else (*putn)('f');
  139.     return(0);
  140. }
  141. wrt_A(p,len) char *p; ftnlen len;
  142. {
  143.     while(len-- > 0) (*putn)(*p++);
  144.     return(0);
  145. }
  146. wrt_AW(p,w,len) char * p; ftnlen len;
  147. {
  148.     while(w>len)
  149.     {    w--;
  150.         (*putn)(' ');
  151.     }
  152.     while(w-- > 0)
  153.         (*putn)(*p++);
  154.     return(0);
  155. }
  156. wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;
  157. {    char *s;
  158.     int dp,sign,i,delta;
  159.     char *ecvt();
  160.     if(scale>0) d++;
  161.     s=ecvt( (len==sizeof(float)?p->pf:p->pd) ,d,&dp,&sign);
  162.     if(sign || cplus) delta=6;
  163.     else delta=5;
  164.     if(w<delta+d)
  165.     {    for(i=0;i<w;i++) (*putn)('*');
  166.         return(0);
  167.     }
  168.     for(i=0;i<w-(delta+d);i++) (*putn)(' ');
  169.     if(sign) (*putn)('-');
  170.     else if(cplus) (*putn)('+');
  171.     if(scale<0 && scale > -d)
  172.     {
  173.         (*putn)('.');
  174.         for(i=0;i<-scale;i++)
  175.             (*putn)('0');
  176.         for(i=0;i<d+scale;i++)
  177.             (*putn)(*s++);
  178.     }
  179.     else if(scale>0 && scale<d+2)
  180.     {    for(i=0;i<scale;i++)
  181.             (*putn)(*s++);
  182.         (*putn)('.');
  183.         for(i=0;i<d-scale;i++)
  184.             (*putn)(*s++);
  185.     }
  186.     else
  187.     {    (*putn)('.');
  188.         for(i=0;i<d;i++) (*putn)(*s++);
  189.     }
  190.     if(p->pf != 0) dp -= scale;
  191.     else    dp = 0;
  192.     if(dp < 100 && dp > -100) (*putn)('e');
  193.     if(dp<0)
  194.     {    (*putn)('-');
  195.         dp = -dp;
  196.     }
  197.     else    (*putn)('+');
  198.     if(e>=3 || dp >= 100)
  199.     {    (*putn)(dp/100 + '0');
  200.         dp = dp % 100;
  201.     }
  202.     if(e!=1) (*putn)(dp/10+'0');
  203.     (*putn)(dp%10+'0');
  204.     return(0);
  205. }
  206. wrt_G(p,w,d,e,len) ufloat *p; ftnlen len;
  207. {    double up = 1,x;
  208.     int i,oldscale=scale,n,j;
  209.     x= len==sizeof(float)?p->pf:p->pd;
  210.     if(x < 0 ) x = -x;
  211.     if(x<.1) return(wrt_E(p,w,d,e,len));
  212.     for(i=0;i<=d;i++,up*=10)
  213.     {    if(x>up) continue;
  214.         scale=0;
  215.         if(e==0) n=4;
  216.         else    n=e+2;
  217.         i=wrt_F(p,w-n,d-i,len);
  218.         for(j=0;j<n;j++) (*putn)(' ');
  219.         scale=oldscale;
  220.         return(i);
  221.     }
  222.     return(wrt_E(p,w,d,e,len));
  223. }
  224. wrt_F(p,w,d,len) ufloat *p; ftnlen len;
  225. {    int i,delta,dp,sign,n;
  226.     double x;
  227.     char *s,*fcvt();
  228.     x= (len==sizeof(float)?p->pf:p->pd);
  229.     if(scale)
  230.     {    if(scale>0)
  231.             for(i=0;i<scale;i++) x*=10;
  232.         else    for(i=0;i<-scale;i++) x/=10;
  233.     }
  234.     s=fcvt(x,d,&dp,&sign);
  235.     if(-dp>=d) sign=0;
  236.     if(sign || cplus) delta=2;
  237.     else delta=1;
  238.     n= w - (d+delta+(dp>0?dp:0));
  239.     if(n<0)
  240.     {
  241.         for(i=0;i<w;i++) PUT('*');
  242.         return(0);
  243.     }
  244.     for(i=0;i<n;i++) PUT(' ');
  245.     if(sign) PUT('-');
  246.     else if(cplus) PUT('+');
  247.     for(i=0;i<dp;i++) PUT(*s++);
  248.     PUT('.');
  249.     for(i=0;i< -dp && i<d;i++) PUT('0');
  250.     for(;i<d;i++)
  251.     {    if(*s) PUT(*s++);
  252.         else PUT('0');
  253.     }
  254.     return(0);
  255. }
  256.