Return to dpr.c CVS log

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

Annotation of researchv10no/cmd/spool/dpr.c, revision 1.1

1.1     ! root        1: #include       <stdio.h>
        !             2: 
        !             3: /*
        !             4:  *  dpr -- spooler for off line print via dataphone daemon to GCOS
        !             5:  */
        !             6: 
        !             7: #define        DPR     1
        !             8: #define        FGET    0
        !             9: #define        FSEND   0
        !            10: #define        GCAT    0
        !            11: #define        LPR     0
        !            12: 
        !            13: #define        NAME    "dpr"
        !            14: #define        BF      'F'
        !            15: #define        MAXCOPY 204800L
        !            16: #define FIRSTCHAR 'A'-1
        !            17: 
        !            18: char   cfname[]        = "/usr/spool/dpd/cf@XXXXX";
        !            19: char   dfname[]        = "/usr/spool/dpd/df@XXXXX";
        !            20: char   lfname[]        = "/usr/spool/dpd/lf@XXXXX";
        !            21: char   tfname[]        = "/usr/spool/dpd/tf@XXXXX";
        !            22: char   zfname[]        = "/usr/spool/dpd/zf@XXXXX";
        !            23: 
        !            24: #include       "spool.c"
        !            25: 
        !            26: int    indent  = 8;            /*amount to indent line on printer. MRW*/
        !            27: 
        !            28: main(agc, agv)
        !            29: int agc;
        !            30: char *agv[];
        !            31: {
        !            32:        argc = agc;    argv = agv;
        !            33:        pidfn();
        !            34:        remotsw = ONL;
        !            35:        wantmail = 1;           /*default is send mail.*/
        !            36:        grade = '2';
        !            37: 
        !            38:        while (argc>1 && (arg = argv[1])[0]=='-') {
        !            39:                if(arg[1] != 's' && arg[2] && !arg[3]){
        !            40:                        remote[12] = arg[1];
        !            41:                        remote[13] = arg[2];
        !            42:                        remote[14] = 0;
        !            43:                } else if(comopt(arg[1])) ;
        !            44:                else switch (arg[1]) {
        !            45: 
        !            46:                case '-':
        !            47:                        remote[12] = 'r';
        !            48:                        remote[13] = '1';
        !            49:                        remote[14] = '\0';
        !            50:                        break;
        !            51: 
        !            52:                case 'f':               /*option to set filename for mail. MRW*/
        !            53:                        mailfile = getarg('f');
        !            54:                        wantmail = 1;
        !            55:                        break;
        !            56: 
        !            57:                case '0':               /*allow indent of 0. MRW*/
        !            58:                        indent = 0;
        !            59:                        break;
        !            60: 
        !            61:                default:
        !            62:                        fprintf(stderr, "%s: Unrecognized option: %s\n", NAME, arg);
        !            63:                        break;
        !            64:                }
        !            65:                argc--;
        !            66:                argv++;
        !            67:        }
        !            68: 
        !            69:        spool1();               /*setup initial GCOS cards.*/
        !            70:        if(indent == 0)         /*set GCOS switch 32 for no indent. MRW*/
        !            71:                card('L', "$    set     32");
        !            72:        if(gcdebug)
        !            73:                card('L', "$    select  cc/test/dpr");
        !            74:        else
        !            75:                card('L', "$    select  cc/unixsupport/dpr");
        !            76:        card('L', "$    data    i*,ncksum,copy");
        !            77: 
        !            78:        filargs();              /*process file arguments.*/
        !            79:        card('L', "$    endcopy");
        !            80: 
        !            81:        spool2();               /*put out final cards, and spool job.*/
        !            82:        out();
        !            83: }
        !            84: 
        !            85: 
        !            86: archive()
        !            87: {
        !            88: }
        !            89: 
        !            90: 
        !            91: nuact()
        !            92: {
        !            93: }

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