2024-04-20 17:24:27 +00:00
|
|
|
## there are 8 local temporaries variables in the top-level context
|
|
|
|
## the 8 temporaries defined inside the block expression are parked
|
|
|
|
## at the top-level context. 'a' assigned before the block expression
|
|
|
|
## is a global variable.
|
|
|
|
|
|
|
|
a := 1234
|
|
|
|
|
|
|
|
{
|
|
|
|
| a b c d |
|
|
|
|
| e f g h |
|
|
|
|
a := 10
|
|
|
|
b := 20
|
|
|
|
c := 30
|
|
|
|
d := 40
|
|
|
|
e := 50
|
|
|
|
f := 60
|
|
|
|
g := 70
|
|
|
|
h := 80
|
|
|
|
|
2024-09-03 03:18:08 +00:00
|
|
|
if (~= a 10) { print "ERROR: a inside the block expression is not 10\n" } \
|
2024-04-20 17:24:27 +00:00
|
|
|
else { printf "OK: %d\n" a };
|
|
|
|
}
|
|
|
|
|
2024-09-03 03:18:08 +00:00
|
|
|
a := (+ a 1)
|
2024-04-20 17:24:27 +00:00
|
|
|
c := (sprintf "%d" a)
|
|
|
|
|
2024-09-03 03:18:08 +00:00
|
|
|
if (~= a 1235) { printf "ERROR: a is not 1235\n" } \
|
2024-04-20 17:24:27 +00:00
|
|
|
else { printf "OK: %d\n" a };
|
|
|
|
|
|
|
|
if (nql? c "1235") { printf "ERROR: c is not \"1235\"\n" } \
|
|
|
|
else { printf "OK: %s\n" c };
|