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*/
102:
103: #define WRITE 1
104: #define READ 2
105: #define SEQ 3
106: #define DIR 4
107: #define FMT 5
108: #define UNF 6
109: #define EXT 7
110: #define INT 8
Defined typedef's
flag
defined in line
3; used 38 times
- in line 89-9(4),
15-17(2),
24,
36,
42,
51-60(8)
- in /usr/src/libI77/dfe.c line
50,
59
- in /usr/src/libI77/due.c line
18,
27
- in /usr/src/libI77/err.c line
9-18(6)
- in /usr/src/libI77/fmt.c line
16,
262
- in /usr/src/libI77/inquire.c line
3
- in /usr/src/libI77/lread.c line
46,
384,
392
- in /usr/src/libI77/sfe.c line
10-15(2)
- in /usr/src/libI77/sue.c line
35,
43
- in /usr/src/libI77/wsfe.c line
39
ftnint
defined in line
2; used 31 times
- in line 3-11(3),
19-25(3),
31,
37,
43,
61-67(5),
79-83(3)
- in /usr/src/libI77/fmt.c line
264-267(2)
- in /usr/src/libI77/lio.c line
30,
40,
92-95(2)
- in /usr/src/libI77/lread.c line
53,
398
- in /usr/src/libI77/open.c line
85
- in /usr/src/libI77/rdfmt.c line
95
- in /usr/src/libI77/uio.c line
3,
22,
28
- in /usr/src/libI77/wrtfmt.c line
133
ftnlen
defined in line
4; used 34 times
- in line 27,
63,
69-85(7)
- in /usr/src/libI77/fmt.c line
267
- in /usr/src/libI77/lio.c line
48,
69,
77,
92
- in /usr/src/libI77/lread.c line
53,
398
- in /usr/src/libI77/rdfmt.c line
4,
63,
110,
179,
187
- in /usr/src/libI77/uio.c line
3,
22,
28
- in /usr/src/libI77/util.c line
6,
12
- in /usr/src/libI77/wrtfmt.c line
16,
66,
86,
141-146(2),
156,
206,
224
Defined macros
DIR
defined in line
106; used 3 times
EXT
defined in line
109;
never used
FMT
defined in line
107; used 4 times
INT
defined in line
110;
never used
MXUNIT
defined in line
99; used 15 times
READ
defined in line
104; used 5 times
SEQ
defined in line
105; used 4 times
UNF
defined in line
108; used 2 times
err
defined in line
96; used 79 times
- in /usr/src/libI77/backspace.c line
8-11(3),
48-49(2)
- in /usr/src/libI77/dfe.c line
19,
36,
57-63(4),
87,
95,
109
- in /usr/src/libI77/due.c line
22-31(5),
42
- in /usr/src/libI77/endfile.c line
6,
50-55(2)
- in /usr/src/libI77/fmt.c line
277,
295-296(2),
391
- in /usr/src/libI77/iio.c line
10-20(4),
54,
89
- in /usr/src/libI77/lread.c line
59,
89-92(2),
219-224(4),
237,
243,
266-267(2),
286,
311,
319-324(2),
388-395(3)
- in /usr/src/libI77/open.c line
10,
29-41(4),
51-55(2),
65
- in /usr/src/libI77/rdfmt.c line
8-10(2)
- in /usr/src/libI77/rewind.c line
5-8(2)
- in /usr/src/libI77/rsfe.c line
18
- in /usr/src/libI77/sfe.c line
13-16(3)
- in /usr/src/libI77/sue.c line
16-19(2),
38,
44-47(3)
- in /usr/src/libI77/uio.c line
10,
32-37(2)
- in /usr/src/libI77/wrtfmt.c line
9-11(2)
- in /usr/src/libI77/wsfe.c line
18
Usage of this include