Changeset 35669

Timestamp:

10/21/09 22:08:26 (4 years ago)

Author:

hoge1e3

Message:

 

Location:

lang/haxe/Tonyu2

Files:

• Parser.hx (modified) (1 diff)
• Test.hx (modified) (1 diff)

lang/haxe/Tonyu2/Parser.hx

@@ -53 +53 @@
         static function startsWith(s:String,head:String):Bool {
             return s.substr(0,head.length)==head;
+        }
+        public function parse(m:Dynamic):Dynamic {
+                return toClosure(m)(this);
         }
         public function toClosure(match:Dynamic):ParserSub {

lang/haxe/Tonyu2/Test.hx

@@ -1 +1 @@
 
-class TestParser extends Parser {
-        static var alpha=~/^[a-z]+/;
-        public function new(src:String) {super(src);}
-        public function parse() {
-                var res=parseSeq([alpha,alpha]);
-                var r;
-                for (r in res) {
-                        trace("found :"+r);
-                }
+class Context {
+    var vars:Hash<String>;
+        public function new() {
+           vars=new Hash<String>();
+           buf=new Array<String>();
+        }
+        public function checkVar(s:String) {
+           vars.set(s,"Dynamic");
+        }
+        var buf:Array<String>;
+        public function out(s:String) {
+           buf.push(s);
         }
 }
+typedef Ar=Array<Dynamic>;
+typedef Gen={pass1:Context->Void, gen:Context->Void};
 class Test {
+    static function nop(c:Context){}
+    static function pass1(g:Gen) {return funciton(c:Context){g.pass1(c);}}
+    static function elem(t:Parser) {
+           return parse(t.tryThese(const,_var));
+        }
+        static function const(t:Parser) {
+                var r=t.parse(~/^[0-9]+/);
+                return {pass1:nop, gen:function (c){c.out(r);}};
+        }
+        static function _var(t:Parser) {
+            var r:String=t.parse(~/^[a-z]+/);
+                return {
+                  pass1:function (c) {c.checkVar(r);},
+                  gen:function (c) {c.out(r);}
+                };
+        }
+        static function expr (t:Parser) {
+                var r=t.parseSeq([elem, t.rept0([~/\+\-/,elem]) ]);
+                var res:Gen=r[0];
+                var p:Ar   =r[1];
+                return {
+                  pass1:pass1(res),
+                  gen:function (c) {
+                        var x:Ar;
+                        for (x in p) {
+                           c.out(x[0]);
+                           x[1].gen(c);
+                           res=res+cast(x[1],Int);
+                        }
+                  }
+                };
+        }
         static function main() {
-                new TestParser(" (1+2)*3 ").parse();
+                
+                trace( new Parser(" x=5;  y=x+20;").parse(expr) );
                 //System.Console.Write("Test");
         }