26 lines
1.1 KiB
Plaintext
26 lines
1.1 KiB
Plaintext
(* VERSION 0001 *)
|
||
(* DATE 03/17/82*)
|
||
|
||
(* definition of file info block for unix/udi *)
|
||
|
||
type
|
||
fibpaoc = packed array [0..0] of char;
|
||
fib = record
|
||
fname : string[37]; (* 0 *)
|
||
dummy, (* to align everything on word boundary *)
|
||
option: (notopen,fwrite,frdwr,frandom, (* 38 *)
|
||
fconio,ftrmio,flstout,fauxio)
|
||
buflen: integer; (* 40 *)
|
||
bufidx: integer; (* 42 *)
|
||
iosize: integer; (* 44 *)
|
||
feoln, (* 47 *)
|
||
feof : boolean; (* 46 *)
|
||
fbufadr:^fibpaoc; (* 48 *)
|
||
nosectrs, (* 53 *)
|
||
ftext : boolean; (* 52 *)
|
||
sysid: integer; (*fileid on unix, conn for udi 54 *)
|
||
fbuffer: fibpaoc (* 56 *)
|
||
end;
|
||
|
||
|
||
. |