blob: facf92ae1adba5163a1ae402f05cc4af81d21ff0 (
plain)
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
|
#SRC: JCON
# lexical comparison test
procedure main()
local s, t
write(" s1 s2 << <<= == ~== >>= >>")
every (s := "" | "a" | "b" | 'c' | "x" | 2 | '') &
(t := "" | "a" | "c" | 'x' | '2') do {
wr(s)
wr(t)
wr(s << t | &null)
wr(s <<= t | &null)
wr(s == t | &null)
wr(s ~== t | &null)
wr(s >>= t | &null)
wr(s >> t | &null)
write()
}
end
procedure wr(s)
writes(right(image(\s) | "---", 6))
return
end
|