daff 1.1.2

data/lib/lib/haxe/format/json_parser.rb

@@ -0,0 +1,264 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+
+module Haxe
+module Format
+  class JsonParser 
+    
+    def initialize(str)
+      @str = str
+      @pos = 0
+    end
+    
+    # protected - in ruby this doesn't play well with static/inline methods
+    
+    attr_accessor :str
+    attr_accessor :pos
+    
+    def parse_rec 
+      while(true) 
+        c = nil
+        begin
+          index = @pos
+          @pos+=1
+          c = (@str[index] || 0).ord
+        end
+        case(c)
+        when 32,13,10,9
+        when 123
+          obj = { }
+          field = nil
+          comma = nil
+          while(true) 
+            c1 = nil
+            begin
+              index1 = @pos
+              @pos+=1
+              c1 = (@str[index1] || 0).ord
+            end
+            case(c1)
+            when 32,13,10,9
+            when 125
+              self.invalid_char if field != nil || comma == false
+              return obj
+            when 58
+              self.invalid_char if field == nil
+              begin
+                value = self.parse_rec
+                obj[field] = value
+              end
+              field = nil
+              comma = true
+            when 44
+              if comma 
+                comma = false
+              else 
+                self.invalid_char
+              end
+            when 34
+              self.invalid_char if comma
+              field = self.parse_string
+            else
+              self.invalid_char
+            end
+          end
+        when 91
+          arr = []
+          comma1 = nil
+          while(true) 
+            c2 = nil
+            begin
+              index2 = @pos
+              @pos+=1
+              c2 = (@str[index2] || 0).ord
+            end
+            case(c2)
+            when 32,13,10,9
+            when 93
+              self.invalid_char if comma1 == false
+              return arr
+            when 44
+              if comma1 
+                comma1 = false
+              else 
+                self.invalid_char
+              end
+            else
+              self.invalid_char if comma1
+              @pos-=1
+              arr.push(self.parse_rec)
+              comma1 = true
+            end
+          end
+        when 116
+          save = @pos
+          if lambda{|_this_| index3 = @pos
+          @pos+=1
+          _r = (@str[index3] || 0).ord}.call(self) != 114 || lambda{|_this_| index4 = @pos
+          @pos+=1
+          _r2 = (@str[index4] || 0).ord}.call(self) != 117 || lambda{|_this_| index5 = @pos
+          @pos+=1
+          _r3 = (@str[index5] || 0).ord}.call(self) != 101 
+            @pos = save
+            self.invalid_char
+          end
+          return true
+        when 102
+          save1 = @pos
+          if lambda{|_this_| index6 = @pos
+          @pos+=1
+          _r4 = (@str[index6] || 0).ord}.call(self) != 97 || lambda{|_this_| index7 = @pos
+          @pos+=1
+          _r5 = (@str[index7] || 0).ord}.call(self) != 108 || lambda{|_this_| index8 = @pos
+          @pos+=1
+          _r6 = (@str[index8] || 0).ord}.call(self) != 115 || lambda{|_this_| index9 = @pos
+          @pos+=1
+          _r7 = (@str[index9] || 0).ord}.call(self) != 101 
+            @pos = save1
+            self.invalid_char
+          end
+          return false
+        when 110
+          save2 = @pos
+          if lambda{|_this_| index10 = @pos
+          @pos+=1
+          _r8 = (@str[index10] || 0).ord}.call(self) != 117 || lambda{|_this_| index11 = @pos
+          @pos+=1
+          _r9 = (@str[index11] || 0).ord}.call(self) != 108 || lambda{|_this_| index12 = @pos
+          @pos+=1
+          _r10 = (@str[index12] || 0).ord}.call(self) != 108 
+            @pos = save2
+            self.invalid_char
+          end
+          return nil
+        when 34
+          return self.parse_string
+        when 48,49,50,51,52,53,54,55,56,57,45
+          c3 = c
+          start = @pos - 1
+          minus = c3 == 45
+          digit = !minus
+          zero = c3 == 48
+          point = false
+          e = false
+          pm = false
+          _end = false
+          while(true) 
+            begin
+              index13 = @pos
+              @pos+=1
+              c3 = (@str[index13] || 0).ord
+            end
+            case(c3)
+            when 48
+              self.invalid_number(start) if zero && !point
+              if minus 
+                minus = false
+                zero = true
+              end
+              digit = true
+            when 49,50,51,52,53,54,55,56,57
+              self.invalid_number(start) if zero && !point
+              minus = false if minus
+              digit = true
+              zero = false
+            when 46
+              self.invalid_number(start) if minus || point
+              digit = false
+              point = true
+            when 101,69
+              self.invalid_number(start) if minus || zero || e
+              digit = false
+              e = true
+            when 43,45
+              self.invalid_number(start) if !e || pm
+              digit = false
+              pm = true
+            else
+              self.invalid_number(start) if !digit
+              @pos-=1
+              _end = true
+            end
+            break if _end
+          end
+          f = nil
+          begin
+            x = @str[start,@pos - start]
+            f = x.to_f
+          end
+          i = f.to_i
+          if i == f 
+            return i
+          else 
+            return f
+          end
+        else
+          self.invalid_char
+        end
+      end
+    end
+    
+    def parse_string 
+      start = @pos
+      buf = StringBuf.new
+      while(true) 
+        c = nil
+        begin
+          index = @pos
+          @pos+=1
+          c = (@str[index] || 0).ord
+        end
+        break if c == 34
+        if c == 92 
+          buf.b += @str[start,@pos - start - 1]
+          begin
+            index1 = @pos
+            @pos+=1
+            c = (@str[index1] || 0).ord
+          end
+          case(c)
+          when 114
+            buf.b += [13].pack("U")
+          when 110
+            buf.b += [10].pack("U")
+          when 116
+            buf.b += [9].pack("U")
+          when 98
+            buf.b += [8].pack("U")
+          when 102
+            buf.b += [12].pack("U")
+          when 47,92,34
+            buf.b += [c].pack("U")
+          when 117
+            uc = nil
+            begin
+              x = "0x" + _hx_str(@str[@pos,4])
+              uc = x.to_i
+            end
+            @pos += 4
+            buf.b += [uc].pack("U")
+          else
+            raise "Invalid escape sequence \\" + _hx_str([c].pack("U")) + " at position " + _hx_str((@pos - 1))
+          end
+          start = @pos
+        elsif c == 0 
+          raise "Unclosed string"
+        end
+      end
+      buf.b += @str[start,@pos - start - 1]
+      return buf.b
+    end
+    
+    def invalid_char 
+      @pos-=1
+      raise "Invalid char " + _hx_str((@str[@pos] || 0).ord) + " at position " + _hx_str(@pos)
+    end
+    
+    def invalid_number(start)
+      raise "Invalid number at position " + _hx_str(start) + ": " + _hx_str(@str[start,@pos - start])
+    end
+    
+  end
+
+end
+end

data/lib/lib/haxe/format/json_printer.rb

@@ -0,0 +1,239 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+
+module Haxe
+module Format
+  class JsonPrinter 
+    
+    def initialize(replacer,space)
+      @replacer = replacer
+      @indent = space
+      @pretty = space != nil
+      @nind = 0
+      @buf = StringBuf.new
+    end
+    
+    # protected - in ruby this doesn't play well with static/inline methods
+    
+    attr_accessor :buf
+    attr_accessor :replacer
+    attr_accessor :indent
+    attr_accessor :pretty
+    attr_accessor :nind
+    
+    def write(k,v)
+      v = (@replacer).call(k,v) if @replacer != nil
+      begin
+        _g = Type._typeof(v)
+        case(_g.index)
+        when 8
+          @buf.b += "\"???\"".to_s
+        when 4
+          self.fields_string(v,Reflect.fields(v))
+        when 1
+          v1 = v
+          @buf.b += v1.to_s
+        when 2
+          v2 = nil
+          if lambda{|_this_| f = v
+          _r = f.to_f.finite?}.call(self) 
+            v2 = v
+          else 
+            v2 = "null"
+          end
+          @buf.b += v2.to_s
+        when 5
+          @buf.b += "\"<fun>\"".to_s
+        when 6
+          c = _g.params[0]
+          if c == String 
+            self.quote(v)
+          elsif c == Array 
+            v3 = v
+            @buf.b += [91].pack("U")
+            len = v3.length
+            last = len - 1
+            begin
+              _g1 = 0
+              while(_g1 < len) 
+                i = _g1
+                _g1+=1
+                if i > 0 
+                  @buf.b += [44].pack("U")
+                else 
+                  @nind+=1
+                end
+                @buf.b += [10].pack("U") if @pretty
+                if @pretty 
+                  v4 = nil
+                  begin
+                    c1 = @indent
+                    l = @nind * @indent.length
+                    if c1.length == 0 || "".length >= l 
+                      v4 = ""
+                    else 
+                      v4 = str_pad("",((l - "".length) / c1.length).ceil * c1.length + "".length,c1,__php__.call("STR_PAD_LEFT"))
+                    end
+                  end
+                  @buf.b += v4.to_s
+                end
+                self.write(i,v3[i])
+                if i == last 
+                  @nind-=1
+                  @buf.b += [10].pack("U") if @pretty
+                  if @pretty 
+                    v5 = nil
+                    begin
+                      c2 = @indent
+                      l1 = @nind * @indent.length
+                      if c2.length == 0 || "".length >= l1 
+                        v5 = ""
+                      else 
+                        v5 = str_pad("",((l1 - "".length) / c2.length).ceil * c2.length + "".length,c2,__php__.call("STR_PAD_LEFT"))
+                      end
+                    end
+                    @buf.b += v5.to_s
+                  end
+                end
+              end
+            end
+            @buf.b += [93].pack("U")
+          elsif c == ::Haxe::Ds::StringMap 
+            v6 = v
+            o = { }
+            _it2 = ::Rb::RubyIterator.new(v6.keys)
+            while(_it2.has_next) do
+              k1 = _it2._next
+              value = v6[k1]
+              o[k1] = value
+            end
+            self.fields_string(o,Reflect.fields(o))
+          elsif c == Date 
+            v7 = v
+            self.quote(HxOverrides.date_str(v7))
+          else 
+            self.fields_string(v,Reflect.fields(v))
+          end
+        when 7
+          i1 = nil
+          begin
+            e = v
+            i1 = e.index
+          end
+          begin
+            v8 = i1
+            @buf.b += v8.to_s
+          end
+        when 3
+          v9 = v
+          @buf.b += v9.to_s
+        when 0
+          @buf.b += "null".to_s
+        end
+      end
+    end
+    
+    def fields_string(v,fields)
+      @buf.b += [123].pack("U")
+      len = fields.length
+      last = len - 1
+      first = true
+      begin
+        _g = 0
+        while(_g < len) 
+          i = _g
+          _g+=1
+          f = fields[i]
+          value = Reflect.field(v,f)
+          next if Reflect.is_function(value)
+          if first 
+            @nind+=1
+            first = false
+          else 
+            @buf.b += [44].pack("U")
+          end
+          @buf.b += [10].pack("U") if @pretty
+          if @pretty 
+            v1 = nil
+            begin
+              c = @indent
+              l = @nind * @indent.length
+              if c.length == 0 || "".length >= l 
+                v1 = ""
+              else 
+                v1 = str_pad("",((l - "".length) / c.length).ceil * c.length + "".length,c,__php__.call("STR_PAD_LEFT"))
+              end
+            end
+            @buf.b += v1.to_s
+          end
+          self.quote(f)
+          @buf.b += [58].pack("U")
+          @buf.b += [32].pack("U") if @pretty
+          self.write(f,value)
+          if i == last 
+            @nind-=1
+            @buf.b += [10].pack("U") if @pretty
+            if @pretty 
+              v2 = nil
+              begin
+                c1 = @indent
+                l1 = @nind * @indent.length
+                if c1.length == 0 || "".length >= l1 
+                  v2 = ""
+                else 
+                  v2 = str_pad("",((l1 - "".length) / c1.length).ceil * c1.length + "".length,c1,__php__.call("STR_PAD_LEFT"))
+                end
+              end
+              @buf.b += v2.to_s
+            end
+          end
+        end
+      end
+      @buf.b += [125].pack("U")
+    end
+    
+    def quote(s)
+      @buf.b += [34].pack("U")
+      i = 0
+      while(true) 
+        c = nil
+        begin
+          index = i
+          i+=1
+          c = (s[index] || 0).ord
+        end
+        break if c == 0
+        case(c)
+        when 34
+          @buf.b += "\\\"".to_s
+        when 92
+          @buf.b += "\\\\".to_s
+        when 10
+          @buf.b += "\\n".to_s
+        when 13
+          @buf.b += "\\r".to_s
+        when 9
+          @buf.b += "\\t".to_s
+        when 8
+          @buf.b += "\\b".to_s
+        when 12
+          @buf.b += "\\f".to_s
+        else
+          @buf.b += [c].pack("U")
+        end
+      end
+      @buf.b += [34].pack("U")
+    end
+    
+    public
+    
+    def JsonPrinter._print(o,replacer = nil,space = nil)
+      printer = ::Haxe::Format::JsonPrinter.new(replacer,space)
+      printer.write("",o)
+      return printer.buf.b
+    end
+    
+  end
+
+end
+end