27 lines
700 B
HCL
27 lines
700 B
HCL
|
((lambda ()
|
||
|
|
; test return variables
|
||
|
|
|
||
|
|
| v1 v2 v3 i |
|
||
|
|
|
||
|
|
(set i 100)
|
||
|
|
|
||
|
|
(defun ff(a b ::: x y z)
|
||
|
|
(set x (+ a b i))
|
||
|
|
(set y (+ x x))
|
||
|
|
(set z (+ 999 i))
|
||
|
|
(set i (* i 10))
|
||
|
|
)
|
||
|
|
|
||
|
|
(set-r v1 v2 v3 (ff 10 20))
|
||
|
|
(if (/= v1 130) (printf "ERROR: v1 must be 130\n"))
|
||
|
|
(if (/= v2 260) (printf "ERROR: v2 must be 260\n"))
|
||
|
|
(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
|
||
|
|
(printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3)
|
||
|
|
|
||
|
|
(set-r v1 v2 (ff 1 2)) ; using 2 return variables only. not assigning to v3
|
||
|
|
(if (/= v1 1003) (printf "ERROR: v1 must be 1003\n"))
|
||
|
|
(if (/= v2 2006) (printf "ERROR: v2 must be 2006\n"))
|
||
|
|
(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
|
||
|
|
(printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3)
|
||
|
|
))
|