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