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

indexOf macro

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-11-17 16:03:07 -07:00
parent 3196f45d4f
commit 6bb03cc468
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
kiss/src/kiss/Macros.hx
View File

@@ -1076,6 +1076,19 @@ class Macros {
].concat(body))]); ].concat(body))]);
}; };
function indexOfMacro(last:Bool, wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) {
var funcName = if (last) "lastIndexOf" else "indexOf";
wholeExp.checkNumArgs(2, 3, '($funcName <list or string> <element or substring> <?startingIndex>)');
var b = wholeExp.expBuilder();
return b.callSymbol("case", [
b.callField(funcName, exps.shift(), exps),
b.callSymbol("-1", [b.symbol("haxe.ds.Option.None")]),
b.callSymbol("other", [b.callSymbol("haxe.ds.Option.Some", [b.symbol("other")])])
]);
}
macros["indexOf"] = indexOfMacro.bind(false);
macros["lastIndexOf"] = indexOfMacro.bind(true);
return macros; return macros;
} }

4
kiss/src/test/cases/BasicTestCase.kiss
View File

@@ -399,8 +399,8 @@
(Assert.equals "you" (dictGet myMap "hey")) (Assert.equals "you" (dictGet myMap "hey"))
(Assert.equals "me" (dictGet myMap "found")) (Assert.equals "me" (dictGet myMap "found"))
(doFor =>key value myMap (doFor =>key value myMap
(Assert.isTrue (<= 0 (.indexOf ["hey" "found"] key))) (assertLet [(Some _) (indexOf ["hey" "found"] key)] 0)
(Assert.isTrue (<= 0 (.indexOf ["you" "me"] value)))) (assertLet [(Some _) (indexOf ["you" "me"] value)] 0))
// Map destructuring: // Map destructuring:
(let [[=>"hey" v1 =>"found" v2] myMap] (let [[=>"hey" v1 =>"found" v2] myMap]