[unix-history] / usr / src / cmd / f77 / fio.h

#include <stdio.h>
typedef long ftnint;
typedef ftnint flag;
typedef long ftnlen;
/*external read, write*/
typedef struct
{	flag cierr;
	ftnint ciunit;
	flag ciend;
	char *cifmt;
	ftnint cirec;
} cilist;
/*internal read, write*/
typedef struct
{	flag icierr;
	char *iciunit;
	flag iciend;
	char *icifmt;
	ftnint icirlen;
	ftnint icirnum;
} icilist;
/*open*/
typedef struct
{	flag oerr;
	ftnint ounit;
	char *ofnm;
	ftnlen ofnmlen;
	char *osta;
	char *oacc;
	char *ofm;
	ftnint orl;
	char *oblnk;
} olist;
/*close*/
typedef struct
{	flag cerr;
	ftnint cunit;
	char *csta;
} cllist;
/*rewind, backspace, endfile*/
typedef struct
{	flag aerr;
	ftnint aunit;
} alist;
/*units*/
typedef struct
{	FILE *ufd;	/*0=unconnected*/
	char *ufnm;
	long uinode;
	int url;	/*0=sequential*/
	flag useek;	/*true=can backspace, use dir, ...*/
	flag ufmt;
	flag uprnt;
	flag ublnk;
	flag uend;
	flag uwrt;	/*last io was write*/
	flag uscrtch;
} unit;
typedef struct
{	flag inerr;
	ftnint inunit;
	char *infile;
	ftnlen infilen;
	ftnint	*inex;	/*parameters in standard's order*/
	ftnint	*inopen;
	ftnint	*innum;
	ftnint	*innamed;
	char	*inname;
	ftnlen	innamlen;
	char	*inacc;
	ftnlen	inacclen;
	char	*inseq;
	ftnlen	inseqlen;
	char 	*indir;
	ftnlen	indirlen;
	char	*infmt;
	ftnlen	infmtlen;
	char	*inform;
	ftnint	informlen;
	char	*inunf;
	ftnlen	inunflen;
	ftnint	*inrecl;
	ftnint	*innrec;
	char	*inblank;
	ftnlen	inblanklen;
} inlist;

extern int errno;
extern flag init;
extern cilist *elist;	/*active external io list*/
extern flag reading,external,sequential,formatted;
extern int (*getn)(),(*putn)();	/*for formatted io*/
extern FILE *cf;	/*current file*/
extern unit *curunit;	/*current unit*/
extern unit units[];
#define err(f,n,s) {if(f) errno= n; else fatal(n,s); return(n);}

/*Table sizes*/
#define MXUNIT 10

extern int recpos;	/*position in current record*/
Commit	Line	Data
0d57d6f5 TL	1	#include <stdio.h>
	2	typedef long ftnint;
	3	typedef ftnint flag;
	4	typedef long ftnlen;
	5	/external read, write/
	6	typedef struct
	7	{ flag cierr;
	8	ftnint ciunit;
	9	flag ciend;
	10	char *cifmt;
	11	ftnint cirec;
	12	} cilist;
	13	/internal read, write/
	14	typedef struct
	15	{ flag icierr;
	16	char *iciunit;
	17	flag iciend;
	18	char *icifmt;
	19	ftnint icirlen;
	20	ftnint icirnum;
	21	} icilist;
	22	/open/
	23	typedef struct
	24	{ flag oerr;
	25	ftnint ounit;
	26	char *ofnm;
	27	ftnlen ofnmlen;
	28	char *osta;
	29	char *oacc;
	30	char *ofm;
	31	ftnint orl;
	32	char *oblnk;
	33	} olist;
	34	/close/
	35	typedef struct
	36	{ flag cerr;
	37	ftnint cunit;
	38	char *csta;
	39	} cllist;
	40	/rewind, backspace, endfile/
	41	typedef struct
	42	{ flag aerr;
	43	ftnint aunit;
	44	} alist;
	45	/units/
	46	typedef struct
	47	{ FILE ufd; /0=unconnected*/
	48	char *ufnm;
	49	long uinode;
	50	int url; /0=sequential/
	51	flag useek; /true=can backspace, use dir, .../
	52	flag ufmt;
	53	flag uprnt;
	54	flag ublnk;
	55	flag uend;
	56	flag uwrt; /last io was write/
	57	flag uscrtch;
	58	} unit;
	59	typedef struct
	60	{ flag inerr;
	61	ftnint inunit;
	62	char *infile;
	63	ftnlen infilen;
	64	ftnint inex; /parameters in standard's order*/
65	ftnint *inopen;
66	ftnint *innum;
67	ftnint *innamed;
68	char *inname;
69	ftnlen innamlen;
70	char *inacc;
71	ftnlen inacclen;
72	char *inseq;
73	ftnlen inseqlen;
74	char *indir;
75	ftnlen indirlen;
76	char *infmt;
77	ftnlen infmtlen;
78	char *inform;
79	ftnint informlen;
80	char *inunf;
81	ftnlen inunflen;
82	ftnint *inrecl;
83	ftnint *innrec;
84	char *inblank;
85	ftnlen inblanklen;
86	} inlist;
87
88	extern int errno;
89	extern flag init;
90	extern cilist elist; /active external io list*/
91	extern flag reading,external,sequential,formatted;
92	extern int (getn)(),(putn)(); /for formatted io/
93	extern FILE cf; /current file*/
94	extern unit curunit; /current unit*/
95	extern unit units[];
96	#define err(f,n,s) {if(f) errno= n; else fatal(n,s); return(n);}
97
98	/Table sizes/
99	#define MXUNIT 10
100
101	extern int recpos; /position in current record/