| 1 | /* Copyright (c) 1979 Regents of the University of California */ |
| 2 | |
| 3 | static char sccsid[] = "@(#)PCSTART.c 1.1 %G%"; |
| 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 | char *_minptr = (char *)0x7fffffff; |
| 16 | char *_maxptr = (char *)0; |
| 17 | |
| 18 | /* |
| 19 | * file record variables |
| 20 | */ |
| 21 | long _filefre = PREDEF; |
| 22 | struct iorechd _fchain = { |
| 23 | 0, 0, 0, 0, /* only use fchain field */ |
| 24 | INPUT /* fchain */ |
| 25 | }; |
| 26 | struct iorec *_actfile[MAXFILES] = { |
| 27 | INPUT, |
| 28 | OUTPUT, |
| 29 | ERR |
| 30 | }; |
| 31 | |
| 32 | /* |
| 33 | * standard files |
| 34 | */ |
| 35 | char _inwin, _outwin, _errwin; |
| 36 | struct iorechd input = { |
| 37 | &_inwin, /* fileptr */ |
| 38 | 0, /* lcount */ |
| 39 | 0x7fffffff, /* llimit */ |
| 40 | &_iob[0], /* fbuf */ |
| 41 | OUTPUT, /* fchain */ |
| 42 | STDLVL, /* flev */ |
| 43 | "standard input", /* pfname */ |
| 44 | FTEXT | FREAD | SYNC, /* funit */ |
| 45 | 0, /* fblk */ |
| 46 | 1 /* fsize */ |
| 47 | }; |
| 48 | struct iorechd output = { |
| 49 | &_outwin, /* fileptr */ |
| 50 | 0, /* lcount */ |
| 51 | 0x7fffffff, /* llimit */ |
| 52 | &_iob[1], /* fbuf */ |
| 53 | ERR, /* fchain */ |
| 54 | STDLVL, /* flev */ |
| 55 | "standard output", /* pfname */ |
| 56 | FTEXT | FWRITE | EOFF, /* funit */ |
| 57 | 1, /* fblk */ |
| 58 | 1 /* fsize */ |
| 59 | }; |
| 60 | struct iorechd _err = { |
| 61 | &_errwin, /* fileptr */ |
| 62 | 0, /* lcount */ |
| 63 | 0x7fffffff, /* llimit */ |
| 64 | &_iob[2], /* fbuf */ |
| 65 | FILNIL, /* fchain */ |
| 66 | STDLVL, /* flev */ |
| 67 | "Message file", /* pfname */ |
| 68 | FTEXT | FWRITE | EOFF, /* funit */ |
| 69 | 2, /* fblk */ |
| 70 | 1 /* fsize */ |
| 71 | }; |
| 72 | |
| 73 | PCSTART() |
| 74 | { |
| 75 | /* |
| 76 | * necessary only on systems which do not initialize |
| 77 | * memory to zero |
| 78 | */ |
| 79 | |
| 80 | struct iorec **ip; |
| 81 | |
| 82 | for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL); |
| 83 | } |