Return to PCSTART.c CVS log

Up to [Research Unix] / researchv10dc / cmd / pascal / libpc

Annotation of researchv10dc/cmd/pascal/libpc/PCSTART.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) 1979 Regents of the University of California */
                      2: 
                      3: static char sccsid[] = "@(#)PCSTART.c 1.5 6/10/81";
                      4: 
                      5: #include "h00vars.h"
                      6: 
                      7: /*
                      8:  * program variables
                      9:  */
                     10: struct display _disply[MAXLVL];
                     11: int            _argc;
                     12: char           **_argv;
                     13: long           _stlim = 500000;
                     14: long           _stcnt = 0;
                     15: long           _seed = 1;
                     16: #ifdef VAX
                     17: char           *_minptr = (char *)0x7fffffff;
                     18: #else
                     19: char           *_minptr = (char *)0xffff;
                     20: #endif VAX
                     21: char           *_maxptr = (char *)0;
                     22: 
                     23: /*
                     24:  * file record variables
                     25:  */
                     26: long           _filefre = PREDEF;
                     27: struct iorechd _fchain = {
                     28:        0, 0, 0, 0,             /* only use fchain field */
                     29:        INPUT                   /* fchain  */
                     30: };
                     31: struct iorec   *_actfile[MAXFILES] = {
                     32:        INPUT,
                     33:        OUTPUT,
                     34:        ERR
                     35: };
                     36: 
                     37: /*
                     38:  * standard files
                     39:  */
                     40: char           _inwin, _outwin, _errwin;
                     41: struct iorechd input = {
                     42:        &_inwin,                /* fileptr */
                     43:        0,                      /* lcount  */
                     44:        0x7fffffff,             /* llimit  */
                     45:        &_iob[0],               /* fbuf    */
                     46:        OUTPUT,                 /* fchain  */
                     47:        STDLVL,                 /* flev    */
                     48:        "standard input",       /* pfname  */
                     49:        FTEXT | FREAD | SYNC,   /* funit   */
                     50:        0,                      /* fblk    */
                     51:        1                       /* fsize   */
                     52: };
                     53: struct iorechd output = {
                     54:        &_outwin,               /* fileptr */
                     55:        0,                      /* lcount  */
                     56:        0x7fffffff,             /* llimit  */
                     57:        &_iob[1],               /* fbuf    */
                     58:        ERR,                    /* fchain  */
                     59:        STDLVL,                 /* flev    */
                     60:        "standard output",      /* pfname  */
                     61:        FTEXT | FWRITE | EOFF,  /* funit   */
                     62:        1,                      /* fblk    */
                     63:        1                       /* fsize   */
                     64: };
                     65: struct iorechd _err = {
                     66:        &_errwin,               /* fileptr */
                     67:        0,                      /* lcount  */
                     68:        0x7fffffff,             /* llimit  */
                     69:        &_iob[2],               /* fbuf    */
                     70:        FILNIL,                 /* fchain  */
                     71:        STDLVL,                 /* flev    */
                     72:        "Message file",         /* pfname  */
                     73:        FTEXT | FWRITE | EOFF,  /* funit   */
                     74:        2,                      /* fblk    */
                     75:        1                       /* fsize   */
                     76: };
                     77: 
                     78: PCSTART()
                     79: {
                     80:        /*
                     81:         * necessary only on systems which do not initialize
                     82:         * memory to zero
                     83:         */
                     84: 
                     85:        struct iorec    **ip;
                     86: 
                     87:        for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL);
                     88: }

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