- return str;
-}
-exports.tkTreeToSExp = tkTreeToSExp;
-/**inspect the inner of the representation. */
-let repr = (x) => { return util.inspect(x, { depth: null }); };
-var TokenKind;
-(function (TokenKind) {
- TokenKind[TokenKind["Seperator"] = 0] = "Seperator";
- TokenKind[TokenKind["Semicolon"] = 1] = "Semicolon";
- TokenKind[TokenKind["Number"] = 2] = "Number";
- TokenKind[TokenKind["Op"] = 3] = "Op";
- TokenKind[TokenKind["ExprMark"] = 4] = "ExprMark";
- TokenKind[TokenKind["Paren"] = 5] = "Paren";
- TokenKind[TokenKind["SpaceNL"] = 6] = "SpaceNL";
- TokenKind[TokenKind["Id"] = 7] = "Id";
- TokenKind[TokenKind["Str"] = 8] = "Str";
-})(TokenKind || (TokenKind = {}));
-/**
- * Parsing
- */
-const lexer = p.buildLexer([
- [true, /^\d+(\.\d+)?/g, TokenKind.Number],
- [true, /^\;/g, TokenKind.Semicolon],
- [true, /^[-][-][-]/g, TokenKind.Seperator],
- [true, /^[\+\-\*\/\&\|\!\^\<\>\~\=\?]+/g, TokenKind.Op],
- [true, /^\@+/g, TokenKind.ExprMark],
- [true, /^[()\[\]{}]/g, TokenKind.Paren],
- [true, /^["]([\"]|[\\].)*["]/g, TokenKind.Str],
- [true, /^[']([\']|[\\].)*[']/g, TokenKind.Str],
- [true, /^[()\[\]{}]/g, TokenKind.Paren],
- [true, /^[^\s\n\t\r;]+/g, TokenKind.Id],
- [false, /^(\s|\n|\r|\t)+/g, TokenKind.SpaceNL]
-]);
-/**
- *
- * # TEST
- */
-const inputTxt = `import ast;
----
-122`;
-const PROG = p.rule();
-const UNIT = p.rule();
-const IMPORTS = p.rule();
-const SEMICOLON = p.rule();
-let doubleMinus = { type: 'Punctuator', value: '--' };
-let doubleMinus2 = p.str('--');
-const TERM = p.rule();
-function applyUnit(value) {
- return value.text;
-}
-function applySemiColon(value) {
- return value.text;
-}
-function applyParts(first, second) {
- return ["%clo", first, second[1]];
-}
-PROG.setPattern(p.lrec_sc(IMPORTS, p.seq(p.str('---'), UNIT), applyParts));
-function applyImports(input) {
- let importTail = input[1].map(x => x.text);
- return ["import"].concat(importTail);