Artifact 5b490c90826e242f6d1a20641bd024cbd7a4c3b3:
0000: ef bb bf 2f 2a 2a 0d 0a 20 2a 20 41 75 74 68 6f .../**.. * Autho
0010: 72 73 3a 20 6b 2e 69 6e 61 62 61 0d 0a 20 2a 20 rs: k.inaba.. *
0020: 4c 69 63 65 6e 73 65 3a 20 4e 59 53 4c 20 30 2e License: NYSL 0.
0030: 39 39 38 32 20 68 74 74 70 3a 2f 2f 77 77 77 2e 9982 http://www.
0040: 6b 6d 6f 6e 6f 73 2e 6e 65 74 2f 6e 79 73 6c 2f kmonos.net/nysl/
0050: 0d 0a 20 2a 0d 0a 20 2a 20 45 76 61 6c 75 61 74 .. *.. * Evaluat
0060: 6f 72 20 66 6f 72 20 50 6f 6c 65 6d 79 20 70 72 or for Polemy pr
0070: 6f 67 72 61 6d 6d 69 6e 67 20 6c 61 6e 67 75 61 ogramming langua
0080: 67 65 2e 0d 0a 20 2a 2f 0d 0a 6d 6f 64 75 6c 65 ge... */..module
0090: 20 70 6f 6c 65 6d 79 2e 65 76 61 6c 3b 0d 0a 69 polemy.eval;..i
00a0: 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 2e 5f 63 6f mport polemy._co
00b0: 6d 6d 6f 6e 3b 0d 0a 69 6d 70 6f 72 74 20 70 6f mmon;..import po
00c0: 6c 65 6d 79 2e 6c 65 78 20 3a 20 4c 65 78 50 6f lemy.lex : LexPo
00d0: 73 69 74 69 6f 6e 3b 0d 0a 69 6d 70 6f 72 74 20 sition;..import
00e0: 70 6f 6c 65 6d 79 2e 61 73 74 3b 0d 0a 69 6d 70 polemy.ast;..imp
00f0: 6f 72 74 20 70 6f 6c 65 6d 79 2e 70 61 72 73 65 ort polemy.parse
0100: 3b 0d 0a 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 ;..import polemy
0110: 2e 72 75 6e 74 69 6d 65 3b 0d 0a 69 6d 70 6f 72 .runtime;..impor
0120: 74 20 73 74 64 2e 74 79 70 65 63 6f 6e 73 3b 0d t std.typecons;.
0130: 0a 69 6d 70 6f 72 74 20 73 74 64 2e 73 74 64 69 .import std.stdi
0140: 6f 3b 0d 0a 0d 0a 43 6f 6e 74 65 78 74 20 63 72 o;....Context cr
0150: 65 61 74 65 47 6c 6f 62 61 6c 43 6f 6e 74 65 78 eateGlobalContex
0160: 74 28 29 0d 0a 7b 0d 0a 09 61 75 74 6f 20 63 74 t()..{...auto ct
0170: 78 20 3d 20 6e 65 77 20 43 6f 6e 74 65 78 74 3b x = new Context;
0180: 0d 0a 09 63 74 78 2e 61 64 64 28 22 2b 22 2c 20 ...ctx.add("+",
0190: 6e 65 77 20 46 75 6e 56 61 6c 75 65 28 64 65 6c new FunValue(del
01a0: 65 67 61 74 65 20 56 61 6c 75 65 28 69 6d 6d 75 egate Value(immu
01b0: 74 61 62 6c 65 20 4c 65 78 50 6f 73 69 74 69 6f table LexPositio
01c0: 6e 20 70 6f 73 2c 20 56 61 6c 75 65 5b 5d 20 61 n pos, Value[] a
01d0: 72 67 73 29 7b 0d 0a 09 09 69 66 28 20 61 72 67 rgs){....if( arg
01e0: 73 2e 6c 65 6e 67 74 68 20 21 3d 20 32 20 29 0d s.length != 2 ).
01f0: 0a 09 09 09 74 68 72 6f 77 20 6e 65 77 20 50 6f ....throw new Po
0200: 6c 65 6d 79 52 75 6e 74 69 6d 65 45 78 63 65 70 lemyRuntimeExcep
0210: 74 69 6f 6e 28 22 2b 20 74 61 6b 65 73 20 74 77 tion("+ takes tw
0220: 6f 20 61 72 67 75 6d 65 6e 74 73 21 21 20 5b 22 o arguments!! ["
0230: 7e 74 6f 21 73 74 72 69 6e 67 28 70 6f 73 29 7e ~to!string(pos)~
0240: 22 5d 22 29 3b 0d 0a 09 09 69 66 28 20 61 75 74 "]");....if( aut
0250: 6f 20 78 20 3d 20 63 61 73 74 28 49 6e 74 56 61 o x = cast(IntVa
0260: 6c 75 65 29 61 72 67 73 5b 30 5d 20 29 0d 0a 09 lue)args[0] )...
0270: 09 09 69 66 28 20 61 75 74 6f 20 79 20 3d 20 63 ..if( auto y = c
0280: 61 73 74 28 49 6e 74 56 61 6c 75 65 29 61 72 67 ast(IntValue)arg
0290: 73 5b 31 5d 20 29 0d 0a 09 09 09 09 72 65 74 75 s[1] )......retu
02a0: 72 6e 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 rn new IntValue(
02b0: 78 2e 64 61 74 61 2b 79 2e 64 61 74 61 29 3b 0d x.data+y.data);.
02c0: 0a 09 09 74 68 72 6f 77 20 6e 65 77 20 50 6f 6c ...throw new Pol
02d0: 65 6d 79 52 75 6e 74 69 6d 65 45 78 63 65 70 74 emyRuntimeExcept
02e0: 69 6f 6e 28 22 63 61 6e 6e 6f 74 20 61 64 64 20 ion("cannot add
02f0: 6e 6f 6e 2d 69 6e 74 65 67 65 72 73 20 5b 22 7e non-integers ["~
0300: 74 6f 21 73 74 72 69 6e 67 28 70 6f 73 29 7e 22 to!string(pos)~"
0310: 5d 22 29 3b 0d 0a 09 7d 29 29 3b 0d 0a 09 63 74 ]");...}));...ct
0320: 78 2e 61 64 64 28 22 2d 22 2c 20 6e 65 77 20 46 x.add("-", new F
0330: 75 6e 56 61 6c 75 65 28 64 65 6c 65 67 61 74 65 unValue(delegate
0340: 20 56 61 6c 75 65 28 69 6d 6d 75 74 61 62 6c 65 Value(immutable
0350: 20 4c 65 78 50 6f 73 69 74 69 6f 6e 20 70 6f 73 LexPosition pos
0360: 2c 20 56 61 6c 75 65 5b 5d 20 61 72 67 73 29 7b , Value[] args){
0370: 0d 0a 09 09 69 66 28 20 61 72 67 73 2e 6c 65 6e ....if( args.len
0380: 67 74 68 20 21 3d 20 32 20 29 0d 0a 09 09 09 74 gth != 2 ).....t
0390: 68 72 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 hrow new PolemyR
03a0: 75 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 untimeException(
03b0: 22 2d 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 "- takes two arg
03c0: 75 6d 65 6e 74 73 21 21 20 5b 22 7e 74 6f 21 73 uments!! ["~to!s
03d0: 74 72 69 6e 67 28 70 6f 73 29 7e 22 5d 22 29 3b tring(pos)~"]");
03e0: 0d 0a 09 09 69 66 28 20 61 75 74 6f 20 78 20 3d ....if( auto x =
03f0: 20 63 61 73 74 28 49 6e 74 56 61 6c 75 65 29 61 cast(IntValue)a
0400: 72 67 73 5b 30 5d 20 29 0d 0a 09 09 09 69 66 28 rgs[0] ).....if(
0410: 20 61 75 74 6f 20 79 20 3d 20 63 61 73 74 28 49 auto y = cast(I
0420: 6e 74 56 61 6c 75 65 29 61 72 67 73 5b 31 5d 20 ntValue)args[1]
0430: 29 0d 0a 09 09 09 09 72 65 74 75 72 6e 20 6e 65 )......return ne
0440: 77 20 49 6e 74 56 61 6c 75 65 28 78 2e 64 61 74 w IntValue(x.dat
0450: 61 2d 79 2e 64 61 74 61 29 3b 0d 0a 09 09 74 68 a-y.data);....th
0460: 72 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 row new PolemyRu
0470: 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 22 ntimeException("
0480: 63 61 6e 6e 6f 74 20 61 64 64 20 6e 6f 6e 2d 69 cannot add non-i
0490: 6e 74 65 67 65 72 73 20 5b 22 7e 74 6f 21 73 74 ntegers ["~to!st
04a0: 72 69 6e 67 28 70 6f 73 29 7e 22 5d 22 29 3b 0d ring(pos)~"]");.
04b0: 0a 09 7d 29 29 3b 0d 0a 09 63 74 78 2e 61 64 64 ..}));...ctx.add
04c0: 28 22 2a 22 2c 20 6e 65 77 20 46 75 6e 56 61 6c ("*", new FunVal
04d0: 75 65 28 64 65 6c 65 67 61 74 65 20 56 61 6c 75 ue(delegate Valu
04e0: 65 28 69 6d 6d 75 74 61 62 6c 65 20 4c 65 78 50 e(immutable LexP
04f0: 6f 73 69 74 69 6f 6e 20 70 6f 73 2c 20 56 61 6c osition pos, Val
0500: 75 65 5b 5d 20 61 72 67 73 29 7b 0d 0a 09 09 69 ue[] args){....i
0510: 66 28 20 61 72 67 73 2e 6c 65 6e 67 74 68 20 21 f( args.length !
0520: 3d 20 32 20 29 0d 0a 09 09 09 74 68 72 6f 77 20 = 2 ).....throw
0530: 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 69 6d new PolemyRuntim
0540: 65 45 78 63 65 70 74 69 6f 6e 28 22 2a 20 74 61 eException("* ta
0550: 6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 kes two argument
0560: 73 21 21 20 5b 22 7e 74 6f 21 73 74 72 69 6e 67 s!! ["~to!string
0570: 28 70 6f 73 29 7e 22 5d 22 29 3b 0d 0a 09 09 69 (pos)~"]");....i
0580: 66 28 20 61 75 74 6f 20 78 20 3d 20 63 61 73 74 f( auto x = cast
0590: 28 49 6e 74 56 61 6c 75 65 29 61 72 67 73 5b 30 (IntValue)args[0
05a0: 5d 20 29 0d 0a 09 09 09 69 66 28 20 61 75 74 6f ] ).....if( auto
05b0: 20 79 20 3d 20 63 61 73 74 28 49 6e 74 56 61 6c y = cast(IntVal
05c0: 75 65 29 61 72 67 73 5b 31 5d 20 29 0d 0a 09 09 ue)args[1] )....
05d0: 09 09 72 65 74 75 72 6e 20 6e 65 77 20 49 6e 74 ..return new Int
05e0: 56 61 6c 75 65 28 78 2e 64 61 74 61 2a 79 2e 64 Value(x.data*y.d
05f0: 61 74 61 29 3b 0d 0a 09 09 74 68 72 6f 77 20 6e ata);....throw n
0600: 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 69 6d 65 ew PolemyRuntime
0610: 45 78 63 65 70 74 69 6f 6e 28 22 63 61 6e 6e 6f Exception("canno
0620: 74 20 61 64 64 20 6e 6f 6e 2d 69 6e 74 65 67 65 t add non-intege
0630: 72 73 20 5b 22 7e 74 6f 21 73 74 72 69 6e 67 28 rs ["~to!string(
0640: 70 6f 73 29 7e 22 5d 22 29 3b 0d 0a 09 7d 29 29 pos)~"]");...}))
0650: 3b 0d 0a 09 63 74 78 2e 61 64 64 28 22 2f 22 2c ;...ctx.add("/",
0660: 20 6e 65 77 20 46 75 6e 56 61 6c 75 65 28 64 65 new FunValue(de
0670: 6c 65 67 61 74 65 20 56 61 6c 75 65 28 69 6d 6d legate Value(imm
0680: 75 74 61 62 6c 65 20 4c 65 78 50 6f 73 69 74 69 utable LexPositi
0690: 6f 6e 20 70 6f 73 2c 20 56 61 6c 75 65 5b 5d 20 on pos, Value[]
06a0: 61 72 67 73 29 7b 0d 0a 09 09 69 66 28 20 61 72 args){....if( ar
06b0: 67 73 2e 6c 65 6e 67 74 68 20 21 3d 20 32 20 29 gs.length != 2 )
06c0: 0d 0a 09 09 09 74 68 72 6f 77 20 6e 65 77 20 50 .....throw new P
06d0: 6f 6c 65 6d 79 52 75 6e 74 69 6d 65 45 78 63 65 olemyRuntimeExce
06e0: 70 74 69 6f 6e 28 22 2f 20 74 61 6b 65 73 20 74 ption("/ takes t
06f0: 77 6f 20 61 72 67 75 6d 65 6e 74 73 21 21 20 5b wo arguments!! [
0700: 22 7e 74 6f 21 73 74 72 69 6e 67 28 70 6f 73 29 "~to!string(pos)
0710: 7e 22 5d 22 29 3b 0d 0a 09 09 69 66 28 20 61 75 ~"]");....if( au
0720: 74 6f 20 78 20 3d 20 63 61 73 74 28 49 6e 74 56 to x = cast(IntV
0730: 61 6c 75 65 29 61 72 67 73 5b 30 5d 20 29 0d 0a alue)args[0] )..
0740: 09 09 09 69 66 28 20 61 75 74 6f 20 79 20 3d 20 ...if( auto y =
0750: 63 61 73 74 28 49 6e 74 56 61 6c 75 65 29 61 72 cast(IntValue)ar
0760: 67 73 5b 31 5d 20 29 0d 0a 09 09 09 09 72 65 74 gs[1] )......ret
0770: 75 72 6e 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 urn new IntValue
0780: 28 78 2e 64 61 74 61 2f 79 2e 64 61 74 61 29 3b (x.data/y.data);
0790: 0d 0a 09 09 74 68 72 6f 77 20 6e 65 77 20 50 6f ....throw new Po
07a0: 6c 65 6d 79 52 75 6e 74 69 6d 65 45 78 63 65 70 lemyRuntimeExcep
07b0: 74 69 6f 6e 28 22 63 61 6e 6e 6f 74 20 61 64 64 tion("cannot add
07c0: 20 6e 6f 6e 2d 69 6e 74 65 67 65 72 73 20 5b 22 non-integers ["
07d0: 7e 74 6f 21 73 74 72 69 6e 67 28 70 6f 73 29 7e ~to!string(pos)~
07e0: 22 5d 22 29 3b 0d 0a 09 7d 29 29 3b 0d 0a 09 63 "]");...}));...c
07f0: 74 78 2e 61 64 64 28 22 3c 22 2c 20 6e 65 77 20 tx.add("<", new
0800: 46 75 6e 56 61 6c 75 65 28 64 65 6c 65 67 61 74 FunValue(delegat
0810: 65 20 56 61 6c 75 65 28 69 6d 6d 75 74 61 62 6c e Value(immutabl
0820: 65 20 4c 65 78 50 6f 73 69 74 69 6f 6e 20 70 6f e LexPosition po
0830: 73 2c 20 56 61 6c 75 65 5b 5d 20 61 72 67 73 29 s, Value[] args)
0840: 7b 0d 0a 09 09 69 66 28 20 61 72 67 73 2e 6c 65 {....if( args.le
0850: 6e 67 74 68 20 21 3d 20 32 20 29 0d 0a 09 09 09 ngth != 2 ).....
0860: 74 68 72 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 throw new Polemy
0870: 52 75 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e RuntimeException
0880: 28 22 3c 20 74 61 6b 65 73 20 74 77 6f 20 61 72 ("< takes two ar
0890: 67 75 6d 65 6e 74 73 21 21 20 5b 22 7e 74 6f 21 guments!! ["~to!
08a0: 73 74 72 69 6e 67 28 70 6f 73 29 7e 22 5d 22 29 string(pos)~"]")
08b0: 3b 0d 0a 09 09 69 66 28 20 61 75 74 6f 20 78 20 ;....if( auto x
08c0: 3d 20 63 61 73 74 28 49 6e 74 56 61 6c 75 65 29 = cast(IntValue)
08d0: 61 72 67 73 5b 30 5d 20 29 0d 0a 09 09 09 69 66 args[0] ).....if
08e0: 28 20 61 75 74 6f 20 79 20 3d 20 63 61 73 74 28 ( auto y = cast(
08f0: 49 6e 74 56 61 6c 75 65 29 61 72 67 73 5b 31 5d IntValue)args[1]
0900: 20 29 0d 0a 09 09 09 09 72 65 74 75 72 6e 20 6e )......return n
0910: 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 49 ew IntValue(BigI
0920: 6e 74 28 74 6f 21 69 6e 74 28 78 2e 64 61 74 61 nt(to!int(x.data
0930: 20 3c 20 79 2e 64 61 74 61 29 29 29 3b 0d 0a 09 < y.data)));...
0940: 09 74 68 72 6f 77 20 6e 65 77 20 50 6f 6c 65 6d .throw new Polem
0950: 79 52 75 6e 74 69 6d 65 45 78 63 65 70 74 69 6f yRuntimeExceptio
0960: 6e 28 22 63 61 6e 6e 6f 74 20 61 64 64 20 6e 6f n("cannot add no
0970: 6e 2d 69 6e 74 65 67 65 72 73 20 5b 22 7e 74 6f n-integers ["~to
0980: 21 73 74 72 69 6e 67 28 70 6f 73 29 7e 22 5d 22 !string(pos)~"]"
0990: 29 3b 0d 0a 09 7d 29 29 3b 0d 0a 09 63 74 78 2e );...}));...ctx.
09a0: 61 64 64 28 22 3e 22 2c 20 6e 65 77 20 46 75 6e add(">", new Fun
09b0: 56 61 6c 75 65 28 64 65 6c 65 67 61 74 65 20 56 Value(delegate V
09c0: 61 6c 75 65 28 69 6d 6d 75 74 61 62 6c 65 20 4c alue(immutable L
09d0: 65 78 50 6f 73 69 74 69 6f 6e 20 70 6f 73 2c 20 exPosition pos,
09e0: 56 61 6c 75 65 5b 5d 20 61 72 67 73 29 7b 0d 0a Value[] args){..
09f0: 09 09 69 66 28 20 61 72 67 73 2e 6c 65 6e 67 74 ..if( args.lengt
0a00: 68 20 21 3d 20 32 20 29 0d 0a 09 09 09 74 68 72 h != 2 ).....thr
0a10: 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e ow new PolemyRun
0a20: 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 22 3e timeException(">
0a30: 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d takes two argum
0a40: 65 6e 74 73 21 21 20 5b 22 7e 74 6f 21 73 74 72 ents!! ["~to!str
0a50: 69 6e 67 28 70 6f 73 29 7e 22 5d 22 29 3b 0d 0a ing(pos)~"]");..
0a60: 09 09 69 66 28 20 61 75 74 6f 20 78 20 3d 20 63 ..if( auto x = c
0a70: 61 73 74 28 49 6e 74 56 61 6c 75 65 29 61 72 67 ast(IntValue)arg
0a80: 73 5b 30 5d 20 29 0d 0a 09 09 09 69 66 28 20 61 s[0] ).....if( a
0a90: 75 74 6f 20 79 20 3d 20 63 61 73 74 28 49 6e 74 uto y = cast(Int
0aa0: 56 61 6c 75 65 29 61 72 67 73 5b 31 5d 20 29 0d Value)args[1] ).
0ab0: 0a 09 09 09 09 72 65 74 75 72 6e 20 6e 65 77 20 .....return new
0ac0: 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 IntValue(BigInt(
0ad0: 74 6f 21 69 6e 74 28 78 2e 64 61 74 61 3e 79 2e to!int(x.data>y.
0ae0: 64 61 74 61 29 29 29 3b 0d 0a 09 09 74 68 72 6f data)));....thro
0af0: 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 w new PolemyRunt
0b00: 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 22 63 61 imeException("ca
0b10: 6e 6e 6f 74 20 61 64 64 20 6e 6f 6e 2d 69 6e 74 nnot add non-int
0b20: 65 67 65 72 73 20 5b 22 7e 74 6f 21 73 74 72 69 egers ["~to!stri
0b30: 6e 67 28 70 6f 73 29 7e 22 5d 22 29 3b 0d 0a 09 ng(pos)~"]");...
0b40: 7d 29 29 3b 0d 0a 09 63 74 78 2e 61 64 64 28 22 }));...ctx.add("
0b50: 70 72 69 6e 74 22 2c 20 6e 65 77 20 46 75 6e 56 print", new FunV
0b60: 61 6c 75 65 28 64 65 6c 65 67 61 74 65 20 56 61 alue(delegate Va
0b70: 6c 75 65 28 69 6d 6d 75 74 61 62 6c 65 20 4c 65 lue(immutable Le
0b80: 78 50 6f 73 69 74 69 6f 6e 20 70 6f 73 2c 20 56 xPosition pos, V
0b90: 61 6c 75 65 5b 5d 20 61 72 67 73 29 7b 0d 0a 09 alue[] args){...
0ba0: 09 66 6f 72 65 61 63 68 28 61 3b 20 61 72 67 73 .foreach(a; args
0bb0: 29 0d 0a 09 09 09 77 72 69 74 65 28 61 29 3b 0d ).....write(a);.
0bc0: 0a 09 09 77 72 69 74 65 6c 6e 28 22 22 29 3b 0d ...writeln("");.
0bd0: 0a 09 09 72 65 74 75 72 6e 20 6e 65 77 20 55 6e ...return new Un
0be0: 64 65 66 69 6e 65 64 56 61 6c 75 65 3b 0d 0a 09 definedValue;...
0bf0: 7d 29 29 3b 0d 0a 09 63 74 78 2e 61 64 64 28 22 }));...ctx.add("
0c00: 69 66 22 2c 20 6e 65 77 20 46 75 6e 56 61 6c 75 if", new FunValu
0c10: 65 28 64 65 6c 65 67 61 74 65 20 56 61 6c 75 65 e(delegate Value
0c20: 28 69 6d 6d 75 74 61 62 6c 65 20 4c 65 78 50 6f (immutable LexPo
0c30: 73 69 74 69 6f 6e 20 70 6f 73 2c 20 56 61 6c 75 sition pos, Valu
0c40: 65 5b 5d 20 61 72 67 73 29 7b 0d 0a 09 09 69 66 e[] args){....if
0c50: 28 20 61 72 67 73 2e 6c 65 6e 67 74 68 20 21 3d ( args.length !=
0c60: 20 33 20 29 0d 0a 09 09 09 74 68 72 6f 77 20 6e 3 ).....throw n
0c70: 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 69 6d 65 ew PolemyRuntime
0c80: 45 78 63 65 70 74 69 6f 6e 28 22 69 66 20 74 61 Exception("if ta
0c90: 6b 65 73 20 74 68 72 65 65 20 61 72 67 75 6d 65 kes three argume
0ca0: 6e 74 73 21 21 20 5b 22 7e 74 6f 21 73 74 72 69 nts!! ["~to!stri
0cb0: 6e 67 28 70 6f 73 29 7e 22 5d 22 29 3b 0d 0a 09 ng(pos)~"]");...
0cc0: 09 69 66 28 20 61 75 74 6f 20 78 20 3d 20 63 61 .if( auto x = ca
0cd0: 73 74 28 49 6e 74 56 61 6c 75 65 29 61 72 67 73 st(IntValue)args
0ce0: 5b 30 5d 20 29 0d 0a 09 09 69 66 28 20 61 75 74 [0] )....if( aut
0cf0: 6f 20 66 74 20 3d 20 63 61 73 74 28 46 75 6e 56 o ft = cast(FunV
0d00: 61 6c 75 65 29 61 72 67 73 5b 31 5d 20 29 0d 0a alue)args[1] )..
0d10: 09 09 69 66 28 20 61 75 74 6f 20 66 65 20 3d 20 ..if( auto fe =
0d20: 63 61 73 74 28 46 75 6e 56 61 6c 75 65 29 61 72 cast(FunValue)ar
0d30: 67 73 5b 32 5d 20 29 0d 0a 09 09 09 72 65 74 75 gs[2] ).....retu
0d40: 72 6e 20 28 78 2e 64 61 74 61 20 3d 3d 20 30 20 rn (x.data == 0
0d50: 3f 20 66 65 20 3a 20 66 74 29 2e 63 61 6c 6c 28 ? fe : ft).call(
0d60: 70 6f 73 2c 5b 5d 29 3b 0d 0a 09 09 74 68 72 6f pos,[]);....thro
0d70: 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 w new PolemyRunt
0d80: 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 22 74 79 imeException("ty
0d90: 70 65 20 6d 69 73 6d 61 74 63 68 20 69 6e 20 69 pe mismatch in i
0da0: 66 20 5b 22 7e 74 6f 21 73 74 72 69 6e 67 28 70 f ["~to!string(p
0db0: 6f 73 29 7e 22 5d 22 29 3b 0d 0a 09 7d 29 29 3b os)~"]");...}));
0dc0: 0d 0a 09 72 65 74 75 72 6e 20 63 74 78 3b 0d 0a ...return ctx;..
0dd0: 7d 0d 0a 0d 0a 54 75 70 6c 65 21 28 56 61 6c 75 }....Tuple!(Valu
0de0: 65 2c 22 76 61 6c 22 2c 43 6f 6e 74 65 78 74 2c e,"val",Context,
0df0: 22 63 74 78 22 29 20 65 76 61 6c 53 74 72 69 6e "ctx") evalStrin
0e00: 67 28 54 2e 2e 2e 29 28 54 20 70 61 72 61 6d 73 g(T...)(T params
0e10: 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 65 76 )..{...return ev
0e20: 61 6c 28 20 70 61 72 73 65 72 46 72 6f 6d 53 74 al( parserFromSt
0e30: 72 69 6e 67 28 70 61 72 61 6d 73 29 2e 70 61 72 ring(params).par
0e40: 73 65 50 72 6f 67 72 61 6d 28 29 20 29 3b 0d 0a seProgram() );..
0e50: 7d 0d 0a 0d 0a 54 75 70 6c 65 21 28 56 61 6c 75 }....Tuple!(Valu
0e60: 65 2c 22 76 61 6c 22 2c 43 6f 6e 74 65 78 74 2c e,"val",Context,
0e70: 22 63 74 78 22 29 20 65 76 61 6c 46 69 6c 65 28 "ctx") evalFile(
0e80: 54 2e 2e 2e 29 28 54 20 70 61 72 61 6d 73 29 0d T...)(T params).
0e90: 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 65 76 61 6c .{...return eval
0ea0: 28 20 70 61 72 73 65 72 46 72 6f 6d 46 69 6c 65 ( parserFromFile
0eb0: 28 70 61 72 61 6d 73 29 2e 70 61 72 73 65 50 72 (params).parsePr
0ec0: 6f 67 72 61 6d 28 29 20 29 3b 0d 0a 7d 0d 0a 0d ogram() );..}...
0ed0: 0a 54 75 70 6c 65 21 28 56 61 6c 75 65 2c 22 76 .Tuple!(Value,"v
0ee0: 61 6c 22 2c 43 6f 6e 74 65 78 74 2c 22 63 74 78 al",Context,"ctx
0ef0: 22 29 20 65 76 61 6c 28 50 72 6f 67 72 61 6d 20 ") eval(Program
0f00: 70 72 6f 67 29 0d 0a 7b 0d 0a 09 43 6f 6e 74 65 prog)..{...Conte
0f10: 78 74 20 63 74 78 20 3d 20 63 72 65 61 74 65 47 xt ctx = createG
0f20: 6c 6f 62 61 6c 43 6f 6e 74 65 78 74 28 29 3b 0d lobalContext();.
0f30: 0a 09 72 65 74 75 72 6e 20 74 79 70 65 6f 66 28 ..return typeof(
0f40: 72 65 74 75 72 6e 29 28 65 76 61 6c 28 70 72 6f return)(eval(pro
0f50: 67 2c 20 63 74 78 29 2c 20 63 74 78 29 3b 0d 0a g, ctx), ctx);..
0f60: 7d 0d 0a 0d 0a 56 61 6c 75 65 20 65 76 61 6c 28 }....Value eval(
0f70: 50 72 6f 67 72 61 6d 20 70 72 6f 67 2c 20 43 6f Program prog, Co
0f80: 6e 74 65 78 74 20 63 74 78 29 0d 0a 7b 0d 0a 09 ntext ctx)..{...
0f90: 56 61 6c 75 65 20 76 20 3d 20 6e 65 77 20 55 6e Value v = new Un
0fa0: 64 65 66 69 6e 65 64 56 61 6c 75 65 3b 0d 0a 09 definedValue;...
0fb0: 66 6f 72 65 61 63 68 28 73 3b 20 70 72 6f 67 29 foreach(s; prog)
0fc0: 0d 0a 09 09 76 20 3d 20 65 76 61 6c 28 73 2c 20 ....v = eval(s,
0fd0: 63 74 78 29 3b 0d 0a 09 72 65 74 75 72 6e 20 76 ctx);...return v
0fe0: 3b 0d 0a 7d 0d 0a 0d 0a 56 61 6c 75 65 20 65 76 ;..}....Value ev
0ff0: 61 6c 28 53 74 61 74 65 6d 65 6e 74 20 5f 73 2c al(Statement _s,
1000: 20 43 6f 6e 74 65 78 74 20 63 74 78 29 0d 0a 7b Context ctx)..{
1010: 0d 0a 09 69 66 28 20 61 75 74 6f 20 73 20 3d 20 ...if( auto s =
1020: 63 61 73 74 28 44 65 63 6c 53 74 61 74 65 6d 65 cast(DeclStateme
1030: 6e 74 29 5f 73 20 29 0d 0a 09 7b 0d 0a 09 09 61 nt)_s )...{....a
1040: 75 74 6f 20 76 20 3d 20 65 76 61 6c 28 73 2e 65 uto v = eval(s.e
1050: 78 70 72 2c 20 63 74 78 29 3b 0d 0a 09 09 63 74 xpr, ctx);....ct
1060: 78 2e 61 64 64 28 73 2e 76 61 72 2c 20 76 29 3b x.add(s.var, v);
1070: 0d 0a 09 09 72 65 74 75 72 6e 20 76 3b 0d 0a 09 ....return v;...
1080: 7d 0d 0a 09 65 6c 73 65 0d 0a 09 69 66 28 20 61 }...else...if( a
1090: 75 74 6f 20 73 20 3d 20 63 61 73 74 28 45 78 70 uto s = cast(Exp
10a0: 72 53 74 61 74 65 6d 65 6e 74 29 5f 73 20 29 0d rStatement)_s ).
10b0: 0a 09 7b 0d 0a 09 09 72 65 74 75 72 6e 20 65 76 ..{....return ev
10c0: 61 6c 28 73 2e 65 78 70 72 2c 20 63 74 78 29 3b al(s.expr, ctx);
10d0: 0d 0a 09 7d 0d 0a 09 74 68 72 6f 77 20 6e 65 77 ...}...throw new
10e0: 20 50 6f 6c 65 6d 79 52 75 6e 74 69 6d 65 45 78 PolemyRuntimeEx
10f0: 63 65 70 74 69 6f 6e 28 73 70 72 69 6e 74 66 21 ception(sprintf!
1100: 22 55 6e 6b 6e 6f 77 6e 20 4b 69 6e 64 20 6f 66 "Unknown Kind of
1110: 20 53 74 61 74 65 6d 65 6e 74 20 25 73 20 61 74 Statement %s at
1120: 20 5b 25 73 5d 22 28 74 79 70 65 69 64 28 5f 73 [%s]"(typeid(_s
1130: 29 2c 20 5f 73 2e 70 6f 73 29 29 3b 0d 0a 7d 0d ), _s.pos));..}.
1140: 0a 0d 0a 56 61 6c 75 65 20 65 76 61 6c 28 45 78 ...Value eval(Ex
1150: 70 72 65 73 73 69 6f 6e 20 5f 65 2c 20 43 6f 6e pression _e, Con
1160: 74 65 78 74 20 63 74 78 29 0d 0a 7b 0d 0a 09 69 text ctx)..{...i
1170: 66 28 20 61 75 74 6f 20 65 20 3d 20 63 61 73 74 f( auto e = cast
1180: 28 53 74 72 4c 69 74 65 72 61 6c 45 78 70 72 65 (StrLiteralExpre
1190: 73 73 69 6f 6e 29 5f 65 20 29 0d 0a 09 7b 0d 0a ssion)_e )...{..
11a0: 09 09 72 65 74 75 72 6e 20 6e 65 77 20 53 74 72 ..return new Str
11b0: 56 61 6c 75 65 28 65 2e 64 61 74 61 29 3b 0d 0a Value(e.data);..
11c0: 09 7d 0d 0a 09 65 6c 73 65 0d 0a 09 69 66 28 20 .}...else...if(
11d0: 61 75 74 6f 20 65 20 3d 20 63 61 73 74 28 49 6e auto e = cast(In
11e0: 74 4c 69 74 65 72 61 6c 45 78 70 72 65 73 73 69 tLiteralExpressi
11f0: 6f 6e 29 5f 65 20 29 0d 0a 09 7b 0d 0a 09 09 72 on)_e )...{....r
1200: 65 74 75 72 6e 20 6e 65 77 20 49 6e 74 56 61 6c eturn new IntVal
1210: 75 65 28 65 2e 64 61 74 61 29 3b 0d 0a 09 7d 0d ue(e.data);...}.
1220: 0a 09 65 6c 73 65 0d 0a 09 69 66 28 20 61 75 74 ..else...if( aut
1230: 6f 20 65 20 3d 20 63 61 73 74 28 56 61 72 45 78 o e = cast(VarEx
1240: 70 72 65 73 73 69 6f 6e 29 5f 65 20 29 0d 0a 09 pression)_e )...
1250: 7b 0d 0a 09 09 72 65 74 75 72 6e 20 63 74 78 5b {....return ctx[
1260: 65 2e 76 61 72 5d 3b 0d 0a 09 7d 0d 0a 09 65 6c e.var];...}...el
1270: 73 65 0d 0a 09 69 66 28 20 61 75 74 6f 20 65 20 se...if( auto e
1280: 3d 20 63 61 73 74 28 41 73 73 69 67 6e 45 78 70 = cast(AssignExp
1290: 72 65 73 73 69 6f 6e 29 5f 65 20 29 0d 0a 09 7b ression)_e )...{
12a0: 0d 0a 09 09 69 66 28 20 61 75 74 6f 20 65 76 20 ....if( auto ev
12b0: 3d 20 63 61 73 74 28 56 61 72 45 78 70 72 65 73 = cast(VarExpres
12c0: 73 69 6f 6e 29 65 2e 6c 68 73 20 29 0d 0a 09 09 sion)e.lhs )....
12d0: 7b 0d 0a 09 09 09 56 61 6c 75 65 20 72 20 3d 20 {.....Value r =
12e0: 65 76 61 6c 28 65 2e 72 68 73 2c 20 63 74 78 29 eval(e.rhs, ctx)
12f0: 3b 0d 0a 09 09 09 63 74 78 5b 65 76 2e 76 61 72 ;.....ctx[ev.var
1300: 5d 20 3d 20 72 3b 0d 0a 09 09 09 72 65 74 75 72 ] = r;.....retur
1310: 6e 20 72 3b 0d 0a 09 09 7d 0d 0a 09 09 74 68 72 n r;....}....thr
1320: 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e ow new PolemyRun
1330: 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 73 70 timeException(sp
1340: 72 69 6e 74 66 21 22 4c 68 73 20 6f 66 20 61 73 rintf!"Lhs of as
1350: 73 69 67 6e 6d 65 6e 74 20 6d 75 73 74 20 62 65 signment must be
1360: 20 61 20 76 61 72 69 61 62 6c 65 3a 20 25 73 22 a variable: %s"
1370: 28 65 2e 70 6f 73 29 29 3b 0d 0a 09 7d 0d 0a 09 (e.pos));...}...
1380: 65 6c 73 65 0d 0a 09 69 66 28 20 61 75 74 6f 20 else...if( auto
1390: 65 20 3d 20 63 61 73 74 28 46 75 6e 63 61 6c 6c e = cast(Funcall
13a0: 45 78 70 72 65 73 73 69 6f 6e 29 5f 65 20 29 0d Expression)_e ).
13b0: 0a 09 7b 0d 0a 09 09 56 61 6c 75 65 20 5f 66 20 ..{....Value _f
13c0: 3d 20 65 76 61 6c 28 65 2e 66 75 6e 2c 20 63 74 = eval(e.fun, ct
13d0: 78 29 3b 0d 0a 09 09 69 66 28 20 61 75 74 6f 20 x);....if( auto
13e0: 66 20 3d 20 63 61 73 74 28 46 75 6e 56 61 6c 75 f = cast(FunValu
13f0: 65 29 5f 66 20 29 20 7b 0d 0a 09 09 09 56 61 6c e)_f ) {.....Val
1400: 75 65 5b 5d 20 61 72 67 73 3b 0d 0a 09 09 09 66 ue[] args;.....f
1410: 6f 72 65 61 63 68 28 61 3b 20 65 2e 61 72 67 73 oreach(a; e.args
1420: 29 0d 0a 09 09 09 09 61 72 67 73 20 7e 3d 20 65 )......args ~= e
1430: 76 61 6c 28 61 2c 20 63 74 78 29 3b 0d 0a 09 09 val(a, ctx);....
1440: 09 72 65 74 75 72 6e 20 66 2e 63 61 6c 6c 28 65 .return f.call(e
1450: 2e 70 6f 73 2c 20 61 72 67 73 29 3b 0d 0a 09 09 .pos, args);....
1460: 7d 20 65 6c 73 65 0d 0a 09 09 09 74 68 72 6f 77 } else.....throw
1470: 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 69 new PolemyRunti
1480: 6d 65 45 78 63 65 70 74 69 6f 6e 28 73 70 72 69 meException(spri
1490: 6e 74 66 21 22 4e 6f 6e 2d 66 75 6e 63 69 6f 6e ntf!"Non-funcion
14a0: 20 69 73 20 61 70 70 6c 69 65 64 20 61 74 20 5b is applied at [
14b0: 25 73 5d 22 28 65 2e 70 6f 73 29 29 3b 0d 0a 09 %s]"(e.pos));...
14c0: 7d 0d 0a 09 65 6c 73 65 0d 0a 09 69 66 28 20 61 }...else...if( a
14d0: 75 74 6f 20 65 20 3d 20 63 61 73 74 28 46 75 6e uto e = cast(Fun
14e0: 4c 69 74 65 72 61 6c 45 78 70 72 65 73 73 69 6f LiteralExpressio
14f0: 6e 29 5f 65 20 29 0d 0a 09 7b 0d 0a 09 09 72 65 n)_e )...{....re
1500: 74 75 72 6e 20 6e 65 77 20 46 75 6e 56 61 6c 75 turn new FunValu
1510: 65 28 64 65 6c 65 67 61 74 65 20 56 61 6c 75 65 e(delegate Value
1520: 28 69 6d 6d 75 74 61 62 6c 65 20 4c 65 78 50 6f (immutable LexPo
1530: 73 69 74 69 6f 6e 20 70 6f 73 2c 20 56 61 6c 75 sition pos, Valu
1540: 65 5b 5d 20 61 72 67 73 29 7b 0d 0a 09 09 09 69 e[] args){.....i
1550: 66 28 20 65 2e 70 61 72 61 6d 73 2e 6c 65 6e 67 f( e.params.leng
1560: 74 68 20 21 3d 20 61 72 67 73 2e 6c 65 6e 67 74 th != args.lengt
1570: 68 20 29 0d 0a 09 09 09 09 74 68 72 6f 77 20 6e h )......throw n
1580: 65 77 20 50 6f 6c 65 6d 79 52 75 6e 74 69 6d 65 ew PolemyRuntime
1590: 45 78 63 65 70 74 69 6f 6e 28 73 70 72 69 6e 74 Exception(sprint
15a0: 66 21 22 41 72 67 75 6d 65 6e 74 20 4e 75 6d 62 f!"Argument Numb
15b0: 65 72 20 4d 69 73 6d 61 74 63 68 20 28 25 64 20 er Mismatch (%d
15c0: 72 65 71 75 69 72 65 64 20 62 75 74 20 25 64 20 required but %d
15d0: 67 69 76 65 6e 29 20 61 74 20 5b 25 73 5d 22 0d given) at [%s]".
15e0: 0a 09 09 09 09 09 28 65 2e 70 61 72 61 6d 73 2e ......(e.params.
15f0: 6c 65 6e 67 74 68 2c 20 61 72 67 73 2e 6c 65 6e length, args.len
1600: 67 74 68 2c 20 65 2e 70 6f 73 29 29 3b 0d 0a 09 gth, e.pos));...
1610: 09 09 43 6f 6e 74 65 78 74 20 63 74 78 4e 65 6f ..Context ctxNeo
1620: 20 3d 20 6e 65 77 20 43 6f 6e 74 65 78 74 28 63 = new Context(c
1630: 74 78 29 3b 0d 0a 09 09 09 66 6f 72 65 61 63 68 tx);.....foreach
1640: 28 69 2c 70 3b 20 65 2e 70 61 72 61 6d 73 29 0d (i,p; e.params).
1650: 0a 09 09 09 09 63 74 78 4e 65 6f 2e 61 64 64 28 .....ctxNeo.add(
1660: 70 2c 20 61 72 67 73 5b 69 5d 29 3b 0d 0a 09 09 p, args[i]);....
1670: 09 72 65 74 75 72 6e 20 65 76 61 6c 28 65 2e 66 .return eval(e.f
1680: 75 6e 62 6f 64 79 2c 20 63 74 78 4e 65 6f 29 3b unbody, ctxNeo);
1690: 0d 0a 09 09 7d 29 3b 0d 0a 09 7d 0d 0a 09 74 68 ....});...}...th
16a0: 72 6f 77 20 6e 65 77 20 50 6f 6c 65 6d 79 52 75 row new PolemyRu
16b0: 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e 28 73 ntimeException(s
16c0: 70 72 69 6e 74 66 21 22 55 6e 6b 6e 6f 77 6e 20 printf!"Unknown
16d0: 4b 69 6e 64 20 6f 66 20 45 78 70 72 65 73 73 69 Kind of Expressi
16e0: 6f 6e 20 25 73 20 61 74 20 5b 25 73 5d 22 28 74 on %s at [%s]"(t
16f0: 79 70 65 69 64 28 5f 65 29 2c 20 5f 65 2e 70 6f ypeid(_e), _e.po
1700: 73 29 29 3b 0d 0a 7d 0d 0a 0d 0a 69 6d 70 6f 72 s));..}....impor
1710: 74 20 73 74 64 2e 73 74 64 69 6f 3b 0d 0a 75 6e t std.stdio;..un
1720: 69 74 74 65 73 74 0d 0a 7b 0d 0a 09 61 75 74 6f ittest..{...auto
1730: 20 72 20 3d 20 65 76 61 6c 53 74 72 69 6e 67 28 r = evalString(
1740: 60 76 61 72 20 78 20 3d 20 32 31 3b 20 78 20 3d `var x = 21; x =
1750: 20 78 20 2b 20 78 2a 78 3b 60 29 3b 0d 0a 09 61 x + x*x;`);...a
1760: 73 73 65 72 74 28 20 72 2e 76 61 6c 20 3d 3d 20 ssert( r.val ==
1770: 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 new IntValue(Big
1780: 49 6e 74 28 32 31 2b 32 31 2a 32 31 29 29 20 29 Int(21+21*21)) )
1790: 3b 0d 0a 09 61 73 73 65 72 74 28 20 72 2e 63 74 ;...assert( r.ct
17a0: 78 5b 22 78 22 5d 20 3d 3d 20 6e 65 77 20 49 6e x["x"] == new In
17b0: 74 56 61 6c 75 65 28 42 69 67 49 6e 74 28 32 31 tValue(BigInt(21
17c0: 2b 32 31 2a 32 31 29 29 20 29 3b 0d 0a 09 61 73 +21*21)) );...as
17d0: 73 65 72 74 28 20 21 63 6f 6c 6c 65 63 74 45 78 sert( !collectEx
17e0: 63 65 70 74 69 6f 6e 28 72 2e 63 74 78 5b 22 78 ception(r.ctx["x
17f0: 22 5d 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 "]) );...assert(
1800: 20 63 6f 6c 6c 65 63 74 45 78 63 65 70 74 69 6f collectExceptio
1810: 6e 28 72 2e 63 74 78 5b 22 79 22 5d 29 20 29 3b n(r.ctx["y"]) );
1820: 0d 0a 7d 0d 0a 75 6e 69 74 74 65 73 74 0d 0a 7b ..}..unittest..{
1830: 0d 0a 09 61 73 73 65 72 74 28 20 63 6f 6c 6c 65 ...assert( colle
1840: 63 74 45 78 63 65 70 74 69 6f 6e 28 65 76 61 6c ctException(eval
1850: 53 74 72 69 6e 67 28 60 76 61 72 20 78 20 3d 20 String(`var x =
1860: 32 31 3b 20 78 20 3d 20 78 20 2b 20 78 2a 79 3b 21; x = x + x*y;
1870: 60 29 29 20 29 3b 0d 0a 09 61 73 73 65 72 74 28 `)) );...assert(
1880: 20 63 6f 6c 6c 65 63 74 45 78 63 65 70 74 69 6f collectExceptio
1890: 6e 28 65 76 61 6c 53 74 72 69 6e 67 28 60 78 3d n(evalString(`x=
18a0: 31 3b 60 29 29 20 29 3b 0d 0a 7d 0d 0a 75 6e 69 1;`)) );..}..uni
18b0: 74 74 65 73 74 0d 0a 7b 0d 0a 09 61 75 74 6f 20 ttest..{...auto
18c0: 72 20 3d 20 65 76 61 6c 53 74 72 69 6e 67 28 60 r = evalString(`
18d0: 76 61 72 20 78 20 3d 20 66 75 6e 28 61 29 7b 31 var x = fun(a){1
18e0: 2b 61 3b 7d 28 32 29 3b 60 29 3b 0d 0a 09 61 73 +a;}(2);`);...as
18f0: 73 65 72 74 28 20 72 2e 63 74 78 5b 22 78 22 5d sert( r.ctx["x"]
1900: 20 3d 3d 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 == new IntValue
1910: 28 42 69 67 49 6e 74 28 33 29 29 20 29 3b 0d 0a (BigInt(3)) );..
1920: 09 61 73 73 65 72 74 28 20 72 2e 76 61 6c 20 3d .assert( r.val =
1930: 3d 20 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 = new IntValue(B
1940: 69 67 49 6e 74 28 33 29 29 20 29 3b 0d 0a 7d 0d igInt(3)) );..}.
1950: 0a 75 6e 69 74 74 65 73 74 0d 0a 7b 0d 0a 09 61 .unittest..{...a
1960: 75 74 6f 20 72 20 3d 20 65 76 61 6c 53 74 72 69 uto r = evalStri
1970: 6e 67 28 60 76 61 72 20 78 20 3d 20 31 3b 20 76 ng(`var x = 1; v
1980: 61 72 20 66 20 3d 20 66 75 6e 28 29 7b 78 3d 78 ar f = fun(){x=x
1990: 2b 31 3b 7d 3b 20 66 28 29 3b 20 66 28 29 3b 20 +1;}; f(); f();
19a0: 66 28 29 3b 60 29 3b 0d 0a 09 61 73 73 65 72 74 f();`);...assert
19b0: 28 20 72 2e 63 74 78 5b 22 78 22 5d 20 3d 3d 20 ( r.ctx["x"] ==
19c0: 6e 65 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 new IntValue(Big
19d0: 49 6e 74 28 34 29 29 20 29 3b 0d 0a 09 61 73 73 Int(4)) );...ass
19e0: 65 72 74 28 20 72 2e 76 61 6c 20 3d 3d 20 6e 65 ert( r.val == ne
19f0: 77 20 49 6e 74 56 61 6c 75 65 28 42 69 67 49 6e w IntValue(BigIn
1a00: 74 28 34 29 29 20 29 3b 0d 0a 7d 0d 0a 75 6e 69 t(4)) );..}..uni
1a10: 74 74 65 73 74 0d 0a 7b 0d 0a 09 65 76 61 6c 53 ttest..{...evalS
1a20: 74 72 69 6e 67 28 60 70 72 69 6e 74 28 22 48 65 tring(`print("He
1a30: 6c 6c 6f 2c 20 77 6f 72 6c 64 21 22 29 3b 60 29 llo, world!");`)
1a40: 3b 0d 0a 09 65 76 61 6c 53 74 72 69 6e 67 28 60 ;...evalString(`
1a50: 70 72 69 6e 74 28 66 75 6e 28 29 7b 7d 29 3b 60 print(fun(){});`
1a60: 29 3b 0d 0a 7d 0d 0a 75 6e 69 74 74 65 73 74 0d );..}..unittest.
1a70: 0a 7b 0d 0a 09 65 76 61 6c 53 74 72 69 6e 67 28 .{...evalString(
1a80: 60 76 61 72 20 66 61 63 20 3d 20 66 75 6e 28 78 `var fac = fun(x
1a90: 29 7b 0d 0a 09 09 31 3b 0d 0a 09 7d 3b 0d 0a 09 ){....1;...};...
1aa0: 70 72 69 6e 74 28 66 61 63 28 33 29 29 3b 60 29 print(fac(3));`)
1ab0: 3b 0d 0a 09 65 76 61 6c 53 74 72 69 6e 67 28 60 ;...evalString(`
1ac0: 76 61 72 20 66 61 63 20 3d 20 66 75 6e 28 78 29 var fac = fun(x)
1ad0: 7b 0d 0a 09 09 69 66 28 78 29 0d 0a 09 09 09 7b {....if(x).....{
1ae0: 20 78 2a 66 61 63 28 78 2d 31 29 3b 20 7d 0d 0a x*fac(x-1); }..
1af0: 09 09 65 6c 73 65 0d 0a 09 09 09 7b 20 31 3b 20 ..else.....{ 1;
1b00: 7d 3b 0d 0a 09 7d 3b 0d 0a 09 70 72 69 6e 74 28 };...};...print(
1b10: 66 61 63 28 31 30 29 29 3b 60 29 3b 0d 0a 09 65 fac(10));`);...e
1b20: 76 61 6c 53 74 72 69 6e 67 28 60 76 61 72 20 66 valString(`var f
1b30: 69 62 20 3d 20 66 75 6e 28 78 29 7b 0d 0a 09 09 ib = fun(x){....
1b40: 69 66 28 78 3c 32 29 0d 0a 09 09 09 7b 20 31 3b if(x<2).....{ 1;
1b50: 20 7d 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 09 7b }....else.....{
1b60: 20 66 69 62 28 78 2d 31 29 20 2b 20 66 69 62 28 fib(x-1) + fib(
1b70: 78 2d 32 29 3b 20 7d 3b 0d 0a 09 7d 3b 0d 0a 09 x-2); };...};...
1b80: 70 72 69 6e 74 28 66 69 62 28 31 30 29 29 3b 60 print(fib(10));`
1b90: 29 3b 0d 0a 7d 0d 0a );..}..