Bell 32V development

[unix-history] / usr / src / libI77 / rdfmt.c

#include "fio.h"
#include "fmt.h"
extern int cursor;
rd_ed(p,ptr,len) char *ptr; struct syl *p; ftnlen len;
{       int ch;
       for(;cursor>0;cursor--) if((ch=(*getn)())<0) return(ch);
       if(cursor<0)
       {       if(recpos+cursor < 0) err(elist->cierr,110,"fmt")
               if(curunit->useek) fseek(cf,(long) cursor,1);
               else err(elist->cierr,106,"fmt");
               cursor=0;
       }
       switch(p->op)
       {
       default: fprintf(stderr,"rd_ed, unexpected code: %d\n%s\n",
                       p->op,fmtbuf);
               abort();
       case I: ch = (rd_I(ptr,p->p1,len));
               break;
       case IM: ch = (rd_I(ptr,p->p1,len));
               break;
       case L: ch = (rd_L(ptr,p->p1));
               break;
       case A: ch = (rd_A(ptr,len));
               break;
       case AW:
               ch = (rd_AW(ptr,p->p1,len));
               break;
       case E: case EE:
       case D:
       case G:
       case GE:
       case F: ch = (rd_F(ptr,p->p1,p->p2,len));
               break;
       }
       if(ch == 0) return(ch);
       else if(feof(cf)) return(EOF);
       clearerr(cf);
       return(errno);
}
rd_ned(p,ptr) char *ptr; struct syl *p;
{
       switch(p->op)
       {
       default: fprintf(stderr,"rd_ned, unexpected code: %d\n%s\n",
                       p->op,fmtbuf);
               abort();
       case APOS:
               return(rd_POS(p->p1));
       case H: return(rd_H(p->p1,p->p2));
       case SLASH: return((*donewrec)());
       case TR:
       case X: cursor += p->p1;
               return(1);
       case T: cursor=p->p1-recpos;
               return(1);
       case TL: cursor -= p->p1;
               return(1);
       }
}
rd_I(n,w,len) ftnlen len; uint *n;
{       long x=0;
       int i,sign=0,ch;
       for(i=0;i<w;i++)
       {
               if((ch=(*getn)())<0) return(ch);
               switch(ch)
               {
               default:
                       return(errno=115);
               case ',': goto done;
               case '+': break;
               case '-':
                       sign=1;
                       break;
               case ' ':
                       if(cblank) x *= 10;
                       break;
               case '\n':  break;
               case '0': case '1': case '2': case '3': case '4':
               case '5': case '6': case '7': case '8': case '9':
                       x=10*x+ch-'0';
                       break;
               }
       }
done:
       if(sign) x = -x;
       if(len==sizeof(short)) n->is=x;
       else n->il=x;
       return(0);
}
rd_L(n,w) ftnint *n;
{       int ch,i,v = -1;
       for(i=0;i<w;i++)
       {       if((ch=(*getn)())<0) return(ch);
               if(ch=='t' && v==-1) v=1;
               else if(ch=='f' && v==-1) v=0;
               else if(ch==',') return(0);
       }
       if(v==-1)
       {       errno=116;
               return(1);
       }
       *n=v;
       return(0);
}
rd_F(p,w,d,len) ftnlen len; ufloat *p;
{       double x,y;
       int i,sx,sz,ch,dot,ny,z,sawz;
       x=y=0;
       sawz=z=ny=dot=sx=sz=0;
       for(i=0;i<w;)
       {       i++;
               if((ch=(*getn)())<0) return(ch);
               else if(ch==' ' && !cblank || ch=='+') continue;
               else if(ch=='-') sx=1;
               else if(ch<='9' && ch>='0')
                       x=10*x+ch-'0';
               else if(ch=='e' || ch=='d' || ch=='.')
                       break;
               else if(cblank && ch==' ') x*=10;
               else if(ch==',')
               {       i=w;
                       break;
               }
               else if(ch!='\n') return(errno=115);
       }
       if(ch=='.') dot=1;
       while(i<w && ch!='e' && ch!='d' && ch!='+' && ch!='-')
       {       i++;
               if((ch=(*getn)())<0) return(ch);
               else if(ch<='9' && ch>='0')
                       y=10*y+ch-'0';
               else if(cblank && ch==' ')
                       y *= 10;
               else if(ch==',') {i=w; break;}
               else if(ch==' ') continue;
               else continue;
               ny++;
       }
       if(ch=='-') sz=1;
       while(i<w)
       {       i++;
               sawz=1;
               if((ch=(*getn)())<0) return(ch);
               else if(ch=='-') sz=1;
               else if(ch<='9' && ch>='0')
                       z=10*z+ch-'0';
               else if(cblank && ch==' ')
                       z *= 10;
               else if(ch==',') break;
               else if(ch==' ') continue;
               else if(ch=='+') continue;
               else if(ch!='\n') return(errno=115);
       }
       if(!dot)
               for(i=0;i<d;i++) x /= 10;
       for(i=0;i<ny;i++) y /= 10;
       x=x+y;
       if(sz)
               for(i=0;i<z;i++) x /=10;
       else    for(i=0;i<z;i++) x *= 10;
       if(sx) x = -x;
       if(!sawz)
       {
               for(i=scale;i>0;i--) x /= 10;
               for(i=scale;i<0;i++) x *= 10;
       }
       if(len==sizeof(float)) p->pf=x;
       else p->pd=x;
       return(0);
}
rd_A(p,len) char *p; ftnlen len;
{       int i,ch;
       for(i=0;i<len;i++)
       {       GET(ch);
               *p++=VAL(ch);
       }
       return(0);
}
rd_AW(p,w,len) char *p; ftnlen len;
{       int i,ch;
       if(w>=len)
       {       for(i=0;i<w-len;i++)
                       GET(ch);
               for(i=0;i<len;i++)
               {       GET(ch);
                       *p++=VAL(ch);
               }
               return(0);
       }
       for(i=0;i<w;i++)
       {       GET(ch);
               *p++=VAL(ch);
       }
       for(i=0;i<len-w;i++) *p++=' ';
       return(0);
}
rd_H(n,s) char *s;
{       int i,ch;
       for(i=0;i<n;i++)
               if((ch=(*getn)())<0) return(ch);
               else if(ch=='\n') *s++ = ' ';
               else *s++ = ch=='\n'?' ':ch;
       return(1);
}
rd_POS(s) char *s;
{       char quote;
       int ch;
       quote= *s++;
       for(;*s;s++)
               if(*s==quote && *(s+1)!=quote) break;
               else if((ch=(*getn)())<0) return(ch);
               else *s = ch=='\n'?' ':ch;
       return(1);
}