Return to r2.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / ratfor

Annotation of 40BSD/cmd/ratfor/r2.c, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.