miketracy-wwmd 0.2.11

data/lib/wwmd/viewstate/viewstate_yaml.rb

@@ -0,0 +1,25 @@
+class String
+# right now I have no idea why "\x0d\x0a" is getting munged in yaml transforms
+# something weird helped find by timur@.  double up "\r" before "\n" works
+# this might be mac specific and break on other platforms.  I don't care.
+# patch not for general use do not try this at home.
+  def to_yaml( opts = {} )
+    YAML::quick_emit( is_complex_yaml? ? object_id : nil, opts ) do |out|
+      if is_binary_data?
+        out.scalar( "tag:yaml.org,2002:binary", [self].pack("m"), :literal )
+      elsif ( self =~ /\r\n/ )
+#        out.scalar( "tag:yaml.org,2002:binary", [self].pack("m"), :literal )
+        out.scalar( taguri, self.gsub(/\r\n/,"\r\r\n"), :quote2 )
+      elsif to_yaml_properties.empty?
+        out.scalar( taguri, self, self =~ /^:/ ? :quote2 : to_yaml_style )
+      else
+        out.map( taguri, to_yaml_style ) do |map|
+          map.add( 'str', "#{self}" )
+          to_yaml_properties.each do |m|
+            map.add( m, instance_variable_get( m ) )
+          end
+        end
+      end
+    end
+  end
+end

data/lib/wwmd/viewstate/vs_array.rb

@@ -0,0 +1,36 @@
+module WWMD
+  class VSArray < VSClassHelpers
+    attr_accessor :value
+    attr_reader   :typeref
+    attr_reader   :typeval
+
+    def initialize(typeref,typeval)
+      @typeref = typeref
+      @typeval = typeval
+      @value = []
+    end
+
+    def add(obj)
+      @value << obj
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.value.size)
+      self.value.each do |v|
+        stack << v.serialize
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("size", self.value.size.to_s)
+      self.value.each do |v|
+        xml.add_element(v.to_xml)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_binary_serialized.rb

@@ -0,0 +1,28 @@
+module WWMD
+  class VSBinarySerialized < VSClassHelpers
+    attr_accessor :value
+
+    def initialize()
+      @value = ''
+    end
+
+    def set(str)
+      @value = str
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      stack << self.value
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("encoding","base64")
+      xml.add_text(self.value.b64e)
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_hashtable.rb

@@ -0,0 +1,40 @@
+module WWMD
+  class VSHashtable < VSClassHelpers
+    attr_accessor :value
+
+    def initialize()
+      @value = []
+    end
+
+    def add(obj1,obj2)
+      @value << [obj1,obj2]
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      self.value.each do |k,v|
+        stack << k.serialize
+        stack << v.serialize
+      end 
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("size",self.value.size.to_s)
+      self.value.each do |k,v|
+        pair = REXML::Element.new("Pair")
+        key = REXML::Element.new("Key")
+        key.add_element(k.to_xml)
+        val = REXML::Element.new("Value")
+        val.add_element(v.to_xml)
+        pair.add_element(key)
+        pair.add_element(val)
+        xml.add_element(pair)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_hybrid_dict.rb

@@ -0,0 +1,40 @@
+module WWMD
+  class VSHybridDict < VSClassHelpers
+    attr_accessor :value
+
+    def initialize()
+      @value = []
+    end
+
+    def add(obj1,obj2)
+      @value << [obj1,obj2]
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      self.value.each do |k,v|
+        stack << k.serialize
+        stack << v.serialize
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("size",self.value.size.to_s)
+      self.value.each do |k,v|
+        pair = REXML::Element.new("Pair")
+        key = REXML::Element.new("Key")
+        key.add_element(k.to_xml)
+        val = REXML::Element.new("Value")
+        val.add_element(v.to_xml)
+        pair.add_element(key)
+        pair.add_element(val)
+        xml.add_element(pair)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_indexed_string.rb

@@ -0,0 +1,6 @@
+module WWMD
+  class VSIndexedString < VSString
+    def serialize; super; end
+    def to_xml; super; end
+  end
+end

data/lib/wwmd/viewstate/vs_indexed_string_ref.rb

@@ -0,0 +1,22 @@
+module WWMD
+  class VSIndexedStringRef < VSClassHelpers
+    attr_reader :value
+
+    def initialize(ref)
+      @value = ref
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_int(@value)
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_text(self.value.to_s)
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_int_enum.rb

@@ -0,0 +1,25 @@
+module WWMD
+  class VSIntEnum < VSClassHelpers
+    attr_accessor :value
+    attr_reader   :typeref
+    attr_reader   :typeval
+
+    def initialize(typeref,typeval,index)
+      @typeref = typeref
+      @typeval = typeval
+      @value = index
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.value)
+    end
+
+    def to_xml
+      xml = super
+      xml.add_text(self.value.to_s)
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_list.rb

@@ -0,0 +1,32 @@
+module WWMD
+
+  class VSList < VSClassHelpers
+
+    def initialize()
+      @value = []
+    end
+
+    def add(obj)
+      @value << obj
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      self.value.each do |v|
+        stack << v.serialize
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("size",self.value.size.to_s)
+      self.value.each do |v|
+        xml.add_element(v.to_xml)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_pair.rb

@@ -0,0 +1,27 @@
+module WWMD
+  class VSPair < VSClassHelpers
+    attr_accessor :value
+
+    def initialize(obj1,obj2)
+      @value = []
+      @value << obj1
+      @value << obj2
+    end
+
+    def serialize
+      stack = super
+      self.value.each do |v|
+        stack << v.serialize
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      self.value.each do |v|
+        xml.add_element(v.to_xml)
+      end
+      xml
+    end
+  end
+end

data/lib/wwmd/viewstate/vs_read_types.rb

@@ -0,0 +1,11 @@
+module WWMD
+  class VSInt16      < VSReadValue; end
+  class VSInt32      < VSReadValue; end
+  class VSByte       < VSReadValue; end
+  class VSChar       < VSReadValue; end
+  class VSDateTime   < VSReadValue; end
+  class VSDouble     < VSReadValue; end
+  class VSSingle     < VSReadValue; end
+  class VSColor      < VSReadValue; end
+  class VSKnownColor < VSReadValue; end
+end

data/lib/wwmd/viewstate/vs_read_value.rb

@@ -0,0 +1,33 @@
+module WWMD
+  class VSReadValue < VSClassHelpers
+    attr_accessor :value
+
+    def initialize(val)
+      @value = val
+    end
+
+    def serialize
+      stack = super
+      case self.to_sym
+        when :int16;       stack << self.write_short(self.value)
+        when :int32;       stack << self.write_7bit_encoded_int(self.value)
+        when :byte;        stack << self.write_byte(self.value)
+        when :char;        stack << self.write_byte(self.value)
+        when :date_time;   stack << self.write_double(self.value)
+        when :double;      stack << self.write_double(self.value)
+        when :single;      stack << self.write_single(self.value)
+        when :color;       stack << self.write_int32(self.value)
+        when :known_color; stack << self.write_7bit_encoded_int(self.value)
+        else; raise "unimplemented #{self.to_sym}"
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_text(self.value.to_s)
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_sparse_array.rb

@@ -0,0 +1,56 @@
+module WWMD
+  class VSSparseArray < VSClassHelpers
+    attr_accessor :value
+    attr_reader   :typeref
+    attr_reader   :typeval
+    attr_reader   :size
+    attr_reader   :elems
+
+    def initialize(typeref,typeval,size,elems)
+      @typeref = typeref
+      @typeval = typeval
+      @size = size
+      @elems = elems
+      @value = []
+    end
+
+    def add(idx,obj)
+      @value[idx] = obj
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      stack << self.write_7bit_encoded_int(self.elems)                             
+      self.value.each_index do |i|
+        next if self.value[i].nil?
+        stack << self.write_7bit_encoded_int(i)
+        stack << self.value[i].serialize
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      siz = REXML::Element.new("Size")
+      siz.add_text(self.size.to_s)
+      ele = REXML::Element.new("Elements")
+      ele.add_text(self.elems.to_s)
+      xml.add_element(siz)
+      xml.add_element(ele)
+      self.value.each_index do |i|
+        next if self.value[i].nil?
+        pair = REXML::Element.new("Pair")
+        idx = REXML::Element.new("Index")
+        idx.add_text(i.to_s)
+        val = REXML::Element.new("Value")
+        val.add_element(value[i].to_xml)
+        pair.add_element(idx)
+        pair.add_element(val)
+        xml.add_element(pair)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_string.rb

@@ -0,0 +1,29 @@
+module WWMD
+  attr_accessor :value
+
+  class VSString < VSClassHelpers
+    def initialize(val)
+      @value = val
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      stack << self.value
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      # emit quoted-printable if we need to
+      if self.value =~ /[^\x20-\x7e]/
+        xml.add_attribute("encoding","quoted-printable")
+        xml.add_text(self.value.to_qp)
+      else
+        xml.add_text(self.value)
+      end
+      xml
+    end
+
+  end
+end

data/lib/wwmd/viewstate/vs_string_array.rb

@@ -0,0 +1,37 @@
+module WWMD
+  class VSStringArray < VSClassHelpers
+    attr_accessor :value
+
+    def initialize()
+      @value = []
+    end
+
+    def add(obj)
+      @value << obj
+    end
+
+    def serialize
+      stack = super
+      stack << self.write_7bit_encoded_int(self.size)
+      self.value.each do |v|
+        stack << self.write_7bit_encoded_int(v.size)
+        stack << v
+      end
+      return stack
+    end
+
+    def to_xml
+      xml = super
+      xml.add_attribute("size",self.value.size.to_s)
+      self.value.each do |v|
+        xml.add_element(VSString.new(v).to_xml)
+      end
+      xml
+    end
+
+    def from_xml
+# serliazed with VSString (for convenience)
+# make sure not to deserialize the opcode when you write this out
+    end
+  end
+end