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

(#symbol) macro

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-01-23 01:40:47 +00:00
parent 3ddbcda5c2
commit 2788a3f104
3 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -274,6 +274,12 @@ class Macros {
b.str(Context.definedValue(compileTimeResolveToString("The only argument to (#value...)", "a compiler flag's name", args[0], k)));
};
k.doc("#symbol", 1, 1, '(#symbol "<name>")');
macros["#symbol"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
var b = wholeExp.expBuilder();
b.symbol(Context.definedValue(compileTimeResolveToString("The only argument to (#symbol...)", "a compiler flag's name", args[0], k)));
};
k.doc("or", 1, null, "(or <v1> <values...>)");
function _or(wholeExp:ReaderExp, args:Array<ReaderExp>, k) {
var b = wholeExp.expBuilder();

1
kiss/src/kiss/Reader.hx
View File

@@ -55,6 +55,7 @@ class Reader {
forceSymbol("#case");
forceSymbol("#extern");
forceSymbol("#value");
forceSymbol("#symbol");
readTable["/*"] = (stream:Stream, k) -> {
stream.takeUntilAndDrop("*/");

5
kiss/src/kiss/SpecialForms.hx
View File

@@ -108,10 +108,7 @@ class SpecialForms {
k.doc("new", 1, null, '(new <type> <constructorArgs...>)');
map["new"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
var classType = switch (args[0].def) {
case Symbol(name): name;
default: throw KissError.fromExp(args[0], 'first arg in (new [type] ...) should be a class to instantiate');
};
var classType = k.convert(args[0]).toString();
ENew(Helpers.parseTypePath(classType, args[0]), args.slice(1).map(k.convert)).withMacroPosOf(wholeExp);
};