37 lines
735 B
Plaintext
37 lines
735 B
Plaintext
#include "std.alpha"
|
|
type rec: [character: x; integer: y]
|
|
|
|
type T2: rec -> integer
|
|
|
|
type main: string -> integer
|
|
function entry: main
|
|
(*
|
|
function bar: T2
|
|
|
|
bar (r,s) := {
|
|
return 0;
|
|
}
|
|
|
|
*)
|
|
entry (arg) := {
|
|
[ Boolean:x ; Boolean:y ; Boolean:z ; Boolean:t; integer: c]
|
|
x := false;
|
|
y := false;
|
|
if ( (x | y) | !( y = x ) ) then {
|
|
|
|
(*
|
|
if ( x<y & !(x=y) ) then {
|
|
t := 8;
|
|
} else {
|
|
}
|
|
*)
|
|
|
|
z := 1 < 2;
|
|
c := printBoolean(z);
|
|
} else {
|
|
y := false; (* bar('c', 7); *)
|
|
c := printBoolean(y);
|
|
}
|
|
return 0;
|
|
}
|