hyung-hwan
bc7cbd9ed2
All checks were successful
continuous-integration/drone/push Build is passing
fixed a compiler bug not checking the lower bound of block depth in find_variable_backward_with_word()
55 lines
496 B
HCL
55 lines
496 B
HCL
## this file is to test the reader/feeder againsst weirdly formatted input text.
|
|
|
|
{ ## START
|
|
|
|
| J |
|
|
|
|
defun xxx (x y z
|
|
::: r ) {
|
|
|
|
| k
|
|
b
|
|
s |
|
|
|
|
k := (+ x y z)
|
|
b := (* k k)
|
|
s := (* b b)
|
|
|
|
printf "%d %d %d\n" k b s
|
|
|
|
r := s
|
|
J := r
|
|
}
|
|
|
|
|
|
[
|
|
j
|
|
] \
|
|
:= (xxx
|
|
10
|
|
20
|
|
30)
|
|
|
|
if (eqv? j 12960000) \
|
|
{
|
|
printf "OK: j is 12960000\n"
|
|
} else {
|
|
printf "BAD: j is not 12960000\n"
|
|
}
|
|
|
|
xxx \
|
|
1 \
|
|
2 \
|
|
3
|
|
|
|
if (eqv? J 1296) {
|
|
printf "OK: J is 1296\n"
|
|
} else {
|
|
printf "BAD: J is not 1296\n"
|
|
}
|
|
|
|
|
|
|
|
|
|
} ## END
|