0000: 2f 2a 2a 0d 0a 20 2a 20 41 75 74 68 6f 72 73 3a /**.. * Authors:
0010: 20 6b 2e 69 6e 61 62 61 0d 0a 20 2a 20 4c 69 63 k.inaba.. * Lic
0020: 65 6e 73 65 3a 20 4e 59 53 4c 20 30 2e 39 39 38 ense: NYSL 0.998
0030: 32 20 68 74 74 70 3a 2f 2f 77 77 77 2e 6b 6d 6f 2 http://www.kmo
0040: 6e 6f 73 2e 6e 65 74 2f 6e 79 73 6c 2f 0d 0a 20 nos.net/nysl/..
0050: 2a 0d 0a 20 2a 20 50 61 72 73 65 72 20 66 6f 72 *.. * Parser for
0060: 20 50 6f 6c 65 6d 79 20 70 72 6f 67 72 61 6d 6d Polemy programm
0070: 69 6e 67 20 6c 61 6e 67 75 61 67 65 0d 0a 20 2a ing language.. *
0080: 2f 0d 0a 6d 6f 64 75 6c 65 20 70 6f 6c 65 6d 79 /..module polemy
0090: 2e 70 61 72 73 65 3b 0d 0a 69 6d 70 6f 72 74 20 .parse;..import
00a0: 70 6f 6c 65 6d 79 2e 5f 63 6f 6d 6d 6f 6e 3b 0d polemy._common;.
00b0: 0a 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 2e 66 .import polemy.f
00c0: 61 69 6c 75 72 65 3b 0d 0a 69 6d 70 6f 72 74 20 ailure;..import
00d0: 70 6f 6c 65 6d 79 2e 6c 65 78 3b 0d 0a 69 6d 70 polemy.lex;..imp
00e0: 6f 72 74 20 70 6f 6c 65 6d 79 2e 61 73 74 3b 0d ort polemy.ast;.
00f0: 0a 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 2e 6c .import polemy.l
0100: 61 79 65 72 3b 0a 0d 0a 2f 2f 2f 20 50 61 72 73 ayer;.../// Pars
0110: 65 20 61 20 73 74 72 69 6e 67 20 61 6e 64 20 72 e a string and r
0120: 65 74 75 72 6e 20 69 74 73 20 41 53 54 0d 0a 2f eturn its AST../
0130: 2f 2f 20 54 68 72 6f 77 73 3a 20 50 61 72 73 65 // Throws: Parse
0140: 45 78 63 65 70 74 69 6f 6e 2c 20 4c 65 78 45 78 Exception, LexEx
0150: 63 65 70 74 69 6f 6e 2c 20 55 6e 65 78 70 65 63 ception, Unexpec
0160: 74 65 64 45 4f 46 0d 0a 0d 0a 41 53 54 20 70 61 tedEOF....AST pa
0170: 72 73 65 53 74 72 69 6e 67 28 53 2c 20 54 2e 2e rseString(S, T..
0180: 2e 29 28 53 20 73 74 72 2c 20 54 20 66 6e 5f 6c .)(S str, T fn_l
0190: 6e 5f 63 6e 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 n_cn)..{...retur
01a0: 6e 20 70 61 72 73 65 72 46 72 6f 6d 53 74 72 69 n parserFromStri
01b0: 6e 67 28 73 74 72 2c 20 66 6e 5f 6c 6e 5f 63 6e ng(str, fn_ln_cn
01c0: 29 2e 70 61 72 73 65 28 29 3b 0d 0a 7d 0d 0a 0d ).parse();..}...
01d0: 0a 2f 2f 2f 20 50 61 72 73 65 20 74 68 65 20 63 ./// Parse the c
01e0: 6f 6e 74 65 6e 74 20 6f 66 20 61 20 66 69 6c 65 ontent of a file
01f0: 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 and return its
0200: 41 53 54 0d 0a 2f 2f 2f 20 54 68 72 6f 77 73 3a AST../// Throws:
0210: 20 50 61 72 73 65 45 78 63 65 70 74 69 6f 6e 2c ParseException,
0220: 20 4c 65 78 45 78 63 65 70 74 69 6f 6e 2c 20 55 LexException, U
0230: 6e 65 78 70 65 63 74 65 64 45 4f 46 0d 0a 0d 0a nexpectedEOF....
0240: 41 53 54 20 70 61 72 73 65 46 69 6c 65 28 53 2c AST parseFile(S,
0250: 20 54 2e 2e 2e 29 28 53 20 66 69 6c 65 6e 61 6d T...)(S filenam
0260: 65 2c 20 54 20 6c 6e 5f 63 6e 29 0d 0a 7b 0d 0a e, T ln_cn)..{..
0270: 09 72 65 74 75 72 6e 20 70 61 72 73 65 72 46 72 .return parserFr
0280: 6f 6d 46 69 6c 65 28 66 69 6c 65 6e 61 6d 65 2c omFile(filename,
0290: 20 6c 6e 5f 63 6e 29 2e 70 61 72 73 65 28 29 3b ln_cn).parse();
02a0: 0d 0a 7d 0d 0a 0d 0a 2f 2f 20 4e 61 6d 65 64 20 ..}....// Named
02b0: 43 6f 6e 73 74 72 75 63 74 6f 72 73 20 6f 66 20 Constructors of
02c0: 50 61 72 73 65 72 0d 0a 0d 0a 70 72 69 76 61 74 Parser....privat
02d0: 65 20 61 75 74 6f 20 70 61 72 73 65 72 46 72 6f e auto parserFro
02e0: 6d 4c 65 78 65 72 28 4c 65 78 65 72 29 28 4c 65 mLexer(Lexer)(Le
02f0: 78 65 72 20 6c 65 78 29 0d 0a 09 7b 20 72 65 74 xer lex)...{ ret
0300: 75 72 6e 20 6e 65 77 20 50 61 72 73 65 72 21 4c urn new Parser!L
0310: 65 78 65 72 28 6c 65 78 29 3b 20 7d 0d 0a 0d 0a exer(lex); }....
0320: 70 72 69 76 61 74 65 20 61 75 74 6f 20 70 61 72 private auto par
0330: 73 65 72 46 72 6f 6d 53 74 72 69 6e 67 28 54 2e serFromString(T.
0340: 2e 2e 29 28 54 20 70 61 72 61 6d 73 29 0d 0a 09 ..)(T params)...
0350: 7b 20 72 65 74 75 72 6e 20 70 61 72 73 65 72 46 { return parserF
0360: 72 6f 6d 4c 65 78 65 72 28 6c 65 78 65 72 46 72 romLexer(lexerFr
0370: 6f 6d 53 74 72 69 6e 67 28 70 61 72 61 6d 73 29 omString(params)
0380: 29 3b 20 7d 0d 0a 0d 0a 70 72 69 76 61 74 65 20 ); }....private
0390: 61 75 74 6f 20 70 61 72 73 65 72 46 72 6f 6d 46 auto parserFromF
03a0: 69 6c 65 28 54 2e 2e 2e 29 28 54 20 70 61 72 61 ile(T...)(T para
03b0: 6d 73 29 0d 0a 09 7b 20 72 65 74 75 72 6e 20 70 ms)...{ return p
03c0: 61 72 73 65 72 46 72 6f 6d 4c 65 78 65 72 28 6c arserFromLexer(l
03d0: 65 78 65 72 46 72 6f 6d 46 69 6c 65 28 70 61 72 exerFromFile(par
03e0: 61 6d 73 29 29 3b 20 7d 0d 0a 0d 0a 2f 2f 20 50 ams)); }....// P
03f0: 61 72 73 65 72 0d 0a 0d 0a 70 72 69 76 61 74 65 arser....private
0400: 20 63 6c 61 73 73 20 50 61 72 73 65 72 28 4c 65 class Parser(Le
0410: 78 65 72 29 0d 0a 09 69 66 28 20 69 73 46 6f 72 xer)...if( isFor
0420: 77 61 72 64 52 61 6e 67 65 21 28 4c 65 78 65 72 wardRange!(Lexer
0430: 29 20 26 26 20 69 73 28 45 6c 65 6d 65 6e 74 54 ) && is(ElementT
0440: 79 70 65 21 28 4c 65 78 65 72 29 20 3d 3d 20 54 ype!(Lexer) == T
0450: 6f 6b 65 6e 29 20 29 0d 0a 7b 0d 0a 09 41 53 54 oken) )..{...AST
0460: 20 70 61 72 73 65 28 29 0d 0a 09 7b 0d 0a 09 09 parse()...{....
0470: 61 75 74 6f 20 65 20 3d 20 42 6f 64 79 28 29 3b auto e = Body();
0480: 0d 0a 09 09 69 66 28 20 21 6c 65 78 2e 65 6d 70 ....if( !lex.emp
0490: 74 79 20 29 0d 0a 09 09 09 74 68 72 6f 77 20 67 ty ).....throw g
04a0: 65 6e 65 78 21 50 61 72 73 65 45 78 63 65 70 74 enex!ParseExcept
04b0: 69 6f 6e 28 63 75 72 72 65 6e 74 50 6f 73 69 74 ion(currentPosit
04c0: 69 6f 6e 28 29 2c 20 22 70 61 72 73 69 6e 67 20 ion(), "parsing
04d0: 65 6e 64 65 64 20 62 75 74 20 73 6f 6d 65 20 74 ended but some t
04e0: 6f 6b 65 6e 73 20 6c 65 66 74 22 29 3b 0d 0a 09 okens left");...
04f0: 09 72 65 74 75 72 6e 20 65 3b 0d 0a 09 7d 0d 0a .return e;...}..
0500: 0d 0a 09 41 53 54 20 42 6f 64 79 28 29 0d 0a 09 ...AST Body()...
0510: 7b 0d 0a 09 09 2f 2f 2f 20 42 6f 64 79 20 3a 3a {..../// Body ::
0520: 3d 20 44 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 09 = Declaration...
0530: 09 2f 2f 2f 20 20 20 20 20 20 20 20 7c 20 54 6f ./// | To
0540: 70 4c 65 76 65 6c 45 78 70 72 65 73 73 69 6f 6e pLevelExpression
0550: 0d 0a 0d 0a 09 09 69 66 28 20 63 6c 6f 73 69 6e ......if( closin
0560: 67 42 72 61 63 6b 65 74 28 29 20 29 0d 0a 09 09 gBracket() )....
0570: 09 72 65 74 75 72 6e 20 64 6f 4e 6f 74 68 69 6e .return doNothin
0580: 67 45 78 70 72 65 73 73 69 6f 6e 28 29 3b 0d 0a gExpression();..
0590: 0d 0a 09 09 61 75 74 6f 20 73 61 76 65 64 20 3d ....auto saved =
05a0: 20 6c 65 78 2e 73 61 76 65 3b 0d 0a 09 09 69 66 lex.save;....if
05b0: 28 20 61 75 74 6f 20 65 20 3d 20 44 65 63 6c 61 ( auto e = Decla
05c0: 72 61 74 69 6f 6e 28 29 20 29 0d 0a 09 09 09 72 ration() ).....r
05d0: 65 74 75 72 6e 20 65 3b 0d 0a 09 09 6c 65 78 20 eturn e;....lex
05e0: 3d 20 73 61 76 65 64 3b 0d 0a 09 09 72 65 74 75 = saved;....retu
05f0: 72 6e 20 54 6f 70 4c 65 76 65 6c 45 78 70 72 65 rn TopLevelExpre
0600: 73 73 69 6f 6e 28 29 3b 0d 0a 09 7d 0d 0a 0d 0a ssion();...}....
0610: 09 41 53 54 20 44 65 63 6c 61 72 61 74 69 6f 6e .AST Declaration
0620: 28 29 20 2f 2f 20 72 65 74 75 72 6e 73 20 6e 75 () // returns nu
0630: 6c 6c 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 ll if it is not
0640: 61 20 64 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 09 a declaration...
0650: 7b 0d 0a 09 09 2f 2f 2f 20 44 65 63 6c 61 72 61 {..../// Declara
0660: 74 69 6f 6e 20 3a 3a 3d 0d 0a 09 09 2f 2f 2f 20 tion ::=....///
0670: 20 20 20 5b 22 40 22 20 4c 61 79 65 72 7c 22 6c ["@" Layer|"l
0680: 65 74 22 7c 22 76 61 72 22 7c 22 64 65 66 22 5d et"|"var"|"def"]
0690: 20 56 61 72 20 22 3d 22 20 45 78 70 72 65 73 73 Var "=" Express
06a0: 69 6f 6e 20 28 5b 22 3b 22 7c 22 69 6e 22 5d 20 ion ([";"|"in"]
06b0: 42 6f 64 79 3f 29 3f 0d 0a 09 09 2f 2f 2f 20 20 Body?)?....///
06c0: 7c 20 5b 22 40 22 20 4c 61 79 65 72 7c 22 6c 65 | ["@" Layer|"le
06d0: 74 22 7c 22 76 61 72 22 7c 22 64 65 66 22 5d 20 t"|"var"|"def"]
06e0: 56 61 72 20 22 28 22 20 50 61 72 61 6d 25 22 2c Var "(" Param%",
06f0: 22 20 22 29 22 20 22 7b 22 20 42 6f 64 79 20 22 " ")" "{" Body "
0700: 7d 22 20 28 5b 22 3b 22 7c 22 69 6e 22 5d 20 42 }" ([";"|"in"] B
0710: 6f 64 79 3f 29 3f 0d 0a 09 09 2f 2f 2f 20 20 7c ody?)?..../// |
0720: 20 5b 22 40 22 20 22 40 22 20 4c 61 79 65 72 20 ["@" "@" Layer
0730: 22 3d 22 20 45 78 70 72 65 73 73 69 6f 6e 20 28 "=" Expression (
0740: 5b 22 3b 22 7c 22 69 6e 22 5d 20 42 6f 64 79 3f [";"|"in"] Body?
0750: 29 3f 0d 0a 09 09 2f 2f 2f 20 20 7c 20 5b 22 40 )?..../// | ["@
0760: 22 20 22 40 22 20 4c 61 79 65 72 20 22 28 22 20 " "@" Layer "("
0770: 50 61 72 61 6d 25 22 2c 22 20 22 29 22 20 22 7b Param%"," ")" "{
0780: 22 20 42 6f 64 79 20 22 7d 22 20 28 5b 22 3b 22 " Body "}" ([";"
0790: 7c 22 69 6e 22 5d 20 42 6f 64 79 3f 29 3f 0d 0a |"in"] Body?)?..
07a0: 0d 0a 09 09 61 75 74 6f 20 70 6f 73 20 3d 20 63 ....auto pos = c
07b0: 75 72 72 65 6e 74 50 6f 73 69 74 69 6f 6e 28 29 urrentPosition()
07c0: 3b 0d 0a 09 09 73 74 72 69 6e 67 20 6c 61 79 65 ;....string laye
07d0: 72 20 3d 20 22 22 3b 0d 0a 09 09 62 6f 6f 6c 20 r = "";....bool
07e0: 6c 61 79 65 72 52 69 73 65 44 65 63 6c 20 3d 20 layerRiseDecl =
07f0: 66 61 6c 73 65 3b 0d 0a 0d 0a 09 09 69 66 28 20 false;......if(
0800: 74 72 79 45 61 74 28 22 40 22 29 20 29 0d 0a 09 tryEat("@") )...
0810: 09 7b 0d 0a 09 09 09 6c 61 79 65 72 20 3d 20 22 .{.....layer = "
0820: 40 22 20 7e 20 65 61 74 49 64 28 22 61 66 74 65 @" ~ eatId("afte
0830: 72 20 40 22 2c 20 41 6c 6c 6f 77 51 75 6f 74 65 r @", AllowQuote
0840: 64 29 3b 0d 0a 09 09 09 69 66 28 20 6c 61 79 65 d);.....if( laye
0850: 72 20 3d 3d 20 22 40 40 22 20 29 0d 0a 09 09 09 r == "@@" ).....
0860: 7b 0d 0a 09 09 09 09 6c 61 79 65 72 20 3d 20 22 {......layer = "
0870: 40 22 20 7e 20 65 61 74 49 64 28 22 61 66 74 65 @" ~ eatId("afte
0880: 72 20 40 40 22 2c 20 41 6c 6c 6f 77 51 75 6f 74 r @@", AllowQuot
0890: 65 64 29 3b 0d 0a 09 09 09 09 6c 61 79 65 72 52 ed);......layerR
08a0: 69 73 65 44 65 63 6c 20 3d 20 74 72 75 65 3b 0d iseDecl = true;.
08b0: 0a 09 09 09 7d 0d 0a 09 09 09 65 6c 73 65 0d 0a ....}.....else..
08c0: 09 09 09 7b 0d 0a 09 09 09 09 69 66 28 20 74 72 ...{......if( tr
08d0: 79 45 61 74 28 22 28 22 29 20 29 0d 0a 09 09 09 yEat("(") ).....
08e0: 09 09 72 65 74 75 72 6e 20 6e 75 6c 6c 3b 20 2f ..return null; /
08f0: 2f 20 40 6c 61 79 28 2e 2e 2e 29 20 65 78 70 72 / @lay(...) expr
0900: 65 73 73 69 6f 6e 2c 20 6e 6f 74 20 61 20 64 65 ession, not a de
0910: 63 6c 61 72 61 74 69 6f 6e 0d 0a 09 09 09 7d 0d claration.....}.
0920: 0a 09 09 7d 0d 0a 0d 0a 09 09 2f 2f 20 5b 54 4f ...}......// [TO
0930: 44 4f 5d 20 52 65 66 61 63 74 6f 72 0d 0a 09 09 DO] Refactor....
0940: 69 66 28 20 6c 61 79 65 72 52 69 73 65 44 65 63 if( layerRiseDec
0950: 6c 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 74 72 l )....{.....str
0960: 69 6e 67 20 6b 77 64 20 3d 20 22 40 22 20 7e 20 ing kwd = "@" ~
0970: 6c 61 79 65 72 3b 0d 0a 09 09 09 73 74 72 69 6e layer;.....strin
0980: 67 20 76 61 72 20 3d 20 6c 61 79 65 72 3b 0d 0a g var = layer;..
0990: 0d 0a 09 09 09 61 75 74 6f 20 65 20 3d 20 74 72 .....auto e = tr
09a0: 79 45 61 74 28 22 28 22 29 0d 0a 09 09 09 09 3f yEat("(")......?
09b0: 20 70 61 72 73 65 4c 61 6d 62 64 61 41 66 74 65 parseLambdaAfte
09c0: 72 4f 70 65 6e 50 61 72 65 6e 28 70 6f 73 29 20 rOpenParen(pos)
09d0: 20 2f 2f 20 6c 65 74 20 76 61 72 20 28 20 2e 2e // let var ( ..
09e0: 2e 0d 0a 09 09 09 09 3a 20 28 65 61 74 28 22 3d .......: (eat("=
09f0: 22 2c 20 22 61 66 74 65 72 20 22 7e 6b 77 64 29 ", "after "~kwd)
0a00: 2c 20 45 28 30 29 29 3b 20 2f 2f 20 6c 65 74 20 , E(0)); // let
0a10: 76 61 72 20 3d 20 2e 2e 2e 0d 0a 09 09 09 69 66 var = ........if
0a20: 28 20 6d 6f 72 65 44 65 63 6c 61 72 61 74 69 6f ( moreDeclaratio
0a30: 6e 45 78 69 73 74 73 28 29 20 29 0d 0a 09 09 09 nExists() ).....
0a40: 09 72 65 74 75 72 6e 20 6e 65 77 20 4c 65 74 45 .return new LetE
0a50: 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 2c 20 76 xpression(pos, v
0a60: 61 72 2c 20 53 79 73 74 65 6d 4c 61 79 65 72 2c ar, SystemLayer,
0a70: 20 65 2c 20 42 6f 64 79 28 29 29 3b 0d 0a 09 09 e, Body());....
0a80: 09 65 6c 73 65 0d 0a 09 09 09 09 72 65 74 75 72 .else......retur
0a90: 6e 20 6e 65 77 20 4c 65 74 45 78 70 72 65 73 73 n new LetExpress
0aa0: 69 6f 6e 28 70 6f 73 2c 20 76 61 72 2c 20 53 79 ion(pos, var, Sy
0ab0: 73 74 65 6d 4c 61 79 65 72 2c 20 65 2c 20 6e 65 stemLayer, e, ne
0ac0: 77 20 56 61 72 45 78 70 72 65 73 73 69 6f 6e 28 w VarExpression(
0ad0: 70 6f 73 2c 20 76 61 72 29 29 3b 0d 0a 09 09 7d pos, var));....}
0ae0: 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 7b 0d 0a 09 ....else....{...
0af0: 09 09 73 74 72 69 6e 67 20 6b 77 64 20 3d 20 6c ..string kwd = l
0b00: 61 79 65 72 3b 0d 0a 09 09 09 69 66 28 20 6c 61 ayer;.....if( la
0b10: 79 65 72 2e 65 6d 70 74 79 20 26 26 20 21 74 72 yer.empty && !tr
0b20: 79 45 61 74 28 6b 77 64 3d 22 6c 65 74 22 29 20 yEat(kwd="let")
0b30: 26 26 20 21 74 72 79 45 61 74 28 6b 77 64 3d 22 && !tryEat(kwd="
0b40: 76 61 72 22 29 20 26 26 20 21 74 72 79 45 61 74 var") && !tryEat
0b50: 28 6b 77 64 3d 22 64 65 66 22 29 20 29 0d 0a 09 (kwd="def") )...
0b60: 09 09 09 72 65 74 75 72 6e 20 6e 75 6c 6c 3b 20 ...return null;
0b70: 2f 2f 20 6e 6f 6e 65 20 6f 66 20 7b 40 6c 61 79 // none of {@lay
0b80: 2c 20 6c 65 74 2c 20 76 61 72 2c 20 64 65 66 7d , let, var, def}
0b90: 20 6f 63 63 75 72 72 65 64 2c 20 69 74 27 73 20 occurred, it's
0ba0: 6e 6f 74 20 61 20 64 65 63 6c 61 72 61 74 69 6f not a declaratio
0bb0: 6e 0d 0a 0d 0a 09 09 09 61 75 74 6f 20 76 61 72 n.......auto var
0bc0: 70 6f 73 20 3d 20 63 75 72 72 65 6e 74 50 6f 73 pos = currentPos
0bd0: 69 74 69 6f 6e 28 29 3b 0d 0a 09 09 09 73 74 72 ition();.....str
0be0: 69 6e 67 20 76 61 72 20 3d 20 65 61 74 49 64 28 ing var = eatId(
0bf0: 22 61 66 74 65 72 20 22 7e 6b 77 64 2c 20 41 6c "after "~kwd, Al
0c00: 6c 6f 77 51 75 6f 74 65 64 29 3b 20 2f 2f 20 6e lowQuoted); // n
0c10: 61 6d 65 20 6f 66 20 74 68 65 20 64 65 63 6c 61 ame of the decla
0c20: 72 65 64 20 76 61 72 69 61 62 6c 65 0d 0a 0d 0a red variable....
0c30: 09 09 09 61 75 74 6f 20 65 20 3d 20 74 72 79 45 ...auto e = tryE
0c40: 61 74 28 22 28 22 29 0d 0a 09 09 09 09 3f 20 70 at("(")......? p
0c50: 61 72 73 65 4c 61 6d 62 64 61 41 66 74 65 72 4f arseLambdaAfterO
0c60: 70 65 6e 50 61 72 65 6e 28 76 61 72 70 6f 73 29 penParen(varpos)
0c70: 20 20 2f 2f 20 6c 65 74 20 76 61 72 20 28 20 2e // let var ( .
0c80: 2e 2e 0d 0a 09 09 09 09 3a 20 28 65 61 74 28 22 ........: (eat("
0c90: 3d 22 2c 20 22 61 66 74 65 72 20 22 7e 6b 77 64 =", "after "~kwd
0ca0: 29 2c 20 45 28 30 29 29 3b 20 20 20 20 2f 2f 20 ), E(0)); //
0cb0: 6c 65 74 20 76 61 72 20 3d 20 2e 2e 2e 0d 0a 09 let var = ......
0cc0: 09 09 69 66 28 20 6d 6f 72 65 44 65 63 6c 61 72 ..if( moreDeclar
0cd0: 61 74 69 6f 6e 45 78 69 73 74 73 28 29 20 29 0d ationExists() ).
0ce0: 0a 09 09 09 09 72 65 74 75 72 6e 20 6e 65 77 20 .....return new
0cf0: 4c 65 74 45 78 70 72 65 73 73 69 6f 6e 28 70 6f LetExpression(po
0d00: 73 2c 20 76 61 72 2c 20 6c 61 79 65 72 2c 20 65 s, var, layer, e
0d10: 2c 20 42 6f 64 79 28 29 29 3b 0d 0a 09 09 09 65 , Body());.....e
0d20: 6c 73 65 0d 0a 09 09 09 09 72 65 74 75 72 6e 20 lse......return
0d30: 6e 65 77 20 4c 65 74 45 78 70 72 65 73 73 69 6f new LetExpressio
0d40: 6e 28 70 6f 73 2c 20 76 61 72 2c 20 6c 61 79 65 n(pos, var, laye
0d50: 72 2c 20 65 2c 20 6e 65 77 20 56 61 72 45 78 70 r, e, new VarExp
0d60: 72 65 73 73 69 6f 6e 28 76 61 72 70 6f 73 2c 20 ression(varpos,
0d70: 76 61 72 29 29 3b 0d 0a 09 09 7d 0d 0a 09 7d 0d var));....}...}.
0d80: 0a 0d 0a 09 41 53 54 20 54 6f 70 4c 65 76 65 6c ....AST TopLevel
0d90: 45 78 70 72 65 73 73 69 6f 6e 28 29 0d 0a 09 7b Expression()...{
0da0: 0d 0a 09 09 2f 2f 2f 20 54 6f 70 4c 65 76 65 6c ..../// TopLevel
0db0: 45 78 70 72 65 73 73 69 6f 6e 20 3a 3a 3d 20 45 Expression ::= E
0dc0: 78 70 72 65 73 73 69 6f 6e 20 28 5b 22 3b 22 7c xpression ([";"|
0dd0: 22 69 6e 22 5d 20 42 6f 64 79 3f 29 3f 0d 0a 0d "in"] Body?)?...
0de0: 0a 09 09 61 75 74 6f 20 70 6f 73 20 3d 20 63 75 ...auto pos = cu
0df0: 72 72 65 6e 74 50 6f 73 69 74 69 6f 6e 28 29 3b rrentPosition();
0e00: 0d 0a 09 09 61 75 74 6f 20 65 20 3d 20 45 28 30 ....auto e = E(0
0e10: 29 3b 0d 0a 09 09 69 66 28 20 6d 6f 72 65 44 65 );....if( moreDe
0e20: 63 6c 61 72 61 74 69 6f 6e 45 78 69 73 74 73 28 clarationExists(
0e30: 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 6e ) ).....return n
0e40: 65 77 20 4c 65 74 45 78 70 72 65 73 73 69 6f 6e ew LetExpression
0e50: 28 70 6f 73 2c 20 22 5f 22 2c 20 22 22 2c 20 65 (pos, "_", "", e
0e60: 2c 20 42 6f 64 79 28 29 29 3b 0d 0a 09 09 65 6c , Body());....el
0e70: 73 65 0d 0a 09 09 09 72 65 74 75 72 6e 20 65 3b se.....return e;
0e80: 0d 0a 09 7d 0d 0a 0d 0a 09 70 72 69 76 61 74 65 ...}.....private
0e90: 20 62 6f 6f 6c 20 6d 6f 72 65 44 65 63 6c 61 72 bool moreDeclar
0ea0: 61 74 69 6f 6e 45 78 69 73 74 73 28 29 0d 0a 09 ationExists()...
0eb0: 7b 0d 0a 09 09 72 65 74 75 72 6e 20 28 74 72 79 {....return (try
0ec0: 45 61 74 28 22 3b 22 29 20 7c 7c 20 74 72 79 45 Eat(";") || tryE
0ed0: 61 74 28 22 69 6e 22 29 29 20 26 26 20 21 63 6c at("in")) && !cl
0ee0: 6f 73 69 6e 67 42 72 61 63 6b 65 74 28 29 3b 0d osingBracket();.
0ef0: 0a 09 7d 0d 0a 0d 0a 09 70 72 69 76 61 74 65 20 ..}.....private
0f00: 62 6f 6f 6c 20 63 6c 6f 73 69 6e 67 42 72 61 63 bool closingBrac
0f10: 6b 65 74 28 29 0d 0a 09 7b 0d 0a 09 09 72 65 74 ket()...{....ret
0f20: 75 72 6e 20 6c 65 78 2e 65 6d 70 74 79 20 7c 7c urn lex.empty ||
0f30: 20 21 6c 65 78 2e 66 72 6f 6e 74 2e 71 75 6f 74 !lex.front.quot
0f40: 65 64 20 26 26 20 5b 22 7d 22 2c 22 29 22 2c 22 ed && ["}",")","
0f50: 5d 22 5d 2e 63 61 6e 46 69 6e 64 28 6c 65 78 2e ]"].canFind(lex.
0f60: 66 72 6f 6e 74 2e 73 74 72 29 3b 0d 0a 09 7d 0d front.str);...}.
0f70: 0a 0d 0a 09 2f 2f 20 5b 54 4f 44 4f 5d 20 6d 61 ....// [TODO] ma
0f80: 6b 65 20 74 68 69 73 20 63 75 73 74 6f 6d 69 7a ke this customiz
0f90: 61 62 6c 65 20 66 72 6f 6d 20 70 72 6f 67 72 61 able from progra
0fa0: 6d 0d 0a 09 70 72 69 76 61 74 65 20 73 74 61 74 m...private stat
0fb0: 69 63 20 73 74 72 69 6e 67 5b 5d 5b 5d 20 6f 70 ic string[][] op
0fc0: 65 72 61 74 6f 72 5f 70 65 72 66 65 72 65 6e 63 erator_perferenc
0fd0: 65 73 20 3d 20 5b 0d 0a 09 09 5b 22 7c 7c 22 5d es = [....["||"]
0fe0: 2c 0d 0a 09 09 5b 22 26 26 22 5d 2c 0d 0a 09 09 ,....["&&"],....
0ff0: 5b 22 21 3d 22 5d 2c 0d 0a 09 09 5b 22 3d 3d 22 ["!="],....["=="
1000: 5d 2c 0d 0a 09 09 5b 22 3c 22 2c 22 3c 3d 22 2c ],....["<","<=",
1010: 22 3e 22 2c 22 3e 3d 22 5d 2c 0d 0a 09 09 5b 22 ">",">="],....["
1020: 7c 22 5d 2c 0d 0a 09 09 5b 22 5e 22 5d 2c 0d 0a |"],....["^"],..
1030: 09 09 5b 22 26 22 5d 2c 0d 0a 09 09 5b 22 3c 3c ..["&"],....["<<
1040: 22 2c 20 22 3e 3e 22 5d 2c 0d 0a 09 09 5b 22 2b ", ">>"],....["+
1050: 22 2c 22 2d 22 5d 2c 0d 0a 09 09 5b 22 7e 22 5d ","-"],....["~"]
1060: 2c 0d 0a 09 09 5b 22 2a 22 2c 22 2f 22 2c 22 25 ,....["*","/","%
1070: 22 5d 2c 0d 0a 09 09 5b 22 5e 5e 22 2c 22 2a 2a "],....["^^","**
1080: 22 5d 2c 0d 0a 09 09 5b 22 2e 22 2c 22 2e 3f 22 "],....[".",".?"
1090: 5d 0d 0a 09 5d 3b 0d 0a 0d 0a 09 41 53 54 20 45 ]...];.....AST E
10a0: 28 73 69 7a 65 5f 74 20 6c 65 76 65 6c 29 0d 0a (size_t level)..
10b0: 09 7b 0d 0a 09 09 2f 2f 2f 20 45 78 70 72 65 73 .{..../// Expres
10c0: 73 69 6f 6e 20 3a 3a 3d 20 28 42 69 6e 61 72 79 sion ::= (Binary
10d0: 20 6c 65 66 74 2d 61 73 73 6f 63 69 61 74 69 76 left-associativ
10e0: 65 20 6f 70 65 72 61 74 6f 72 73 20 6f 76 65 72 e operators over
10f0: 29 20 46 75 6e 63 61 6c 6c 0d 0a 0d 0a 09 09 41 ) Funcall......A
1100: 53 54 20 72 65 63 28 41 53 54 20 6c 68 73 29 0d ST rec(AST lhs).
1110: 0a 09 09 7b 0d 0a 09 09 09 69 66 28 20 63 6c 6f ...{.....if( clo
1120: 73 69 6e 67 42 72 61 63 6b 65 74 28 29 20 29 0d singBracket() ).
1130: 0a 09 09 09 09 72 65 74 75 72 6e 20 6c 68 73 3b .....return lhs;
1140: 0d 0a 0d 0a 09 09 09 61 75 74 6f 20 70 6f 73 20 .......auto pos
1150: 3d 20 63 75 72 72 65 6e 74 50 6f 73 69 74 69 6f = currentPositio
1160: 6e 28 29 3b 0d 0a 09 09 09 66 6f 72 65 61 63 68 n();.....foreach
1170: 28 6f 70 3b 20 6f 70 65 72 61 74 6f 72 5f 70 65 (op; operator_pe
1180: 72 66 65 72 65 6e 63 65 73 5b 6c 65 76 65 6c 5d rferences[level]
1190: 29 0d 0a 09 09 09 09 69 66 28 20 74 72 79 45 61 )......if( tryEa
11a0: 74 28 6f 70 29 20 29 0d 0a 09 09 09 09 09 69 66 t(op) ).......if
11b0: 28 20 6f 70 5b 30 5d 3d 3d 27 2e 27 20 29 0d 0a ( op[0]=='.' )..
11c0: 09 09 09 09 09 09 72 65 74 75 72 6e 20 72 65 63 ......return rec
11d0: 28 0d 0a 09 09 09 09 09 09 09 6e 65 77 20 46 75 (.........new Fu
11e0: 6e 63 61 6c 6c 45 78 70 72 65 73 73 69 6f 6e 28 ncallExpression(
11f0: 6c 68 73 2e 70 6f 73 2c 20 6e 65 77 20 56 61 72 lhs.pos, new Var
1200: 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 2c 20 Expression(pos,
1210: 6f 70 29 2c 20 6c 68 73 2c 20 70 61 72 73 65 49 op), lhs, parseI
1220: 64 28 29 29 29 3b 0d 0a 09 09 09 09 09 65 6c 73 d()));.......els
1230: 65 0d 0a 09 09 09 09 09 72 65 74 75 72 6e 20 72 e.......return r
1240: 65 63 28 0d 0a 09 09 09 09 09 09 6e 65 77 20 46 ec(........new F
1250: 75 6e 63 61 6c 6c 45 78 70 72 65 73 73 69 6f 6e uncallExpression
1260: 28 6c 68 73 2e 70 6f 73 2c 20 6e 65 77 20 56 61 (lhs.pos, new Va
1270: 72 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 2c rExpression(pos,
1280: 20 6f 70 29 2c 20 6c 68 73 2c 20 45 28 6c 65 76 op), lhs, E(lev
1290: 65 6c 2b 31 29 29 29 3b 0d 0a 09 09 09 72 65 74 el+1)));.....ret
12a0: 75 72 6e 20 6c 68 73 3b 0d 0a 09 09 7d 0d 0a 0d urn lhs;....}...
12b0: 0a 09 09 69 66 28 20 6f 70 65 72 61 74 6f 72 5f ...if( operator_
12c0: 70 65 72 66 65 72 65 6e 63 65 73 2e 6c 65 6e 67 perferences.leng
12d0: 74 68 20 3c 3d 20 6c 65 76 65 6c 20 29 0d 0a 09 th <= level )...
12e0: 09 09 72 65 74 75 72 6e 20 46 75 6e 63 61 6c 6c ..return Funcall
12f0: 28 29 3b 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 09 ();....else.....
1300: 72 65 74 75 72 6e 20 72 65 63 28 45 28 6c 65 76 return rec(E(lev
1310: 65 6c 2b 31 29 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 el+1));...}.....
1320: 41 53 54 20 46 75 6e 63 61 6c 6c 28 29 0d 0a 09 AST Funcall()...
1330: 7b 0d 0a 09 09 2f 2f 2f 20 46 75 6e 63 61 6c 6c {..../// Funcall
1340: 20 3a 3a 3d 20 42 61 73 65 45 78 70 72 65 73 73 ::= BaseExpress
1350: 69 6f 6e 20 5b 22 28 22 20 45 78 70 72 65 73 73 ion ["(" Express
1360: 69 6f 6e 25 22 2c 22 20 22 29 22 5d 2a 0d 0a 0d ion%"," ")"]*...
1370: 0a 09 09 61 75 74 6f 20 65 20 3d 20 42 61 73 65 ...auto e = Base
1380: 45 78 70 72 65 73 73 69 6f 6e 28 29 3b 0d 0a 09 Expression();...
1390: 09 66 6f 72 28 3b 3b 29 0d 0a 09 09 09 69 66 28 .for(;;).....if(
13a0: 20 74 72 79 45 61 74 28 22 28 22 29 20 29 0d 0a tryEat("(") )..
13b0: 09 09 09 7b 0d 0a 09 09 09 09 61 75 74 6f 20 70 ...{......auto p
13c0: 6f 73 20 3d 20 63 75 72 72 65 6e 74 50 6f 73 69 os = currentPosi
13d0: 74 69 6f 6e 28 29 3b 0d 0a 09 09 09 09 41 53 54 tion();......AST
13e0: 5b 5d 20 61 72 67 73 3b 0d 0a 09 09 09 09 77 68 [] args;......wh
13f0: 69 6c 65 28 20 21 74 72 79 45 61 74 28 22 29 22 ile( !tryEat(")"
1400: 29 20 29 20 7b 0d 0a 09 09 09 09 09 69 66 28 20 ) ) {.......if(
1410: 6c 65 78 2e 65 6d 70 74 79 20 29 0d 0a 09 09 09 lex.empty ).....
1420: 09 09 09 74 68 72 6f 77 20 67 65 6e 65 78 21 55 ...throw genex!U
1430: 6e 65 78 70 65 63 74 65 64 45 4f 46 28 70 6f 73 nexpectedEOF(pos
1440: 2c 20 22 63 6c 6f 73 69 6e 67 20 27 29 27 20 66 , "closing ')' f
1450: 6f 72 20 61 72 67 75 6d 65 6e 74 73 20 6e 6f 74 or arguments not
1460: 20 66 6f 75 6e 64 22 29 3b 0d 0a 09 09 09 09 09 found");.......
1470: 61 72 67 73 20 7e 3d 20 45 28 30 29 3b 0d 0a 09 args ~= E(0);...
1480: 09 09 09 09 69 66 28 20 21 74 72 79 45 61 74 28 ....if( !tryEat(
1490: 22 2c 22 29 20 29 20 7b 0d 0a 09 09 09 09 09 09 ",") ) {........
14a0: 65 61 74 28 22 29 22 2c 20 22 61 66 74 65 72 20 eat(")", "after
14b0: 66 75 6e 63 74 69 6f 6e 20 70 61 72 61 6d 65 74 function paramet
14c0: 65 72 73 22 29 3b 0d 0a 09 09 09 09 09 09 62 72 ers");........br
14d0: 65 61 6b 3b 0d 0a 09 09 09 09 09 7d 0d 0a 09 09 eak;.......}....
14e0: 09 09 7d 0d 0a 09 09 09 09 65 20 3d 20 6e 65 77 ..}......e = new
14f0: 20 46 75 6e 63 61 6c 6c 45 78 70 72 65 73 73 69 FuncallExpressi
1500: 6f 6e 28 65 2e 70 6f 73 2c 20 65 2c 20 61 72 67 on(e.pos, e, arg
1510: 73 29 3b 0d 0a 09 09 09 7d 0d 0a 09 09 09 65 6c s);.....}.....el
1520: 73 65 20 69 66 28 20 74 72 79 45 61 74 28 22 7b se if( tryEat("{
1530: 22 29 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 ") ).....{......
1540: 65 20 3d 20 70 61 72 73 65 54 61 62 6c 65 53 65 e = parseTableSe
1550: 74 41 66 74 65 72 42 72 61 63 65 28 65 29 3b 0d tAfterBrace(e);.
1560: 0a 09 09 09 7d 0d 0a 09 09 09 65 6c 73 65 0d 0a ....}.....else..
1570: 09 09 09 09 62 72 65 61 6b 3b 0d 0a 09 09 72 65 ....break;....re
1580: 74 75 72 6e 20 65 3b 0d 0a 09 7d 0d 0a 0d 0a 09 turn e;...}.....
1590: 41 53 54 20 70 61 72 73 65 54 61 62 6c 65 53 65 AST parseTableSe
15a0: 74 41 66 74 65 72 42 72 61 63 65 28 41 53 54 20 tAfterBrace(AST
15b0: 65 29 0d 0a 09 7b 0d 0a 09 09 69 66 28 20 74 72 e)...{....if( tr
15c0: 79 45 61 74 28 22 7d 22 29 20 29 0d 0a 09 09 09 yEat("}") ).....
15d0: 72 65 74 75 72 6e 20 65 3b 0d 0a 09 09 61 75 74 return e;....aut
15e0: 6f 20 70 6f 73 20 3d 20 63 75 72 72 65 6e 74 50 o pos = currentP
15f0: 6f 73 69 74 69 6f 6e 28 29 3b 0d 0a 09 09 66 6f osition();....fo
1600: 72 28 3b 3b 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 r(;;)....{.....s
1610: 74 72 69 6e 67 20 6b 65 79 20 3d 20 65 61 74 49 tring key = eatI
1620: 64 28 22 66 6f 72 20 74 61 62 6c 65 20 6b 65 79 d("for table key
1630: 22 2c 20 41 6c 6c 6f 77 51 75 6f 74 65 64 29 3b ", AllowQuoted);
1640: 0d 0a 09 09 09 65 61 74 28 22 3a 22 2c 20 22 61 .....eat(":", "a
1650: 66 74 65 72 20 74 61 62 6c 65 20 6b 65 79 22 29 fter table key")
1660: 3b 0d 0a 09 09 09 41 53 54 20 76 61 6c 20 3d 20 ;.....AST val =
1670: 45 28 30 29 3b 0d 0a 09 09 09 65 20 3d 20 6e 65 E(0);.....e = ne
1680: 77 20 46 75 6e 63 61 6c 6c 45 78 70 72 65 73 73 w FuncallExpress
1690: 69 6f 6e 28 70 6f 73 2c 20 6e 65 77 20 56 61 72 ion(pos, new Var
16a0: 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 2c 22 Expression(pos,"
16b0: 2e 3d 22 29 2c 0d 0a 09 09 09 09 09 65 2c 20 6e .="),.......e, n
16c0: 65 77 20 53 74 72 4c 69 74 65 72 61 6c 28 70 6f ew StrLiteral(po
16d0: 73 2c 6b 65 79 29 2c 20 76 61 6c 29 3b 0d 0a 09 s,key), val);...
16e0: 09 09 69 66 28 20 21 74 72 79 45 61 74 28 22 2c ..if( !tryEat(",
16f0: 22 29 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 ") ).....{......
1700: 65 61 74 28 22 7d 22 2c 20 22 66 6f 72 20 74 68 eat("}", "for th
1710: 65 20 65 6e 64 20 6f 66 20 74 61 62 6c 65 20 6c e end of table l
1720: 69 74 65 72 61 6c 22 29 3b 0d 0a 09 09 09 09 62 iteral");......b
1730: 72 65 61 6b 3b 0d 0a 09 09 09 7d 0d 0a 09 09 7d reak;.....}....}
1740: 0d 0a 09 09 72 65 74 75 72 6e 20 65 3b 0d 0a 09 ....return e;...
1750: 7d 0d 0a 0d 0a 09 41 53 54 20 42 61 73 65 45 78 }.....AST BaseEx
1760: 70 72 65 73 73 69 6f 6e 28 29 0d 0a 09 7b 0d 0a pression()...{..
1770: 09 09 69 66 28 20 6c 65 78 2e 65 6d 70 74 79 20 ..if( lex.empty
1780: 29 0d 0a 09 09 09 74 68 72 6f 77 20 67 65 6e 65 ).....throw gene
1790: 78 21 55 6e 65 78 70 65 63 74 65 64 45 4f 46 28 x!UnexpectedEOF(
17a0: 63 75 72 72 65 6e 74 50 6f 73 69 74 69 6f 6e 28 currentPosition(
17b0: 29 2c 20 22 52 65 61 63 68 65 64 20 45 4f 46 20 ), "Reached EOF
17c0: 77 68 65 6e 20 74 72 69 65 64 20 74 6f 20 70 61 when tried to pa
17d0: 72 73 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f rse an expressio
17e0: 6e 22 29 3b 0d 0a 0d 0a 09 09 61 75 74 6f 20 70 n");......auto p
17f0: 6f 73 20 3d 20 6c 65 78 2e 66 72 6f 6e 74 2e 70 os = lex.front.p
1800: 6f 73 3b 0d 0a 09 09 69 66 28 20 6c 65 78 2e 66 os;....if( lex.f
1810: 72 6f 6e 74 2e 71 75 6f 74 65 64 20 29 0d 0a 09 ront.quoted )...
1820: 09 7b 0d 0a 09 09 09 73 63 6f 70 65 28 65 78 69 .{.....scope(exi
1830: 74 29 20 6c 65 78 2e 70 6f 70 46 72 6f 6e 74 3b t) lex.popFront;
1840: 0d 0a 09 09 09 72 65 74 75 72 6e 20 6e 65 77 20 .....return new
1850: 53 74 72 4c 69 74 65 72 61 6c 28 70 6f 73 2c 20 StrLiteral(pos,
1860: 6c 65 78 2e 66 72 6f 6e 74 2e 73 74 72 29 3b 0d lex.front.str);.
1870: 0a 09 09 7d 0d 0a 09 09 69 66 28 20 69 73 4e 75 ...}....if( isNu
1880: 6d 62 65 72 28 6c 65 78 2e 66 72 6f 6e 74 2e 73 mber(lex.front.s
1890: 74 72 29 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 tr) )....{.....s
18a0: 63 6f 70 65 28 65 78 69 74 29 20 6c 65 78 2e 70 cope(exit) lex.p
18b0: 6f 70 46 72 6f 6e 74 3b 0d 0a 09 09 09 72 65 74 opFront;.....ret
18c0: 75 72 6e 20 6e 65 77 20 49 6e 74 4c 69 74 65 72 urn new IntLiter
18d0: 61 6c 28 70 6f 73 2c 20 42 69 67 49 6e 74 28 63 al(pos, BigInt(c
18e0: 61 73 74 28 73 74 72 69 6e 67 29 6c 65 78 2e 66 ast(string)lex.f
18f0: 72 6f 6e 74 2e 73 74 72 29 29 3b 0d 0a 09 09 7d ront.str));....}
1900: 0d 0a 09 09 69 66 28 20 74 72 79 45 61 74 28 22 ....if( tryEat("
1910: 40 22 29 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 61 @") )....{.....a
1920: 75 74 6f 20 6c 61 79 20 3d 20 22 40 22 7e 65 61 uto lay = "@"~ea
1930: 74 49 64 28 22 66 6f 72 20 6c 61 79 65 72 20 49 tId("for layer I
1940: 44 22 29 3b 0d 0a 09 09 09 65 61 74 28 22 28 22 D");.....eat("("
1950: 2c 20 22 66 6f 72 20 6c 61 79 65 72 65 64 20 65 , "for layered e
1960: 78 65 63 75 74 69 6f 6e 22 29 3b 0d 0a 09 09 09 xecution");.....
1970: 61 75 74 6f 20 65 20 3d 20 42 6f 64 79 28 29 3b auto e = Body();
1980: 0d 0a 09 09 09 65 61 74 28 22 29 22 2c 20 22 61 .....eat(")", "a
1990: 66 74 65 72 20 22 7e 6c 61 79 7e 22 28 2e 2e 2e fter "~lay~"(...
19a0: 22 29 3b 0d 0a 09 09 09 72 65 74 75 72 6e 20 6e ");.....return n
19b0: 65 77 20 4c 61 79 65 72 65 64 45 78 70 72 65 73 ew LayeredExpres
19c0: 73 69 6f 6e 28 70 6f 73 2c 20 6c 61 79 2c 20 65 sion(pos, lay, e
19d0: 29 3b 0d 0a 09 09 7d 0d 0a 09 09 69 66 28 20 74 );....}....if( t
19e0: 72 79 45 61 74 28 22 28 22 29 20 29 0d 0a 09 09 ryEat("(") )....
19f0: 7b 0d 0a 09 09 09 61 75 74 6f 20 65 20 3d 20 42 {.....auto e = B
1a00: 6f 64 79 28 29 3b 0d 0a 09 09 09 65 61 74 28 22 ody();.....eat("
1a10: 29 22 2c 20 22 61 66 74 65 72 20 70 61 72 65 6e )", "after paren
1a20: 74 68 65 73 69 7a 65 64 20 65 78 70 72 65 73 73 thesized express
1a30: 69 6f 6e 22 29 3b 0d 0a 09 09 09 72 65 74 75 72 ion");.....retur
1a40: 6e 20 65 3b 0d 0a 09 09 7d 0d 0a 09 09 69 66 28 n e;....}....if(
1a50: 20 74 72 79 45 61 74 28 22 7b 22 29 20 29 0d 0a tryEat("{") )..
1a60: 09 09 7b 0d 0a 09 09 09 41 53 54 20 65 20 3d 20 ..{.....AST e =
1a70: 6e 65 77 20 46 75 6e 63 61 6c 6c 45 78 70 72 65 new FuncallExpre
1a80: 73 73 69 6f 6e 28 70 6f 73 2c 20 6e 65 77 20 56 ssion(pos, new V
1a90: 61 72 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 arExpression(pos
1aa0: 2c 22 7b 7d 22 29 29 3b 0d 0a 09 09 09 72 65 74 ,"{}"));.....ret
1ab0: 75 72 6e 20 70 61 72 73 65 54 61 62 6c 65 53 65 urn parseTableSe
1ac0: 74 41 66 74 65 72 42 72 61 63 65 28 65 29 3b 0d tAfterBrace(e);.
1ad0: 0a 09 09 7d 0d 0a 09 09 69 66 28 20 74 72 79 45 ...}....if( tryE
1ae0: 61 74 28 22 69 66 22 29 20 29 0d 0a 09 09 7b 0d at("if") )....{.
1af0: 0a 09 09 09 65 61 74 28 22 28 22 2c 20 22 61 66 ....eat("(", "af
1b00: 74 65 72 20 69 66 22 29 3b 0d 0a 09 09 09 61 75 ter if");.....au
1b10: 74 6f 20 63 6f 6e 64 20 3d 20 45 28 30 29 3b 0d to cond = E(0);.
1b20: 0a 09 09 09 65 61 74 28 22 29 22 2c 20 22 61 66 ....eat(")", "af
1b30: 74 65 72 20 69 66 20 63 6f 6e 64 69 74 69 6f 6e ter if condition
1b40: 22 29 3b 0d 0a 09 09 09 61 75 74 6f 20 74 68 65 ");.....auto the
1b50: 6e 50 6f 73 20 3d 20 6c 65 78 2e 66 72 6f 6e 74 nPos = lex.front
1b60: 2e 70 6f 73 3b 0d 0a 09 09 09 65 61 74 28 22 7b .pos;.....eat("{
1b70: 22 2c 20 22 61 66 74 65 72 20 69 66 20 63 6f 6e ", "after if con
1b80: 64 69 74 69 6f 6e 22 29 3b 0d 0a 09 09 09 61 75 dition");.....au
1b90: 74 6f 20 74 68 20 3d 20 42 6f 64 79 28 29 3b 0d to th = Body();.
1ba0: 0a 09 09 09 65 61 74 28 22 7d 22 2c 20 22 61 66 ....eat("}", "af
1bb0: 74 65 72 20 69 66 2d 74 68 65 6e 20 62 6f 64 79 ter if-then body
1bc0: 22 29 3b 0d 0a 09 09 09 61 75 74 6f 20 65 6c 20 ");.....auto el
1bd0: 3d 20 64 6f 4e 6f 74 68 69 6e 67 45 78 70 72 65 = doNothingExpre
1be0: 73 73 69 6f 6e 28 29 3b 0d 0a 09 09 09 61 75 74 ssion();.....aut
1bf0: 6f 20 65 6c 73 65 50 6f 73 20 3d 20 28 6c 65 78 o elsePos = (lex
1c00: 2e 65 6d 70 74 79 20 3f 20 4c 65 78 50 6f 73 69 .empty ? LexPosi
1c10: 74 69 6f 6e 2e 64 75 6d 6d 79 20 3a 20 6c 65 78 tion.dummy : lex
1c20: 2e 66 72 6f 6e 74 2e 70 6f 73 29 3b 0d 0a 09 09 .front.pos);....
1c30: 09 69 66 28 20 74 72 79 45 61 74 28 22 65 6c 73 .if( tryEat("els
1c40: 65 22 29 20 29 20 7b 0d 0a 09 09 09 09 65 61 74 e") ) {......eat
1c50: 28 22 7b 22 2c 20 22 61 66 74 65 72 20 65 6c 73 ("{", "after els
1c60: 65 22 29 3b 0d 0a 09 09 09 09 65 6c 20 3d 20 42 e");......el = B
1c70: 6f 64 79 28 29 3b 0d 0a 09 09 09 09 65 61 74 28 ody();......eat(
1c80: 22 7d 22 2c 20 22 61 66 74 65 72 20 65 6c 73 65 "}", "after else
1c90: 20 62 6f 64 79 22 29 3b 0d 0a 09 09 09 7d 0d 0a body");.....}..
1ca0: 09 09 09 72 65 74 75 72 6e 20 6e 65 77 20 46 75 ...return new Fu
1cb0: 6e 63 61 6c 6c 45 78 70 72 65 73 73 69 6f 6e 28 ncallExpression(
1cc0: 70 6f 73 2c 20 0d 0a 09 09 09 09 6e 65 77 20 56 pos, ......new V
1cd0: 61 72 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 arExpression(pos
1ce0: 2c 20 22 69 66 22 29 2c 0d 0a 09 09 09 09 63 6f , "if"),......co
1cf0: 6e 64 2c 0d 0a 09 09 09 09 6e 65 77 20 46 75 6e nd,......new Fun
1d00: 4c 69 74 65 72 61 6c 28 74 68 65 6e 50 6f 73 2c Literal(thenPos,
1d10: 20 5b 5d 2c 20 74 68 29 2c 0d 0a 09 09 09 09 6e [], th),......n
1d20: 65 77 20 46 75 6e 4c 69 74 65 72 61 6c 28 65 6c ew FunLiteral(el
1d30: 73 65 50 6f 73 2c 20 5b 5d 2c 20 65 6c 29 0d 0a sePos, [], el)..
1d40: 09 09 09 29 3b 0d 0a 09 09 7d 0d 0a 09 09 69 66 ...);....}....if
1d50: 28 20 74 72 79 45 61 74 28 22 66 75 6e 22 29 20 ( tryEat("fun")
1d60: 7c 7c 20 74 72 79 45 61 74 28 22 5c 75 30 33 42 || tryEat("\u03B
1d70: 42 22 29 20 29 20 2f 2f 20 6c 61 6d 62 64 61 21 B") ) // lambda!
1d80: 21 0d 0a 09 09 7b 0d 0a 09 09 09 65 61 74 28 22 !....{.....eat("
1d90: 28 22 2c 20 22 61 66 74 65 72 20 66 75 6e 22 29 (", "after fun")
1da0: 3b 0d 0a 09 09 09 72 65 74 75 72 6e 20 70 61 72 ;.....return par
1db0: 73 65 4c 61 6d 62 64 61 41 66 74 65 72 4f 70 65 seLambdaAfterOpe
1dc0: 6e 50 61 72 65 6e 28 70 6f 73 29 3b 0d 0a 09 09 nParen(pos);....
1dd0: 7d 0d 0a 09 09 73 63 6f 70 65 28 65 78 69 74 29 }....scope(exit)
1de0: 20 6c 65 78 2e 70 6f 70 46 72 6f 6e 74 3b 0d 0a lex.popFront;..
1df0: 09 09 72 65 74 75 72 6e 20 6e 65 77 20 56 61 72 ..return new Var
1e00: 45 78 70 72 65 73 73 69 6f 6e 28 70 6f 73 2c 20 Expression(pos,
1e10: 6c 65 78 2e 66 72 6f 6e 74 2e 73 74 72 29 3b 0d lex.front.str);.
1e20: 0a 09 7d 0d 0a 0d 0a 09 41 53 54 20 70 61 72 73 ..}.....AST pars
1e30: 65 49 64 28 29 0d 0a 09 7b 0d 0a 09 09 73 63 6f eId()...{....sco
1e40: 70 65 28 65 78 69 74 29 20 6c 65 78 2e 70 6f 70 pe(exit) lex.pop
1e50: 46 72 6f 6e 74 3b 0d 0a 09 09 72 65 74 75 72 6e Front;....return
1e60: 20 6e 65 77 20 53 74 72 4c 69 74 65 72 61 6c 28 new StrLiteral(
1e70: 63 75 72 72 65 6e 74 50 6f 73 69 74 69 6f 6e 28 currentPosition(
1e80: 29 2c 20 6c 65 78 2e 66 72 6f 6e 74 2e 73 74 72 ), lex.front.str
1e90: 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 41 53 54 20 70 );...}.....AST p
1ea0: 61 72 73 65 4c 61 6d 62 64 61 41 66 74 65 72 4f arseLambdaAfterO
1eb0: 70 65 6e 50 61 72 65 6e 28 69 6d 6d 75 74 61 62 penParen(immutab
1ec0: 6c 65 20 4c 65 78 50 6f 73 69 74 69 6f 6e 20 70 le LexPosition p
1ed0: 6f 73 29 0d 0a 09 7b 0d 0a 09 09 50 61 72 61 6d os)...{....Param
1ee0: 65 74 65 72 5b 5d 20 70 61 72 61 6d 73 3b 0d 0a eter[] params;..
1ef0: 09 09 77 68 69 6c 65 28 20 21 74 72 79 45 61 74 ..while( !tryEat
1f00: 28 22 29 22 29 20 29 0d 0a 09 09 7b 0d 0a 09 09 (")") )....{....
1f10: 09 70 61 72 61 6d 73 20 7e 3d 20 70 61 72 73 65 .params ~= parse
1f20: 50 61 72 61 6d 28 29 3b 0d 0a 09 09 09 69 66 28 Param();.....if(
1f30: 20 21 74 72 79 45 61 74 28 22 2c 22 29 20 29 20 !tryEat(",") )
1f40: 7b 0d 0a 09 09 09 09 65 61 74 28 22 29 22 2c 20 {......eat(")",
1f50: 22 61 66 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 "after function
1f60: 70 61 72 61 6d 65 74 65 72 73 22 29 3b 0d 0a 09 parameters");...
1f70: 09 09 09 62 72 65 61 6b 3b 0d 0a 09 09 09 7d 0d ...break;.....}.
1f80: 0a 09 09 7d 0d 0a 09 09 65 61 74 28 22 7b 22 2c ...}....eat("{",
1f90: 20 22 61 66 74 65 72 20 66 75 6e 63 74 69 6f 6e "after function
1fa0: 20 70 61 72 61 6d 65 74 65 72 73 22 29 3b 0d 0a parameters");..
1fb0: 09 09 61 75 74 6f 20 66 75 6e 62 6f 64 79 20 3d ..auto funbody =
1fc0: 20 42 6f 64 79 28 29 3b 0d 0a 09 09 65 61 74 28 Body();....eat(
1fd0: 22 7d 22 2c 20 22 61 66 74 65 72 20 66 75 6e 63 "}", "after func
1fe0: 74 69 6f 6e 20 62 6f 64 79 22 29 3b 0d 0a 09 09 tion body");....
1ff0: 72 65 74 75 72 6e 20 6e 65 77 20 46 75 6e 4c 69 return new FunLi
2000: 74 65 72 61 6c 28 70 6f 73 2c 20 70 61 72 61 6d teral(pos, param
2010: 73 2c 20 66 75 6e 62 6f 64 79 29 3b 0d 0a 09 7d s, funbody);...}
2020: 0d 0a 0d 0a 09 50 61 72 61 6d 65 74 65 72 20 70 .....Parameter p
2030: 61 72 73 65 50 61 72 61 6d 28 29 0d 0a 09 7b 0d arseParam()...{.
2040: 0a 09 09 73 74 72 69 6e 67 20 76 61 72 3b 0d 0a ...string var;..
2050: 09 09 73 74 72 69 6e 67 5b 5d 20 6c 61 79 3b 0d ..string[] lay;.
2060: 0a 09 09 77 68 69 6c 65 28 20 21 63 6c 6f 73 69 ...while( !closi
2070: 6e 67 42 72 61 63 6b 65 74 28 29 20 26 26 20 21 ngBracket() && !
2080: 6c 65 78 2e 65 6d 70 74 79 20 26 26 20 6c 65 78 lex.empty && lex
2090: 2e 66 72 6f 6e 74 2e 73 74 72 21 3d 22 2c 22 20 .front.str!=","
20a0: 29 0d 0a 09 09 7b 0d 0a 09 09 09 61 75 74 6f 20 )....{.....auto
20b0: 70 6f 73 20 3d 20 63 75 72 72 65 6e 74 50 6f 73 pos = currentPos
20c0: 69 74 69 6f 6e 28 29 3b 0d 0a 09 09 09 73 74 72 ition();.....str
20d0: 69 6e 67 20 70 20 3d 20 65 61 74 49 64 28 22 66 ing p = eatId("f
20e0: 6f 72 20 66 75 6e 63 74 69 6f 6e 20 70 61 72 61 or function para
20f0: 6d 65 74 65 72 22 2c 20 41 6c 6c 6f 77 51 75 6f meter", AllowQuo
2100: 74 65 64 29 3b 0d 0a 09 09 09 69 66 28 20 70 20 ted);.....if( p
2110: 3d 3d 20 22 40 22 20 29 0d 0a 09 09 09 09 6c 61 == "@" )......la
2120: 79 20 7e 3d 20 22 40 22 20 7e 20 65 61 74 49 64 y ~= "@" ~ eatId
2130: 28 22 61 66 74 65 72 20 40 22 2c 20 41 6c 6c 6f ("after @", Allo
2140: 77 51 75 6f 74 65 64 29 3b 0d 0a 09 09 09 65 6c wQuoted);.....el
2150: 73 65 20 69 66 28 20 76 61 72 2e 65 6d 70 74 79 se if( var.empty
2160: 20 29 0d 0a 09 09 09 09 76 61 72 20 3d 20 70 3b )......var = p;
2170: 0d 0a 09 09 09 65 6c 73 65 0d 0a 09 09 09 09 74 .....else......t
2180: 68 72 6f 77 20 67 65 6e 65 78 21 50 61 72 73 65 hrow genex!Parse
2190: 45 78 63 65 70 74 69 6f 6e 28 70 6f 73 2c 20 22 Exception(pos, "
21a0: 6f 6e 65 20 70 61 72 61 6d 65 74 65 72 20 68 61 one parameter ha
21b0: 73 20 74 77 6f 20 6e 61 6d 65 73 22 29 3b 0d 0a s two names");..
21c0: 09 09 7d 0d 0a 09 09 72 65 74 75 72 6e 20 6e 65 ..}....return ne
21d0: 77 20 50 61 72 61 6d 65 74 65 72 28 76 61 72 2c w Parameter(var,
21e0: 20 6c 61 79 29 3b 0d 0a 09 7d 0d 0a 0d 0a 70 72 lay);...}....pr
21f0: 69 76 61 74 65 3a 0d 0a 09 4c 65 78 65 72 20 6c ivate:...Lexer l
2200: 65 78 3b 0d 0a 09 74 68 69 73 28 4c 65 78 65 72 ex;...this(Lexer
2210: 20 6c 65 78 29 20 7b 20 74 68 69 73 2e 6c 65 78 lex) { this.lex
2220: 20 3d 20 6c 65 78 3b 20 7d 0d 0a 0d 0a 09 62 6f = lex; }.....bo
2230: 6f 6c 20 69 73 4e 75 6d 62 65 72 28 73 74 72 69 ol isNumber(stri
2240: 6e 67 20 73 29 0d 0a 09 7b 0d 0a 09 09 72 65 74 ng s)...{....ret
2250: 75 72 6e 20 66 69 6e 64 21 28 60 61 3c 27 30 27 urn find!(`a<'0'
2260: 20 7c 7c 20 27 39 27 3c 61 60 29 28 73 29 2e 65 || '9'<a`)(s).e
2270: 6d 70 74 79 3b 0d 0a 09 7d 0d 0a 09 0d 0a 09 76 mpty;...}......v
2280: 6f 69 64 20 65 61 74 28 73 74 72 69 6e 67 20 6b oid eat(string k
2290: 77 64 2c 20 6c 61 7a 79 20 73 74 72 69 6e 67 20 wd, lazy string
22a0: 6d 73 67 29 0d 0a 09 7b 0d 0a 09 09 69 66 28 20 msg)...{....if(
22b0: 21 74 72 79 45 61 74 28 6b 77 64 29 20 29 0d 0a !tryEat(kwd) )..
22c0: 09 09 09 69 66 28 20 6c 65 78 2e 65 6d 70 74 79 ...if( lex.empty
22d0: 20 29 0d 0a 09 09 09 09 74 68 72 6f 77 20 67 65 )......throw ge
22e0: 6e 65 78 21 55 6e 65 78 70 65 63 74 65 64 45 4f nex!UnexpectedEO
22f0: 46 28 0d 0a 09 09 09 09 09 63 75 72 72 65 6e 74 F(.......current
2300: 50 6f 73 69 74 69 6f 6e 28 29 2c 20 73 70 72 69 Position(), spri
2310: 6e 74 66 21 22 25 73 20 69 73 20 65 78 70 65 63 ntf!"%s is expec
2320: 74 65 64 20 25 73 20 62 75 74 20 6e 6f 74 20 66 ted %s but not f
2330: 6f 75 6e 64 22 28 6b 77 64 2c 6d 73 67 29 29 3b ound"(kwd,msg));
2340: 0d 0a 09 09 09 65 6c 73 65 0d 0a 09 09 09 09 74 .....else......t
2350: 68 72 6f 77 20 67 65 6e 65 78 21 50 61 72 73 65 hrow genex!Parse
2360: 45 78 63 65 70 74 69 6f 6e 28 0d 0a 09 09 09 09 Exception(......
2370: 09 63 75 72 72 65 6e 74 50 6f 73 69 74 69 6f 6e .currentPosition
2380: 28 29 2c 20 73 70 72 69 6e 74 66 21 22 25 73 20 (), sprintf!"%s
2390: 69 73 20 65 78 70 65 63 74 65 64 20 66 6f 72 20 is expected for
23a0: 25 73 20 62 75 74 20 6e 6f 74 20 66 6f 75 6e 64 %s but not found
23b0: 22 28 6b 77 64 2c 6d 73 67 29 29 3b 0d 0a 09 7d "(kwd,msg));...}
23c0: 0d 0a 0d 0a 09 62 6f 6f 6c 20 74 72 79 45 61 74 .....bool tryEat
23d0: 28 73 74 72 69 6e 67 20 6b 77 64 29 0d 0a 09 7b (string kwd)...{
23e0: 0d 0a 09 09 69 66 28 20 6c 65 78 2e 65 6d 70 74 ....if( lex.empt
23f0: 79 20 7c 7c 20 6c 65 78 2e 66 72 6f 6e 74 2e 71 y || lex.front.q
2400: 75 6f 74 65 64 20 7c 7c 20 6c 65 78 2e 66 72 6f uoted || lex.fro
2410: 6e 74 2e 73 74 72 21 3d 6b 77 64 20 29 0d 0a 09 nt.str!=kwd )...
2420: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d ..return false;.
2430: 0a 09 09 6c 65 78 2e 70 6f 70 46 72 6f 6e 74 3b ...lex.popFront;
2440: 0d 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b ....return true;
2450: 0d 0a 09 7d 0d 0a 0d 0a 09 65 6e 75 6d 20 7b 41 ...}.....enum {A
2460: 6c 6c 6f 77 51 75 6f 74 65 64 3d 74 72 75 65 2c llowQuoted=true,
2470: 20 44 69 73 61 6c 6c 6f 77 51 75 6f 74 65 64 3d DisallowQuoted=
2480: 66 61 6c 73 65 7d 3b 0d 0a 09 73 74 72 69 6e 67 false};...string
2490: 20 65 61 74 49 64 28 6c 61 7a 79 20 73 74 72 69 eatId(lazy stri
24a0: 6e 67 20 6d 73 67 2c 20 62 6f 6f 6c 20 61 71 3d ng msg, bool aq=
24b0: 44 69 73 61 6c 6c 6f 77 51 75 6f 74 65 64 29 0d DisallowQuoted).
24c0: 0a 09 7b 0d 0a 09 09 69 66 28 20 6c 65 78 2e 65 ..{....if( lex.e
24d0: 6d 70 74 79 20 29 0d 0a 09 09 09 74 68 72 6f 77 mpty ).....throw
24e0: 20 67 65 6e 65 78 21 55 6e 65 78 70 65 63 74 65 genex!Unexpecte
24f0: 64 45 4f 46 28 63 75 72 72 65 6e 74 50 6f 73 69 dEOF(currentPosi
2500: 74 69 6f 6e 28 29 2c 20 22 69 64 65 6e 74 69 66 tion(), "identif
2510: 69 65 72 20 69 73 20 65 78 70 65 63 74 65 64 20 ier is expected
2520: 62 75 74 20 6e 6f 74 20 66 6f 75 6e 64 20 22 7e but not found "~
2530: 6d 73 67 29 3b 0d 0a 09 09 69 66 28 20 21 61 71 msg);....if( !aq
2540: 20 26 26 20 6c 65 78 2e 66 72 6f 6e 74 2e 71 75 && lex.front.qu
2550: 6f 74 65 64 20 29 0d 0a 09 09 09 74 68 72 6f 77 oted ).....throw
2560: 20 67 65 6e 65 78 21 50 61 72 73 65 45 78 63 65 genex!ParseExce
2570: 70 74 69 6f 6e 28 63 75 72 72 65 6e 74 50 6f 73 ption(currentPos
2580: 69 74 69 6f 6e 28 29 2c 20 22 69 64 65 6e 74 69 ition(), "identi
2590: 66 69 65 72 20 69 73 20 65 78 70 65 63 74 65 64 fier is expected
25a0: 20 62 75 74 20 6e 6f 74 20 66 6f 75 6e 64 20 22 but not found "
25b0: 7e 6d 73 67 29 3b 0d 0a 09 09 73 63 6f 70 65 28 ~msg);....scope(
25c0: 65 78 69 74 29 20 6c 65 78 2e 70 6f 70 46 72 6f exit) lex.popFro
25d0: 6e 74 3b 0d 0a 09 09 72 65 74 75 72 6e 20 6c 65 nt;....return le
25e0: 78 2e 66 72 6f 6e 74 2e 73 74 72 3b 0d 0a 09 7d x.front.str;...}
25f0: 0d 0a 0d 0a 09 41 53 54 20 64 6f 4e 6f 74 68 69 .....AST doNothi
2600: 6e 67 45 78 70 72 65 73 73 69 6f 6e 28 29 0d 0a ngExpression()..
2610: 09 7b 0d 0a 09 09 72 65 74 75 72 6e 20 6e 65 77 .{....return new
2620: 20 49 6e 74 4c 69 74 65 72 61 6c 28 63 75 72 72 IntLiteral(curr
2630: 65 6e 74 50 6f 73 69 74 69 6f 6e 28 29 2c 20 42 entPosition(), B
2640: 69 67 49 6e 74 28 31 37 38 29 29 3b 0d 0a 09 7d igInt(178));...}
2650: 0d 0a 0d 0a 09 69 6d 6d 75 74 61 62 6c 65 28 4c .....immutable(L
2660: 65 78 50 6f 73 69 74 69 6f 6e 29 20 63 75 72 72 exPosition) curr
2670: 65 6e 74 50 6f 73 69 74 69 6f 6e 28 29 0d 0a 09 entPosition()...
2680: 7b 0d 0a 09 09 72 65 74 75 72 6e 20 6c 65 78 2e {....return lex.
2690: 65 6d 70 74 79 20 3f 20 6e 75 6c 6c 20 3a 20 6c empty ? null : l
26a0: 65 78 2e 66 72 6f 6e 74 2e 70 6f 73 3b 0d 0a 09 ex.front.pos;...
26b0: 7d 0d 0a 7d 0d 0a 0d 0a 75 6e 69 74 74 65 73 74 }..}....unittest
26c0: 0d 0a 7b 0d 0a 09 6d 69 78 69 6e 20 45 61 73 79 ..{...mixin Easy
26d0: 41 53 54 3b 0d 0a 0d 0a 09 61 73 73 65 72 74 5f AST;.....assert_
26e0: 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 60 eq(parseString(`
26f0: 31 32 33 60 29 2c 20 69 6e 74 6c 28 31 32 33 29 123`), intl(123)
2700: 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 );...assert_eq(p
2710: 61 72 73 65 53 74 72 69 6e 67 28 60 22 66 6f 6f arseString(`"foo
2720: 22 60 29 2c 20 73 74 72 6c 28 22 66 6f 6f 22 29 "`), strl("foo")
2730: 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 );...assert_eq(p
2740: 61 72 73 65 53 74 72 69 6e 67 28 60 66 75 6e 28 arseString(`fun(
2750: 29 7b 31 7d 60 29 2c 20 66 75 6e 28 5b 5d 2c 69 ){1}`), fun([],i
2760: 6e 74 6c 28 31 29 29 29 3b 0d 0a 09 61 73 73 65 ntl(1)));...asse
2770: 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e rt_eq(parseStrin
2780: 67 28 60 66 75 6e 28 78 29 7b 31 7d 60 29 2c 20 g(`fun(x){1}`),
2790: 66 75 6e 28 5b 22 78 22 5d 2c 69 6e 74 6c 28 31 fun(["x"],intl(1
27a0: 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 )));...assert_eq
27b0: 28 70 61 72 73 65 53 74 72 69 6e 67 28 22 5c 75 (parseString("\u
27c0: 30 33 42 42 28 29 7b 31 7d 22 29 2c 20 66 75 6e 03BB(){1}"), fun
27d0: 28 5b 5d 2c 69 6e 74 6c 28 31 29 29 29 3b 0d 0a ([],intl(1)));..
27e0: 09 61 73 73 65 72 74 5f 65 71 28 70 61 72 73 65 .assert_eq(parse
27f0: 53 74 72 69 6e 67 28 22 5c 75 30 33 42 42 28 78 String("\u03BB(x
2800: 29 7b 31 7d 22 29 2c 20 66 75 6e 28 5b 22 78 22 ){1}"), fun(["x"
2810: 5d 2c 69 6e 74 6c 28 31 29 29 29 3b 0d 0a 09 61 ],intl(1)));...a
2820: 73 73 65 72 74 5f 65 71 28 70 61 72 73 65 53 74 ssert_eq(parseSt
2830: 72 69 6e 67 28 60 31 3b 32 60 29 2c 20 6c 65 74 ring(`1;2`), let
2840: 28 22 5f 22 2c 22 22 2c 69 6e 74 6c 28 31 29 2c ("_","",intl(1),
2850: 69 6e 74 6c 28 32 29 29 29 3b 0d 0a 09 61 73 73 intl(2)));...ass
2860: 65 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 ert_eq(parseStri
2870: 6e 67 28 60 31 3b 32 3b 60 29 2c 20 6c 65 74 28 ng(`1;2;`), let(
2880: 22 5f 22 2c 22 22 2c 69 6e 74 6c 28 31 29 2c 69 "_","",intl(1),i
2890: 6e 74 6c 28 32 29 29 29 3b 0d 0a 09 61 73 73 65 ntl(2)));...asse
28a0: 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e rt_eq(parseStrin
28b0: 67 28 60 6c 65 74 20 78 3d 31 20 69 6e 20 32 60 g(`let x=1 in 2`
28c0: 29 2c 20 6c 65 74 28 22 78 22 2c 22 22 2c 69 6e ), let("x","",in
28d0: 74 6c 28 31 29 2c 69 6e 74 6c 28 32 29 29 29 3b tl(1),intl(2)));
28e0: 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 61 72 ...assert_eq(par
28f0: 73 65 53 74 72 69 6e 67 28 60 76 61 72 20 78 3d seString(`var x=
2900: 31 3b 32 3b 60 29 2c 20 6c 65 74 28 22 78 22 2c 1;2;`), let("x",
2910: 22 22 2c 69 6e 74 6c 28 31 29 2c 69 6e 74 6c 28 "",intl(1),intl(
2920: 32 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 2)));...assert_e
2930: 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 60 64 q(parseString(`d
2940: 65 66 20 78 3d 31 60 29 2c 20 6c 65 74 28 22 78 ef x=1`), let("x
2950: 22 2c 22 22 2c 69 6e 74 6c 28 31 29 2c 76 61 72 ","",intl(1),var
2960: 28 22 78 22 29 29 29 3b 0d 0a 09 61 73 73 65 72 ("x")));...asser
2970: 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 t_eq(parseString
2980: 28 60 40 76 61 6c 20 78 3d 31 3b 60 29 2c 20 6c (`@val x=1;`), l
2990: 65 74 28 22 78 22 2c 22 40 76 61 6c 22 2c 69 6e et("x","@val",in
29a0: 74 6c 28 31 29 2c 76 61 72 28 22 78 22 29 29 29 tl(1),var("x")))
29b0: 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 61 ;...assert_eq(pa
29c0: 72 73 65 53 74 72 69 6e 67 28 60 40 74 79 70 20 rseString(`@typ
29d0: 78 3d 22 23 69 6e 74 22 3b 60 29 2c 20 6c 65 74 x="#int";`), let
29e0: 28 22 78 22 2c 22 40 74 79 70 22 2c 73 74 72 6c ("x","@typ",strl
29f0: 28 22 23 69 6e 74 22 29 2c 76 61 72 28 22 78 22 ("#int"),var("x"
2a00: 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 )));...assert_eq
2a10: 28 70 61 72 73 65 53 74 72 69 6e 67 28 60 66 28 (parseString(`f(
2a20: 31 2c 32 29 60 29 2c 20 63 61 6c 6c 28 76 61 72 1,2)`), call(var
2a30: 28 22 66 22 29 2c 69 6e 74 6c 28 31 29 2c 69 6e ("f"),intl(1),in
2a40: 74 6c 28 32 29 29 29 3b 0d 0a 09 61 73 73 65 72 tl(2)));...asser
2a50: 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 t_eq(parseString
2a60: 28 60 69 66 28 31 29 7b 32 7d 60 29 2c 20 63 61 (`if(1){2}`), ca
2a70: 6c 6c 28 76 61 72 28 22 69 66 22 29 2c 69 6e 74 ll(var("if"),int
2a80: 6c 28 31 29 2c 66 75 6e 28 5b 5d 2c 69 6e 74 6c l(1),fun([],intl
2a90: 28 32 29 29 2c 66 75 6e 28 5b 5d 2c 69 6e 74 6c (2)),fun([],intl
2aa0: 28 31 37 38 29 29 29 29 3b 0d 0a 09 61 73 73 65 (178))));...asse
2ab0: 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e rt_eq(parseStrin
2ac0: 67 28 60 69 66 28 31 29 7b 32 7d 65 6c 73 65 7b g(`if(1){2}else{
2ad0: 33 7d 60 29 2c 20 63 61 6c 6c 28 76 61 72 28 22 3}`), call(var("
2ae0: 69 66 22 29 2c 69 6e 74 6c 28 31 29 2c 66 75 6e if"),intl(1),fun
2af0: 28 5b 5d 2c 69 6e 74 6c 28 32 29 29 2c 66 75 6e ([],intl(2)),fun
2b00: 28 5b 5d 2c 69 6e 74 6c 28 33 29 29 29 29 3b 0d ([],intl(3))));.
2b10: 0a 09 61 73 73 65 72 74 5f 65 71 28 70 61 72 73 ..assert_eq(pars
2b20: 65 53 74 72 69 6e 67 28 60 69 66 28 31 29 7b 7d eString(`if(1){}
2b30: 65 6c 73 65 7b 33 7d 28 29 28 29 60 29 2c 0d 0a else{3}()()`),..
2b40: 09 09 63 61 6c 6c 28 63 61 6c 6c 28 63 61 6c 6c ..call(call(call
2b50: 28 76 61 72 28 22 69 66 22 29 2c 69 6e 74 6c 28 (var("if"),intl(
2b60: 31 29 2c 66 75 6e 28 5b 5d 2c 69 6e 74 6c 28 31 1),fun([],intl(1
2b70: 37 38 29 29 2c 66 75 6e 28 5b 5d 2c 69 6e 74 6c 78)),fun([],intl
2b80: 28 33 29 29 29 29 29 29 3b 0d 0a 09 61 73 73 65 (3))))));...asse
2b90: 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e rt_eq(parseStrin
2ba0: 67 28 60 31 2b 32 2a 33 60 29 2c 20 63 61 6c 6c g(`1+2*3`), call
2bb0: 28 76 61 72 28 22 2b 22 29 2c 69 6e 74 6c 28 31 (var("+"),intl(1
2bc0: 29 2c 63 61 6c 6c 28 76 61 72 28 22 2a 22 29 2c ),call(var("*"),
2bd0: 69 6e 74 6c 28 32 29 2c 69 6e 74 6c 28 33 29 29 intl(2),intl(3))
2be0: 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 ));...assert_eq(
2bf0: 70 61 72 73 65 53 74 72 69 6e 67 28 60 28 31 2b parseString(`(1+
2c00: 32 29 2a 33 60 29 2c 20 63 61 6c 6c 28 76 61 72 2)*3`), call(var
2c10: 28 22 2a 22 29 2c 63 61 6c 6c 28 76 61 72 28 22 ("*"),call(var("
2c20: 2b 22 29 2c 69 6e 74 6c 28 31 29 2c 69 6e 74 6c +"),intl(1),intl
2c30: 28 32 29 29 2c 69 6e 74 6c 28 33 29 29 29 3b 0d (2)),intl(3)));.
2c40: 0a 09 61 73 73 65 72 74 5f 65 71 28 70 61 72 73 ..assert_eq(pars
2c50: 65 53 74 72 69 6e 67 28 60 31 2a 28 32 2b 33 29 eString(`1*(2+3)
2c60: 60 29 2c 20 63 61 6c 6c 28 76 61 72 28 22 2a 22 `), call(var("*"
2c70: 29 2c 69 6e 74 6c 28 31 29 2c 63 61 6c 6c 28 76 ),intl(1),call(v
2c80: 61 72 28 22 2b 22 29 2c 69 6e 74 6c 28 32 29 2c ar("+"),intl(2),
2c90: 69 6e 74 6c 28 33 29 29 29 29 3b 0d 0a 09 61 73 intl(3))));...as
2ca0: 73 65 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 sert_eq(parseStr
2cb0: 69 6e 67 28 60 31 2a 32 2b 33 60 29 2c 20 63 61 ing(`1*2+3`), ca
2cc0: 6c 6c 28 76 61 72 28 22 2b 22 29 2c 63 61 6c 6c ll(var("+"),call
2cd0: 28 76 61 72 28 22 2a 22 29 2c 69 6e 74 6c 28 31 (var("*"),intl(1
2ce0: 29 2c 69 6e 74 6c 28 32 29 29 2c 69 6e 74 6c 28 ),intl(2)),intl(
2cf0: 33 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 3)));...assert_e
2d00: 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 60 40 q(parseString(`@
2d10: 78 28 31 29 60 29 2c 20 6c 61 79 28 22 40 78 22 x(1)`), lay("@x"
2d20: 2c 20 69 6e 74 6c 28 31 29 29 29 3b 0d 0a 09 61 , intl(1)));...a
2d30: 73 73 65 72 74 5f 65 71 28 70 61 72 73 65 53 74 ssert_eq(parseSt
2d40: 72 69 6e 67 28 60 66 75 6e 28 78 20 40 76 20 40 ring(`fun(x @v @
2d50: 74 2c 20 79 2c 20 7a 20 40 74 29 7b 7d 60 29 2c t, y, z @t){}`),
2d60: 0d 0a 09 09 66 75 6e 70 28 5b 70 61 72 61 6d 28 ....funp([param(
2d70: 22 78 22 2c 5b 22 40 76 22 2c 22 40 74 22 5d 29 "x",["@v","@t"])
2d80: 2c 20 70 61 72 61 6d 28 22 79 22 2c 5b 5d 29 2c , param("y",[]),
2d90: 20 70 61 72 61 6d 28 22 7a 22 2c 5b 22 40 74 22 param("z",["@t"
2da0: 5d 29 5d 2c 20 69 6e 74 6c 28 31 37 38 29 29 29 ])], intl(178)))
2db0: 3b 0d 0a 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 ;.....assert_eq(
2dc0: 70 61 72 73 65 53 74 72 69 6e 67 28 60 0d 0a 09 parseString(`...
2dd0: 09 6c 65 74 20 78 20 3d 20 31 30 30 3b 20 23 63 .let x = 100; #c
2de0: 6f 6d 6d 65 6e 74 0d 0a 09 09 6c 65 74 20 79 20 omment....let y
2df0: 3d 20 32 30 30 3b 20 23 63 6f 6d 6d 65 6e 74 21 = 200; #comment!
2e00: 21 21 21 21 0d 0a 09 09 09 78 2b 79 0d 0a 09 60 !!!!.....x+y...`
2e10: 29 2c 0d 0a 09 09 6c 65 74 28 22 78 22 2c 20 22 ),....let("x", "
2e20: 22 2c 20 69 6e 74 6c 28 31 30 30 29 2c 20 6c 65 ", intl(100), le
2e30: 74 28 22 79 22 2c 20 22 22 2c 20 69 6e 74 6c 28 t("y", "", intl(
2e40: 32 30 30 29 2c 20 63 61 6c 6c 28 76 61 72 28 22 200), call(var("
2e50: 2b 22 29 2c 20 76 61 72 28 22 78 22 29 2c 20 76 +"), var("x"), v
2e60: 61 72 28 22 79 22 29 29 29 29 0d 0a 09 29 3b 0d ar("y"))))...);.
2e70: 0a 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 61 ....assert_eq(pa
2e80: 72 73 65 53 74 72 69 6e 67 28 60 0d 0a 09 09 76 rseString(`....v
2e90: 61 72 20 66 61 63 20 3d 20 66 75 6e 28 78 29 7b ar fac = fun(x){
2ea0: 20 69 66 28 78 20 3c 3d 20 31 29 20 7b 31 7d 20 if(x <= 1) {1}
2eb0: 65 6c 73 65 20 7b 78 2a 66 61 63 28 78 2d 31 29 else {x*fac(x-1)
2ec0: 7d 20 7d 3b 0d 0a 09 09 66 61 63 28 31 30 29 0d } };....fac(10).
2ed0: 0a 09 60 29 2c 0d 0a 09 09 6c 65 74 28 22 66 61 ..`),....let("fa
2ee0: 63 22 2c 20 22 22 2c 20 66 75 6e 28 5b 22 78 22 c", "", fun(["x"
2ef0: 5d 2c 0d 0a 09 09 09 63 61 6c 6c 28 76 61 72 28 ],.....call(var(
2f00: 22 69 66 22 29 2c 0d 0a 09 09 09 09 63 61 6c 6c "if"),......call
2f10: 28 76 61 72 28 22 3c 3d 22 29 2c 20 76 61 72 28 (var("<="), var(
2f20: 22 78 22 29 2c 20 69 6e 74 6c 28 31 29 29 2c 0d "x"), intl(1)),.
2f30: 0a 09 09 09 09 66 75 6e 28 5b 5d 2c 20 69 6e 74 .....fun([], int
2f40: 6c 28 31 29 29 2c 0d 0a 09 09 09 09 66 75 6e 28 l(1)),......fun(
2f50: 5b 5d 2c 20 63 61 6c 6c 28 76 61 72 28 22 2a 22 [], call(var("*"
2f60: 29 2c 20 76 61 72 28 22 78 22 29 2c 20 63 61 6c ), var("x"), cal
2f70: 6c 28 76 61 72 28 22 66 61 63 22 29 2c 63 61 6c l(var("fac"),cal
2f80: 6c 28 76 61 72 28 22 2d 22 29 2c 76 61 72 28 22 l(var("-"),var("
2f90: 78 22 29 2c 69 6e 74 6c 28 31 29 29 29 29 29 0d x"),intl(1))))).
2fa0: 0a 09 09 09 29 29 2c 0d 0a 09 09 09 63 61 6c 6c ....)),.....call
2fb0: 28 76 61 72 28 22 66 61 63 22 29 2c 69 6e 74 6c (var("fac"),intl
2fc0: 28 31 30 29 29 0d 0a 09 09 29 0d 0a 09 29 3b 0d (10))....)...);.
2fd0: 0a 7d 0d 0a 0d 0a 75 6e 69 74 74 65 73 74 0d 0a .}....unittest..
2fe0: 7b 0d 0a 09 61 73 73 65 72 74 5f 74 68 72 6f 77 {...assert_throw
2ff0: 21 55 6e 65 78 70 65 63 74 65 64 45 4f 46 28 70 !UnexpectedEOF(p
3000: 61 72 73 65 53 74 72 69 6e 67 28 60 31 2b 60 29 arseString(`1+`)
3010: 29 3b 0d 0a 09 61 73 73 65 72 74 5f 74 68 72 6f );...assert_thro
3020: 77 21 50 61 72 73 65 45 78 63 65 70 74 69 6f 6e w!ParseException
3030: 28 70 61 72 73 65 53 74 72 69 6e 67 28 60 31 2b (parseString(`1+
3040: 32 7d 60 29 29 3b 0d 0a 09 61 73 73 65 72 74 5f 2}`));...assert_
3050: 74 68 72 6f 77 21 55 6e 65 78 70 65 63 74 65 64 throw!Unexpected
3060: 45 4f 46 28 70 61 72 73 65 53 74 72 69 6e 67 28 EOF(parseString(
3070: 60 6c 65 74 20 22 78 22 60 29 29 3b 0d 0a 09 61 `let "x"`));...a
3080: 73 73 65 72 74 5f 74 68 72 6f 77 21 55 6e 65 78 ssert_throw!Unex
3090: 70 65 63 74 65 64 45 4f 46 28 70 61 72 73 65 53 pectedEOF(parseS
30a0: 74 72 69 6e 67 28 60 76 61 72 60 29 29 3b 0d 0a tring(`var`));..
30b0: 09 61 73 73 65 72 74 5f 74 68 72 6f 77 21 50 61 .assert_throw!Pa
30c0: 72 73 65 45 78 63 65 70 74 69 6f 6e 28 70 61 72 rseException(par
30d0: 73 65 53 74 72 69 6e 67 28 60 40 76 61 6c 20 78 seString(`@val x
30e0: 20 3d 3d 60 29 29 3b 0d 0a 09 61 73 73 65 72 74 ==`));...assert
30f0: 5f 74 68 72 6f 77 21 50 61 72 73 65 45 78 63 65 _throw!ParseExce
3100: 70 74 69 6f 6e 28 70 61 72 73 65 53 74 72 69 6e ption(parseStrin
3110: 67 28 60 69 66 28 29 7b 31 7d 60 29 29 3b 0d 0a g(`if(){1}`));..
3120: 09 61 73 73 65 72 74 5f 74 68 72 6f 77 21 55 6e .assert_throw!Un
3130: 65 78 70 65 63 74 65 64 45 4f 46 28 70 61 72 73 expectedEOF(pars
3140: 65 53 74 72 69 6e 67 28 60 66 28 60 29 29 3b 0d eString(`f(`));.
3150: 0a 7d 0d 0a 0d 0a 75 6e 69 74 74 65 73 74 0d 0a .}....unittest..
3160: 7b 0d 0a 09 6d 69 78 69 6e 20 45 61 73 79 41 53 {...mixin EasyAS
3170: 54 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 T;...assert_eq(p
3180: 61 72 73 65 53 74 72 69 6e 67 28 60 64 65 66 20 arseString(`def
3190: 66 6f 6f 28 78 29 20 7b 20 78 2b 31 20 7d 3b 20 foo(x) { x+1 };
31a0: 66 6f 6f 60 29 2c 0d 0a 09 09 6c 65 74 28 22 66 foo`),....let("f
31b0: 6f 6f 22 2c 20 22 22 2c 0d 0a 09 09 09 66 75 6e oo", "",.....fun
31c0: 28 5b 22 78 22 5d 2c 20 63 61 6c 6c 28 76 61 72 (["x"], call(var
31d0: 28 22 2b 22 29 2c 20 76 61 72 28 22 78 22 29 2c ("+"), var("x"),
31e0: 20 69 6e 74 6c 28 31 29 29 29 2c 0d 0a 09 09 09 intl(1))),.....
31f0: 76 61 72 28 22 66 6f 6f 22 29 29 0d 0a 09 29 3b var("foo"))...);
3200: 0d 0a 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 70 .....assert_eq(p
3210: 61 72 73 65 53 74 72 69 6e 67 28 60 40 40 74 79 arseString(`@@ty
3220: 70 65 20 28 20 78 20 29 20 7b 20 78 20 7d 60 29 pe ( x ) { x }`)
3230: 2c 0d 0a 09 09 6c 65 74 28 22 40 74 79 70 65 22 ,....let("@type"
3240: 2c 20 53 79 73 74 65 6d 4c 61 79 65 72 2c 20 66 , SystemLayer, f
3250: 75 6e 28 5b 22 78 22 5d 2c 20 76 61 72 28 22 78 un(["x"], var("x
3260: 22 29 29 2c 20 76 61 72 28 22 40 74 79 70 65 22 ")), var("@type"
3270: 29 29 20 29 3b 0d 0a 0d 0a 09 61 73 73 65 72 74 )) );.....assert
3280: 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 _eq(parseString(
3290: 60 7b 7d 60 29 2c 20 63 61 6c 6c 28 76 61 72 28 `{}`), call(var(
32a0: 22 7b 7d 22 29 29 29 3b 0d 0a 09 61 73 73 65 72 "{}")));...asser
32b0: 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 t_eq(parseString
32c0: 28 60 7b 66 6f 6f 3a 31 2c 22 62 61 72 22 3a 32 (`{foo:1,"bar":2
32d0: 7d 60 29 2c 0d 0a 09 09 63 61 6c 6c 28 76 61 72 }`),....call(var
32e0: 28 22 2e 3d 22 29 2c 20 63 61 6c 6c 28 76 61 72 (".="), call(var
32f0: 28 22 2e 3d 22 29 2c 20 63 61 6c 6c 28 76 61 72 (".="), call(var
3300: 28 22 7b 7d 22 29 29 2c 20 73 74 72 6c 28 22 66 ("{}")), strl("f
3310: 6f 6f 22 29 2c 20 69 6e 74 6c 28 31 29 29 2c 20 oo"), intl(1)),
3320: 73 74 72 6c 28 22 62 61 72 22 29 2c 20 69 6e 74 strl("bar"), int
3330: 6c 28 32 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 l(2)));...assert
3340: 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 _eq(parseString(
3350: 60 7b 7d 2e 66 6f 6f 60 29 2c 20 63 61 6c 6c 28 `{}.foo`), call(
3360: 76 61 72 28 22 2e 22 29 2c 63 61 6c 6c 28 76 61 var("."),call(va
3370: 72 28 22 7b 7d 22 29 29 2c 73 74 72 6c 28 22 66 r("{}")),strl("f
3380: 6f 6f 22 29 29 29 3b 0d 0a 09 61 73 73 65 72 74 oo")));...assert
3390: 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e 67 28 _eq(parseString(
33a0: 60 7b 7d 2e 3f 66 6f 6f 60 29 2c 20 63 61 6c 6c `{}.?foo`), call
33b0: 28 76 61 72 28 22 2e 3f 22 29 2c 63 61 6c 6c 28 (var(".?"),call(
33c0: 76 61 72 28 22 7b 7d 22 29 29 2c 73 74 72 6c 28 var("{}")),strl(
33d0: 22 66 6f 6f 22 29 29 29 3b 0d 0a 09 61 73 73 65 "foo")));...asse
33e0: 72 74 5f 65 71 28 70 61 72 73 65 53 74 72 69 6e rt_eq(parseStrin
33f0: 67 28 60 78 7b 79 3a 31 7d 60 29 2c 20 63 61 6c g(`x{y:1}`), cal
3400: 6c 28 76 61 72 28 22 2e 3d 22 29 2c 76 61 72 28 l(var(".="),var(
3410: 22 78 22 29 2c 73 74 72 6c 28 22 79 22 29 2c 69 "x"),strl("y"),i
3420: 6e 74 6c 28 31 29 29 29 3b 0d 0a 7d 0d 0a ntl(1)));..}..