riddl 0.99.105

data/lib/riddl/wrapper/declaration/interface.rb

@@ -0,0 +1,34 @@
+module Riddl
+  class Wrapper
+    class Declaration < WrapperUtils
+
+      class Interface
+        def initialize(name,top,base,sub,des)
+          @name = name
+          @top  = top
+          @base = base
+          @sub  = sub
+          @des  = des
+        end
+
+        def self.new_from_interface(interface,sub)
+          Interface.new(interface.name,interface.top,interface.base,sub,interface.des)
+        end
+
+        def real_path(real)
+          t = @top.sub(/^\/*/,'').split('/')
+          real = real.sub(/^\/*/,'').split('/')
+          real = real[t.length..-1]
+          '/' + real.join('/')
+        end
+
+        def real_url(real,base)
+          (@base == '' ? base : @base) + real_path(real)
+        end
+
+        attr_reader :top, :base, :sub, :name, :des
+      end
+
+    end
+  end
+end

data/lib/riddl/wrapper/declaration/tile.rb

@@ -0,0 +1,107 @@
+module Riddl
+  class Wrapper
+    class Declaration < WrapperUtils
+
+      class Tile
+        #{{
+        def initialize
+          #{{{
+          @resource = Riddl::Wrapper::Description::Resource.new("/")
+          @base_path = @resource
+          #}}}
+        end
+        
+        def visualize(mode,res=@resource,what='')
+          #{{{
+          what += res.path
+          puts what
+          if mode == :layers
+            res.access_methods.each do |k,v|
+              puts "  #{k.to_s.upcase}:"
+              v.each_with_index do |l,i|
+                puts "    Layer #{i}:"
+                l.each do |r|
+                  puts "      #{r.class.name.gsub(/[^\:]+::/,'')}: #{r.visualize}"
+                end unless l.nil?
+              end
+            end
+          end
+          if mode == :composition
+            res.composition.each do |k,v|
+              puts "  #{k.to_s.upcase}:"
+              v.each do |r|
+                puts "    #{r.result.class.name.gsub(/[^\:]+::/,'')}: #{r.result.visualize}"
+                r.route.each do |ritem|
+                  puts "      #{ritem.class.name.gsub(/[^\:]+::/,'')}: #{ritem.visualize}"
+                end unless r.route.nil?
+              end
+            end
+          end
+          res.resources.each do |key,r|
+            visualize(mode,r,what + (what == '/' ? ''  : '/'))
+          end
+          #}}}
+        end
+
+        def add_description(des,desres,path,index,interface,block,rec=nil,res=@base_path)
+          #{{{
+          res = add_path(path,res,rec)
+          res.add_access_methods(des,desres,index,interface)
+          block.each do |bl|
+            bpath = bl.to_s.gsub(/\/+/,'/').gsub(/\/$/,'')
+            bpath = (bpath == "" ? "/" : bpath)
+            if interface.sub == bpath
+              res.remove_access_methods(des,bl.attributes)
+            end  
+          end
+          desres.find("des:resource").each do |desres|
+            cpath = desres.attributes['relative'] || "{}"
+            rec = desres.attributes['recursive']
+            int = Interface.new_from_interface(interface,(interface.sub+"/"+cpath).gsub(/\/+/,'/'))
+            add_description(des,desres,cpath,index,int,block,rec,res)
+          end
+          nil
+          #}}}
+        end
+          
+        def compose!(res=@base_path)
+          #{{{
+          res.compose!
+          res.resources.each do |k,r|
+            compose!(r)
+          end
+          #}}}
+        end
+
+        def add_path(path,res,rec=nil)
+          #{{{
+          pres = res
+          path.split('/').each do |pa|
+            next if pa == ""
+            unless pres.resources.has_key?(pa)
+              pres.resources[pa] = Riddl::Wrapper::Description::Resource.new(pa,rec.nil? ? false : true)
+            end
+            pres = pres.resources[pa]
+          end
+          pres
+          #}}}
+        end
+        private :add_path
+
+        def base_path(path)
+          #{{{
+          if path.nil? || path == '/'
+            @base_path
+          else
+            @base_path = add_path(path,@base_path)
+          end
+          #}}}
+        end
+
+        attr_reader :resource
+        #}}}
+      end
+
+    end
+  end
+end

data/lib/riddl/wrapper/description.rb

@@ -0,0 +1,69 @@
+require File.expand_path(File.dirname(__FILE__) + '/description/resource')
+require File.expand_path(File.dirname(__FILE__) + '/description/access')
+require File.expand_path(File.dirname(__FILE__) + '/description/message_and_transformation')
+
+module Riddl
+  class Wrapper
+    class Description < WrapperUtils
+
+      def paths(res=@resource,what='')
+        rpaths(res,what)
+      end
+      def get_resource(path)
+        get_resource_deep(path,@resource)
+      end  
+      
+      def visualize(res=@resource,what='')
+        #{{{
+        what += res.path
+        puts what
+        res.access_methods.each do |k,v|
+          puts "  #{k.upcase}:"
+          v.each_with_index do |l,i|
+            l.each do |r|
+              puts "    #{r.class.name.gsub(/[^\:]+::/,'')}: #{r.visualize}"
+            end
+          end
+        end
+        res.resources.each do |key,r|
+          visualize(r,what + (what == '/' ? ''  : '/'))
+        end
+        #}}}
+      end
+
+      def xml
+        @riddl.to_s
+      end
+
+      def add_description(des,res,desres,path=nil,rec=nil)
+        #{{{
+        unless path.nil?
+          unless res.resources.has_key?(path)
+            res.resources[path] = Riddl::Wrapper::Description::Resource.new(path,rec.nil? ? false : true)
+          end
+          res = res.resources[path]
+        end
+        res.add_access_methods(des,desres,0,nil)
+        desres.find("des:resource").each do |desres|
+          cpath = desres.attributes['relative'] || "{}"
+          rec = desres.attributes['recursive']
+          add_description(des,res,desres,cpath,rec)
+        end
+        nil
+        #}}}
+      end
+      private :add_description
+
+      def initialize(riddl)
+        #{{{
+        @resource = Riddl::Wrapper::Description::Resource.new("/")
+        @riddl = riddl
+        des = riddl.root
+        desres = des.find("/des:description/des:resource").first
+        add_description(des,@resource,desres)
+        #}}}
+      end
+
+    end
+  end
+end

data/lib/riddl/wrapper/description/access.rb

@@ -0,0 +1,108 @@
+module Riddl
+  class Wrapper
+    class Description < WrapperUtils
+
+      class AccessBase# {{{
+        def used=(value)
+          @used = value
+        end
+        def used?
+          @used || false
+        end
+        attr_reader :interface
+      end# }}}
+
+      class RequestInOut < AccessBase# {{{
+        def initialize(des,min,mout,interface)
+          @interface = interface
+          if des.nil?
+            @in = min
+            @out = mout
+          else
+            @in = Riddl::Wrapper::Description::Message.new(des,min)
+            @out = mout.nil? ? nil : Riddl::Wrapper::Description::Message.new(des,mout)
+          end
+        end
+        def self.new_from_message(min,mout)
+          RequestInOut.new(nil,min,mout,nil)
+        end
+        def hash
+          @in.hash + (@out.nil? ? 0 : @out.hash)
+        end
+        attr_reader :in, :out
+        def visualize; "in #{@in.name.inspect} out #{@out.nil? ? "NIL" : @out.name.inspect}"; end
+      end# }}}
+
+      class RequestTransformation < AccessBase# {{{
+        def initialize(des,mtrans,interface)
+          @interface = interface
+          if des.nil?
+            @trans = mtrans
+          else  
+            @trans = Riddl::Wrapper::Description::Transformation.new(des,mtrans)
+          end  
+          @out = nil
+        end
+        def self.new_from_transformation(mtrans1,mtrans2)
+          tmp = XML::Smart::string("<transformation/>")
+          tmp.root.add mtrans1.content.root.children
+          tmp.root.add mtrans2.content.root.children
+          RequestTransformation.new(nil,Riddl::Wrapper::Description::Transformation.new_from_xml("#{mtrans2.name}_#{mtrans2.name}_merged",tmp),nil)
+        end
+        def transform(min)
+          tmp = self.dup
+          if min.class == RequestInOut && !min.out.nil?
+            tmp.out = min.out.transform(@trans)
+          end
+          tmp
+        end
+        attr_reader :trans
+        attr_accessor :out
+        def hash
+          @trans.hash + (@out.nil? ? 0 : @out.hash)
+        end
+        def visualize; "transformation #{@trans.name.inspect}"; end
+      end# }}}
+
+      class RequestStarOut < AccessBase# {{{
+        def initialize(des,mout,interface)
+          @interface = interface
+          if des.nil?
+            @out = mout
+          else
+            @out = mout.nil? ? nil : Riddl::Wrapper::Description::Message.new(des,mout)
+          end  
+        end
+        def self.new_from_message(mout)
+          RequestStarOut.new(nil,mout,nil)
+        end
+        attr_reader :out
+        def hash
+          @out.nil? ? 0 : @out.hash
+        end
+        def visualize; "out #{@out.nil? ? "NIL" : @out.name.inspect}"; end
+      end# }}}
+
+      class RequestPass < AccessBase# {{{
+        def initialize(interface)
+          @interface = interface
+        end  
+        def visualize; ""; end
+        def hash
+          0
+        end
+      end# }}}
+
+      class WebSocket < AccessBase# {{{
+        def visualize; ""; end
+        def initialize(interface)
+          @interface = interface
+        end  
+        def hash
+          0
+        end
+      end# }}}
+      
+    end
+  end
+end

data/lib/riddl/wrapper/description/message_and_transformation.rb

@@ -0,0 +1,131 @@
+module Riddl
+  class Wrapper
+    class Description < WrapperUtils
+
+      class HashBase
+        #{{{
+        def initialize(layer,name,type,content=nil)
+          @name = name
+          @hash = nil
+          if layer.nil?
+            @content = content
+          else
+            @content = layer.find("des:#{type}[@name='#{name}']").first.to_doc
+            @content.root.find("@name").delete_all!
+            @content.register_namespace 'des', Riddl::Wrapper::DESCRIPTION
+            @content.register_namespace 'dec', Riddl::Wrapper::DECLARATION
+          end  
+          update_hash!
+        end
+        def update_hash!
+          # TODO too simple
+          @hash = @content.to_s.hash
+        end
+        def traverse?(other)
+          other.name.nil? ? false : (self.hash == other.hash)
+        end
+        attr_reader :name, :content, :hash
+        #}}}
+      end
+
+      class Transformation < HashBase
+        #{{{
+        def initialize(layer,name,xml=nil)
+          super layer,name,:transformation,xml
+        end
+        def self.new_from_xml(name,xml)
+          Transformation.new(nil,name,xml)
+        end
+        #}}}
+      end
+
+      class Message < HashBase
+        #{{{
+        def initialize(layer,name)
+          super layer,name,:message
+        end
+        def initialize_copy(o)
+          @content = @content.dup 
+        end
+        def transform(trans)
+          ret = self.dup
+          unless trans.name.nil?
+            trans.content.root.children.each do |e|
+              case e.qname.name
+                when 'add_header'
+                  raise "TODO"
+                when 'add_before'
+                  raise "TODO"
+                when 'add_after'
+                  raise "TODO"
+                when 'add_as_first'
+                  t = ret.content.root 
+                  n = t.find("header[last()]").first
+                  if n.nil?
+                    m = t.find("*[not(header)]").first
+                    if m.nil?
+                      t.add(e.children)
+                    else  
+                      m.add_before(e.children)
+                    end
+                  else  
+                    n.add_after(e.children)
+                  end  
+                when 'add_as_last'
+                  ret.content.root.add(e.children)
+                  ret.update_hash!
+                when 'remove_each'
+                  ret.content.find("parameter[@name=\"#{e.attributes['name']}\"]").delete_all!
+                when 'remove_first'
+                  if e.attributes['name']
+                    case e.attributes['type']
+                      when 'parameter', nil
+                        node = ret.content.find("//parameter[@name=\"#{e.attributes['name']}\"]").first
+                        opt = node.add_before("optional")
+                        opt.add(node)
+                      when 'header'
+                        ret.content.find("header[@name=\"#{e.attributes['name']}\"]").delete_all!
+                    end    
+                  else
+                    case e.attributes['type']
+                      when 'parameter', nil
+                        ret.content.find("//parameter[first()]").delete_all!
+                      when 'header'
+                        ret.content.find("//header[first()]").delete_all!
+                    end    
+                  end
+                when 'remove_last'
+                  if e.attributes['name']
+                    case e.attributes['type']
+                      when 'parameter', nil
+                        node = ret.content.find("//parameter[@name=\"#{e.attributes['name']}\"]").last
+                        opt = node.add_before("optional")
+                        opt.add(node)
+                      when 'header'
+                        ret.content.find("header[@name=\"#{e.attributes['name']}\"]").delete_all!
+                    end    
+                  else
+                    case e.attributes['type']
+                      when 'parameter', nil
+                        ret.content.find("//parameter[last()]").delete_all!
+                      when 'header'
+                        ret.content.find("//header[last()]").delete_all!
+                    end    
+                  end
+              end  
+            end  
+          end  
+          return ret
+        end
+        #}}}
+      end
+
+      class Star
+        #{{{
+        def name; "*"; end
+        #}}}
+      end
+
+    end
+  end
+end