hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rewrote compile_fun() to support attribute list for a function
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-10-02 00:33:34 +09:00
parent 29af1562fc
commit 3d0cdb5366
13 changed files with 496 additions and 284 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
t/retvar-01.hcl
View File

@ -36,12 +36,12 @@
set X1 999;
set X2 888;
fun :: get ( :: x y) {
fun(#class) get ( :: x y) {
set x X1;
set y X2;
};
fun :: get2 (inc :: x y) {
fun(#class) get2 (inc :: x y) {
set x (+ X1 inc);
set y (+ X2 inc);
};
@ -60,9 +60,9 @@
else { printf "OK: d=%d\n" d }
class X [ x, y ] {
fun ::f(a :: b c) { b := (+ a 10); c := (+ a 20) }
fun(#class) f(a :: b c) { b := (+ a 10); c := (+ a 20) }
fun :*new(z) {
fun(#classinst) new(z) {
## multi-variable assignment with return variables to member variables
[self.x, self.y] := (X:f z)
return self;
@ -83,7 +83,7 @@
## create a new binary operator message returning two output values
fun Number: // (x :: quo rem) {
fun Number:// (x :: quo rem) {
quo := (/ self x)
rem := (- self (* quo x))
}