appswarm 0.0.1

data/lib/appswarm/tools/http_tunnel_client.rb

@@ -0,0 +1,139 @@
+require 'net/https'
+require 'uri'
+require 'gserver'
+
+require 'http_tunnel_common.rb'
+
+require 'pp'
+
+class HTTPTunnelClient
+  
+  attr_accessor :socket
+  
+  class Server<GServer
+    def initialize(port,client)
+      super(port,"127.0.0.1",1)
+      @client=client
+    end
+    def serve(io)
+      puts "SERVE"
+      io.setsockopt(Socket::IPPROTO_TCP, Socket::TCP_NODELAY, 1)
+      @conn=io
+      puts "set sock"
+      @client.socket=io
+      puts "loop..."
+      receiveLoop
+      @client.socket=nil
+    end
+    def receiveLoop
+      begin
+       loop do
+       puts "recv..."
+       curdata=@conn.recv(101200)
+       puts "..."
+         if curdata.length>0
+           pp "GOT DATA (at #{@conn.addr}) #{curdata.length}"
+         else
+           puts "NO MORE DATA"
+           break
+         end
+         
+         @client.push(curdata)
+         
+       end
+      rescue Exception=>e
+        #glog e,e.backtrace,self
+        #unless e.inspect.to_s=="#<RuntimeError: stop>"
+          pp e,e.backtrace,self
+        #end
+      end
+
+    end
+  end
+  
+  def initialize(localPort,remoteHost,remotePort)
+    uri=URI.parse("https://#{remoteHost}:#{remotePort}/")
+    http = Net::HTTP.new(uri.host, uri.port)
+    http.verify_mode=OpenSSL::SSL::VERIFY_NONE
+    http.use_ssl = true if uri.scheme == "https"  # enable SSL/TLS
+    
+    @http=http
+    @socket=nil
+    @out=""
+    @in=[]
+    @mutex=Mutex.new
+    
+#    ops=
+    @gserver=Server.new(localPort,self)
+    @gserver.start
+    
+    Thread.new {
+      begin
+        loop do
+      check
+      
+      sleep 0.5
+      end
+      rescue Object=>e
+        pp e,e.backtrace
+      end
+    }
+  end
+  
+  def push(data)
+    @out+=data
+    check
+  end
+  
+  private
+  def check
+    #puts "check"
+    @mutex.synchronize {
+      #puts "send over http #{@out.length}"
+
+      res=@http.post("/",encode(@out))
+      #puts "got over http #{res.body.length}"
+      #pp res.body
+      if res.body.length>0
+        @in += decode(res.body)
+        
+      end
+      @out=""
+    }
+    write
+  end
+  
+  def write
+    @mutex.synchronize {
+      if @in.length>0 and @socket
+        @in.each{|i|
+        puts "socket out #{i.length}"
+          @socket.write(i)
+          @socket.flush
+        }
+        @in=[]
+        
+      end
+    }
+  end
+end
+
+HTTPTunnelClient.new(6666,"127.0.0.1",2443)
+sleep 100000
+
+exit
+
+uri = URI.parse('https://localhost:2443/')
+
+h=http
+http.start {
+
+  data="q=1234%&/)?"
+#  data=h.urlencode(data)
+  res=http.post("/",data) #{|res|
+    pp res #.body
+    pp res.body
+  #}
+#  http.request_get(uri.path) {|res|
+#  }
+}

data/lib/appswarm/tools/http_tunnel_common.rb

@@ -0,0 +1,8 @@
+def encode(str)
+  return [Marshal.dump(str)].pack("m")
+end
+
+def decode(str)
+  return Marshal.load(str.unpack("m")[0])
+end
+

data/lib/appswarm/tools/http_tunnel_server.rb

@@ -0,0 +1,78 @@
+require 'webrick'
+require 'webrick/https'
+require 'http_tunnel_common.rb'
+
+require 'pp'
+
+class HTTPSTunnelServer
+  include WEBrick
+  def initialize(destHost,destPort)
+    port=2443
+    
+    @s = HTTPServer.new(
+     :Port => port,
+     :BindAddress=>"127.0.0.1",
+    :SSLVerifyClient => ::OpenSSL::SSL::VERIFY_NONE, 
+    :SSLCertName => [],
+    :SSLEnable => true
+
+    )
+    
+    @socket=TCPSocket.new(destHost,destPort)
+    @socket.setsockopt(Socket::IPPROTO_TCP, Socket::TCP_NODELAY, 1)
+    
+    @mutex=Mutex.new
+    @out=[]
+    
+    Thread.new {readLoop}
+    
+    @s.mount_proc("/"){|req, res|
+            
+      if req.body
+        @socket.write(decode(req.body))
+      end
+      
+      #pp req.form_data
+      res["Content-Type"]="data/binary"
+      res.body=""
+      @mutex.synchronize {
+        if @out.length>0
+          res.body=encode(@out)
+          
+        end
+        @out=[]
+      }
+    }
+
+  end
+  
+  def run
+    trap("INT"){ @s.shutdown }
+    @s.start
+  end
+  
+  private
+  def readLoop
+    begin
+      loop do
+        curdata=@socket.recv(101200)
+        if curdata.length>0
+          #pp "GOT DATA (at #{@socket.addr}) #{curdata.length}"
+        else
+          #puts "NO MORE DATA"
+          break
+        end
+        @mutex.synchronize {
+          @out << curdata
+        }
+      end
+    rescue Object=>e
+      pp e,e.backtrace
+    end
+  end
+end
+
+
+s=HTTPSTunnelServer.new("127.0.0.1",22)
+s.run
+

data/lib/appswarm/tools/parser/example_data.simple

@@ -0,0 +1,102 @@
+{
+  "indexes" => {
+    :class => "{\n  \"ExampleObject\" => [\n    1,\n    2,\n    3\n  ]\n}",
+    :objectId => "{\n  1 => 92,\n  2 => 93,\n  3 => 94\n}"
+  },
+  "los" => {
+    9 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    47 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    85 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    28 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    66 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    76 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    19 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    57 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    38 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    10 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    48 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    86 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    29 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    67 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    20 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    58 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    1 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    39 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    77 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    87 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    30 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    68 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    11 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    49 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    21 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    59 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    2 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    40 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    78 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    31 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    69 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    12 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    50 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    88 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    3 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    41 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    79 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    22 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    60 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    32 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    70 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    13 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    51 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    89 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    4 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    42 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    80 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    23 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    61 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    14 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    52 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    90 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    33 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    71 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    43 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    81 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    24 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    62 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    5 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    15 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    53 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    91 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    34 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    72 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    82 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    63 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    25 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    6 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    44 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    92 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    16 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    54 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    35 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    73 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    45 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    7 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    26 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    64 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    83 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    93 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    17 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    74 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    36 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    55 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    27 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    8 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => 99,\n  \"@objectId\" => 1\n}\n]",
+    65 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]",
+    46 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    84 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    94 => "[\n  \"ExampleObject\",\n  3,\n  {\n  \"@objectId\" => 3\n}\n]",
+    75 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@objectId\" => 2\n}\n]",
+    37 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n  \"@objectId\" => 1\n}\n]",
+    18 => "[\n  \"ExampleObject\",\n  2,\n  {\n  \"@a\" => 70,\n  \"@objectId\" => 2\n}\n]",
+    56 => "[\n  \"ExampleObject\",\n  1,\n  {\n  \"@a\" => [\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 2\n  ),\n    (LocalObjectStorage::Marshal::MarshaledObject\n    :objectId => 3\n  )\n  ],\n  \"@objectId\" => 1\n}\n]"
+  }
+}

data/lib/appswarm/tools/parser/match_test.rb

@@ -0,0 +1,14 @@
+require 'pp'
+require 'rubygems'
+version = ">= 0"
+pp $KCODE
+gem 'rspec', version
+require 'spec'
+
+
+a="\"192 \300\""
+a=a[1..-1]
+a.each_byte{|b|pp b}
+x=/^(\\.|[^"\\])*/
+pp a,x
+pp a.match(x)

data/lib/appswarm/tools/parser/parser_lib.rb

@@ -0,0 +1,165 @@
+require 'ostruct'
+
+class Parser
+
+  class ParserContext
+    attr_reader :possible
+    attr_accessor :pos
+    def initialize(str,pos)
+      @str=str
+      @pos=pos
+      @possible=[]
+    end
+    def str
+      @str[@pos..-1]
+    end
+    
+    
+  end
+
+  ParsedElement=Struct.new(:type,:value,:block)
+
+  class ParsedElement
+    def to_s
+      "[#{type} #{value}]"
+    end
+
+    def convert
+      if block
+        instance_eval(&block)
+      else
+        if value.is_a?(Array)
+          if value.length>1
+            value.map{|v|v.convert}
+          else
+            value[0].convert
+          end
+        else
+          value
+        end
+      end
+    end
+  end
+
+  class ParserRule
+    attr_reader :block
+    def initialize(parser,name,elements,params,block)
+      @parser=parser
+      @name=name
+      @elements=[elements].flatten
+      
+      @params=params
+      @block=block
+    end
+
+    def to_s
+      "#{@name}=>#{@elements}"
+    end
+
+    def parse(ctx)
+      parsed=[]
+      @elements.each{|element|
+        #puts "TRY #{element.inspect} on '#{ctx.str}'"
+        case element
+          when Regexp
+            regex=element.source
+            str=ctx.str
+            #pp "R:",regex,element,element.class
+            #$KCODE="n"
+            regex= Regexp.new("\\A#{regex}",0,'n') ##/^#{regex}/
+            #regex=element
+            #pp "REGEX:",regex
+            match=str.match(regex)
+            unless match
+             # puts "FAIL at regexp #{element}"
+              return nil
+            end
+            rstr=match[0]
+
+            #pp "str:",str
+            #str.each_byte{|b|pp b}
+            #pp "RESULT:",match,rstr,regex
+            return nil unless rstr
+            ctx.pos+=rstr.length
+            
+            parsed<<ParsedElement.new("Regexp",rstr,nil)
+          when Symbol
+            value=@parser.parseContext(ctx,element)
+            if value.nil?
+              #puts "FAIL at symbol"
+              return nil
+            end
+            parsed<<value
+          when String
+            if ctx.str[0..(element.length-1)]!=element
+              #puts ctx.str
+              #puts "Fail at string"
+              return nil
+            end
+            
+            ctx.pos+=element.length
+            parsed<<ParsedElement.new("String",element,nil)
+          else
+            raise "Unknown Element !!!! #{element}"
+        end
+      }
+      
+      return ParsedElement.new(@name,parsed,@block)
+    end
+  end
+
+
+  def initialize(name,&block)
+    @name=name
+    @block=block
+    @rules={}
+    @root=nil
+
+    instance_eval(&block)
+
+  end
+
+  def rule(hash,*params,&block)
+    name=hash.keys[0]
+    elements=hash[name]
+    
+
+    @rules[name]||=[]
+    rule=ParserRule.new(self,name,elements,params,block)
+    @rules[name]<<rule
+    @root||=name
+    rule
+  end
+
+
+  def parse(inString)
+    ctx=ParserContext.new(inString,0)
+    parseContext(ctx)
+  end
+
+  
+  def parseContext(ctx,element=nil)
+    element||=@root
+    rules=@rules[element]
+
+    raise "No rule found for #{element}" unless rules
+    result=nil
+    rules.each{|rule|
+      nctx=ctx.dup
+#      pp "TRYING #{rule}"
+      result=rule.parse(nctx)
+      if result
+        ctx.pos=nctx.pos
+        result.block=rule.block
+#        pp "OK #{rule}"
+        return result
+      end
+#      pp "FAILED #{rule}"
+    }
+    result
+  end
+end
+
+def parser(name,&block)
+  Parser.new(name,&block)
+end