kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

allow &rest :Array<Dynamic>

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-04-08 06:30:16 -06:00
parent 0e27423605
commit fecf89f2a3
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/kiss/Helpers.hx
View File

@@ -169,12 +169,29 @@ class Helpers {
throw KissError.fromExp(funcArg, "lambda does not support &rest arguments"); throw KissError.fromExp(funcArg, "lambda does not support &rest arguments");
} }
var typeOfRestArg = explicitTypeString(funcArg);
var isDynamicArray = switch (typeOfRestArg) {
case "Array<Dynamic>" | "kiss.List<Dynamic>" | "List<Dynamic>":
true;
default:
false;
};
// rest arguments define a Kiss special form with the function's name that wraps // rest arguments define a Kiss special form with the function's name that wraps
// the rest args in a list when calling it from Kiss // the rest args in a list when calling it from Kiss
k.specialForms[funcName] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { k.specialForms[funcName] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
var realCallArgs = args.slice(0, numArgs); var realCallArgs = args.slice(0, numArgs);
var restArgs = args.slice(numArgs); var restArgs = args.slice(numArgs);
realCallArgs.push(ListExp(restArgs).withPosOf(wholeExp)); var arg = if (isDynamicArray) {
var b = funcArg.expBuilder();
b.let([b.typed("Array<Dynamic>", b.symbol("args")), b.list([])], [
for (arg in restArgs)
b.callField("push", b.symbol("args"), [arg])
].concat([b.symbol("args")]));
} else {
ListExp(restArgs).withPosOf(wholeExp);
}
realCallArgs.push(arg);
ECall(k.convert(Symbol(funcName).withPosOf(wholeExp)), realCallArgs.map(k.convert)).withMacroPosOf(wholeExp); ECall(k.convert(Symbol(funcName).withPosOf(wholeExp)), realCallArgs.map(k.convert)).withMacroPosOf(wholeExp);
}; };