32 lines
729 B
Plaintext
32 lines
729 B
Plaintext
001: type rec: [character: x; integer: y]
|
|
002:
|
|
003: type T2: rec -> integer
|
|
004:
|
|
005: type main: string -> integer
|
|
006: function entry: main
|
|
007: function bar: T2
|
|
008:
|
|
009: (*
|
|
010: bar (r,s) := {
|
|
011: return 0;
|
|
012: }
|
|
013:
|
|
014: *)
|
|
015: entry (arg) := {
|
|
016: [ Boolean:x ; Boolean:y ; Boolean:z ; Boolean:t]
|
|
017: if ( ( x & y ) ) then {
|
|
018:
|
|
019: (*
|
|
020: if ( x<y & !(x=y) ) then {
|
|
021: t := 8;
|
|
022: } else {
|
|
023: }
|
|
024: *)
|
|
025:
|
|
026: z := x < y;
|
|
027: } else {
|
|
028: y := true; (* bar('c', 7); *)
|
|
029: }
|
|
030: return 0;
|
|
031: }
|