47 lines
715 B
HCL
47 lines
715 B
HCL
defun aaa(a b) {
|
|
| c |
|
|
set c (+ a b);
|
|
return c;
|
|
};
|
|
|
|
set k (aaa 10 20);
|
|
|
|
if (= k 30) { printf "OK - %d\n" k; }
|
|
else { printf "ERROR - %d\n" k; };
|
|
|
|
## --------------------------------------
|
|
|
|
defun mkfun(t) {
|
|
return (fun(c) {
|
|
return (+ t c);
|
|
});
|
|
};
|
|
|
|
set f (mkfun 20);
|
|
set k (f 50);
|
|
if (= k 70) { printf "OK - %d\n" k; }
|
|
else { printf "ERROR - %d\n" k; };
|
|
|
|
|
|
## --------------------------------------
|
|
|
|
defclass A
|
|
| a b c |
|
|
{
|
|
defun ::* newInstance(x y z) {
|
|
(set a x)
|
|
(set b y)
|
|
(set c z)
|
|
(return self)
|
|
};
|
|
|
|
defun get-a() { return a; };
|
|
##defun get-b() b;
|
|
##defun get-c() c;
|
|
};
|
|
|
|
set k (:A newInstance 11 22 33);
|
|
set v (:k get-a);
|
|
if (= v 11) { printf "OK - %d\n" v; }
|
|
else { printf "ERROR - %d\n" v; };
|