simcha-mappum 0.1.0

data/lib/mappum/mapserver/mapgraph.rb

@@ -0,0 +1,193 @@
+module Mappum
+  module MapServer
+      class Graph
+        attr_reader :edge_maps
+        def initialize(map)
+            @map = map
+            @root = []
+            @struct_from = StrTree.new(nil,0,@root)
+            @struct_from.name = "struct1"
+            @struct_to = StrTree.new(nil,0,@root)
+            @struct_to.name = "struct2"
+            @edges = []
+            @edge_maps = {}
+            init(@map,@struct_from, @struct_to)
+          end
+          def getSvg
+            cmd = "dot"
+            format = "svg"
+            xCmd = "#{cmd} -T#{format}"
+            puts dot = getDot
+            f = IO.popen( xCmd ,"r+")
+            f.print(dot)
+            f.close_write
+            return f
+          end
+          def getPng
+            cmd = "dot"
+            format = "png"
+            xCmd = "#{cmd} -T#{format}"
+            dot = getDot
+            f = IO.popen( xCmd ,"r+")
+            f.print(dot)
+            f.close_write
+            return f
+          end
+          def getDot
+            str1 = makeStruct(@struct_from)
+            str2 = makeStruct(@struct_to)
+            edge = @edges.join
+            return <<DOT
+digraph structs { node [shape=plaintext]; rankdir=LR;  nodesep=0.1;    
+ struct1 [
+             label=<
+              #{str1}
+            >
+            ]; 
+ struct2 [
+             label=<
+              #{str2}
+             >
+            ];
+            #{@root.collect { |struct| struct.line}}
+            #{edge}
+            
+            }              
+DOT
+          end
+          
+          private
+          
+          def makeStruct(struct_tree)
+            str = struct_tree.line || ""
+            unless struct_tree.children.nil? or struct_tree.children.empty?
+              str += "<TR><TD></TD> <TD CELLPADDING=\"1\">" unless struct_tree.parent.nil? 
+              str += "<TABLE BORDER=\"0\" CELLBORDER=\"1\" CELLSPACING=\"0\" BGCOLOR=\"cornsilk2\">\n"
+              st = struct_tree.children.collect { |child| makeStruct(child)}
+              st.uniq!          
+              str += st.join + "</TABLE>" 
+              str += "</TD></TR>\n" unless struct_tree.parent.nil? 
+            end
+            return str
+          end
+          def init(map, struct_from, struct_to)
+            if map.normalized?
+              map_from, map_to = map.from, map.to
+            else
+              map_from, map_to = map.left, map.right
+            end
+            to_name, to_path, level_to = get_name_and_path(map_to) 
+            from_name, from_path, level_from = get_name_and_path(map_from)
+
+            str_from = StrTree.new(struct_from,level_from, @root)
+            unless from_name.nil?
+              if level_from > -1
+                str_from.line = "<TR> <TD COLSPAN=\"2\" PORT=\"#{from_path}\">#{from_name}</TD></TR>\n"
+              else
+                str_from.line = "#{from_path} [ label = <\"#{from_name}\">];\n"
+              end
+            end
+            str_to = StrTree.new(struct_to,level_to,@root)
+            unless to_name.nil?
+              if level_to > -1
+                str_to.line ="<TR> <TD COLSPAN=\"2\" PORT=\"#{to_path}\">#{to_name}</TD></TR>\n"              
+              else
+                str_to.line = "#{to_path} [ label = <\"#{to_name}\">];\n"
+              end
+            end
+            maps = []
+            if  map.normalized?
+              maps = map.maps
+            else
+              maps = map.bidi_maps
+            end
+            
+            
+            unless maps.empty?
+              maps.each do |sub_map|
+                if(map.normalized? or sub_map.left.parent == map_from or 
+                  sub_map.right.parent == map_to)
+                
+                  init(sub_map, str_from, str_to)
+                else
+                  init(sub_map, str_to, str_from)
+                end
+              end
+            else
+              # as option? labelfloat=true 
+              from_ref = "#{str_from.root.name}:#{from_path}" if level_from > -1
+              to_ref = "#{str_to.root.name}:#{to_path}" if level_to > -1
+              from_ref ||= from_path
+              to_ref ||= to_path
+              edge = "#{from_ref} -> #{to_ref} [" 
+              if map.normalized?
+                edge += " arrowtail = none tooltip=\"#{from_name} >> #{to_name}\" "
+              else 
+                edge += " arrowtail = vee tooltip=\"#{from_name} <=> #{to_name}\" "
+              end
+              edge += " arrowhead = vee URL=\"##{@edges.size+1}\" fontsize=10 "
+              unless map.simple?
+                edge += " label=\"#{@edges.size+1}\" labeltooltip = \"#{@edges.size+1}: #{from_name} >> #{to_name}\"" 
+              end
+              color = "black"
+              color = "blue" if level_to == -1 or level_from == -1
+              edge += " minlen=\"3\" color=\"#{color}\"];\n"
+              
+              @edges << edge
+              unless map.simple?
+                  @edge_maps[@edges.size] = map             
+              end
+            end
+
+          end
+          def get_name_and_path(element, level = 0)
+            #on non filed elements
+            if element.kind_of?(Function)
+              return "Function", "c#{element.__id__.abs}", -1              
+            end 
+            if element.kind_of?(Constant)
+              return element.value.to_s, "c#{element.__id__.abs}", -1              
+            end 
+          
+            name = element.name
+            if element.parent.nil?
+              #root element
+              name ||= element.clazz.to_s
+            else
+              level = level + 1 if name.nil?
+              pname, path, level = get_name_and_path(element.parent, level) 
+            end
+            path = "#{path}v#{name}".gsub(":","vv") unless name.nil?
+            name = "#{name}[]" if not name.nil? and element.is_array
+            return name, path, level
+          end
+      end 
+      class StrTree
+       attr_accessor :line, :parent,:children, :name
+       def initialize(parent, level, root)
+         @parent=parent  if level > -1
+         root << self if level == -1
+         @parent.add(self, level) unless @parent.nil?
+       end
+       
+       def add(child, level=0)
+         @children ||= []
+         if level == 0 
+           @children << child  unless @children.include?(child)
+         else
+           @parent.add(child, level - 1)
+         end
+       end
+       def ==(other)
+         return false unless other.kind_of?(StrTree)
+         if @line == other.line and @parent == other.parent and @children == other.children
+           return true
+         end
+       end 
+       def root
+         return parent.root unless parent.nil?
+         return self         
+       end
+      end
+  end  
+end

data/lib/mappum/mapserver/mapserver.rb

@@ -0,0 +1,197 @@
+require 'rubygems'
+gem 'soap4r'
+require 'mappum/xml_transform'
+require 'soap/marshal'
+require 'mappum/mapserver/mapgraph'
+require 'sinatra/base'
+require 'erb'
+
+module Mappum
+  class Mapserver < Sinatra::Default
+    set :views => File.join(File.dirname(__FILE__), 'views')
+    configure do
+      set :schema_dir => 'schema', :map_dir => 'map', :tmp_dir => nil
+      set :catalogue => nil
+      set :port => 9292
      
+
+      # FIXME make configurable
+      #wl = Mappum::WorkdirLoader.new(options.schema_dir, options.tmp_dir, options.map_dir)
+      @wl = Mappum::WorkdirLoader.new('schema', 'map')
+      @wl.generate_and_require
+    end
+    helpers do
+      def explain_func(element)
+        name = element.name.to_s
+        name ||= "self"    
+        func = element.func.gsub(/^self/,name)
+        #replace [](1) with [1]
+        func = func.gsub(/\.\[\]\((.*)\)/,"[\\1]")
+        return "Simple function call: \"#{func}\"<br/>"
+      end
+      def explain(map)
+        str=""
+        if not map.right.nil? and not map.right.func.nil?
+          str+= explain_func(map.right)
+        elsif not map.from.nil? and not map.from.func.nil?
+          str+= explain_func(map.from)
+        end
+        unless map.func.nil?
+          str+= "Multiline function call (see source)<br/>"
+        end
+        unless map.dict.nil?
+          str+= "Dictionary mapping:<br/>"
+          str+= "<table border=\"1\">"
+          str+= "<tr><td>#{map.left.name}</td><td>#{map.right.name}</td></tr>"
+          map.dict.each do |k,v|
+            str+= "<tr><td>#{k}</td><td>#{v}</td></tr>"
+          end
+          str+= "</table>"
+        end
+        return str
+      end
+      def get_xmlns(namespace)
+        @namespaces ||= {}
+        @i ||= 0
+        @namespaces[namespace] = "ns#{@i+=1}" unless @namespaces.include?(namespace)
+        return @namespaces[namespace]
+      end
+    end
+    #make get methods for xsd files
+    Dir.glob('schema'+'/**/*.xsd') do |filename|
+      get "/"+filename do
+        [200, {"Content-Type" => "text/xml"}, IO.read(filename)]
+      end
    end
+    post "/transform" do
+          map_name = nil
+          map_name = params["map"] unless params["map"].nil? or params["map"] == "auto_select"
+          
+          rt = Mappum::XmlTransform.new(options.catalogue)
+          
+          xml = params["doc"]
+          content = rt.transform(xml,map_name)
+          
+          [200, {"Content-Type" => "text/xml"}, [content]]
+    end
+    post "/transform-ws" do
+      map_name = env["HTTP_SOAPACTION"] unless env["HTTP_SOAPACTION"].nil? or env["HTTP_SOAPACTION"] == ""
+      #remove "" if present 
+      map_name = map_name[1..-2] if map_name =~ /^".*"$/
+      
+      rt = Mappum::XmlTransform.new(options.catalogue)
+      
+      xml = env["rack.input"].read
+      begin
+        content = rt.transform(xml,map_name)
+      rescue Exception => e
+        @error = e
+        return [200, {"Content-Type" => "text/xml"}, [erb(:'ws-error')]]
+      end          
+      return [200, {"Content-Type" => "text/xml"}, [content]]
+    end
+    get "/transform-ws.wsdl" do
+
+      @xml_imports = {}
+      Dir.glob('schema'+'/**/*.xsd') do |xsd_file|
+        namespace = XmlSupport.get_target_ns(xsd_file)
+        @xml_imports[xsd_file] = namespace unless namespace.nil?
+        #FIXME log warning
+      end
+ 
+      @xml_maps = []
+      @xml_elements = Set.new
+      Mappum.catalogue(options.catalogue).list_map_names.each do |mapname|
+        map = Mappum.catalogue(options.catalogue)[mapname]
+        
+        from_qname = XSD::Mapping::Mapper.get_qname_from_class(map.from.clazz)
+        @xml_elements << from_qname unless from_qname.nil?
+        from_qname ||= XSD::QName.new(nil,"any")
+        
+        
+        to_qname = XSD::Mapping::Mapper.get_qname_from_class(map.to.clazz)
+        @xml_elements << to_qname unless to_qname.nil?
+        to_qname ||= XSD::QName.new(nil,"any")
+        
+        @xml_maps << [mapname, from_qname, to_qname]
+      end
+      
+      [200, {"Content-Type" => "text/xml"}, [erb(:'transform-ws.wsdl')]]
    end
+
+    get "/svggraph" do
+      map_name = params["map"]
+      map = Mappum.catalogue(options.catalogue).get_bidi_map(map_name)
+      map ||= Mappum.catalogue(options.catalogue)[map_name]
+      return [404,  {"Content-Type" => "text/html"}, ["No map " + map_name]] if map.nil?
+      graph = Mappum::MapServer::Graph.new(map)
+      [200, {"Content-Type" => "image/svg+xml"}, graph.getSvg]
+            
+    end
+    get "/pnggraph" do
+          map_name = params["map"]
+          map = Mappum.catalogue(options.catalogue).get_bidi_map(map_name)
+          map ||= Mappum.catalogue(options.catalogue)[map_name]
+          return [404,  {"Content-Type" => "text/html"}, ["No map '#{map_name}'"]] if map.nil?
+          graph = Mappum::MapServer::Graph.new(map)
+          [200, {"Content-Type" => "image/png"}, graph.getPng]
+            
+    end 
+    get "/doc" do
+          map_name = params["map"]
+          map = Mappum.catalogue(options.catalogue).get_bidi_map(map_name)
+          map ||= Mappum.catalogue(options.catalogue)[map_name]
+          return [404,  {"Content-Type" => "text/html"}, ["No map " + map_name]] if map.nil?
+          graph = Mappum::MapServer::Graph.new(map)
+          text = <<HTML
+          <body>
+            <h1>#{map_name}</h1>
+            <p>
+            #{map.desc}
+            </p>
+            <object type="image/svg+xml" data="/svggraph?map=#{map_name}"><img src="/pnggraph?map=#{map_name}"></object>
+            <table border="1" cellspacing="0">
+            <tr><td>Number</td><td>Description</td><td>Technical explanation</td></tr>
+            #{graph.edge_maps.keys.sort.collect{|k| "<tr><td>#{k}</td><td>#{graph.edge_maps[k].desc}&nbsp;</td><td>#{explain(graph.edge_maps[k])}&nbsp;</td></tr>"}}
+            </table>
+          </body>
+HTML
+          [200, {"Content-Type" => "text/html"}, [text]]
+    end
+    get "/" do
+          content404 = <<HTML
+          <body>
+          <FORM action="transform" method="post">
+             <P>
+            <select name="map">
+              <option value="auto_select" selected="true">auto select</option>
+              #{Mappum.catalogue(options.catalogue).list_map_names.collect{|mn| "<option value='#{mn}'>#{mn}</option>"}}
+            </select>
+            <br/>
+             <TEXTAREA name="doc" rows="20" cols="80"></TEXTAREA><br/>
+             <INPUT type="submit" value="Send"/><INPUT type="reset"/>
+             </P>
+          </FORM>
+          <BR/>
+          Bidirectional maps:<p>
+          #{Mappum.catalogue(options.catalogue).list_bidi_map_names.collect{|mn| "<a href='/doc?map=#{mn}'>#{mn}</a><br/>"}}
+          </p>
+          <BR/>
+          Unidirectional maps:<p>
+          #{Mappum.catalogue(options.catalogue).list_map_names.collect{|mn| "<a href='/doc?map=#{mn}'>#{mn}</a><br/>"}}
+          </p>     </body>
+HTML
+          [200, {"Content-Type" => "text/html"}, [content404]]
+    end
+    def self.parseopt
+      require 'optparse'
+      OptionParser.new { |op|
+        op.on('-x')        {       set :lock, true }
+        op.on('-e env')    { |val| set :environment, val.to_sym }
+        op.on('-s server') { |val| set :server, val }
+        op.on('-p port')   { |val| set :port, val.to_i }
+      }.parse!
+    end
+  end
+end
+if File.basename($0) == File.basename(__FILE__)
+    Mappum::Mapserver.parseopt
+    Mappum::Mapserver.run!
+end

data/lib/mappum/mapserver/views/transform-ws.wsdl.erb

@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name="transfer-ws"
+  targetNamespace="http://mappum.ivmx.pl/transfer-ws/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:tns="http://mappum.ivmx.pl/transfer-ws/" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+  <%@xml_imports.each do |file, namespace|%>
+  xmlns:<%=get_xmlns(namespace)%>="<%=namespace%>"
+  <%end%>>
+  
+  <%@xml_imports.each do |file, namespace|%>
+    <wsdl:import namespace="<%=namespace%>"
+     location="<%=file%>"/>
+  <%end%>
+  <%@xml_elements.each do |qname|%>
+    <wsdl:message name="<%=qname.name%>">
+      <wsdl:part name="parameters" element="<%=get_xmlns(qname.namespace)%>:<%=qname.name%>"/>
+    </wsdl:message>
+  <%end%>  
+    <wsdl:message name="any">
+    <wsdl:part name="parameters" type="xsd:anyType"/>
+  </wsdl:message>
+  <wsdl:portType name="default">
+  <%@xml_maps.each do |name, from, to|%>
+    <wsdl:operation name="<%=name%>">
+      <wsdl:input message="tns:<%=from.name%>"/>
+      <wsdl:output message="tns:<%=to.name%>"/>
+    </wsdl:operation>
+  <%end%>
+  </wsdl:portType>
+  <wsdl:binding name="binding" type="tns:default">
+    <soap:binding style="document"
+      transport="http://schemas.xmlsoap.org/soap/http" />
+        <%@xml_maps.each do |name, from, to|%>
+            <wsdl:operation name="<%=name%>">
+              <soap:operation soapAction="<%=name%>" />
+              <wsdl:input>
+                <soap:body use="literal" />
+              </wsdl:input>
+              <wsdl:output>
+                <soap:body use="literal" />
+              </wsdl:output>
+            </wsdl:operation>
+        <%end%>
+  </wsdl:binding>
+  <wsdl:service name="transfer">
+    <wsdl:port name="http" binding="tns:binding">
+      <soap:address location="http://localhost:9292/transform-ws" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

data/lib/mappum/mapserver/views/ws-error.erb

@@ -0,0 +1,10 @@
+<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Body>
+    <env:Fault>
+     <faultcode><%=ERB::Util.html_escape @error.class.to_s%></faultcode>
+     <faultstring><%=ERB::Util.html_escape @error.message%></faultstring>
+     <faultactor>Server</faultactor>
+     <detail><%=ERB::Util.html_escape @error.backtrace.join("\n")%></detail>
+    </env:Fault>
+  </env:Body>
+</env:Envelope>