blob: 85090d43e60133dc1ce19802b24876d301dec179 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
procedure exit(x : integer);
external;
procedure lineread(var f:textfile);
external;
procedure linewrite(var f:textfile; cnt:integer);
external;
function testeof(var f:textfile):boolean;
external;
(* now, some routines to implement paths for file names. These are borrowed
from Howard Trickey's dvitype *)
procedure setpaths;
external;
function testaccess(accessmode:integer; filepath:integer): boolean;
external;
function testreadaccess(var f:UNIXfilename):boolean;
external;
|