2.9BSD - /usr/src/cmd/ratfor/r2.c

   1: #include "r.h"
   2: 
   3: extern int hollerith;
   4: 
   5: char    outbuf[80];
   6: int outp    = 0;
   7: int cont    = 0;
   8: int contchar    = '&';
   9: 
  10: char    comment[320];
  11: int comptr  = 0;
  12: int indent  = 0;
  13: 
  14: outdon() {
  15:     outbuf[outp] = '\0';
  16:     if (outp > 0)
  17:         fprintf(outfil, "%s\n", outbuf);
  18:     outp = cont = 0;
  19: }
  20: 
  21: putcom(s) char *s; {
  22:     if (printcom) {
  23:         ptc('c');
  24:         outtab();
  25:         pts(s);
  26:         outdon();
  27:     }
  28: }
  29: 
  30: outcode(xp) char *xp; {
  31:     register c, c1, j;
  32:     char *q, *p;
  33: 
  34:     p = (char *) xp;    /* shut lint up */
  35:     if (cont == 0 && comptr > 0)    /* flush comment if not on continuation */
  36:         flushcom();
  37:     while( (c = *p++) ){
  38:         c1 = *p;
  39:         if (type[c] == LET || type[c] == DIG) {
  40:             pts(p-1);
  41:             break;
  42:         }
  43:         switch(c){
  44: 
  45:         case '"': case '\'':
  46:             j = 0;
  47:             for (q=p; *q; q++) {
  48:                 if (*q == '\\')
  49:                     q++;
  50:                 j++;
  51:             }
  52:             if (outp+j+2 > 71)
  53:                 contcard();
  54:             if (hollerith) {
  55:                 outnum(--j);
  56:                 ptc('h');
  57:             } else
  58:                 ptc(c);
  59:             while (*p != c) {
  60:                 if (*p == '\\')
  61:                     p++;
  62:                 ptc(*p++);
  63:             }
  64:             if (!hollerith)
  65:                 ptc(c);
  66:             p++;
  67:             break;
  68:         case '$': case '\\':
  69:             if (strlen(p-1)+outp > 71)
  70:                 contcard();
  71:             if (c1 == '"' || c1 == '\'') {
  72:                 ptc(c1);
  73:                 p++;
  74:             } else
  75:                 for (p--; *p; p++)
  76:                     ptc(*p);
  77:             break;
  78:         case '%':
  79:             outp = 0;
  80:             while (*p)
  81:                 ptc(*p++);
  82:             break;
  83:         case '>':
  84:             if( c1=='=' ){
  85:                 pts(".ge."); p++;
  86:             } else
  87:                 pts(".gt.");
  88:             break;
  89:         case '<':
  90:             if( c1=='=' ){
  91:                 pts(".le."); p++;
  92:             } else if( c1=='>' ){
  93:                 pts(".ne."); p++;
  94:             } else
  95:                 pts(".lt.");
  96:             break;
  97:         case '=':
  98:             if( c1=='=' ){
  99:                 pts(".eq."); p++;
 100:             } else
 101:                 ptc('=');
 102:             break;
 103:         case '!': case '^':
 104:             if( c1=='=' ){
 105:                 pts(".ne."); p++;
 106:             } else
 107:                 pts(".not.");
 108:             break;
 109:         case '&':
 110:             if( c1=='&' )
 111:                 p++;
 112:             pts(".and.");
 113:             break;
 114:         case '|':
 115:             if( c1=='|' )
 116:                 p++;
 117:             pts(".or.");
 118:             break;
 119:         case '\t':
 120:             outtab();
 121:             break;
 122:         case '\n':
 123:             ptc(' ');
 124:             break;
 125:         default:
 126:             ptc(c);
 127:             break;
 128:         }
 129:     }
 130: }
 131: 
 132: ptc(c) char c; {
 133:     if( outp > 71 )
 134:         contcard();
 135:     outbuf[outp++] = c;
 136: }
 137: 
 138: pts(s) char *s; {
 139:     if (strlen(s)+outp > 71)
 140:         contcard();
 141:     while(*s)
 142:         ptc(*s++);
 143: }
 144: 
 145: contcard(){
 146:     int n;
 147:     outbuf[outp] = '\0';
 148:     fprintf(outfil, "%s\n", outbuf);
 149:     n = 6;
 150:     if (printcom) {
 151:         n += INDENT * indent + 1;
 152:         if (n > 35) n = 35;
 153:     }
 154:     for( outp=0; outp<n; outbuf[outp++] = ' ' );
 155:     outbuf[contfld-1] = contchar;
 156:     cont++;
 157:     if (cont > 19)
 158:         error("more than 19 continuation cards");
 159: }
 160: 
 161: outtab(){
 162:     int n;
 163:     n = 6;
 164:     if (printcom) {
 165:         n += INDENT * indent;
 166:         if (n > 35) n = 35;
 167:     }
 168:     while (outp < n)
 169:         ptc(' ');
 170: }
 171: 
 172: outnum(n) int n; {
 173:     int a;
 174:     if( a = n/10 )
 175:         outnum(a);
 176:     ptc(n%10 + '0');
 177: }
 178: 
 179: outcont(n) int n; {
 180:     transfer = 0;
 181:     if (n == 0 && outp == 0)
 182:         return;
 183:     if( n > 0 )
 184:         outnum(n);
 185:     outcode("\tcontinue");
 186:     outdon();
 187: }
 188: 
 189: outgoto(n) int n; {
 190:     if (transfer != 0)
 191:         return;
 192:     outcode("\tgoto ");
 193:     outnum(n);
 194:     outdon();
 195: }
 196: 
 197: flushcom() {
 198:     int i, j;
 199:     if (printcom == 0)
 200:         comptr = 0;
 201:     else if (cont == 0 && comptr > 0) {
 202:         for (i=j=0; i < comptr; i++)
 203:             if (comment[i] == '\n') {
 204:                 comment[i] = '\0';
 205:                 fprintf(outfil, "%s\n", &comment[j]);
 206:                 j = i + 1;
 207:             }
 208:         comptr = 0;
 209:     }
 210: }

Defined functions

Defined variables