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
|
implementation module general
import StdEnv
:: Bind a b =
{ bind_src :: !a
, bind_dst :: !b
}
:: Env a b :== [Bind a b]
:: Optional x = Yes !x | No
cMAXINT :== 2147483647
:: BITVECT :== Int
instance ~ Bool
where ~ b = not b
instance <<< Bool
where
(<<<) file bool = file <<< (toString bool)
instance <<< (a,b) | <<< a & <<< b
where
(<<<) file (x,y) = file <<< '(' <<< x <<< ", " <<< y <<< ") "
instance <<< (a,b,c) | <<< a & <<< b & <<< c
where
(<<<) file (x,y,z) = file <<< '(' <<< x <<< ", " <<< y <<< ", " <<< z <<< ") "
instance <<< (a,b,c,d) | <<< a & <<< b & <<< c & <<< d
where
(<<<) file (w,x,y,z) = file <<< '(' <<< w <<< ", " <<< x <<< ", " <<< y <<< ", " <<< z <<< ") "
instance <<< (a,b,c,d,e) | <<< a & <<< b & <<< c & <<< d & <<< e
where
(<<<) file (v,w,x,y,z) = file <<< '(' <<< v <<< ", " <<< w <<< ", " <<< x <<< ", " <<< y <<< ", " <<< z <<< ") "
instance <<< [a] | <<< a
where
(<<<) file [] = file <<< "[]"
(<<<) file l = showTail (file <<< "[") l
where
showTail f [x] = f <<< x <<< "] "
showTail f [a:x] = showTail (f <<< a <<< ", ") x
showTail f [] = f <<< "] "
(--->) infix :: .a !b -> .a | <<< b
(--->) val message
| file_to_true (stderr <<< message <<< '\n')
= val
= abort "Internal error in --->"
(-?->) infix :: .a !(!Bool, !b) -> .a | <<< b
(-?->) val (cond, message)
| cond && file_to_true (stderr <<< message <<< '\n')
= val
= abort "Internal error in --->"
file_to_true :: !File -> Bool
file_to_true file = code {
.inline file_to_true
pop_b 2
pushB TRUE
.end
}
instance + {#Char}
where
(+) s t = s +++ t
|
