gfdnavi 1.3.0.0

data/app/models/analysis_history.rb

@@ -0,0 +1,42 @@
+require "analysis"
+class AnalysisHistory < Array
+  MAX_LENGTH = 10
+  def push(analysis)
+    raise("Analysis is expected") unless Analysis === analysis
+    case Analysis::ACTION_TYPE[analysis.action_type]
+    when "draw"
+      dl = "Draw: "
+      if analysis.draw_method.nvars >= 2
+        dl += analysis.draw_variables_order.collect{|ary| "["+ary.collect{|i| analysis.variables[i].name}.join(",")+"]" }.join(",")
+      else
+        dl += analysis.variables.collect{|v| v.name}.join(",")
+      end
+      dl += " " + analysis.diagram_label
+    when "analysis"
+      dl = "Analysis: "
+      if analysis.function.nvars > 1
+        dl += analysis.function_variables_order.collect{|i| analysis.variables[i].name }.join(",")
+      else
+        dl += analysis.variables[0].name
+      end
+      dl += ",  " + analysis.function.name
+      arg = analysis.function_arguments
+      if analysis.function.function_arguments.length > 0
+        dl += "(" + analysis.function_arguments.join(",") + ")"
+      end
+    end
+    delete_if{|a| a[1] == dl}
+    super( [analysis,dl] )
+    @offset = 0 if !@offset
+    if length >= MAX_LENGTH + 1
+      shift
+      @offset += 1
+    end
+    self
+  end
+
+  def offset
+    @offset || 0
+  end
+
+end

data/app/models/cross_array.rb

@@ -0,0 +1,22 @@
+require "activerecord_gfdnavi"
+
+class CrossArray
+ #attr_accessor :keynames 
+ attr_accessor :name,:keyvalue , :cnt
+
+def initialize(id)
+    #@keynames = Array.new
+    #@resulttree=PathNode.new
+    #@resulttree.path="/"
+    #@resultids = Array.new
+    #@nodes=Array.new
+    #@qsetid=qsetid
+	#puts "aa"
+ @id=id
+@name=Array.new
+ #@name.push(name)
+ #puts @name
+	@keyvalue=Array.new
+	@cnt=Array.new 
+end
+end

data/app/models/cross_result.rb

@@ -0,0 +1,254 @@
+require "activerecord_gfdnavi"
+
+class CrossResult
+ attr_accessor :id, :keynames, :qsetid, :resulttree, :resultids, :nodes
+  def initialize(qsetid)
+    @keynames = Array.new
+    @resulttree=PathNode.new
+    @resulttree.path="/"
+    @resultids = Array.new
+    @nodes=Array.new
+    @qsetid=qsetid
+  end
+  def reset_resulttree
+    @resulttree=PathNode.new
+    @resulttree.path="/"
+  end 
+  
+  def put_results(nodes)
+    @resultids.clear
+    @nodes.clear
+    @nodes = nodes
+   
+	@nodes.each{ |res|
+      @resultids.push(res.id)      
+    }
+    @resultids.uniq!  
+end
+  
+  def resultlist(p)
+    reset_resulttree   
+    dir=Array.new
+    res=Array.new
+    @nodes.each{ |n|
+      if n.node_type==0 then
+        dir.push n
+      else
+        res.push n
+      end
+    }
+    
+    res.each{ |r|
+      flg=0
+      dir.each{ |d|
+        if r.path=~/#{d.path}/ then
+            flg=1
+            break
+        end
+      }
+      if flg==0 then
+        @resulttree.addpath(r)
+      end
+    }
+    return res
+  end
+ 
+  def count
+    return @resultids.size
+  end
+  
+  def all_covered(slat,slon,elat,elon)
+    tablename="nodes"
+    
+    if @qsetid!=0 then
+      nodelist = "(select distinct ancestor as id from node_lineages where descendant in (#{@resultids.join(',')})) n"
+
+if @resultids.length ==0 then
+        return []          
+      end        
+    else
+      nodelist = "nodes n"
+    end
+
+    qstr=<<-EOM
+      select latitude_lb,longitude_lb, latitude_rt, longitude_rt, 
+             count(*) as cnt
+      from spatial_and_time_attributes s join #{nodelist} on n.id = s.node_id
+      where s.latitude_lb<#{slat} and s.latitude_rt>#{elat}
+        and s.longitude_lb<#{slon} and s.longitude_rt>#{elon}
+        group by s.latitude_lb,s.longitude_lb, s.latitude_rt, s.longitude_rt
+    EOM
+    return Node.find_by_sql(qstr)
+  end
+
+  def partial_covered(slat,slon,elat,elon)
+    if @qsetid!=0 then
+      nodelist = "(select distinct ancestor as id from node_lineages where descendant in (#{@resultids.join(',')})) n"
+      if @resultids.length ==0 then
+        return []          
+      end        
+    else
+      nodelist = "nodes n"
+    end
+    qstr=<<-EOM
+      select latitude_lb,longitude_lb, latitude_rt, longitude_rt, 
+             count(*) as cnt
+      from spatial_and_time_attributes s join #{nodelist} on n.id = s.node_id
+      where not (latitude_lb<#{slat} and latitude_rt>#{elat}
+             and longitude_lb<#{slon} and longitude_rt>#{elon})
+        and latitude_lb<>latitude_rt
+        and longitude_lb<>longitude_rt
+        group by latitude_lb,longitude_lb, latitude_rt, longitude_rt
+    EOM
+    return Node.find_by_sql(qstr)
+  end
+
+  def points(slat,slon,elat,elon)
+    if @qsetid!=0 then
+      nodelist = "(select distinct ancestor as id from node_lineages where descendant in (#{@resultids.join(',')})) n"
+      if @resultids.length ==0 then
+        return []          
+      end        
+    else
+      nodelist = "nodes n"
+    end
+    qstr=<<-EOM
+      select latitude_lb,longitude_lb, latitude_rt, longitude_rt, 
+             count(*) as cnt
+      from spatial_and_time_attributes s join #{nodelist} on n.id = s.node_id
+      where latitude_lb=latitude_rt
+        and longitude_lb=longitude_rt
+      group by latitude_lb,longitude_lb
+    EOM
+    return Node.find_by_sql(qstr)
+  end
+
+  def get_keyname_list
+    if @qsetid!=0 then
+        nodelist = "(select distinct ancestor as id from node_lineages where descendant in (#{@resultids.join(',')})) n"
+        if @resultids.length ==0 then
+           return []          
+        end        
+    else
+      nodelist = "nodes n"
+    end
+    igr_attrs=""
+    i=0
+    GFDNAVI_IGNORED_ATTRS.each{ |iga|
+      if i==0 then
+        igr_attrs="'#{iga}'"
+      else
+        igr_attrs="#{igr_attrs},'#{iga}'"
+      end
+      i=i+1
+    }
+    
+    if GFDNAVI_IGNORED_ATTRS.size>0 then 
+    qstr=<<-EOF
+        select k.name as kname,count(distinct n.id) as cnt
+        from  keyword_attributes k join #{nodelist} on k.node_id = n.id
+        where not (k.name in (#{igr_attrs}))
+        group by k.name
+        order by cnt DESC
+    EOF
+    else
+    qstr=<<-EOF
+        select k.name as kname,count(distinct n.id) as cnt
+        from  keyword_attributes k join #{nodelist} on k.node_id = n.id
+        group by k.name
+        order by cnt DESC
+    EOF
+    end
+    keylist=KeywordAttribute.find_by_sql(qstr)
+    return keylist
+  end
+  
+ def get_path
+  if @qsetid>0 then
+    res=QueryHistory.find(:all,:conditions=>["queryset_id=? and querytype='path'",@qsetid])
+    if res.size>0 then
+      res[0].description=~/[P](.*)/
+      return $1
+    end
+  end
+  return "/"
+ end
+ 
+ def get_path_list
+  if @qsetid>0 then
+    QueryHistory.find(:all,:conditions=>["queryset_id=? and querytype='path'",@qsetid])  
+    tables="(select v.* from nodes v, gfdnavi_querycache.queryset_#{@qsetid} c where v.id=c.vid)"
+    path=get_path
+  else
+    tables="nodes"
+    path="/"
+  end
+      sql1=<<-EOM
+       select d2.path as dpath, count(distinct v.id) as cnt
+       from nodes d1,nodes d2,#{tables} v
+       where d1.path = ?
+         and d2.parent_id = d1.id
+         and v.path like #{concat("d2.path","'%'")}
+       group by d2.path
+       order by cnt DESC
+     EOM
+     pathlist = Node.find_by_sql([sql1,path])
+   return pathlist
+ end
+ 
+ def get_keyvalue_list(keyname)
+    if @qsetid!=0 then
+      nodelist = "(select distinct ancestor as id from node_lineages where descendant in (#{@resultids.join(',')})) n"
+	else
+      nodelist = "nodes n"
+    end
+    qstr=<<-EOF
+        select k.value as value, k.num_value as num_value, count(distinct n.id) as cnt
+        from #{nodelist} join keyword_attributes k on k.node_id=n.id
+        where k.name='#{keyname}'
+        group by k.value
+        order by cnt DESC
+    EOF
+    keylist=KeywordAttribute.find_by_sql(qstr)
+    return keylist
+ end
+ 
+ def get_querysetids(session_id)
+   res=Array.new
+   qhistories=QueryHistory.find_by_sql(["select distinct queryset_id from query_histories where session_id=? order by queryset_id;",session_id])
+   qhistories.each{ |qh|
+     res.push qh.queryset_id
+   }
+   return res
+ end
+ 
+=begin
+ def get_result_path_tree
+   if id!= 0 then
+     reslist=Node.find(:all,:select=>"path, count(*) as cnt",:joins=>"JOIN gfdnavi_querycache.cache_#{@id} ON gfdnavi_querycache.cache_#{@id}.vid=id", :group=>"path", :order=>"path")
+   else
+     reslist=Node.find(:all,:select=>"path, count(*) as cnt",:group=>"path",:order=>"path")
+  end
+  
+  rid=0
+  resultpath=PathNode.new
+  reslist.each{ |res|
+    if resultpath.path=="" then
+      resultpath.path=res.path
+      resultpath.id=rid
+      resultpath.cnt=1
+      rid=rid+1
+    else
+      patharray_res=res.path.split(/\//)
+      patharray_node=resultpath.path.split(/\//)
+      i=0
+      while patharray_res[i]==patharray_node[i] do
+        i=i+1
+      end
+      if patharray_
+    end
+  }    
+  
+ end
+=end
+end

data/app/models/derived_spatial_attribute.rb

@@ -0,0 +1,3 @@
+class DerivedSpatialAttribute < ActiveRecord::Base
+  
+end

data/app/models/diagram_cache.rb

@@ -0,0 +1,16 @@
+class DiagramCache < ActiveRecord::Base
+  belongs_to :variable
+  has_many :variables, :through => :diagram_cache_data
+  has_many :diagram_cache_data, :dependent => :destroy
+  has_many :diagram_cache_sessions, :dependent => :destroy
+
+  def self.find_for_session(id, session_id)
+    dc = DiagramCache.find_by_id(id)
+    if dc && dc.diagram_cache_sessions.find(:first, :conditions => ["session=?",session_id])
+      return dc
+    else
+      return nil
+    end
+  end
+
+end

data/app/models/diagram_cache_datum.rb

@@ -0,0 +1,4 @@
+class DiagramCacheDatum < ActiveRecord::Base
+  belongs_to :diagram_cache
+  belongs_to :variable
+end

data/app/models/diagram_cache_session.rb

@@ -0,0 +1,8 @@
+class DiagramCacheSession < ActiveRecord::Base
+  belongs_to :diagram_cache
+
+  def initialize(*arg)
+    super(*arg)
+    self.share = true
+  end
+end

data/app/models/directory.rb

@@ -0,0 +1,21 @@
+require "activerecord_gfdnavi"
+
+class Directory < NodeEntityAbstract
+
+  def initialize(*arg)
+    super(*arg)
+    self.downloadable = true
+  end
+
+  def downloadable?
+    return false unless plain_file
+    dir = self
+    while (dir)
+      return false unless dir.downloadable
+      dir = dir.parent
+      dir = dir && dir.entity
+    end
+    return true
+  end
+
+end

data/app/models/draw_method.rb

@@ -0,0 +1,48 @@
+class DrawMethod < NodeEntityAbstract
+
+  has_many :draw_method_attributes, :dependent => :destroy
+
+  before_save :check_name
+  after_save :update_yml
+  after_update :update_yml
+
+  protected
+
+  def check_name
+    dm = DrawMethod.find(:first, :conditions=>["name=?",node.name], :user=>:all)
+    if dm && dm != self
+      errors.add("name", "must be uniq")
+      return false
+    end
+  end
+
+  def update_yml
+    return if default
+    h = Hash.new
+    h[:name] = self.name
+    h[:description] = self.description
+    h[:ndims] = self.ndims
+    h[:nvars] = self.nvars
+    h[:vizshot_method] = self.vizshot_method
+    h[:script] = self.script if self.script
+    h[:ggraph] = self.ggraph if self.ggraph
+    h[:setting_html] = self.setting_html if self.setting_html
+    ary = Array.new
+    draw_method_attributes.each{|da|
+      h2 = Hash.new
+      h2[:name] = da.name
+      h2[:value_type] = da.value_type.name
+      h2[:default] = da.default
+      h2[:optional] = da.optional
+      h2[:parser] = da.parser
+      ary.push h2
+    }
+    h[:attributes] = ary if ary.length > 0
+    yml = add_prefix(self.path)+".yml"
+    File.open(yml,"w"){|file|
+      file.print h.to_yaml
+    }
+  end
+
+
+end

data/app/models/draw_method_attribute.rb

@@ -0,0 +1,8 @@
+class DrawMethodAttribute < ActiveRecord::Base
+
+  belongs_to :draw_method
+  belongs_to :value_type
+
+  validates_presence_of :name, :value_type_id
+
+end

data/app/models/draw_parameter.rb

@@ -0,0 +1,12 @@
+class DrawParameter < ActiveRecord::Base
+  belongs_to :node
+  validates_presence_of :name, :value
+
+  def before_validation
+    if value == false
+      self.value = 0
+    elsif value == true
+      self.value = 1
+    end
+  end
+end