Return to csfix.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

Annotation of 43BSDReno/share/doc/ps1/04.pascal/csfix.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: #ifndef lint
                      8: char copyright[] =
                      9: "@(#) Copyright (c) 1980 Regents of the University of California.\n\
                     10:  All rights reserved.\n";
                     11: #endif not lint
                     12: 
                     13: #ifndef lint
                     14: static char sccsid[] = "@(#)csfix.c    6.2 (Berkeley) 5/7/86";
                     15: #endif not lint
                     16: 
                     17: #include <stdio.h>
                     18: /*
                     19:  * csfix - fix constant spacing for error message flags in troff
                     20:  *
                     21:  * Bill Joy UCB September 11, 1977
                     22:  *
                     23:  * This would be better written in snobol!
                     24:  *
                     25:  * Normally fixes error flags in a pi listing
                     26:  * Optional - causes fixing of '---' and initial blank widthin a pxp profile.
                     27:  */
                     28: 
                     29: char   flag, dflag;
                     30: 
                     31: main(argc, argv)
                     32:        int argc;
                     33:        char *argv[];
                     34: {
                     35: 
                     36:        argc--, argv++;
                     37:        if (argc > 0 && argv[0][0] == '-' && argv[0][1] == 'd')
                     38:                dflag++, argc--, argv++;
                     39:        if (argc > 0 && argv[0][0] == '-')
                     40:                flag++, argc--, argv++;
                     41:        if (argc != 0) {
                     42:                write(2, "Usage: csfix\n", 13);
                     43:                exit(1);
                     44:        }
                     45:        while (getline()) {
                     46:                if (errline()) {
                     47:                        flag ? fixpxp() : reformat();
                     48:                        continue;
                     49:                }
                     50:                if (flag) {
                     51:                        fixdigits();
                     52:                        continue;
                     53:                }
                     54:                if (spwarn())
                     55:                        continue;
                     56:                if (nontriv())
                     57:                        save();
                     58:                if (dflag)
                     59:                        fixdigits();
                     60:                else
                     61:                        putline();
                     62:        }
                     63:        exit(0);
                     64: }
                     65: 
                     66: char   line[160], flagee[160], *digitty();
                     67: 
                     68: getline()
                     69: {
                     70:        register char *cp, c;
                     71: 
                     72:        for (cp = line, c = getchar(); c != '\n' && c != EOF; c = getchar())
                     73:                *cp++ = c;
                     74:        if (c == EOF)
                     75:                return (0);
                     76:        *cp = 0;
                     77:        return (1);
                     78: }
                     79: 
                     80: errline()
                     81: {
                     82:        register int i;
                     83:        register char *cp;
                     84: 
                     85:        for (cp = line; cp[0] && cp[1] && cp[2]; cp++)
                     86:                if (cp[0] == '-' && cp[1] == '-' && cp[2] == '-')
                     87:                        return (1);
                     88:        return (0);
                     89: }
                     90: 
                     91: reformat()
                     92: {
                     93:        register char *cp, c, *tail;
                     94: 
                     95:        printf("%2.2s", line);
                     96:        if (line[0] != 'w')
                     97:                printf("\\l'\\w`w `u-\\w`%2.2s`u '", line);
                     98:        for (cp = line; *cp != 0 && *cp != '^'; cp++)
                     99:                continue;
                    100:        tail = cp + 1;
                    101:        if (cp[-1] == '\b' && cp[-2] == '|')
                    102:                cp -= 2;
                    103:        c = flagee[cp - line];
                    104:        flagee[cp - line] = 0;
                    105:        printf("\\l'\\w`%s`u-\\w`w `u\\&\\(rh'", flagee);
                    106:        flagee[cp - line] = c;
                    107:        if (c == '\0')
                    108:                c = flagee[cp - line - 1];
                    109:        printf("\\l'(\\w`%c`u-\\w`^`u)/2 '", c);
                    110:        printf("\\(ua");
                    111:        printf("\\l'(\\w`%c`u-\\w`^`u)/2 '", c);
                    112:        printf("\\l'\\w`---`u\\&\\(rh'%s\n", tail+3);
                    113: }
                    114: 
                    115: nontriv()
                    116: {
                    117: 
                    118:        switch (line[0]) {
                    119:                case 'E':
                    120:                case 'e':
                    121:                case 'w':
                    122:                case 's':
                    123:                case 0:
                    124:                        return (0);
                    125:        }
                    126:        return (1);
                    127: }
                    128: 
                    129: save()
                    130: {
                    131: 
                    132:        strcpy(flagee, line);
                    133: }
                    134: 
                    135: putline()
                    136: {
                    137: 
                    138:        printf("%s\n", flag ? digitty(0) : line);
                    139: }
                    140: 
                    141: spwarn()
                    142: {
                    143: 
                    144:        if (line[0] != ' ' || line[1] != ' ' || line[2] != 'w')
                    145:                return (0);
                    146:        printf("  \\l'(\\w`E`u-\\w`w`u)/2 'w\\l'(\\w`E`u-\\w`w`u)/2 '");
                    147:        printf(&line[3]);
                    148:        printf("\n");
                    149:        return (1);
                    150: }
                    151: 
                    152: fixpxp()
                    153: {
                    154:        register char *cp;
                    155: 
                    156:        for (cp = line; *cp != '-'; cp++)
                    157:                continue;
                    158:        *cp = 0;
                    159:        printf("%s\\l'\\w`\\0\\0\\0\\0`u-\\w`.`u\\&\\(rh'%s\n", digitty(1), cp + 3);
                    160: }
                    161: 
                    162: char *
                    163: digitty(yup)
                    164:        char yup;
                    165: {
                    166:        register char *cp, *dp, *lp;
                    167: 
                    168:        for (lp = line; *lp && *lp != '|'; lp++)
                    169:                continue;
                    170:        if (yup == 0 && !*lp)
                    171:                return (line);
                    172:        for (cp = line, dp = flagee; cp < lp; cp++)
                    173:                if (*cp == ' ')
                    174:                        *dp++ = '\\', *dp++ = '0';
                    175:                else
                    176:                        *dp++ = *cp;
                    177:        strcpy(dp, cp);
                    178:        return (flagee);
                    179: }
                    180: 
                    181: fixdigits()
                    182: {
                    183:        register char *cp, c;
                    184: 
                    185:        for (cp = line; *cp == ' ' || *cp >= '0' && *cp <= '9'; cp++)
                    186:                continue;
                    187:        c = *cp, *cp = 0;
                    188:        digitty(1);
                    189:        *cp = c;
                    190:        printf("%s%s\n", flagee, cp);
                    191: }

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