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
|
{ Declarations for Pascal built-in objects }
{ Note: All functions with unusual syntaxes are not included here }
{*IgnoreNonAlpha=0} { If Language=UCSD, make sure we can parse "__module" }
{*UseRefs=0}
__module SYSTEM; {PERMANENT}
__export
{ Standard Pascal functions }
function arctan(x : longreal) : longreal;
function cos(x : longreal) : longreal;
function exp(x : longreal) : longreal;
function ln(x : longreal) : longreal;
procedure mark(var p);
function odd(i : integer) : boolean;
procedure release(var p);
function round(x : longreal) : integer;
function sin(x : longreal) : longreal;
function sqrt(x : longreal) : longreal;
function trunc(x : longreal) : integer;
{ HP Pascal extensions }
function binary(s : string) : integer;
procedure gotoxy(x, y : integer);
function hex(s : string) : integer;
function lastpos(anyvar f : text) : integer;
function linepos(var f : text) : integer;
procedure moveleft(anyvar s, d : integer; i : integer);
procedure moveright(anyvar s, d : integer; i : integer);
function octal(s : string) : integer;
function str(s : string; i, j : integer) : string;
function strlen(s : string) : integer;
function strltrim(s : string) : string;
function strmax(s : string) : integer;
function strpos(s, s2 : string) : integer;
function strrpt(s : string; i : integer) : string;
function strrtrim(s : string) : string;
{ Turbo/UCSD Pascal extensions }
function copy(s : string; i, j : integer) : string;
procedure delete(var s; i, j : integer);
function frac(x : longreal) : longreal;
procedure freemem(var p);
procedure getmem(var p; i : integer);
procedure insert(s : string; var s2; i : integer);
function length(s : string) : integer;
function log(x : longreal) : longreal;
function maxavail : integer;
function memavail : integer;
procedure move(var s, d; i : integer);
function paramcount : integer;
function paramstr(i : integer) : string;
function pos(s, s2 : string) : integer;
function ptr(i, j : integer) : pointer;
function pwroften(r : longreal) : longreal;
function swap(i : integer) : integer;
function upcase(c : char) : char;
{ Turbo standard variables }
var
HeapPtr, FreePtr: pointer;
{ Oregon Software Pascal-2 extensions }
{FuncMacro p2_inew(n) = malloc(n)}
{FuncMacro p2_new(x,n) = (*x = Malloc(n))}
{FuncMacro p2_dispose(x,n) = Free(*x)}
procedure noioerror(var f);
function ioerror(var f) : boolean;
function iostatus(var f) : integer;
{FuncMacro exitst(s) = exit(s)}
procedure exitst(s : integer);
{FuncMacro P_getcmdline(low,high,line,len)=(*len=P_getcmdline(low,high,line))}
procedure P_getcmdline(var line : array [low..high : integer] of char; var len : integer);
procedure TimeStamp(var day, month, year, hour, min, sec : integer);
{ VAX Pascal extensions }
function expo(r : real) : integer;
function index(s, s2 : string) : integer;
function pad(s : string; padchar : char; size : integer) : string;
function substr(s : string; i, j : integer) : string;
function uround(x : longreal) : integer;
function utrunc(x : longreal) : integer;
{ MPW Pascal extensions }
function arccos(r : longreal) : longreal;
function arcsin(r : longreal) : longreal;
function arctanh(r : longreal) : longreal;
function cosh(r : longreal) : longreal;
function exp10(r : longreal) : longreal;
function log10(r : longreal) : longreal;
function scaneq(limit : integer; ch : char; var s : univ integer) : integer;
function scanne(limit : integer; ch : char; var s : univ integer) : integer;
function sinh(r : longreal) : longreal;
function tan(r : longreal) : longreal;
function tanh(r : longreal) : longreal;
{ SUN Pascal extensions }
type alfa = packed array [1..10] of char;
{FuncMacro argc = P_argc}
function argc : integer;
{FuncMacro null = 0}
procedure null;
end.
|
