1 /* $Id: units.h,v 1.6 2020-09-21 21:46:52 phil Exp $ */
2 
3 #define NUNITS 256			/* XXX set at runtime? */
4 
5 /*
6  * "external" unit numbers (one-based)
7  * (modern FORTRAN seems to use unit zero for stderr!)
8  */
9 #define UNITI	5		/* INPUT: stdin */
10 #define UNITO	6		/* OUTPUT: stdout */
11 #define UNITP	7		/* TERMINAL output: stderr */
12 #define UNITT	8		/* TERMINAL input */
13 
14 /* names associated with UNITI, UNITO, UNITP(!), UNITT */
15 #define STDIN_NAME  "stdin"		/* XXX "-" ? */
16 #define STDOUT_NAME "stdout"		/* XXX "-" ? */
17 #define STDERR_NAME "stderr"
18 #define TERMIN_NAME "termin"		/* terminal input */
19