blob: 82b49d8958e6a00374f31d4603e2762d3f2a37fe (
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
28
29
30
|
global s
procedure main()
&trace := -1
s := "abcdef"
&subject := "123456"
&pos := 4
every tracer(1)
every foo(&pos | &subject | &pos[1] | &subject[2:5])
display()
write(&line)
write(&file)
write(&level)
end
procedure tracer(a)
local i
static j
i := 2
j := 3
suspend .(a | i | j | s | &subject |
&pos | &random | &trace | &subject[3:4] | &pos[1] |
s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1])
suspend (a | i | j | s | &subject |
&pos | &random | &trace | &subject[3:4] | &pos[1] |
s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1])
end
procedure foo(s)
return s
end
|