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

takeUntilAndDrop() allowEOF option

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-10-14 17:12:23 -04:00
parent 8d262e405d
commit e03f501476
2 changed files with 22 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -49,19 +49,19 @@ class Reader {
forceSymbol("#case"); forceSymbol("#case");
forceSymbol("#extern"); forceSymbol("#extern");
readTable["/*"] = (stream, k) -> { readTable["/*"] = (stream:Stream, k) -> {
stream.takeUntilAndDrop("*/"); stream.takeUntilAndDrop("*/");
null; null;
}; };
readTable["//"] = (stream, k) -> { readTable["//"] = (stream:Stream, k) -> {
stream.takeUntilAndDrop("\n"); stream.takeUntilAndDrop("\n");
null; null;
}; };
readTable["#|"] = (stream, k) -> RawHaxe(stream.expect("closing |#", () -> stream.takeUntilAndDrop("|#"))); readTable["#|"] = (stream:Stream, k) -> RawHaxe(stream.expect("closing |#", () -> stream.takeUntilAndDrop("|#")));
readTable[":"] = (stream, k) -> TypedExp(nextToken(stream, "a type path"), assertRead(stream, k)); readTable[":"] = (stream:Stream, k) -> TypedExp(nextToken(stream, "a type path"), assertRead(stream, k));
readTable["&"] = (stream, k) -> MetaExp(nextToken(stream, "a meta symbol like mut, optional, rest"), assertRead(stream, k)); readTable["&"] = (stream:Stream, k) -> MetaExp(nextToken(stream, "a meta symbol like mut, optional, rest"), assertRead(stream, k));
readTable["!"] = (stream:Stream, k) -> CallExp(Symbol("not").withPos(stream.position()), [assertRead(stream, k)]); readTable["!"] = (stream:Stream, k) -> CallExp(Symbol("not").withPos(stream.position()), [assertRead(stream, k)]);
@@ -72,30 +72,30 @@ class Reader {
readTable["?"] = (stream:Stream, k) -> CallExp(Symbol("Prelude.truthy").withPos(stream.position()), [assertRead(stream, k)]); readTable["?"] = (stream:Stream, k) -> CallExp(Symbol("Prelude.truthy").withPos(stream.position()), [assertRead(stream, k)]);
// Lets you dot-access a function result without binding it to a name // Lets you dot-access a function result without binding it to a name
readTable["."] = (stream, k) -> FieldExp(nextToken(stream, "a field name"), assertRead(stream, k)); readTable["."] = (stream:Stream, k) -> FieldExp(nextToken(stream, "a field name"), assertRead(stream, k));
// Lets you construct key-value pairs for map literals or for-loops // Lets you construct key-value pairs for map literals or for-loops
readTable["=>"] = (stream, k) -> KeyValueExp(assertRead(stream, k), assertRead(stream, k)); readTable["=>"] = (stream:Stream, k) -> KeyValueExp(assertRead(stream, k), assertRead(stream, k));
readTable[")"] = (stream, k) -> { readTable[")"] = (stream:Stream, k) -> {
stream.putBackString(")"); stream.putBackString(")");
throw new UnmatchedBracketSignal(")", stream.position()); throw new UnmatchedBracketSignal(")", stream.position());
}; };
readTable["]"] = (stream, k) -> { readTable["]"] = (stream:Stream, k) -> {
stream.putBackString("]"); stream.putBackString("]");
throw new UnmatchedBracketSignal("]", stream.position()); throw new UnmatchedBracketSignal("]", stream.position());
}; };
readTable["`"] = (stream, k) -> Quasiquote(assertRead(stream, k)); readTable["`"] = (stream:Stream, k) -> Quasiquote(assertRead(stream, k));
readTable[","] = (stream, k) -> Unquote(assertRead(stream, k)); readTable[","] = (stream:Stream, k) -> Unquote(assertRead(stream, k));
readTable[",@"] = (stream, k) -> UnquoteList(assertRead(stream, k)); readTable[",@"] = (stream:Stream, k) -> UnquoteList(assertRead(stream, k));
// Lambda arrow syntaxes: // Lambda arrow syntaxes:
// ->[args] body // ->[args] body
// ->arg body // ->arg body
// ->{body} // ->{body}
// or any of those with the first expression after -> prefixed by :Void // or any of those with the first expression after -> prefixed by :Void
readTable["->"] = (stream, k) -> { readTable["->"] = (stream:Stream, k) -> {
var firstExp = assertRead(stream, k); var firstExp = assertRead(stream, k);
var b = firstExp.expBuilder(); var b = firstExp.expBuilder();
@@ -129,7 +129,7 @@ class Reader {
}; };
// Because macro keys are sorted by length and peekChars(0) returns "", this will be used as the default reader macro: // Because macro keys are sorted by length and peekChars(0) returns "", this will be used as the default reader macro:
readTable[""] = (stream, k) -> Symbol(nextToken(stream, "a symbol name")); readTable[""] = (stream:Stream, k) -> Symbol(nextToken(stream, "a symbol name"));
return readTable; return readTable;
} }

11
kiss/src/kiss/Stream.hx
View File

@@ -182,11 +182,16 @@ class Stream {
return takeChars(firstIndex); return takeChars(firstIndex);
} }
public function takeUntilAndDrop(s:String):Option<String> { public function takeUntilAndDrop(s:String, allowEOF:Bool = false):Option<String> {
var idx = content.indexOf(s); var idx = content.indexOf(s);
if (idx < 0) if (idx < 0) {
return None; return if (allowEOF) {
Some(takeRest());
} else {
None;
}
}
var toReturn = content.substr(0, idx); var toReturn = content.substr(0, idx);
dropChars(toReturn.length + s.length); dropChars(toReturn.length + s.length);