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     ! 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.