Return to gcat.c CVS log

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

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

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

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