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 52 75 6e 74 69 6d 65 20 64 61 *.. * Runtime da
0060: 74 61 20 73 74 72 75 63 74 75 72 65 73 20 66 6f ta structures fo
0070: 72 20 50 6f 6c 65 6d 79 20 70 72 6f 67 72 61 6d r Polemy program
0080: 6d 69 6e 67 20 6c 61 6e 67 75 61 67 65 2e 0d 0a ming language...
0090: 20 2a 2f 0d 0a 6d 6f 64 75 6c 65 20 70 6f 6c 65 */..module pole
00a0: 6d 79 2e 76 61 6c 75 65 3b 0d 0a 69 6d 70 6f 72 my.value;..impor
00b0: 74 20 70 6f 6c 65 6d 79 2e 5f 63 6f 6d 6d 6f 6e t polemy._common
00c0: 3b 0d 0a 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 ;..import polemy
00d0: 2e 66 61 69 6c 75 72 65 3b 0d 0a 69 6d 70 6f 72 .failure;..impor
00e0: 74 20 70 6f 6c 65 6d 79 2e 61 73 74 3b 0d 0a 69 t polemy.ast;..i
00f0: 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 2e 6c 61 79 mport polemy.lay
0100: 65 72 3b 0d 0a 0d 0a 2f 2f 2f 20 52 75 6e 74 69 er;..../// Runti
0110: 6d 65 20 76 61 6c 75 65 73 20 6f 66 20 50 6f 6c me values of Pol
0120: 65 6d 79 0d 0a 0d 0a 61 62 73 74 72 61 63 74 20 emy....abstract
0130: 63 6c 61 73 73 20 56 61 6c 75 65 0d 0a 7b 0d 0a class Value..{..
0140: 7d 0d 0a 0d 0a 2f 2f 2f 0d 0a 63 6c 61 73 73 20 }....///..class
0150: 49 6e 74 56 61 6c 75 65 20 3a 20 56 61 6c 75 65 IntValue : Value
0160: 0d 0a 7b 0d 0a 09 42 69 67 49 6e 74 20 64 61 74 ..{...BigInt dat
0170: 61 3b 0d 0a 0d 0a 09 6d 69 78 69 6e 20 53 69 6d a;.....mixin Sim
0180: 70 6c 65 43 6c 61 73 73 3b 0d 0a 09 6f 76 65 72 pleClass;...over
0190: 72 69 64 65 20 73 74 72 69 6e 67 20 74 6f 53 74 ride string toSt
01a0: 72 69 6e 67 28 29 20 63 6f 6e 73 74 20 7b 20 72 ring() const { r
01b0: 65 74 75 72 6e 20 73 74 64 2e 62 69 67 69 6e 74 eturn std.bigint
01c0: 2e 74 6f 44 65 63 69 6d 61 6c 53 74 72 69 6e 67 .toDecimalString
01d0: 28 63 61 73 74 28 42 69 67 49 6e 74 29 64 61 74 (cast(BigInt)dat
01e0: 61 29 3b 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2f 2f 0d a); }..}....///.
01f0: 0a 63 6c 61 73 73 20 53 74 72 56 61 6c 75 65 20 .class StrValue
0200: 3a 20 56 61 6c 75 65 0d 0a 7b 0d 0a 09 73 74 72 : Value..{...str
0210: 69 6e 67 20 64 61 74 61 3b 0d 0a 0d 0a 09 6d 69 ing data;.....mi
0220: 78 69 6e 20 53 69 6d 70 6c 65 43 6c 61 73 73 3b xin SimpleClass;
0230: 0d 0a 09 6f 76 65 72 72 69 64 65 20 73 74 72 69 ...override stri
0240: 6e 67 20 74 6f 53 74 72 69 6e 67 28 29 20 63 6f ng toString() co
0250: 6e 73 74 20 7b 20 72 65 74 75 72 6e 20 64 61 74 nst { return dat
0260: 61 3b 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2f 2f 0d 0a a; }..}....///..
0270: 63 6c 61 73 73 20 55 6e 64 56 61 6c 75 65 20 3a class UndValue :
0280: 20 56 61 6c 75 65 0d 0a 7b 0d 0a 09 6d 69 78 69 Value..{...mixi
0290: 6e 20 53 69 6d 70 6c 65 43 6c 61 73 73 3b 0d 0a n SimpleClass;..
02a0: 09 6f 76 65 72 72 69 64 65 20 73 74 72 69 6e 67 .override string
02b0: 20 74 6f 53 74 72 69 6e 67 28 29 20 63 6f 6e 73 toString() cons
02c0: 74 20 7b 20 72 65 74 75 72 6e 20 22 3c 75 6e 64 t { return "<und
02d0: 65 66 69 6e 65 64 3e 22 3b 20 7d 0d 0a 7d 0d 0a efined>"; }..}..
02e0: 0d 0a 0d 0a 2f 2f 2f 0d 0a 61 62 73 74 72 61 63 ....///..abstrac
02f0: 74 20 63 6c 61 73 73 20 46 75 6e 56 61 6c 75 65 t class FunValue
0300: 20 3a 20 56 61 6c 75 65 0d 0a 7b 0d 0a 09 63 6f : Value..{...co
0310: 6e 73 74 28 50 61 72 61 6d 65 74 65 72 5b 5d 29 nst(Parameter[])
0320: 20 70 61 72 61 6d 73 28 29 3b 0d 0a 09 54 61 62 params();...Tab
0330: 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 43 6f 6e le definitionCon
0340: 74 65 78 74 28 29 3b 0d 0a 09 56 61 6c 75 65 20 text();...Value
0350: 69 6e 76 6f 6b 65 28 4c 65 78 50 6f 73 69 74 69 invoke(LexPositi
0360: 6f 6e 20 70 6f 73 2c 20 4c 61 79 65 72 20 6c 61 on pos, Layer la
0370: 79 2c 20 54 61 62 6c 65 20 63 74 78 29 3b 0d 0a y, Table ctx);..
0380: 7d 0d 0a 0d 0a 2f 2f 2f 20 43 6f 6e 74 65 78 74 }..../// Context
0390: 20 28 76 61 72 69 61 62 6c 65 20 65 6e 76 69 72 (variable envir
03a0: 6f 6e 6d 65 6e 74 29 0d 0a 2f 2f 2f 20 53 69 6d onment)../// Sim
03b0: 6c 61 72 20 74 6f 20 70 72 6f 74 6f 74 79 70 65 lar to prototype
03c0: 20 63 68 61 69 6e 20 6f 66 20 45 43 4d 41 53 63 chain of ECMASc
03d0: 72 69 70 74 20 65 74 63 2e 0d 0a 2f 2f 2f 20 42 ript etc.../// B
03e0: 75 74 20 65 78 74 65 6e 64 65 64 20 77 69 74 68 ut extended with
03f0: 20 74 68 65 20 6e 6f 74 69 6f 6e 20 6f 66 20 22 the notion of "
0400: 4c 61 79 65 72 22 0d 0a 0d 0a 63 6c 61 73 73 20 Layer"....class
0410: 54 61 62 6c 65 20 3a 20 56 61 6c 75 65 0d 0a 7b Table : Value..{
0420: 0d 0a 09 65 6e 75 6d 20 4b 69 6e 64 20 7b 50 72 ...enum Kind {Pr
0430: 6f 70 61 67 61 74 65 53 65 74 2c 20 4e 6f 74 50 opagateSet, NotP
0440: 72 6f 70 61 67 61 74 65 53 65 74 7d 3b 0d 0a 09 ropagateSet};...
0450: 62 6f 6f 6c 20 6b 69 6c 6c 20 3d 20 66 61 6c 73 bool kill = fals
0460: 65 3b 20 2f 2f 20 74 6f 20 72 65 66 61 63 74 6f e; // to refacto
0470: 72 0d 0a 0d 0a 09 74 68 69 73 28 20 54 61 62 6c r.....this( Tabl
0480: 65 20 70 72 6f 74 6f 3d 6e 75 6c 6c 2c 20 4b 69 e proto=null, Ki
0490: 6e 64 20 6b 20 3d 20 4b 69 6e 64 2e 50 72 6f 70 nd k = Kind.Prop
04a0: 61 67 61 74 65 53 65 74 20 29 0d 0a 09 09 7b 20 agateSet )....{
04b0: 74 68 69 73 2e 70 72 6f 74 6f 74 79 70 65 20 3d this.prototype =
04c0: 20 70 72 6f 74 6f 3b 20 74 68 69 73 2e 6b 69 6e proto; this.kin
04d0: 64 20 3d 20 6b 3b 20 7d 0d 0a 0d 0a 09 76 6f 69 d = k; }.....voi
04e0: 64 20 73 65 74 28 73 74 72 69 6e 67 20 69 2c 20 d set(string i,
04f0: 4c 61 79 65 72 20 6c 61 79 2c 20 56 61 6c 75 65 Layer lay, Value
0500: 20 76 2c 20 4c 65 78 50 6f 73 69 74 69 6f 6e 20 v, LexPosition
0510: 70 6f 73 3d 6e 75 6c 6c 29 0d 0a 09 7b 0d 0a 09 pos=null)...{...
0520: 09 69 66 28 20 73 65 74 49 66 45 78 69 73 74 28 .if( setIfExist(
0530: 69 2c 20 6c 61 79 2c 20 76 29 20 29 0d 0a 09 09 i, lay, v) )....
0540: 09 72 65 74 75 72 6e 3b 0d 0a 09 09 64 61 74 61 .return;....data
0550: 5b 69 5d 5b 6c 61 79 5d 20 3d 20 76 3b 0d 0a 09 [i][lay] = v;...
0560: 7d 0d 0a 0d 0a 09 62 6f 6f 6c 20 68 61 73 28 73 }.....bool has(s
0570: 74 72 69 6e 67 20 69 2c 20 4c 61 79 65 72 20 6c tring i, Layer l
0580: 61 79 29 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a 09 ay) const...{...
0590: 09 69 66 28 20 69 20 69 6e 20 64 61 74 61 20 29 .if( i in data )
05a0: 20 7b 0d 0a 09 09 09 69 66 28 20 6c 61 79 20 21 {.....if( lay !
05b0: 69 6e 20 64 61 74 61 5b 69 5d 20 29 0d 0a 09 09 in data[i] )....
05c0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d ..return false;.
05d0: 0a 09 09 09 69 66 28 6b 69 6c 6c 29 0d 0a 09 09 ....if(kill)....
05e0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d ..return false;.
05f0: 0a 09 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b ....return true;
0600: 0d 0a 09 09 7d 0d 0a 09 09 69 66 28 20 70 72 6f ....}....if( pro
0610: 74 6f 74 79 70 65 20 69 73 20 6e 75 6c 6c 20 29 totype is null )
0620: 0d 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 .....return fals
0630: 65 3b 0d 0a 09 09 72 65 74 75 72 6e 20 70 72 6f e;....return pro
0640: 74 6f 74 79 70 65 2e 68 61 73 28 69 2c 20 6c 61 totype.has(i, la
0650: 79 29 3b 0d 0a 09 7d 0d 0a 09 0d 0a 09 56 61 6c y);...}......Val
0660: 75 65 20 67 65 74 28 73 74 72 69 6e 67 20 69 2c ue get(string i,
0670: 20 4c 61 79 65 72 20 6c 61 79 2c 20 4c 65 78 50 Layer lay, LexP
0680: 6f 73 69 74 69 6f 6e 20 70 6f 73 3d 6e 75 6c 6c osition pos=null
0690: 29 0d 0a 09 7b 0d 0a 09 09 69 66 28 20 69 20 69 )...{....if( i i
06a0: 6e 20 64 61 74 61 20 29 20 7b 0d 0a 09 09 09 2f n data ) {...../
06b0: 2f 20 5b 54 4f 44 4f 5d 20 63 6f 6e 73 69 64 65 / [TODO] conside
06c0: 72 20 66 6f 72 77 61 72 64 69 6e 67 20 74 6f 20 r forwarding to
06d0: 70 72 6f 74 6f 20 61 6c 73 6f 20 69 6e 20 74 68 proto also in th
06e0: 69 73 20 63 61 73 65 0d 0a 09 09 09 69 66 28 20 is case.....if(
06f0: 6c 61 79 20 21 69 6e 20 64 61 74 61 5b 69 5d 20 lay !in data[i]
0700: 29 0d 0a 09 09 09 09 74 68 72 6f 77 20 67 65 6e )......throw gen
0710: 65 78 21 52 75 6e 74 69 6d 65 45 78 63 65 70 74 ex!RuntimeExcept
0720: 69 6f 6e 28 70 6f 73 2c 20 73 70 72 69 6e 74 66 ion(pos, sprintf
0730: 21 22 27 25 73 27 20 69 73 20 6e 6f 74 20 73 65 !"'%s' is not se
0740: 74 20 69 6e 20 6c 61 79 65 72 20 25 73 22 28 69 t in layer %s"(i
0750: 2c 6c 61 79 29 29 3b 0d 0a 09 09 09 69 66 28 6b ,lay));.....if(k
0760: 69 6c 6c 29 0d 0a 09 09 09 09 74 68 72 6f 77 20 ill)......throw
0770: 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 63 genex!RuntimeExc
0780: 65 70 74 69 6f 6e 28 70 6f 73 2c 20 73 70 72 69 eption(pos, spri
0790: 6e 74 66 21 22 27 25 73 27 20 69 73 20 6b 69 6c ntf!"'%s' is kil
07a0: 6c 65 64 20 69 6e 20 6d 61 63 72 6f 22 28 69 29 led in macro"(i)
07b0: 29 3b 0d 0a 09 09 09 72 65 74 75 72 6e 20 64 61 );.....return da
07c0: 74 61 5b 69 5d 5b 6c 61 79 5d 3b 0d 0a 09 09 7d ta[i][lay];....}
07d0: 0d 0a 09 09 69 66 28 20 70 72 6f 74 6f 74 79 70 ....if( prototyp
07e0: 65 20 69 73 20 6e 75 6c 6c 20 29 0d 0a 09 09 09 e is null ).....
07f0: 74 68 72 6f 77 20 6e 65 77 20 52 75 6e 74 69 6d throw new Runtim
0800: 65 45 78 63 65 70 74 69 6f 6e 28 70 6f 73 2c 20 eException(pos,
0810: 73 70 72 69 6e 74 66 21 22 27 25 73 27 20 6e 6f sprintf!"'%s' no
0820: 74 20 66 6f 75 6e 64 22 28 69 29 29 3b 0d 0a 09 t found"(i));...
0830: 09 72 65 74 75 72 6e 20 70 72 6f 74 6f 74 79 70 .return prototyp
0840: 65 2e 67 65 74 28 69 2c 20 6c 61 79 2c 20 70 6f e.get(i, lay, po
0850: 73 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 54 20 61 63 s);...}.....T ac
0860: 63 65 73 73 28 54 2c 53 2e 2e 2e 29 28 20 4c 61 cess(T,S...)( La
0870: 79 65 72 20 6c 61 79 2c 20 73 74 72 69 6e 67 20 yer lay, string
0880: 70 61 74 68 2c 20 53 20 72 65 73 74 20 29 0d 0a path, S rest )..
0890: 09 7b 0d 0a 09 09 73 74 61 74 69 63 20 69 66 28 .{....static if(
08a0: 20 72 65 73 74 2e 6c 65 6e 67 74 68 20 3d 3d 20 rest.length ==
08b0: 30 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 69 66 28 0 )....{.....if(
08c0: 20 74 68 69 73 2e 68 61 73 28 70 61 74 68 2c 20 this.has(path,
08d0: 6c 61 79 29 20 29 0d 0a 09 09 09 09 72 65 74 75 lay) )......retu
08e0: 72 6e 20 63 61 73 74 28 54 29 20 74 68 69 73 2e rn cast(T) this.
08f0: 67 65 74 28 70 61 74 68 2c 20 6c 61 79 29 3b 0d get(path, lay);.
0900: 0a 09 09 7d 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 ...}....else....
0910: 7b 0d 0a 09 09 09 69 66 28 61 75 74 6f 20 6e 65 {.....if(auto ne
0920: 78 74 20 3d 20 74 68 69 73 2e 61 63 63 65 73 73 xt = this.access
0930: 21 54 61 62 6c 65 28 6c 61 79 2c 70 61 74 68 29 !Table(lay,path)
0940: 29 0d 0a 09 09 09 09 72 65 74 75 72 6e 20 6e 65 )......return ne
0950: 78 74 2e 61 63 63 65 73 73 21 54 28 6c 61 79 2c xt.access!T(lay,
0960: 72 65 73 74 29 3b 0d 0a 09 09 7d 0d 0a 09 09 72 rest);....}....r
0970: 65 74 75 72 6e 20 6e 75 6c 6c 3b 0d 0a 09 7d 0d eturn null;...}.
0980: 0a 0d 0a 09 73 74 72 69 6e 67 20 74 6f 53 74 72 ....string toStr
0990: 69 6e 67 57 69 74 68 6f 75 74 50 61 72 65 6e 28 ingWithoutParen(
09a0: 29 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a 09 09 73 ) const...{....s
09b0: 74 72 69 6e 67 20 72 65 73 75 6c 74 3b 0d 0a 09 tring result;...
09c0: 09 62 6f 6f 6c 20 66 69 72 73 74 20 3d 20 74 72 .bool first = tr
09d0: 75 65 3b 0d 0a 09 09 66 6f 72 65 61 63 68 28 6b ue;....foreach(k
09e0: 2c 20 6c 32 64 3b 20 64 61 74 61 29 0d 0a 09 09 , l2d; data)....
09f0: 09 66 6f 72 65 61 63 68 28 6c 2c 64 3b 20 6c 32 .foreach(l,d; l2
0a00: 64 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 69 66 d).....{......if
0a10: 28 66 69 72 73 74 29 20 66 69 72 73 74 3d 66 61 (first) first=fa
0a20: 6c 73 65 3b 20 65 6c 73 65 20 72 65 73 75 6c 74 lse; else result
0a30: 7e 3d 22 2c 20 22 3b 0d 0a 09 09 09 09 72 65 73 ~=", ";......res
0a40: 75 6c 74 20 7e 3d 20 6b 3b 0d 0a 09 09 09 09 69 ult ~= k;......i
0a50: 66 28 20 6c 2e 65 6d 70 74 79 20 29 0d 0a 09 09 f( l.empty )....
0a60: 09 09 09 72 65 73 75 6c 74 20 7e 3d 20 22 28 65 ...result ~= "(e
0a70: 6d 70 74 79 6c 61 79 65 72 29 22 3b 0d 0a 09 09 mptylayer)";....
0a80: 09 09 65 6c 73 65 20 69 66 28 20 6c 20 21 3d 20 ..else if( l !=
0a90: 56 61 6c 75 65 4c 61 79 65 72 20 29 0d 0a 09 09 ValueLayer )....
0aa0: 09 09 09 72 65 73 75 6c 74 20 7e 3d 20 6c 3b 0d ...result ~= l;.
0ab0: 0a 09 09 09 09 72 65 73 75 6c 74 20 7e 3d 20 22 .....result ~= "
0ac0: 3a 22 3b 0d 0a 09 09 09 09 72 65 73 75 6c 74 20 :";......result
0ad0: 7e 3d 20 74 65 78 74 28 63 61 73 74 28 56 61 6c ~= text(cast(Val
0ae0: 75 65 29 64 29 3b 0d 0a 09 09 09 7d 0d 0a 09 09 ue)d);.....}....
0af0: 69 66 28 20 70 72 6f 74 6f 74 79 70 65 20 21 69 if( prototype !i
0b00: 73 20 6e 75 6c 6c 20 29 0d 0a 09 09 7b 0d 0a 09 s null )....{...
0b10: 09 09 72 65 73 75 6c 74 20 7e 3d 20 22 20 2f 20 ..result ~= " /
0b20: 22 3b 0d 0a 09 09 09 72 65 73 75 6c 74 20 7e 3d ";.....result ~=
0b30: 20 70 72 6f 74 6f 74 79 70 65 2e 74 6f 53 74 72 prototype.toStr
0b40: 69 6e 67 57 69 74 68 6f 75 74 50 61 72 65 6e 28 ingWithoutParen(
0b50: 29 3b 0d 0a 09 09 7d 0d 0a 09 09 72 65 74 75 72 );....}....retur
0b60: 6e 20 72 65 73 75 6c 74 3b 0d 0a 09 7d 0d 0a 09 n result;...}...
0b70: 0d 0a 09 73 74 72 69 6e 67 20 74 6f 53 74 72 69 ...string toStri
0b80: 6e 67 28 29 20 63 6f 6e 73 74 0d 0a 09 7b 0d 0a ng() const...{..
0b90: 09 09 72 65 74 75 72 6e 20 22 7b 22 20 7e 20 74 ..return "{" ~ t
0ba0: 6f 53 74 72 69 6e 67 57 69 74 68 6f 75 74 50 61 oStringWithoutPa
0bb0: 72 65 6e 28 29 20 7e 20 22 7d 22 3b 0d 0a 09 7d ren() ~ "}";...}
0bc0: 0d 0a 0d 0a 70 72 69 76 61 74 65 3a 0d 0a 09 54 ....private:...T
0bd0: 61 62 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 able
0be0: 20 20 20 20 70 72 6f 74 6f 74 79 70 65 3b 0d 0a prototype;..
0bf0: 09 4b 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 .Kind
0c00: 20 20 20 20 20 20 6b 69 6e 64 3b 0d 0a 09 56 61 kind;...Va
0c10: 6c 75 65 5b 4c 61 79 65 72 5d 5b 73 74 72 69 6e lue[Layer][strin
0c20: 67 5d 20 64 61 74 61 3b 0d 0a 0d 0a 09 62 6f 6f g] data;.....boo
0c30: 6c 20 73 65 74 49 66 45 78 69 73 74 28 73 74 72 l setIfExist(str
0c40: 69 6e 67 20 69 2c 20 4c 61 79 65 72 20 6c 61 79 ing i, Layer lay
0c50: 2c 20 56 61 6c 75 65 20 76 29 0d 0a 09 7b 0d 0a , Value v)...{..
0c60: 09 09 69 66 28 20 69 20 69 6e 20 64 61 74 61 20 ..if( i in data
0c70: 29 0d 0a 09 09 7b 0d 0a 09 09 09 64 61 74 61 5b )....{.....data[
0c80: 69 5d 5b 6c 61 79 5d 20 3d 20 76 3b 0d 0a 09 09 i][lay] = v;....
0c90: 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0d 0a 09 .return true;...
0ca0: 09 7d 0d 0a 09 09 69 66 28 20 6b 69 6e 64 3d 3d .}....if( kind==
0cb0: 4b 69 6e 64 2e 50 72 6f 70 61 67 61 74 65 53 65 Kind.PropagateSe
0cc0: 74 20 26 26 20 70 72 6f 74 6f 74 79 70 65 20 21 t && prototype !
0cd0: 69 73 20 6e 75 6c 6c 20 29 0d 0a 09 09 09 72 65 is null ).....re
0ce0: 74 75 72 6e 20 70 72 6f 74 6f 74 79 70 65 2e 73 turn prototype.s
0cf0: 65 74 49 66 45 78 69 73 74 28 69 2c 20 6c 61 79 etIfExist(i, lay
0d00: 2c 20 76 29 3b 0d 0a 09 09 72 65 74 75 72 6e 20 , v);....return
0d10: 66 61 6c 73 65 3b 0d 0a 09 7d 0d 0a 7d 0d 0a 0d false;...}..}...
0d20: 0a 75 6e 69 74 74 65 73 74 0d 0a 7b 0d 0a 09 54 .unittest..{...T
0d30: 61 62 6c 65 20 63 30 20 3d 20 6e 65 77 20 54 61 able c0 = new Ta
0d40: 62 6c 65 3b 0d 0a 09 54 61 62 6c 65 20 63 30 31 ble;...Table c01
0d50: 20 3d 20 6e 65 77 20 54 61 62 6c 65 28 63 30 2c = new Table(c0,
0d60: 20 54 61 62 6c 65 2e 4b 69 6e 64 2e 4e 6f 74 50 Table.Kind.NotP
0d70: 72 6f 70 61 67 61 74 65 53 65 74 29 3b 0d 0a 09 ropagateSet);...
0d80: 54 61 62 6c 65 20 63 30 31 32 20 3d 20 6e 65 77 Table c012 = new
0d90: 20 54 61 62 6c 65 28 63 30 31 2c 20 54 61 62 6c Table(c01, Tabl
0da0: 65 2e 4b 69 6e 64 2e 50 72 6f 70 61 67 61 74 65 e.Kind.Propagate
0db0: 53 65 74 29 3b 0d 0a 09 54 61 62 6c 65 20 63 30 Set);...Table c0
0dc0: 31 33 20 3d 20 6e 65 77 20 54 61 62 6c 65 28 63 13 = new Table(c
0dd0: 30 31 2c 20 54 61 62 6c 65 2e 4b 69 6e 64 2e 50 01, Table.Kind.P
0de0: 72 6f 70 61 67 61 74 65 53 65 74 29 3b 0d 0a 0d ropagateSet);...
0df0: 0a 09 61 73 73 65 72 74 5f 6e 6f 74 68 72 6f 77 ..assert_nothrow
0e00: 28 20 63 30 31 32 2e 73 65 74 28 22 78 22 2c 20 ( c012.set("x",
0e10: 56 61 6c 75 65 4c 61 79 65 72 2c 20 6e 65 77 20 ValueLayer, new
0e20: 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 IntValue(BigInt(
0e30: 31 32 29 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 12))) );...asser
0e40: 74 5f 74 68 72 6f 77 21 52 75 6e 74 69 6d 65 45 t_throw!RuntimeE
0e50: 78 63 65 70 74 69 6f 6e 28 20 63 30 31 33 2e 67 xception( c013.g
0e60: 65 74 28 22 78 22 2c 20 56 61 6c 75 65 4c 61 79 et("x", ValueLay
0e70: 65 72 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f er) );...assert_
0e80: 6e 6f 74 68 72 6f 77 28 20 63 30 31 33 2e 73 65 nothrow( c013.se
0e90: 74 28 22 78 22 2c 20 56 61 6c 75 65 4c 61 79 65 t("x", ValueLaye
0ea0: 72 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 r, new IntValue(
0eb0: 42 69 67 49 6e 74 28 31 33 29 29 29 20 29 3b 0d BigInt(13))) );.
0ec0: 0a 09 61 73 73 65 72 74 5f 65 71 28 20 63 30 31 ..assert_eq( c01
0ed0: 33 2e 67 65 74 28 22 78 22 2c 20 56 61 6c 75 65 3.get("x", Value
0ee0: 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 56 Layer), new IntV
0ef0: 61 6c 75 65 28 42 69 67 49 6e 74 28 31 33 29 29 alue(BigInt(13))
0f00: 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 );...assert_eq(
0f10: 20 63 30 31 32 2e 67 65 74 28 22 78 22 2c 20 56 c012.get("x", V
0f20: 61 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 alueLayer), new
0f30: 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 IntValue(BigInt(
0f40: 31 32 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 12)) );...assert
0f50: 5f 74 68 72 6f 77 21 52 75 6e 74 69 6d 65 45 78 _throw!RuntimeEx
0f60: 63 65 70 74 69 6f 6e 28 20 63 30 31 2e 67 65 74 ception( c01.get
0f70: 28 22 78 22 2c 20 56 61 6c 75 65 4c 61 79 65 72 ("x", ValueLayer
0f80: 29 20 29 3b 0d 0a 0d 0a 09 61 73 73 65 72 74 5f ) );.....assert_
0f90: 6e 6f 74 68 72 6f 77 28 20 63 30 31 2e 73 65 74 nothrow( c01.set
0fa0: 28 22 79 22 2c 20 56 61 6c 75 65 4c 61 79 65 72 ("y", ValueLayer
0fb0: 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 , new IntValue(B
0fc0: 69 67 49 6e 74 28 31 29 29 29 20 29 3b 0d 0a 09 igInt(1))) );...
0fd0: 61 73 73 65 72 74 5f 65 71 28 20 63 30 31 33 2e assert_eq( c013.
0fe0: 67 65 74 28 22 79 22 2c 20 56 61 6c 75 65 4c 61 get("y", ValueLa
0ff0: 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 56 61 6c yer), new IntVal
1000: 75 65 28 42 69 67 49 6e 74 28 31 29 29 20 29 3b ue(BigInt(1)) );
1010: 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 20 63 30 ...assert_eq( c0
1020: 31 32 2e 67 65 74 28 22 79 22 2c 20 56 61 6c 75 12.get("y", Valu
1030: 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 eLayer), new Int
1040: 56 61 6c 75 65 28 42 69 67 49 6e 74 28 31 29 29 Value(BigInt(1))
1050: 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 );...assert_eq(
1060: 20 63 30 31 2e 67 65 74 28 22 79 22 2c 20 56 61 c01.get("y", Va
1070: 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 lueLayer), new I
1080: 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 31 ntValue(BigInt(1
1090: 29 29 20 29 3b 0d 0a 0d 0a 09 61 73 73 65 72 74 )) );.....assert
10a0: 5f 6e 6f 74 68 72 6f 77 28 20 63 30 2e 73 65 74 _nothrow( c0.set
10b0: 28 22 7a 22 2c 20 56 61 6c 75 65 4c 61 79 65 72 ("z", ValueLayer
10c0: 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 , new IntValue(B
10d0: 69 67 49 6e 74 28 30 29 29 29 20 29 3b 0d 0a 09 igInt(0))) );...
10e0: 61 73 73 65 72 74 5f 65 71 28 20 63 30 31 33 2e assert_eq( c013.
10f0: 67 65 74 28 22 7a 22 2c 20 56 61 6c 75 65 4c 61 get("z", ValueLa
1100: 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 56 61 6c yer), new IntVal
1110: 75 65 28 42 69 67 49 6e 74 28 30 29 29 20 29 3b ue(BigInt(0)) );
1120: 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 20 63 30 ...assert_eq( c0
1130: 31 32 2e 67 65 74 28 22 7a 22 2c 20 56 61 6c 75 12.get("z", Valu
1140: 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 eLayer), new Int
1150: 56 61 6c 75 65 28 42 69 67 49 6e 74 28 30 29 29 Value(BigInt(0))
1160: 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 );...assert_eq(
1170: 20 63 30 31 2e 67 65 74 28 22 7a 22 2c 20 56 61 c01.get("z", Va
1180: 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 lueLayer), new I
1190: 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 30 ntValue(BigInt(0
11a0: 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 )) );...assert_e
11b0: 71 28 20 63 30 2e 67 65 74 28 22 7a 22 2c 20 56 q( c0.get("z", V
11c0: 61 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 alueLayer), new
11d0: 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 IntValue(BigInt(
11e0: 30 29 29 20 29 3b 0d 0a 0d 0a 09 61 73 73 65 72 0)) );.....asser
11f0: 74 5f 6e 6f 74 68 72 6f 77 28 20 63 30 31 32 2e t_nothrow( c012.
1200: 73 65 74 28 22 79 22 2c 20 56 61 6c 75 65 4c 61 set("y", ValueLa
1210: 79 65 72 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 yer, new IntValu
1220: 65 28 42 69 67 49 6e 74 28 34 34 34 29 29 29 20 e(BigInt(444)))
1230: 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 28 20 );...assert_eq(
1240: 63 30 31 33 2e 67 65 74 28 22 79 22 2c 20 56 61 c013.get("y", Va
1250: 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 lueLayer), new I
1260: 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 34 ntValue(BigInt(4
1270: 34 34 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 44)) );...assert
1280: 5f 65 71 28 20 63 30 31 32 2e 67 65 74 28 22 79 _eq( c012.get("y
1290: 22 2c 20 56 61 6c 75 65 4c 61 79 65 72 29 2c 20 ", ValueLayer),
12a0: 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 new IntValue(Big
12b0: 49 6e 74 28 34 34 34 29 29 20 29 3b 0d 0a 09 61 Int(444)) );...a
12c0: 73 73 65 72 74 5f 65 71 28 20 63 30 31 2e 67 65 ssert_eq( c01.ge
12d0: 74 28 22 79 22 2c 20 56 61 6c 75 65 4c 61 79 65 t("y", ValueLaye
12e0: 72 29 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 r), new IntValue
12f0: 28 42 69 67 49 6e 74 28 34 34 34 29 29 20 29 3b (BigInt(444)) );
1300: 0d 0a 0d 0a 09 61 73 73 65 72 74 5f 6e 6f 74 68 .....assert_noth
1310: 72 6f 77 28 20 63 30 31 32 2e 73 65 74 28 22 7a row( c012.set("z
1320: 22 2c 20 56 61 6c 75 65 4c 61 79 65 72 2c 20 6e ", ValueLayer, n
1330: 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 49 ew IntValue(BigI
1340: 6e 74 28 35 35 35 29 29 29 20 29 3b 0d 0a 09 61 nt(555))) );...a
1350: 73 73 65 72 74 5f 65 71 28 20 63 30 31 33 2e 67 ssert_eq( c013.g
1360: 65 74 28 22 7a 22 2c 20 56 61 6c 75 65 4c 61 79 et("z", ValueLay
1370: 65 72 29 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 er), new IntValu
1380: 65 28 42 69 67 49 6e 74 28 30 29 29 20 29 3b 0d e(BigInt(0)) );.
1390: 0a 09 61 73 73 65 72 74 5f 65 71 28 20 63 30 31 ..assert_eq( c01
13a0: 32 2e 67 65 74 28 22 7a 22 2c 20 56 61 6c 75 65 2.get("z", Value
13b0: 4c 61 79 65 72 29 2c 20 6e 65 77 20 49 6e 74 56 Layer), new IntV
13c0: 61 6c 75 65 28 42 69 67 49 6e 74 28 35 35 35 29 alue(BigInt(555)
13d0: 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 65 71 ) );...assert_eq
13e0: 28 20 63 30 31 2e 67 65 74 28 22 7a 22 2c 20 56 ( c01.get("z", V
13f0: 61 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 20 alueLayer), new
1400: 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 IntValue(BigInt(
1410: 30 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 5f 0)) );...assert_
1420: 65 71 28 20 63 30 2e 67 65 74 28 22 7a 22 2c 20 eq( c0.get("z",
1430: 56 61 6c 75 65 4c 61 79 65 72 29 2c 20 6e 65 77 ValueLayer), new
1440: 20 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 IntValue(BigInt
1450: 28 30 29 29 20 29 3b 0d 0a 0d 0a 09 2f 2f 20 5b (0)) );.....// [
1460: 54 4f 44 4f 5d 20 64 65 66 69 6e 65 20 74 68 65 TODO] define the
1470: 20 73 65 6d 61 6e 74 69 63 73 20 61 6e 64 20 74 semantics and t
1480: 65 73 74 20 40 6c 61 79 65 72 73 0d 0a 7d 0d 0a est @layers..}..
1490: 0d 0a 69 6d 6d 75 74 61 62 6c 65 28 4c 65 78 50 ..immutable(LexP
14a0: 6f 73 69 74 69 6f 6e 29 20 65 78 74 72 61 63 74 osition) extract
14b0: 50 6f 73 28 20 54 61 62 6c 65 20 74 20 29 0d 0a Pos( Table t )..
14c0: 7b 0d 0a 09 4c 61 79 65 72 20 74 68 65 4c 61 79 {...Layer theLay
14d0: 65 72 20 3d 20 56 61 6c 75 65 4c 61 79 65 72 3b er = ValueLayer;
14e0: 0d 0a 09 69 66 28 61 75 74 6f 20 74 74 20 3d 20 ...if(auto tt =
14f0: 74 2e 61 63 63 65 73 73 21 54 61 62 6c 65 28 74 t.access!Table(t
1500: 68 65 4c 61 79 65 72 2c 20 22 70 6f 73 22 29 29 heLayer, "pos"))
1510: 0d 0a 09 7b 0d 0a 09 09 61 75 74 6f 20 66 6e 20 ...{....auto fn
1520: 3d 20 74 74 2e 61 63 63 65 73 73 21 53 74 72 56 = tt.access!StrV
1530: 61 6c 75 65 28 74 68 65 4c 61 79 65 72 2c 20 22 alue(theLayer, "
1540: 66 69 6c 65 6e 61 6d 65 22 29 3b 0d 0a 09 09 61 filename");....a
1550: 75 74 6f 20 6c 6e 20 3d 20 74 74 2e 61 63 63 65 uto ln = tt.acce
1560: 73 73 21 49 6e 74 56 61 6c 75 65 28 74 68 65 4c ss!IntValue(theL
1570: 61 79 65 72 2c 20 22 6c 69 6e 65 6e 6f 22 29 3b ayer, "lineno");
1580: 0d 0a 09 09 61 75 74 6f 20 63 6c 20 3d 20 74 74 ....auto cl = tt
1590: 2e 61 63 63 65 73 73 21 49 6e 74 56 61 6c 75 65 .access!IntValue
15a0: 28 74 68 65 4c 61 79 65 72 2c 20 22 63 6f 6c 75 (theLayer, "colu
15b0: 6d 6e 22 29 3b 0d 0a 09 09 69 66 28 66 6e 20 21 mn");....if(fn !
15c0: 69 73 20 6e 75 6c 6c 20 26 26 20 6c 6e 20 21 69 is null && ln !i
15d0: 73 20 6e 75 6c 6c 20 26 26 20 63 6c 20 21 69 73 s null && cl !is
15e0: 20 6e 75 6c 6c 29 0d 0a 09 09 09 72 65 74 75 72 null).....retur
15f0: 6e 20 6e 65 77 20 69 6d 6d 75 74 61 62 6c 65 28 n new immutable(
1600: 4c 65 78 50 6f 73 69 74 69 6f 6e 29 28 66 6e 2e LexPosition)(fn.
1610: 64 61 74 61 2c 63 61 73 74 28 69 6e 74 29 6c 6e data,cast(int)ln
1620: 2e 64 61 74 61 2e 74 6f 49 6e 74 2c 63 61 73 74 .data.toInt,cast
1630: 28 69 6e 74 29 63 6c 2e 64 61 74 61 2e 74 6f 49 (int)cl.data.toI
1640: 6e 74 29 3b 0d 0a 09 7d 0d 0a 09 72 65 74 75 72 nt);...}...retur
1650: 6e 20 6e 75 6c 6c 3b 0d 0a 7d 0d 0a 0d 0a 56 61 n null;..}....Va
1660: 6c 75 65 5b 5d 20 74 61 62 6c 65 41 73 43 6f 6e lue[] tableAsCon
1670: 73 4c 69 73 74 28 20 4c 61 79 65 72 20 74 68 65 sList( Layer the
1680: 4c 61 79 65 72 2c 20 54 61 62 6c 65 20 74 20 29 Layer, Table t )
1690: 0d 0a 7b 0d 0a 09 56 61 6c 75 65 5b 5d 20 72 65 ..{...Value[] re
16a0: 73 75 6c 74 3b 0d 0a 09 77 68 69 6c 65 28 74 29 sult;...while(t)
16b0: 0d 0a 09 09 69 66 28 61 75 74 6f 20 76 20 20 3d ....if(auto v =
16c0: 20 74 2e 61 63 63 65 73 73 21 56 61 6c 75 65 28 t.access!Value(
16d0: 74 68 65 4c 61 79 65 72 2c 20 22 63 61 72 22 29 theLayer, "car")
16e0: 29 0d 0a 09 09 7b 0d 0a 09 09 09 72 65 73 75 6c )....{.....resul
16f0: 74 20 7e 3d 20 76 3b 0d 0a 09 09 09 74 20 3d 20 t ~= v;.....t =
1700: 74 2e 61 63 63 65 73 73 21 54 61 62 6c 65 28 74 t.access!Table(t
1710: 68 65 4c 61 79 65 72 2c 20 22 63 64 72 22 29 3b heLayer, "cdr");
1720: 0d 0a 09 09 7d 0d 0a 09 09 65 6c 73 65 0d 0a 09 ....}....else...
1730: 09 09 62 72 65 61 6b 3b 0d 0a 09 72 65 74 75 72 ..break;...retur
1740: 6e 20 72 65 73 75 6c 74 3b 0d 0a 7d 0d 0a 0d 0a n result;..}....
1750: 41 53 54 5b 5d 20 74 61 62 6c 65 54 6f 41 53 54 AST[] tableToAST
1760: 4c 69 73 74 28 20 4c 61 79 65 72 20 74 68 65 4c List( Layer theL
1770: 61 79 65 72 2c 20 54 61 62 6c 65 20 74 20 29 0d ayer, Table t ).
1780: 0a 7b 0d 0a 09 41 53 54 5b 5d 20 72 65 73 75 6c .{...AST[] resul
1790: 74 3b 0d 0a 09 66 6f 72 65 61 63 68 28 76 3b 20 t;...foreach(v;
17a0: 74 61 62 6c 65 41 73 43 6f 6e 73 4c 69 73 74 28 tableAsConsList(
17b0: 74 68 65 4c 61 79 65 72 2c 20 74 29 29 0d 0a 09 theLayer, t))...
17c0: 09 69 66 28 61 75 74 6f 20 74 20 3d 20 63 61 73 .if(auto t = cas
17d0: 74 28 54 61 62 6c 65 29 76 29 0d 0a 09 09 09 72 t(Table)v).....r
17e0: 65 73 75 6c 74 20 7e 3d 20 74 61 62 6c 65 54 6f esult ~= tableTo
17f0: 41 53 54 28 74 68 65 4c 61 79 65 72 2c 74 29 3b AST(theLayer,t);
1800: 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 09 74 68 72 ....else.....thr
1810: 6f 77 20 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 ow genex!Runtime
1820: 45 78 63 65 70 74 69 6f 6e 28 63 61 73 74 28 4c Exception(cast(L
1830: 65 78 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c exPosition)null,
1840: 20 22 49 6e 76 61 6c 69 64 20 41 53 54 20 28 6e "Invalid AST (n
1850: 6f 6e 2d 74 61 62 6c 65 20 69 6e 20 63 6f 6e 73 on-table in cons
1860: 2d 6c 69 73 74 29 22 29 3b 0d 0a 09 72 65 74 75 -list)");...retu
1870: 72 6e 20 72 65 73 75 6c 74 3b 0d 0a 7d 0d 0a 0d rn result;..}...
1880: 0a 41 53 54 20 74 61 62 6c 65 54 6f 41 53 54 28 .AST tableToAST(
1890: 20 4c 61 79 65 72 20 74 68 65 4c 61 79 65 72 2c Layer theLayer,
18a0: 20 56 61 6c 75 65 20 76 76 76 76 20 29 0d 0a 7b Value vvvv )..{
18b0: 0d 0a 09 54 61 62 6c 65 20 74 20 3d 20 63 61 73 ...Table t = cas
18c0: 74 28 54 61 62 6c 65 29 76 76 76 76 3b 0d 0a 09 t(Table)vvvv;...
18d0: 69 66 28 20 74 20 69 73 20 6e 75 6c 6c 20 29 0d if( t is null ).
18e0: 0a 09 09 74 68 72 6f 77 20 67 65 6e 65 78 21 52 ...throw genex!R
18f0: 75 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 untimeException(
1900: 63 61 73 74 28 4c 65 78 50 6f 73 69 74 69 6f 6e cast(LexPosition
1910: 29 6e 75 6c 6c 2c 20 22 49 6e 76 61 6c 69 64 20 )null, "Invalid
1920: 41 53 54 20 28 6e 6f 74 20 61 20 74 61 62 6c 65 AST (not a table
1930: 29 22 29 3b 0d 0a 0d 0a 09 61 75 74 6f 20 6e 6f )");.....auto no
1940: 64 65 54 79 70 65 20 3d 20 74 2e 61 63 63 65 73 deType = t.acces
1950: 73 21 53 74 72 56 61 6c 75 65 28 74 68 65 4c 61 s!StrValue(theLa
1960: 79 65 72 2c 20 22 69 73 22 29 3b 0d 0a 09 69 66 yer, "is");...if
1970: 28 20 6e 6f 64 65 54 79 70 65 20 69 73 20 6e 75 ( nodeType is nu
1980: 6c 6c 20 29 0d 0a 09 09 74 68 72 6f 77 20 67 65 ll )....throw ge
1990: 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 63 65 70 nex!RuntimeExcep
19a0: 74 69 6f 6e 28 63 61 73 74 28 4c 65 78 50 6f 73 tion(cast(LexPos
19b0: 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 22 49 6e 76 ition)null, "Inv
19c0: 61 6c 69 64 20 41 53 54 20 7b 69 73 3a 28 6e 6f alid AST {is:(no
19d0: 74 20 73 74 72 69 6e 67 29 7d 22 29 3b 0d 0a 09 t string)}");...
19e0: 61 75 74 6f 20 70 6f 73 20 3d 20 65 78 74 72 61 auto pos = extra
19f0: 63 74 50 6f 73 28 74 29 3b 0d 0a 09 73 77 69 74 ctPos(t);...swit
1a00: 63 68 28 6e 6f 64 65 54 79 70 65 2e 64 61 74 61 ch(nodeType.data
1a10: 29 0d 0a 09 7b 0d 0a 09 63 61 73 65 20 22 69 6e )...{...case "in
1a20: 74 22 3a 0d 0a 09 09 69 66 28 61 75 74 6f 20 76 t":....if(auto v
1a30: 20 3d 20 74 2e 61 63 63 65 73 73 21 49 6e 74 56 = t.access!IntV
1a40: 61 6c 75 65 28 74 68 65 4c 61 79 65 72 2c 20 22 alue(theLayer, "
1a50: 64 61 74 61 22 29 29 0d 0a 09 09 09 72 65 74 75 data")).....retu
1a60: 72 6e 20 6e 65 77 20 49 6e 74 28 70 6f 73 2c 20 rn new Int(pos,
1a70: 76 2e 64 61 74 61 29 3b 0d 0a 09 09 74 68 72 6f v.data);....thro
1a80: 77 20 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 w genex!RuntimeE
1a90: 78 63 65 70 74 69 6f 6e 28 63 61 73 74 28 4c 65 xception(cast(Le
1aa0: 78 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 xPosition)null,
1ab0: 60 49 6e 76 61 6c 69 64 20 41 53 54 20 7b 69 73 `Invalid AST {is
1ac0: 3a 22 69 6e 74 22 2c 20 64 61 74 61 3a 28 6e 6f :"int", data:(no
1ad0: 74 20 69 6e 74 29 7d 60 29 3b 0d 0a 09 63 61 73 t int)}`);...cas
1ae0: 65 20 22 73 74 72 22 3a 0d 0a 09 09 69 66 28 61 e "str":....if(a
1af0: 75 74 6f 20 76 20 3d 20 74 2e 61 63 63 65 73 73 uto v = t.access
1b00: 21 53 74 72 56 61 6c 75 65 28 74 68 65 4c 61 79 !StrValue(theLay
1b10: 65 72 2c 20 22 64 61 74 61 22 29 29 0d 0a 09 09 er, "data"))....
1b20: 09 72 65 74 75 72 6e 20 6e 65 77 20 53 74 72 28 .return new Str(
1b30: 70 6f 73 2c 20 76 2e 64 61 74 61 29 3b 0d 0a 09 pos, v.data);...
1b40: 09 74 68 72 6f 77 20 67 65 6e 65 78 21 52 75 6e .throw genex!Run
1b50: 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 63 61 timeException(ca
1b60: 73 74 28 4c 65 78 50 6f 73 69 74 69 6f 6e 29 6e st(LexPosition)n
1b70: 75 6c 6c 2c 20 60 49 6e 76 61 6c 69 64 20 41 53 ull, `Invalid AS
1b80: 54 20 7b 69 73 3a 22 73 74 72 22 2c 20 64 61 74 T {is:"str", dat
1b90: 61 3a 28 6e 6f 74 20 73 74 72 69 6e 67 29 7d 60 a:(not string)}`
1ba0: 29 3b 0d 0a 09 63 61 73 65 20 22 76 61 72 22 3a );...case "var":
1bb0: 0d 0a 09 09 69 66 28 61 75 74 6f 20 76 20 3d 20 ....if(auto v =
1bc0: 74 2e 61 63 63 65 73 73 21 53 74 72 56 61 6c 75 t.access!StrValu
1bd0: 65 28 74 68 65 4c 61 79 65 72 2c 20 22 6e 61 6d e(theLayer, "nam
1be0: 65 22 29 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 e")).....return
1bf0: 6e 65 77 20 56 61 72 28 70 6f 73 2c 20 76 2e 64 new Var(pos, v.d
1c00: 61 74 61 29 3b 0d 0a 09 09 74 68 72 6f 77 20 67 ata);....throw g
1c10: 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 63 65 enex!RuntimeExce
1c20: 70 74 69 6f 6e 28 63 61 73 74 28 4c 65 78 50 6f ption(cast(LexPo
1c30: 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 60 49 6e sition)null, `In
1c40: 76 61 6c 69 64 20 41 53 54 20 7b 69 73 3a 22 76 valid AST {is:"v
1c50: 61 72 22 2c 20 6e 61 6d 65 3a 28 6e 6f 74 20 73 ar", name:(not s
1c60: 74 72 69 6e 67 29 7d 60 29 3b 0d 0a 09 63 61 73 tring)}`);...cas
1c70: 65 20 22 6c 61 79 22 3a 0d 0a 09 09 69 66 28 61 e "lay":....if(a
1c80: 75 74 6f 20 76 20 3d 20 74 2e 61 63 63 65 73 73 uto v = t.access
1c90: 21 53 74 72 56 61 6c 75 65 28 74 68 65 4c 61 79 !StrValue(theLay
1ca0: 65 72 2c 20 22 6c 61 79 65 72 22 29 29 0d 0a 09 er, "layer"))...
1cb0: 09 09 69 66 28 61 75 74 6f 20 65 20 3d 20 74 2e ..if(auto e = t.
1cc0: 61 63 63 65 73 73 21 54 61 62 6c 65 28 74 68 65 access!Table(the
1cd0: 4c 61 79 65 72 2c 20 22 65 78 70 72 22 29 29 0d Layer, "expr")).
1ce0: 0a 09 09 09 09 72 65 74 75 72 6e 20 6e 65 77 20 .....return new
1cf0: 4c 61 79 28 70 6f 73 2c 20 76 2e 64 61 74 61 2c Lay(pos, v.data,
1d00: 20 74 61 62 6c 65 54 6f 41 53 54 28 74 68 65 4c tableToAST(theL
1d10: 61 79 65 72 2c 65 29 29 3b 0d 0a 09 09 09 65 6c ayer,e));.....el
1d20: 73 65 0d 0a 09 09 09 09 74 68 72 6f 77 20 67 65 se......throw ge
1d30: 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 63 65 70 nex!RuntimeExcep
1d40: 74 69 6f 6e 28 63 61 73 74 28 4c 65 78 50 6f 73 tion(cast(LexPos
1d50: 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 60 49 6e 76 ition)null, `Inv
1d60: 61 6c 69 64 20 41 53 54 20 7b 69 73 3a 22 6c 61 alid AST {is:"la
1d70: 79 22 2c 20 65 78 70 72 3a 28 6e 6f 74 20 74 61 y", expr:(not ta
1d80: 62 6c 65 29 7d 60 29 3b 0d 0a 09 09 74 68 72 6f ble)}`);....thro
1d90: 77 20 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 w genex!RuntimeE
1da0: 78 63 65 70 74 69 6f 6e 28 63 61 73 74 28 4c 65 xception(cast(Le
1db0: 78 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 xPosition)null,
1dc0: 60 49 6e 76 61 6c 69 64 20 41 53 54 20 7b 69 73 `Invalid AST {is
1dd0: 3a 22 6c 61 79 22 2c 20 6c 61 79 65 72 3a 28 6e :"lay", layer:(n
1de0: 6f 74 20 73 74 72 69 6e 67 29 7d 60 29 3b 0d 0a ot string)}`);..
1df0: 09 63 61 73 65 20 22 6c 65 74 22 3a 0d 0a 09 09 .case "let":....
1e00: 69 66 28 61 75 74 6f 20 6e 20 3d 20 74 2e 61 63 if(auto n = t.ac
1e10: 63 65 73 73 21 53 74 72 56 61 6c 75 65 28 74 68 cess!StrValue(th
1e20: 65 4c 61 79 65 72 2c 20 22 6e 61 6d 65 22 29 29 eLayer, "name"))
1e30: 0d 0a 09 09 69 66 28 61 75 74 6f 20 65 20 3d 20 ....if(auto e =
1e40: 74 2e 61 63 63 65 73 73 21 54 61 62 6c 65 28 74 t.access!Table(t
1e50: 68 65 4c 61 79 65 72 2c 20 22 69 6e 69 74 22 29 heLayer, "init")
1e60: 29 0d 0a 09 09 69 66 28 61 75 74 6f 20 62 20 3d )....if(auto b =
1e70: 20 74 2e 61 63 63 65 73 73 21 54 61 62 6c 65 28 t.access!Table(
1e80: 74 68 65 4c 61 79 65 72 2c 20 22 65 78 70 72 22 theLayer, "expr"
1e90: 29 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 74 72 69 ))....{.....stri
1ea0: 6e 67 20 6e 6e 20 3d 20 6e 2e 64 61 74 61 3b 0d ng nn = n.data;.
1eb0: 0a 09 09 09 61 75 74 6f 20 65 65 20 3d 20 74 61 ....auto ee = ta
1ec0: 62 6c 65 54 6f 41 53 54 28 74 68 65 4c 61 79 65 bleToAST(theLaye
1ed0: 72 2c 20 65 29 3b 0d 0a 09 09 09 61 75 74 6f 20 r, e);.....auto
1ee0: 62 62 20 3d 20 74 61 62 6c 65 54 6f 41 53 54 28 bb = tableToAST(
1ef0: 74 68 65 4c 61 79 65 72 2c 20 62 29 3b 0d 0a 09 theLayer, b);...
1f00: 09 09 4c 61 79 65 72 20 6c 61 79 3d 22 22 3b 0d ..Layer lay="";.
1f10: 0a 09 09 09 69 66 28 61 75 74 6f 20 6c 20 3d 20 ....if(auto l =
1f20: 74 2e 61 63 63 65 73 73 21 53 74 72 56 61 6c 75 t.access!StrValu
1f30: 65 28 74 68 65 4c 61 79 65 72 2c 20 22 6c 61 79 e(theLayer, "lay
1f40: 65 72 22 29 29 0d 0a 09 09 09 09 6c 61 79 20 3d er"))......lay =
1f50: 20 6c 2e 64 61 74 61 3b 0d 0a 09 09 09 72 65 74 l.data;.....ret
1f60: 75 72 6e 20 6e 65 77 20 4c 65 74 28 70 6f 73 2c urn new Let(pos,
1f70: 20 6e 6e 2c 20 6c 61 79 2c 20 65 65 2c 20 62 62 nn, lay, ee, bb
1f80: 29 3b 0d 0a 09 09 7d 0d 0a 09 09 74 68 72 6f 77 );....}....throw
1f90: 20 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 genex!RuntimeEx
1fa0: 63 65 70 74 69 6f 6e 28 63 61 73 74 28 4c 65 78 ception(cast(Lex
1fb0: 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 60 Position)null, `
1fc0: 49 6e 76 61 6c 69 64 20 41 53 54 20 7b 69 73 3a Invalid AST {is:
1fd0: 22 6c 65 74 22 2c 20 6e 61 6d 65 3a 22 3f 3f 3f "let", name:"???
1fe0: 22 2c 20 69 6e 69 74 3a 22 3f 3f 3f 22 2c 20 65 ", init:"???", e
1ff0: 78 70 72 3a 22 3f 3f 3f 22 7d 60 29 3b 0d 0a 09 xpr:"???"}`);...
2000: 63 61 73 65 20 22 61 70 70 22 3a 0d 0a 09 09 69 case "app":....i
2010: 66 28 61 75 74 6f 20 66 20 3d 20 74 2e 61 63 63 f(auto f = t.acc
2020: 65 73 73 21 54 61 62 6c 65 28 74 68 65 4c 61 79 ess!Table(theLay
2030: 65 72 2c 20 22 66 75 6e 22 29 29 0d 0a 09 09 69 er, "fun"))....i
2040: 66 28 61 75 74 6f 20 61 20 3d 20 74 2e 61 63 63 f(auto a = t.acc
2050: 65 73 73 21 54 61 62 6c 65 28 74 68 65 4c 61 79 ess!Table(theLay
2060: 65 72 2c 20 22 61 72 67 73 22 29 29 0d 0a 09 09 er, "args"))....
2070: 09 72 65 74 75 72 6e 20 6e 65 77 20 41 70 70 28 .return new App(
2080: 70 6f 73 2c 20 74 61 62 6c 65 54 6f 41 53 54 28 pos, tableToAST(
2090: 74 68 65 4c 61 79 65 72 2c 66 29 2c 20 74 61 62 theLayer,f), tab
20a0: 6c 65 54 6f 41 53 54 4c 69 73 74 28 74 68 65 4c leToASTList(theL
20b0: 61 79 65 72 2c 61 29 29 3b 0d 0a 09 09 74 68 72 ayer,a));....thr
20c0: 6f 77 20 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 ow genex!Runtime
20d0: 45 78 63 65 70 74 69 6f 6e 28 63 61 73 74 28 4c Exception(cast(L
20e0: 65 78 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c exPosition)null,
20f0: 20 60 49 6e 76 61 6c 69 64 20 41 53 54 20 7b 69 `Invalid AST {i
2100: 73 3a 22 61 70 70 22 2c 20 66 75 6e 3a 3f 3f 3f s:"app", fun:???
2110: 2c 20 61 72 67 73 3a 3f 3f 3f 7d 60 29 3b 0d 0a , args:???}`);..
2120: 09 63 61 73 65 20 22 66 75 6e 22 3a 0d 0a 09 09 .case "fun":....
2130: 69 66 28 61 75 74 6f 20 70 20 3d 20 74 2e 61 63 if(auto p = t.ac
2140: 63 65 73 73 21 54 61 62 6c 65 28 74 68 65 4c 61 cess!Table(theLa
2150: 79 65 72 2c 20 22 70 61 72 61 6d 73 22 29 29 0d yer, "params")).
2160: 0a 09 09 69 66 28 61 75 74 6f 20 62 20 3d 20 74 ...if(auto b = t
2170: 2e 61 63 63 65 73 73 21 54 61 62 6c 65 28 74 68 .access!Table(th
2180: 65 4c 61 79 65 72 2c 20 22 66 75 6e 62 6f 64 79 eLayer, "funbody
2190: 22 29 29 0d 0a 09 09 7b 0d 0a 09 09 09 50 61 72 "))....{.....Par
21a0: 61 6d 65 74 65 72 5b 5d 20 70 73 3b 0d 0a 09 09 ameter[] ps;....
21b0: 09 66 6f 72 65 61 63 68 28 76 3b 20 74 61 62 6c .foreach(v; tabl
21c0: 65 41 73 43 6f 6e 73 4c 69 73 74 28 74 68 65 4c eAsConsList(theL
21d0: 61 79 65 72 2c 20 70 29 29 0d 0a 09 09 09 7b 0d ayer, p)).....{.
21e0: 0a 09 09 09 09 69 66 28 61 75 74 6f 20 74 74 20 .....if(auto tt
21f0: 3d 20 63 61 73 74 28 54 61 62 6c 65 29 76 29 0d = cast(Table)v).
2200: 0a 09 09 09 09 69 66 28 61 75 74 6f 20 73 73 20 .....if(auto ss
2210: 3d 20 74 74 2e 61 63 63 65 73 73 21 53 74 72 56 = tt.access!StrV
2220: 61 6c 75 65 28 74 68 65 4c 61 79 65 72 2c 20 22 alue(theLayer, "
2230: 6e 61 6d 65 22 29 29 0d 0a 09 09 09 09 69 66 28 name"))......if(
2240: 61 75 74 6f 20 6c 6c 20 3d 20 74 74 2e 61 63 63 auto ll = tt.acc
2250: 65 73 73 21 54 61 62 6c 65 28 74 68 65 4c 61 79 ess!Table(theLay
2260: 65 72 2c 20 22 6c 61 79 65 72 73 22 29 29 0d 0a er, "layers"))..
2270: 09 09 09 09 7b 0d 0a 09 09 09 09 09 4c 61 79 65 ....{.......Laye
2280: 72 5b 5d 20 6c 73 3b 0d 0a 09 09 09 09 09 66 6f r[] ls;.......fo
2290: 72 65 61 63 68 28 6c 6c 6c 3b 20 74 61 62 6c 65 reach(lll; table
22a0: 41 73 43 6f 6e 73 4c 69 73 74 28 74 68 65 4c 61 AsConsList(theLa
22b0: 79 65 72 2c 20 6c 6c 29 29 0d 0a 09 09 09 09 09 yer, ll)).......
22c0: 09 69 66 28 61 75 74 6f 20 6c 20 3d 20 63 61 73 .if(auto l = cas
22d0: 74 28 53 74 72 56 61 6c 75 65 29 6c 6c 6c 29 0d t(StrValue)lll).
22e0: 0a 09 09 09 09 09 09 09 6c 73 20 7e 3d 20 6c 2e ........ls ~= l.
22f0: 64 61 74 61 3b 0d 0a 09 09 09 09 09 09 65 6c 73 data;........els
2300: 65 0d 0a 09 09 09 09 09 09 09 74 68 72 6f 77 20 e.........throw
2310: 67 65 6e 65 78 21 52 75 6e 74 69 6d 65 45 78 63 genex!RuntimeExc
2320: 65 70 74 69 6f 6e 28 63 61 73 74 28 4c 65 78 50 eption(cast(LexP
2330: 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c 2c 20 73 70 osition)null, sp
2340: 72 69 6e 74 66 21 60 49 6e 76 61 6c 69 64 20 41 rintf!`Invalid A
2350: 53 54 20 7b 62 61 64 20 66 75 6e 20 70 61 72 61 ST {bad fun para
2360: 6d 73 20 25 73 7d 60 28 6c 6c 6c 29 29 3b 0d 0a ms %s}`(lll));..
2370: 09 09 09 09 09 70 73 20 7e 3d 20 6e 65 77 20 50 .....ps ~= new P
2380: 61 72 61 6d 65 74 65 72 28 73 73 2e 64 61 74 61 arameter(ss.data
2390: 2c 20 6c 73 29 3b 0d 0a 09 09 09 09 09 63 6f 6e , ls);.......con
23a0: 74 69 6e 75 65 3b 0d 0a 09 09 09 09 7d 0d 0a 09 tinue;......}...
23b0: 09 09 09 65 6c 73 65 0d 0a 09 09 09 09 7b 0d 0a ...else......{..
23c0: 09 09 09 09 09 4c 61 79 65 72 5b 5d 20 65 6d 70 .....Layer[] emp
23d0: 3b 0d 0a 09 09 09 09 09 70 73 20 7e 3d 20 6e 65 ;.......ps ~= ne
23e0: 77 20 50 61 72 61 6d 65 74 65 72 28 73 73 2e 64 w Parameter(ss.d
23f0: 61 74 61 2c 20 65 6d 70 29 3b 0d 0a 09 09 09 09 ata, emp);......
2400: 09 63 6f 6e 74 69 6e 75 65 3b 0d 0a 09 09 09 09 .continue;......
2410: 7d 0d 0a 09 09 09 09 74 68 72 6f 77 20 67 65 6e }......throw gen
2420: 65 78 21 52 75 6e 74 69 6d 65 45 78 63 65 70 74 ex!RuntimeExcept
2430: 69 6f 6e 28 63 61 73 74 28 4c 65 78 50 6f 73 69 ion(cast(LexPosi
2440: 74 69 6f 6e 29 6e 75 6c 6c 2c 20 73 70 72 69 6e tion)null, sprin
2450: 74 66 21 60 49 6e 76 61 6c 69 64 20 41 53 54 20 tf!`Invalid AST
2460: 7b 62 61 64 20 66 75 6e 20 70 61 72 61 6d 73 20 {bad fun params
2470: 25 73 7d 60 28 76 29 29 3b 0d 0a 09 09 09 7d 0d %s}`(v));.....}.
2480: 0a 09 09 09 61 75 74 6f 20 62 62 20 3d 20 74 61 ....auto bb = ta
2490: 62 6c 65 54 6f 41 53 54 28 74 68 65 4c 61 79 65 bleToAST(theLaye
24a0: 72 2c 20 62 29 3b 0d 0a 09 09 09 72 65 74 75 72 r, b);.....retur
24b0: 6e 20 6e 65 77 20 46 75 6e 28 70 6f 73 2c 70 73 n new Fun(pos,ps
24c0: 2c 62 62 29 3b 0d 0a 09 09 7d 0d 0a 09 09 74 68 ,bb);....}....th
24d0: 72 6f 77 20 67 65 6e 65 78 21 52 75 6e 74 69 6d row genex!Runtim
24e0: 65 45 78 63 65 70 74 69 6f 6e 28 63 61 73 74 28 eException(cast(
24f0: 4c 65 78 50 6f 73 69 74 69 6f 6e 29 6e 75 6c 6c LexPosition)null
2500: 2c 20 60 49 6e 76 61 6c 69 64 20 41 53 54 20 7b , `Invalid AST {
2510: 69 73 3a 22 66 75 6e 22 2c 20 70 61 72 61 6d 3a is:"fun", param:
2520: 3f 3f 3f 2c 20 62 6f 64 79 3a 3f 3f 3f 7d 60 29 ???, body:???}`)
2530: 3b 0d 0a 09 64 65 66 61 75 6c 74 3a 0d 0a 09 09 ;...default:....
2540: 74 68 72 6f 77 20 67 65 6e 65 78 21 52 75 6e 74 throw genex!Runt
2550: 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 63 61 73 imeException(cas
2560: 74 28 4c 65 78 50 6f 73 69 74 69 6f 6e 29 6e 75 t(LexPosition)nu
2570: 6c 6c 2c 20 73 70 72 69 6e 74 66 21 60 49 6e 76 ll, sprintf!`Inv
2580: 61 6c 69 64 20 41 53 54 20 7b 69 73 3a 20 22 25 alid AST {is: "%
2590: 73 22 7d 20 75 6e 6b 6e 6f 77 6e 60 28 6e 6f 64 s"} unknown`(nod
25a0: 65 54 79 70 65 2e 64 61 74 61 29 29 3b 0d 0a 09 eType.data));...
25b0: 7d 0d 0a 7d 0d 0a 0d 0a 54 61 62 6c 65 20 6d 61 }..}....Table ma
25c0: 6b 65 43 6f 6e 73 28 56 61 6c 75 65 20 61 2c 20 keCons(Value a,
25d0: 56 61 6c 75 65 20 64 29 0d 0a 7b 0d 0a 09 54 61 Value d)..{...Ta
25e0: 62 6c 65 20 74 20 3d 20 6e 65 77 20 54 61 62 6c ble t = new Tabl
25f0: 65 3b 0d 0a 09 74 2e 73 65 74 28 22 63 61 72 22 e;...t.set("car"
2600: 2c 20 56 61 6c 75 65 4c 61 79 65 72 2c 20 61 29 , ValueLayer, a)
2610: 3b 0d 0a 09 74 2e 73 65 74 28 22 63 64 72 22 2c ;...t.set("cdr",
2620: 20 56 61 6c 75 65 4c 61 79 65 72 2c 20 64 29 3b ValueLayer, d);
2630: 0d 0a 09 72 65 74 75 72 6e 20 74 3b 0d 0a 7d 0d ...return t;..}.
2640: 0a 0d 0a 54 61 62 6c 65 20 66 72 6f 6d 50 6f 73 ...Table fromPos
2650: 28 4c 65 78 50 6f 73 69 74 69 6f 6e 20 70 6f 73 (LexPosition pos
2660: 29 0d 0a 7b 0d 0a 09 54 61 62 6c 65 20 74 20 3d )..{...Table t =
2670: 20 6e 65 77 20 54 61 62 6c 65 3b 0d 0a 09 69 66 new Table;...if
2680: 28 20 70 6f 73 20 21 69 73 20 6e 75 6c 6c 20 29 ( pos !is null )
2690: 20 7b 0d 0a 09 09 74 2e 73 65 74 28 22 66 69 6c {....t.set("fil
26a0: 65 6e 61 6d 65 22 2c 20 56 61 6c 75 65 4c 61 79 ename", ValueLay
26b0: 65 72 2c 20 6e 65 77 20 53 74 72 56 61 6c 75 65 er, new StrValue
26c0: 28 70 6f 73 2e 66 69 6c 65 6e 61 6d 65 29 29 3b (pos.filename));
26d0: 0d 0a 09 09 74 2e 73 65 74 28 22 6c 69 6e 65 6e ....t.set("linen
26e0: 6f 22 2c 20 20 20 56 61 6c 75 65 4c 61 79 65 72 o", ValueLayer
26f0: 2c 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 , new IntValue(B
2700: 69 67 49 6e 74 28 70 6f 73 2e 6c 69 6e 65 6e 6f igInt(pos.lineno
2710: 29 29 29 3b 0d 0a 09 09 74 2e 73 65 74 28 22 63 )));....t.set("c
2720: 6f 6c 75 6d 6e 22 2c 20 20 20 56 61 6c 75 65 4c olumn", ValueL
2730: 61 79 65 72 2c 20 6e 65 77 20 49 6e 74 56 61 6c ayer, new IntVal
2740: 75 65 28 42 69 67 49 6e 74 28 70 6f 73 2e 63 6f ue(BigInt(pos.co
2750: 6c 75 6d 6e 29 29 29 3b 0d 0a 09 7d 20 65 6c 73 lumn)));...} els
2760: 65 20 7b 0d 0a 09 09 74 2e 73 65 74 28 22 66 69 e {....t.set("fi
2770: 6c 65 6e 61 6d 65 22 2c 20 56 61 6c 75 65 4c 61 lename", ValueLa
2780: 79 65 72 2c 20 6e 65 77 20 53 74 72 56 61 6c 75 yer, new StrValu
2790: 65 28 22 6e 75 6c 6c 70 6f 73 22 29 29 3b 0d 0a e("nullpos"));..
27a0: 09 09 74 2e 73 65 74 28 22 6c 69 6e 65 6e 6f 22 ..t.set("lineno"
27b0: 2c 20 20 20 56 61 6c 75 65 4c 61 79 65 72 2c 20 , ValueLayer,
27c0: 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 new IntValue(Big
27d0: 49 6e 74 28 30 29 29 29 3b 0d 0a 09 09 74 2e 73 Int(0)));....t.s
27e0: 65 74 28 22 63 6f 6c 75 6d 6e 22 2c 20 20 20 56 et("column", V
27f0: 61 6c 75 65 4c 61 79 65 72 2c 20 6e 65 77 20 49 alueLayer, new I
2800: 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 30 ntValue(BigInt(0
2810: 29 29 29 3b 0d 0a 09 7d 0d 0a 09 72 65 74 75 72 )));...}...retur
2820: 6e 20 74 3b 0d 0a 7d 0d 0a n t;..}..