Artifact d5ef45952651bda8bde2f762a41dc253341753f7:
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 28 68 74 74 70 3a 2f 2f 77 77 77 2e 6b 6d 2 (http://www.km
0040: 6f 6e 6f 73 2e 6e 65 74 2f 6e 79 73 6c 2f 0d 0a onos.net/nysl/..
0050: 20 2a 0d 0a 20 2a 20 45 6e 74 72 79 20 70 6f 69 *.. * Entry poi
0060: 6e 74 20 66 6f 72 20 50 6f 6c 65 6d 79 20 69 6e nt for Polemy in
0070: 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 2a 2f 0d terpreter... */.
0080: 0a 0d 0a 69 6d 70 6f 72 74 20 73 74 64 2e 73 74 ...import std.st
0090: 64 69 6f 3b 0d 0a 69 6d 70 6f 72 74 20 73 74 64 dio;..import std
00a0: 2e 61 6c 67 6f 72 69 74 68 6d 3b 0d 0a 69 6d 70 .algorithm;..imp
00b0: 6f 72 74 20 70 6f 6c 65 6d 79 2e 76 61 6c 75 65 ort polemy.value
00c0: 3b 0d 0a 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 ;..import polemy
00d0: 2e 6c 65 78 3b 0d 0a 69 6d 70 6f 72 74 20 70 6f .lex;..import po
00e0: 6c 65 6d 79 2e 70 61 72 73 65 3b 0d 0a 69 6d 70 lemy.parse;..imp
00f0: 6f 72 74 20 70 6f 6c 65 6d 79 2e 61 73 74 3b 0a ort polemy.ast;.
0100: 69 6d 70 6f 72 74 20 70 6f 6c 65 6d 79 2e 65 76 import polemy.ev
0110: 61 6c 3b 0d 0a 0d 0a 2f 2f 2f 20 54 65 6e 75 6b al;..../// Tenuk
0120: 69 20 52 65 61 64 2d 45 76 61 6c 2d 50 72 69 6e i Read-Eval-Prin
0130: 74 2d 4c 6f 6f 70 0d 0a 63 6c 61 73 73 20 52 45 t-Loop..class RE
0140: 50 4c 0d 0a 7b 0d 0a 09 54 61 62 6c 65 20 63 74 PL..{...Table ct
0150: 78 3b 0d 0a 09 73 74 72 69 6e 67 20 62 75 66 3b x;...string buf;
0160: 0d 0a 09 56 61 6c 75 65 20 20 6c 61 73 74 56 61 ...Value lastVa
0170: 6c 3b 0d 0a 09 69 6e 74 20 6c 69 6e 65 6e 6f 20 l;...int lineno
0180: 3d 20 31 3b 0d 0a 09 69 6e 74 20 6e 65 78 74 6c = 1;...int nextl
0190: 69 6e 65 6e 6f 20 3d 20 31 3b 0d 0a 09 74 68 69 ineno = 1;...thi
01a0: 73 28 29 20 7b 20 63 74 78 20 3d 20 63 72 65 61 s() { ctx = crea
01b0: 74 65 47 6c 6f 62 61 6c 43 6f 6e 74 65 78 74 28 teGlobalContext(
01c0: 29 3b 20 7d 0d 0a 09 74 68 69 73 28 73 74 72 69 ); }...this(stri
01d0: 6e 67 20 66 69 6c 65 6e 61 6d 65 29 20 7b 0d 0a ng filename) {..
01e0: 09 09 63 74 78 20 3d 20 63 72 65 61 74 65 47 6c ..ctx = createGl
01f0: 6f 62 61 6c 43 6f 6e 74 65 78 74 28 29 3b 0d 0a obalContext();..
0200: 09 09 65 76 61 6c 28 70 61 72 73 65 46 69 6c 65 ..eval(parseFile
0210: 28 66 69 6c 65 6e 61 6d 65 29 2c 20 63 74 78 2c (filename), ctx,
0220: 20 66 61 6c 73 65 2c 20 22 40 76 22 29 3b 0d 0a false, "@v");..
0230: 09 7d 0d 0a 0d 0a 09 62 6f 6f 6c 20 74 72 79 52 .}.....bool tryR
0240: 75 6e 28 20 73 74 72 69 6e 67 20 73 20 29 0d 0a un( string s )..
0250: 09 7b 0d 0a 09 09 73 63 6f 70 65 28 66 61 69 6c .{....scope(fail
0260: 75 72 65 29 0d 0a 09 09 09 7b 20 62 75 66 20 3d ure).....{ buf =
0270: 20 22 22 3b 20 6c 69 6e 65 6e 6f 20 3d 20 6e 65 ""; lineno = ne
0280: 78 74 6c 69 6e 65 6e 6f 3b 20 7d 0d 0a 0d 0a 09 xtlineno; }.....
0290: 09 62 75 66 20 7e 3d 20 73 3b 0d 0a 09 09 6e 65 .buf ~= s;....ne
02a0: 78 74 6c 69 6e 65 6e 6f 20 2b 2b 3b 0d 0a 09 09 xtlineno ++;....
02b0: 74 72 79 20 0d 0a 09 09 09 7b 20 6c 61 73 74 56 try .....{ lastV
02c0: 61 6c 20 3d 20 65 76 61 6c 28 70 61 72 73 65 53 al = eval(parseS
02d0: 74 72 69 6e 67 28 62 75 66 2c 20 22 3c 52 45 50 tring(buf, "<REP
02e0: 4c 3e 22 2c 20 6c 69 6e 65 6e 6f 29 2c 20 63 74 L>", lineno), ct
02f0: 78 2c 20 66 61 6c 73 65 2c 20 22 40 76 22 29 3b x, false, "@v");
0300: 20 7d 0d 0a 09 09 63 61 74 63 68 28 20 55 6e 65 }....catch( Une
0310: 78 70 65 63 74 65 64 45 4f 46 20 29 0d 0a 09 09 xpectedEOF )....
0320: 09 7b 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b .{ return false;
0330: 20 7d 20 2f 2f 20 77 61 69 74 0d 0a 09 09 62 75 } // wait....bu
0340: 66 20 3d 20 22 22 3b 0d 0a 09 09 6c 69 6e 65 6e f = "";....linen
0350: 6f 20 3d 20 6e 65 78 74 6c 69 6e 65 6e 6f 3b 0d o = nextlineno;.
0360: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0d ...return true;.
0370: 0a 09 7d 0d 0a 0d 0a 09 62 6f 6f 6c 20 73 69 6e ..}.....bool sin
0380: 67 6c 65 49 6e 74 65 72 61 63 74 69 6f 6e 28 29 gleInteraction()
0390: 0d 0a 09 7b 0d 0a 09 09 77 72 69 74 65 66 28 22 ...{....writef("
03a0: 3e 3e 20 22 2c 20 6c 69 6e 65 6e 6f 29 3b 0d 0a >> ", lineno);..
03b0: 09 09 73 74 72 69 6e 67 20 6c 69 6e 65 20 3d 20 ..string line =
03c0: 72 65 61 64 6c 6e 28 29 3b 0d 0a 09 09 69 66 28 readln();....if(
03d0: 20 6c 69 6e 65 2e 73 74 61 72 74 73 57 69 74 68 line.startsWith
03e0: 28 22 65 78 69 74 22 29 20 7c 7c 20 6c 69 6e 65 ("exit") || line
03f0: 2e 73 74 61 72 74 73 57 69 74 68 28 22 71 75 69 .startsWith("qui
0400: 74 22 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e t") ).....return
0410: 20 66 61 6c 73 65 3b 0d 0a 09 09 74 72 79 20 7b false;....try {
0420: 0d 0a 09 09 09 69 66 28 20 74 72 79 52 75 6e 28 .....if( tryRun(
0430: 6c 69 6e 65 29 20 29 0d 0a 09 09 09 7b 0d 0a 09 line) ).....{...
0440: 09 09 09 2f 2f 20 66 6f 72 20 64 65 62 75 67 67 ...// for debugg
0450: 69 6e 67 2e 0d 0a 09 09 09 09 2f 2f 74 72 79 20 ing.......//try
0460: 7b 0d 0a 09 09 09 09 2f 2f 09 77 72 69 74 65 6c {......//.writel
0470: 6e 28 74 61 62 6c 65 54 6f 41 53 54 28 22 40 76 n(tableToAST("@v
0480: 22 2c 20 63 61 73 74 28 54 61 62 6c 65 29 6c 61 ", cast(Table)la
0490: 73 74 56 61 6c 29 29 3b 0d 0a 09 09 09 09 2f 2f stVal));......//
04a0: 7d 20 63 61 74 63 68 28 54 68 72 6f 77 61 62 6c } catch(Throwabl
04b0: 65 20 65 29 20 7b 0d 0a 09 09 09 09 2f 2f 09 77 e e) {......//.w
04c0: 72 69 74 65 6c 6e 28 65 29 3b 0d 0a 09 09 09 09 riteln(e);......
04d0: 2f 2f 7d 0d 0a 09 09 09 09 77 72 69 74 65 6c 6e //}......writeln
04e0: 28 6c 61 73 74 56 61 6c 29 3b 0d 0a 09 09 09 7d (lastVal);.....}
04f0: 0d 0a 09 09 7d 20 63 61 74 63 68 28 54 68 72 6f ....} catch(Thro
0500: 77 61 62 6c 65 20 65 29 20 7b 0d 0a 09 09 09 77 wable e) {.....w
0510: 72 69 74 65 6c 6e 28 65 29 3b 0d 0a 09 09 7d 0d riteln(e);....}.
0520: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0d ...return true;.
0530: 0a 09 7d 0d 0a 7d 0d 0a 0d 0a 2f 2f 2f 20 45 6e ..}..}..../// En
0540: 74 72 79 20 70 6f 69 6e 74 2e 20 49 66 20 61 72 try point. If ar
0550: 67 73 2e 6c 65 6e 67 74 68 3d 3d 31 2c 20 69 6e gs.length==1, in
0560: 76 6f 6b 65 20 52 45 50 4c 2e 0d 0a 2f 2f 2f 20 voke REPL...///
0570: 49 66 20 61 72 67 73 2e 6c 65 6e 67 74 68 3d 3d If args.length==
0580: 33 20 26 26 20 61 72 67 73 5b 31 5d 3d 3d 22 2d 3 && args[1]=="-
0590: 6c 22 20 72 65 61 64 20 61 72 67 73 5b 32 5d 20 l" read args[2]
05a0: 61 6e 64 20 69 6e 76 6f 6b 65 20 52 45 50 4c 2e and invoke REPL.
05b0: 0d 0a 2f 2f 2f 20 4f 74 68 65 72 77 69 73 65 20 ../// Otherwise
05c0: 69 6e 74 65 72 70 72 65 74 20 74 68 65 20 61 72 interpret the ar
05d0: 67 75 6d 65 6e 74 20 61 73 20 61 20 66 69 6c 65 gument as a file
05e0: 6e 61 6d 65 2e 0d 0a 76 6f 69 64 20 6d 61 69 6e name...void main
05f0: 28 20 73 74 72 69 6e 67 5b 5d 20 61 72 67 73 20 ( string[] args
0600: 29 0a 7b 0d 0a 09 69 66 28 20 61 72 67 73 2e 6c ).{...if( args.l
0610: 65 6e 67 74 68 20 3c 3d 20 31 20 29 0d 0a 09 7b ength <= 1 )...{
0620: 0d 0a 09 09 77 72 69 74 65 6c 6e 28 22 57 65 6c ....writeln("Wel
0630: 63 6f 6d 65 20 74 6f 20 50 6f 6c 65 6d 79 20 30 come to Polemy 0
0640: 2e 31 2e 30 22 29 3b 0d 0a 09 09 66 6f 72 28 61 .1.0");....for(a
0650: 75 74 6f 20 72 20 3d 20 6e 65 77 20 52 45 50 4c uto r = new REPL
0660: 3b 20 72 2e 73 69 6e 67 6c 65 49 6e 74 65 72 61 ; r.singleIntera
0670: 63 74 69 6f 6e 28 29 3b 29 20 7b 7d 0d 0a 09 7d ction();) {}...}
0680: 0d 0a 09 65 6c 73 65 20 69 66 28 20 61 72 67 73 ...else if( args
0690: 2e 6c 65 6e 67 74 68 3e 3d 33 20 26 26 20 61 72 .length>=3 && ar
06a0: 67 73 5b 31 5d 3d 3d 22 2d 6c 22 20 29 0d 0a 09 gs[1]=="-l" )...
06b0: 7b 0d 0a 09 09 77 72 69 74 65 6c 6e 28 22 57 65 {....writeln("We
06c0: 6c 63 6f 6d 65 20 74 6f 20 50 6f 6c 65 6d 79 20 lcome to Polemy
06d0: 30 2e 31 2e 30 22 29 3b 0d 0a 09 09 66 6f 72 28 0.1.0");....for(
06e0: 61 75 74 6f 20 72 20 3d 20 6e 65 77 20 52 45 50 auto r = new REP
06f0: 4c 28 61 72 67 73 5b 32 5d 29 3b 20 72 2e 73 69 L(args[2]); r.si
0700: 6e 67 6c 65 49 6e 74 65 72 61 63 74 69 6f 6e 28 ngleInteraction(
0710: 29 3b 29 20 7b 7d 0d 0a 09 7d 0d 0a 09 65 6c 73 );) {}...}...els
0720: 65 0d 0a 09 7b 0d 0a 09 09 65 76 61 6c 46 69 6c e...{....evalFil
0730: 65 28 61 72 67 73 5b 31 5d 29 3b 0d 0a 09 7d 0d e(args[1]);...}.
0740: 0a 7d 0d 0a .}..