1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
/* $Id: $ */
/* Copyright (C) 1997 Sverre Hvammen Johansen,
* Department of Informatics, University of Oslo.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; version 2.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/******************************************************************************
Outermost block and the file classes */
/* Outermost block */
typedef struct
{
__dh h;
__dhp c1,
c2;
}
__bs0FILE, __bs0;
extern __bs0FILE __blokk0FILE;
extern __bs0FILE *__bp0FILE;
extern short __rl0FILE[];
extern __pty __pl0FILE[];
extern __ptyp __p0FILE;
/* Class file */
typedef struct
{
__dh h;
__txt filename;
void *file;
char open;
char shared,
append,
create,
readwrite,
re_wind,
purge;
}
__bs1FILE, __bs1;
extern __bs1FILE *__bp1FILE;
extern short __rl1FILE[];
extern __pty __pl1FILE[];
extern __ptyp __p1FILE;
/* File class imagefile */
typedef struct
{
__bs1FILE s;
__txt IMAGE;
}
__bs2FILE, __bs2;
extern __bs2FILE *__bp2FILE;
extern short __rl2FILE[];
extern __pty __pl2FILE[];
extern __ptyp __p2FILE;
/* Imagefile class outfile */
typedef struct
{
__bs2FILE s;
}
__bs3FILE, __bs3;
extern __pty __pl3FILE[];
extern __ptyp __p3FILE;
/* Imagefile class infile */
typedef struct
{
__bs2FILE s;
char endfile;
}
__bs4FILE, __bs4;
extern __pty __pl4FILE[];
extern __ptyp __p4FILE;
extern __bs4FILE __sysin;
/* Imagefile class directfile */
typedef struct
{
__bs2FILE s;
long loc,
maxloc,
minwriteloc,
imagelength;
char endfile,
locked,
lastop,
writeonly;
}
__bs5FILE, __bs5;
extern __pty __pl5FILE[];
extern __ptyp __p5FILE;
/* Outfile class printfile */
typedef struct
{
__bs3FILE s;
long line,
lines_per_page,
spacing,
page;
}
__bs6FILE, __bs6;
extern __pty __pl6FILE[];
extern __ptyp __p6FILE;
extern __bs6FILE __sysout;
extern __bs6FILE __syserr;
/* File class bytefile */
typedef struct
{
__bs1FILE s;
char endfile,
bytesize;
}
__bs7FILE, __bs7;
extern __pty __pl7FILE[];
extern __ptyp __p7FILE;
/* Bytefile class inbytefile */
typedef struct
{
__bs7FILE s;
}
__bs8FILE, __bs8;
extern __pty __pl8FILE[];
extern __ptyp __p8FILE;
/* Bytefile class outbytefile */
typedef struct
{
__bs7FILE s;
}
__bs9FILE, __bs9;
extern __pty __pl9FILE[];
extern __ptyp __p9FILE;
/* Bytefile class directbytefile */
typedef struct
{
__bs7FILE s;
long loc,
maxloc,
minwriteloc;
char locked,
lastop,
writeonly;
}
__bs10FILE, __bs10;
extern __pty __pl10FILE[];
extern __ptyp __p10FILE;
|
