hyung-hwan
f9bf37f8bf
All checks were successful
continuous-integration/drone/push Build is passing
touched up fnblk handling in comp.c updated more code in hcl-x.c
54 lines
1.2 KiB
HCL
54 lines
1.2 KiB
HCL
set t (
|
|
class | x | {
|
|
defun :* make() { x := 1234; return self; };
|
|
defun get-x() { return x };
|
|
}
|
|
);
|
|
|
|
set X t;
|
|
|
|
if (nqv? t X) { printf "ERROR: t must point to X\n" } \
|
|
else { printf "OK: t points to X\n" };
|
|
|
|
set t ((t:make):get-x);
|
|
|
|
if (nqv? t 1234) { printf "ERROR: t must be 1234\n" } \
|
|
else { printf "OK: t is %d\n" t };
|
|
|
|
|
|
j := #{ ((X:make):get-x): 9999, 4512: ((X: make): get-x) };
|
|
v := (dic.get j 1234);
|
|
if (nqv? v 9999) { printf "ERROR: v is not 9999\n" } \
|
|
else { printf "OK: value is %d\n" v };
|
|
|
|
v := (dic.get j 4512);
|
|
if (nqv? v 1234) { printf "ERROR: v is not 1234\n" } \
|
|
else { printf "OK: value is %d\n" v };
|
|
|
|
## --------------------------------------------------------------
|
|
|
|
class X | a b c d | {
|
|
fun :*new() {
|
|
return self;
|
|
}
|
|
|
|
fun x() {
|
|
a := 20 ; self.b:=(a + 10); c := (b + 20)
|
|
printf "%d %d %d\n" self.a self.b self.c
|
|
return (+ self.a self.b self.c)
|
|
}
|
|
fun y() {
|
|
self.d := (fun(k) {
|
|
return (k + 1)
|
|
})
|
|
return self.d
|
|
}
|
|
|
|
}; a := (X:new); v := (a:x)
|
|
if (nqv? v 100) { printf "ERROR: v is not 100\n" } \
|
|
else { printf "OK: value is %d\n" v }
|
|
|
|
v := ((a:y) 20);
|
|
if (nqv? v 21) { printf "ERROR: v is not 21\n" } \
|
|
else { printf "OK: value is %d\n" v }
|