-
Notifications
You must be signed in to change notification settings - Fork 8
/
Copy pathprelude
executable file
·65 lines (48 loc) · 2.93 KB
/
prelude
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
integer procedure iabs (x); value x; integer x; c_procedure;
real procedure fabs (x); value x; real x; c_procedure;
real procedure abs (x); value x; real x; abs := fabs (x);
integer procedure sign (x); value x; real x; c_procedure;
integer procedure entier (e); value e; real e; c_procedure;
real procedure sqrt (e); value e; real e; c_procedure;
real proc sin (a); value a; real a; c_procedure;
real proc cos (a); value a; real a; c_procedure;
real procedure arctan (e); value e; real e; c_procedure;
real procedure ln (e); value e; real e; c_procedure;
real procedure exp (e); value e; real e; c_procedure;
real procedure epsilon; c_procedure;
real procedure random; c_procedure;
boolean procedure isinfinite (x); value x; real x; c_procedure;
procedure stop; c_procedure;
procedure fault (str, r); value r; string str; real r; c_procedure;
integer procedure length (str); string str; c_procedure;
integer procedure open_file (str, kind); value kind; string str; integer kind; c_procedure;
integer procedure close_file (channel); value channel; integer channel; c_procedure;
procedure space (channel); value channel; integer channel; c_procedure;
procedure newline (channel); value channel; integer channel;c_procedure;
procedure outstring (channel, str);
value channel; integer channel; string str; c_procedure;
procedure outterminator (channel); value channel; integer channel; c_procedure;
procedure inchar (channel, str, v);
value channel; integer channel, v; string str; c_procedure;
integer procedure outchar (channel, str, v);
value channel, v; integer channel, v; string str; c_procedure;
real procedure read_real (channel);
value channel; integer channel; c_procedure;
procedure outinteger (channel, v);
value channel, v; integer channel, v; c_procedure;
procedure outreal (channel, v); value channel, v; integer channel; real v; c_procedure;
procedure ininteger (channel, v); value channel; integer channel, v; c_procedure;
procedure inreal (channel, v); value channel; integer channel; real v; c_procedure;
procedure outreal_16_11 (channel, v); value channel, v; integer channel; real v; c_procedure;
procedure outreal_e_10 (channel, v); value channel, v; integer channel; real v; c_procedure;
real procedure maxreal; c_procedure;
real procedure minreal; c_procedure;
comment some non standard procedures;
integer procedure i_lwb (a, i); value i; integer array a; integer i;c_procedure;
integer procedure b_lwb (a, i); value i; boolean array a; integer i; c_procedure;
integer procedure r_lwb (a, i); value i; real array a; integer i; c_procedure;
integer procedure i_upb (a, i); value i; integer array a; integer i; c_procedure;
integer procedure b_upb (a, i); value i; boolean array a; integer i; c_procedure;
integer procedure r_upb (a, i); value i; real array a; integer i; c_procedure;
integer procedure raw_in (channel); value channel; integer channel; c_procedure;
procedure raw_out (channel, val); value channel, val; integer channel, val; c_procedure;