Return to gaps.c CVS log

Up to [Research Unix] / researchv10no / cmd / spool

Annotation of researchv10no/cmd/spool/gaps.c, revision 1.1.1.1

1.1       root        1: #include       <stdio.h>
                      2: 
                      3: /*
                      4:  *  gaps -- spooler to send troff output to GCOS asp5 phototypesetter
                      5:  */
                      6: 
                      7: #define        DPR     0
                      8: #define        FGET    0
                      9: #define        FSEND   0
                     10: #define        GCAT    0
                     11: #define        GAPS    1
                     12: #define        LPR     0
                     13: 
                     14: #define        NAME    "gaps"
                     15: #define        BF      'B'
                     16: #define        MAXCOPY 409600L
                     17: #define FIRSTCHAR 'G'-1
                     18: 
                     19: char   cfname[]        = "/usr/spool/dpd/cfFXXXXX";
                     20: char   dfname[]        = "/usr/spool/dpd/dfFXXXXX";
                     21: char   lfname[]        = "/usr/spool/dpd/lfFXXXXX";
                     22: char   tfname[]        = "/usr/spool/dpd/tfFXXXXX";
                     23: char   zfname[]        = "/usr/spool/dpd/zfFXXXXX";
                     24: 
                     25: #include       "spool.c"
                     26: 
                     27: int photo, stare, text, dummy;
                     28: char *string, *str;
                     29: 
                     30: main(agc, agv)
                     31: int agc;
                     32: char *agv[];
                     33: {
                     34: 
                     35:        argc = agc;    argv = agv;
                     36:        pidfn();
                     37:        remotsw = TOSS;         /*default is to throw out accounting. MRW*/
                     38:        wantmail = 1;           /*default is send mail.*/
                     39:        grade = '1';
                     40: 
                     41:        while (argc>1 && (arg = argv[1])[0]=='-') {
                     42:                if(comopt(arg[1])) ;
                     43:                else switch (arg[1]) {
                     44: 
                     45:                case 'd':
                     46:                        if( arg[2]=='u' ) { dummy=1;  remotsw = ONL; }
                     47:                        else goto unknown;
                     48:                        break;
                     49: 
                     50:                case 'f':               /*option to set filename for mail. MRW*/
                     51:                        mailfile = getarg('f');
                     52:                        wantmail = 1;
                     53:                        break;
                     54: 
                     55:                case 'p':
                     56:                        if( arg[2]=='h' ) photo=1;
                     57:                        else goto unknown;
                     58:                        break;
                     59: 
                     60:                case 's':
                     61:                        if( arg[2]=='t' ) stare=1;
                     62:                        else goto unknown;
                     63:                        break;
                     64: 
                     65:                case 't':
                     66:                        if( arg[2]=='x' ) { text=1;  remotsw = ONL; }
                     67:                        else if(!arg[2])
                     68:                                remotsw = TOSS;
                     69:                            else goto unknown;
                     70:                        break;
                     71: 
                     72:                case 'u':
                     73:                        identf = getarg(arg[1]);
                     74:                        break;
                     75: 
                     76: unknown:
                     77:                default:
                     78:                        fprintf(stderr, "%s: Unrecognized option: %s\n", NAME, arg);
                     79:                        break;
                     80:                }
                     81:                argc--;
                     82:                argv++;
                     83:        }
                     84: 
                     85:        spool1();               /*setup initial GCOS cards.*/
                     86: 
                     87:        filargs();              /*process file arguments.*/
                     88: 
                     89:        if( photo || stare || text || dummy ) ;
                     90:        else photo=1;
                     91: 
                     92:        if(gcdebug)
                     93:                card('L', "$    select  cc/test/troff");
                     94:        else
                     95:                card('L', "$    select  cc/troff/select");
                     96:        card('L', "$    file    ot,x1r");
                     97:        card('L', "$    data    d*");
                     98:        str = string = " :trview ot*  -xx -xx -xx -xx";
                     99:        str += 15;
                    100:        if( photo ) {
                    101:                *str = 'p'; *(str+1) = 'h';
                    102:                str += 4;
                    103:        }
                    104:        if( stare ) {
                    105:                *str = 's'; *(str+1) = 't';
                    106:                str += 4;
                    107:        }
                    108:        if( text ) {
                    109:                *str = 't'; *(str+1) = 'x';
                    110:                str += 4;
                    111:        }
                    112:        if( dummy ) {
                    113:                *str = 'd'; *(str+1) = 'u';
                    114:                str += 4;
                    115:        }
                    116:        *(str-2) = '\0';
                    117:        card('L', string);
                    118: 
                    119:        spool2();               /*put out final cards, and spool job.*/
                    120:        out();
                    121: }
                    122: 
                    123: nuact()
                    124: {
                    125: 
                    126:        if(gcdebug)
                    127:                card('L', "$    select  cc/test/aps");
                    128:        else
                    129:                card('L', "$    select  cc/unixsupport/gaps");
                    130: }
                    131: 
                    132: 
                    133: archive()
                    134: {
                    135: }

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