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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#SRC: JCON
record message(who,gap,what)
record recordAsVariable()
procedure main()
local i, x
x := 1
x +:= |1 # tickled optimizer bug.
write(x)
x := table(3)
write(x[])
x := "o"
write("a" & "b")
write("c" | "d")
write(\"e")
write(!"f")
write(\&null | "g")
write(/&null & "h")
write("i" || "jk")
write(23 || "skidoo")
write(x, .x, x := "b")
every (write|"write")( (1|2)("hello", "mom"), "!")
every (write|"write")! [ (1|2) ! ["hello", "mom"], "!"]
write ! message("hello")
write ! message("hello", " ", "pop")
every i := -4 to 4 do
write("i=", i, ": ", i("a","b","c") | "failed")
every write(seq() \ 3)
every write(seq(4) \ 3)
every write(seq(,4) \ 3)
every write(seq(10,20) \ 3)
pairs { 1 to 100, 11 to 99 by 11 }
write("repl: ", repl("",5), repl("x",3), repl("foo",0), repl("xyz",4))
write("reverse: ", reverse(""), reverse("x"), reverse("ab"), reverse(12345));
every i := 0 to 255 do
if (ord(char(i)) ~= i) then write("char/ord oops ", i)
writes("char: ")
every writes(char((64 to 126) | 10))
write("proc: ")
write(" ", image(proc("write")))
write(" ", image(proc("write",)))
write(" ", image(proc("write",0)))
write(" ", image(proc("write",1)))
write(" ", image(proc("args")))
write(" ", image(proc("args",0)))
write(" >", args(main))
args := proc("args", 0)
write(" >", args(main))
write(" ", image(proc("args")))
write(" ", image(proc("args",0)))
# the following should all be harmless, at least
every collect(&null | (0 to 3), &null | 0 | 1 | 100 | 1000)
evaluation("1234567890", "abcdefghi")
every write(image(nullsuspend()))
write(image(recordAsVariable))
recordAsVariable := 3
write(image(recordAsVariable))
every write(tstreturn())
write("done")
exit()
write("oops!")
dummy()
end
procedure tstreturn()
return fn()
end
procedure fn()
suspend "OK to get here"
write("Should not get here when called from a 'return'")
end
# test Icon's (odd) two-pass argument evaluation process.
procedure evaluation(a,b)
local x,y
write("argument evaluation test")
write(x, x:=1)
write(x:=2, x:=3)
write(a, a := 3)
write(b[2], b[2] := "q")
write(b[2:3], b[1:4] := "qwerty")
y := [1,2,3,4]
write(y[1], y[1] := 3)
x := 7
write(x[2], y[2] := 3)
y := table(0)
write(y[3], y[3] := 7)
x := y
write(x[5], y[5] := 8)
end
procedure dummy()
image(every 1) | 2 # this triggered a problem once upon a time.
end
procedure args(x[]) # later replaced by proc("args",0)
local s
s := ""
every s ||:= image(!x) do
s ||:= " "
return s[1:-1] | ""
end
procedure pairs(e)
while write(@e[1], " ", @e[2])
end
procedure nullsuspend()
suspend
suspend
end
|
