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

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.