projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| a002c9f4 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
| 2 | ||
| 31cef89c | 3 | static char sccsid[] = "@(#)PCSTART.c 1.1 10/29/80"; |
| a002c9f4 KM |
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 | } |