gfdnavi 1.3.0.0

data/app/views/draw_method/create.rhtml

@@ -0,0 +1,8 @@
+<h2>Create Draw Method</h2>
+<% form_tag do %>
+
+  <%= render :partial=>"edit_form" %>
+
+  <%= submit_tag("create") %>
+
+<% end %>

data/app/views/draw_method/details.rhtml

@@ -0,0 +1,113 @@
+<%
+ary=Array.new
+@draw_method.nvars.times{|i|
+  ary[i]= i==0 ? "gphys" : "gphys#{i}"
+}
+arg_str = ary.join(", ")
+%>
+<h2>Draw Method: <%= h(@draw_method.name) %></h2>
+
+<table border=2>
+  <tr>
+    <th colspan=2>name</th>
+    <td><%= h(@draw_method.name) %></td>
+  </tr>
+  <tr>
+    <th colspan=2>description</th>
+    <td><%= h(@draw_method.description) %></td>
+  </tr>
+<% if @draw_method.owner == @user %>
+  <tr>
+    <th colspan=2>usable to</th>
+    <td><%= if @draw_method.other_readable
+              rgs = Group.find_by_bit_flag(@draw_method.rgroups) 
+              srgs = rgs.length>0 ? '  ('+rgs.collect{|g| g.name}.join(' ')+')' : ''
+              "everyone"+srgs
+	    else
+              ags = Group.find_by_bit_flag(@draw_method.groups_readable)
+              ags.length>0 ? ags.collect{|g| g.name}.join(' ') :  'nobody'
+	    end
+      %></td>
+  </tr>
+<% end %>
+  <tr>
+    <th colspan=2>number of variables</label></th>
+    <td><%= @draw_method.nvars %></td>
+  </tr>
+  <tr>
+    <th colspan=2>number of dimensions</label></th>
+    <td><%= @draw_method.ndims %></td>
+  </tr>
+  <tr>
+    <th colspan=2>vizshot method</label></th>
+    <td><%= @draw_method.vizshot_method %></td>
+  </tr>
+  <tr>
+    <th colspan=2>script for vizshot</th>
+    <td>
+<% if @draw_method.script %>
+     {|<%= arg_str %>|
+      <br/>
+      <div style="padding-left:1em">
+        <pre><%= h(@draw_method.script) %></pre>
+      </div>
+      }
+<% end %>
+    </td>
+  </tr>
+  <tr>
+    <th colspan=2>script for ggraph</th>
+    <td>
+<% if @draw_method.ggraph %>
+     {|<%= arg_str %>|
+      <br/>
+      <div style="padding-left:1em">
+        <pre><%= h(@draw_method.ggraph) %></pre>
+      </div>
+      }
+<% end %>
+    </td>
+  </tr>
+
+
+<%
+attrs = @draw_method.draw_method_attributes
+nattr = attrs.length
+nattr.times do |j|
+  attr = attrs[j]
+%>
+  <tr>
+    <th rowspan=5>attribute<%= j %></th>
+    <th>name</th>
+    <td><%= h(attr.name) %></td>
+  </tr>
+  <tr>
+    <th>value type</th>
+    <td><%= h(attr.value_type.name) %></td>
+  </tr>
+  <tr>
+    <th>default</th>
+    <td><%= h(attr.default) %></td>
+  </tr>
+  <tr>
+    <th>optional</th>
+    <td><%= attr.optional ? "true" : "false" %></td>
+  </tr>
+  <tr>
+    <th>parser</th>
+    <td><%= h(attr.parser) %></td>
+  </tr>
+<% end %>
+
+
+
+</table>
+
+<br/>
+<br/>
+
+<% if (@user.super_user || @draw_method.owner==@user) && !@draw_method.default %>
+<%= link_to("edit draw_methodtion", :action => "edit", :id => h(@draw_method.name)) %>
+<br/>
+<% end %>
+<%= link_to("back to list", :action => "list") %>

data/app/views/draw_method/edit.rhtml

@@ -0,0 +1,8 @@
+<h2>Edit Draw Method: <%=h(@draw_method.name)%></h2>
+<% form_tag do %>
+
+  <%= render :partial=>"edit_form" %>
+
+  <%= submit_tag("edit") %>
+
+<% end %>

data/app/views/draw_method/list.rhtml

@@ -0,0 +1,80 @@
+<h2>Own Draw Methods</h2>
+<%
+ndm = @own_dms.length
+if ndm == 0
+%>
+None
+<% else %>
+<table border=1>
+  <tr>
+    <th>name</th>
+    <th>description</th>
+    <th></th>
+    <th></th>
+  </tr>
+<%
+  ndm.times{|n|
+    dm = @own_dms[n]
+    name = h(dm.name)
+%>
+  <tr>
+    <td><%= name %></td>
+    <td><%= h(dm.description) %></td>
+    <td><%= link_to("details", :action=>"details", :id=>name) %></td>
+<% unless dm.default %>
+    <td><%= link_to("edit", :action=>"edit", :id=>name) %></td>
+<% else %>
+    <td></td>
+<% end %>
+  </tr>
+<% } %>
+</table>
+<%  end %>
+
+<br/>
+<br/>
+
+<h2>Othere Draw Methods</h2>
+<%
+ndm = @other_dms.length
+if ndm == 0
+%>
+None
+<% else %>
+<table border=1>
+  <tr>
+    <th>name</th>
+    <th>description</th>
+    <th></th>
+<% if @super_user %>
+    <th></th>
+    <th></th>
+<% end %>
+  </tr>
+<%
+  ndm.times{|n|
+    dm = @other_dms[n]
+    name = h(dm.name)
+%>
+  <tr>
+    <td><%= name %></td>
+    <td><%= h(dm.description) %></td>
+    <td><%= link_to("details", :action=>"details", :id=>name) %></td>
+<% if @super_user %>
+    <td><%= h(dm.owner.login) %>
+  <% unless dm.default %>
+    <td><%= link_to("edit", :action=>"edit", :id=>name) %></td>
+  <% else %>
+    <td></td>
+  <% end %>
+<% end %>
+  </tr>
+<% } %>
+</table>
+<%  end %>
+
+<br/>
+<br/>
+
+
+<%= link_to("create draw method", :action => "create") %>

data/app/views/explorer/_display_map.rhtml

@@ -0,0 +1,199 @@
+<script type="text/javascript">
+
+var select_region;
+var partial_covered=[];
+var points=[];
+var marker;
+
+window.onload = function() {
+  map = new GMap2($("map"));
+  map.addControl(new GLargeMapControl());
+  map.addControl(new GScaleControl());
+  map.addControl(new GMapTypeControl());
+  startflg=false;
+  dDrag();
+<% if @start_lon==nil && @previd!=nil then 
+#   qh=QueryHistory.find(:first,:conditions=>["querypath like concat('%',?)",@previd])
+   qh=QueryHistory.find(:first,:conditions=>["queryset_id=? and querytype='space'",@results.qsetid])
+   if qh!=nil then
+    /\[S\]\((.*),(.*)\)-\((.*),(.*)\)/=~qh.description
+         @start_lon=$1.to_f
+         @start_lat=$2.to_f
+         @end_lon=$3.to_f
+         @end_lat=$4.to_f
+   end
+ end %>
+  
+<% if @start_lon!=nil then %>
+  <% if @start_lon.to_f > 180 then
+       slon=180-@start_lon.to_f
+     else 
+       slon=@start_lon.to_f
+     end
+     if @end_lon.to_f > 180 then
+       elon=180-@end_lon.to_f
+     else 
+       elon=@end_lon.to_f
+     end
+  %>
+  
+  $("start_lon").value=<%= slon %>
+  $("end_lon").value=<%= elon %>
+  $("start_lat").value=<%= @start_lat %>
+  $("end_lat").value=<%= @end_lat %>
+    
+  var rectObj;
+  <% if @dateline==1 then %>
+    rectObj = new GLatLngBounds(new GLatLng(<%=@start_lat.to_f%>,<%=elon%>), new GLatLng(<%=@end_lat.to_f%>,<%=slon%>));
+  <% else %>
+    rectObj = new GLatLngBounds(new GLatLng(<%=@start_lat.to_f%>,<%=slon%>), new GLatLng(<%=@end_lat.to_f%>,<%=elon%>));
+  <% end %>
+  var zm = map.getBoundsZoomLevel(rectObj);
+  <% if @dateline==1 then 
+    cntr=((slon+elon)/2)+180;
+    if cntr>180 then
+      cntr = 180-cntr
+    end  
+  %>
+    map.setCenter(new GLatLng(<%=(@end_lat.to_f+@start_lat.to_f)/2 %>,<%= cntr %>), zm, G_NORMAL_MAP);
+  <% else %>
+    map.setCenter(new GLatLng(<%= (@end_lat.to_f+@start_lat.to_f)/2 %>,<%= (slon+elon)/2 %>), zm, G_NORMAL_MAP);  
+  <% end %>
+  var rectBounds = new GLatLngBounds(new GLatLng(<%=@start_lat%>,<%=slon%>),new GLatLng(<%=@end_lat%>,<%=elon%>));
+  select_region = new Rectangle(rectBounds);
+  map.addOverlay(select_region);
+<% else %>
+  map.setCenter(new GLatLng(35.39,139.44),1, G_NORMAL_MAP);
+<% end %>  
+  showpoints();
+  showregions();
+
+}
+
+function modulo(x,y){
+    mod = x % y;
+    if (mod<0){ mod += y}
+    return mod;
+}
+
+function dDrag() {
+   GEvent.clearListeners(map,"mousemove");
+   map.disableDragging();
+   
+   GEvent.addListener(map, "click", function(overlay, point){
+   
+      current_point=new GLatLng(point.x,point.y);
+      
+      if(point.x<0){ point.x=360+point.x; }   
+      if(!startflg){
+        if(select_region){
+          map.removeOverlay(select_region);
+        }
+        start_point=point;
+        $("start_lon").value=point.x;
+        $("start_lat").value=point.y;
+        startflg=true;
+        var rectBounds = new GLatLngBounds(start_point,start_point);
+        select_region = new Rectangle(rectBounds);
+        map.addOverlay(select_region);
+      }else{
+        end_point=point;
+        startflg=false;
+        map.removeOverlay(select_region);
+	mwblon = map.getBounds().getSouthWest().lng(); 
+                 // mwblon = west boundary lon of the map
+        if( modulo(end_point.x-mwblon,360) > modulo(start_point.x-mwblon,360)){
+            sw_point = start_point;
+            ne_point = end_point;
+        }else{
+            sw_point = end_point;
+            ne_point = start_point;
+        }
+        ney = ne_point.y;
+	if (sw_point.y > ney){
+           ne_point.y = sw_point.y;
+           sw_point.y = ney;
+        }
+	latlngbounds =new GLatLngBounds(sw_point,ne_point);
+        select_region = new Rectangle(latlngbounds);
+        map.addOverlay(select_region);
+        $("start_lon").value=sw_point.x;
+        $("start_lat").value=sw_point.y;
+        $("end_lon").value=ne_point.x;
+        $("end_lat").value=ne_point.y;
+      }
+    });
+       
+}
+
+function create_square(slat,slon,elat,elon,col){
+	  var polygon = new GPolygon([
+	    new GLatLng(slat,slon),
+	    new GLatLng(slat,elon),
+	    new GLatLng(elat,elon),
+	    new GLatLng(elat,slon),
+	    new GLatLng(slat,slon)
+	  ], col, 1, 0.6, '#ccccff', 0.1);
+    return polygon;
+}
+
+function create_square2(sp,ep,col){
+  return create_square(sp.lat(),sp.lng(),ep.lat(),ep.lng(),col);
+}
+
+function showregions(obj){
+    var res=$("partial_covered").childNodes;
+    var j=0;
+    for(i=0;i<res.length;i++){
+      if(res[i].id!=undefined){
+        var slon = parseFloat(res[i].childNodes[1].innerHTML);
+        var slat = parseFloat(res[i].childNodes[3].innerHTML);
+        var elon = parseFloat(res[i].childNodes[5].innerHTML);
+        var elat = parseFloat(res[i].childNodes[7].innerHTML);
+	    sp=new GLatLng(slat,slon);
+	    ep=new GLatLng(elat,elon);
+	    partial_covered[j]=create_square2(sp,ep,'#0000ff');
+	    map.addOverlay(partial_covered[j]);
+	    j++;
+      }     
+    }
+}
+
+function show_regions(obj){
+  if(!obj.checked){
+    for(i=0;i<partial_covered.length;i++){
+      map.removeOverlay(partial_covered[i]);
+    }
+  }
+  else{
+    showregions();
+  }
+}
+
+function showpoints(){
+    var res=$("points").childNodes;
+    var j=0;
+    for(i=0;i<res.length;i++){
+      if(res[i].id!=undefined){
+        var lon = parseFloat(res[i].childNodes[1].innerHTML);
+        var lat = parseFloat(res[i].childNodes[3].innerHTML);
+	    pt=new GLatLng(lat,lon);
+	    points[j]=new GMarker(pt);
+	    map.addOverlay(points[j]);
+	    j++;
+      }     
+    }
+}
+
+function show_points(obj){
+  if(!obj.checked){
+    for(i=0;i<points.length;i++){
+      map.removeOverlay(points[i]);
+    }
+  }
+  else{
+    showpoints();
+  }
+}
+
+</script>

data/app/views/explorer/_show_result_tree.rhtml

@@ -0,0 +1,40 @@
+<% stack=Array.new
+   ret=false
+   stack.push({:node=>@results.resulttree,:count=>0,:check=>false,:level=>0})
+   while stack.size>0 do
+     cur=stack[stack.size-1] 
+     if cur[:check]==false then
+      if ret==true then
+        cur[:level].to_i.times do
+     -%>
+     &nbsp;&nbsp;
+        <% end 
+      end
+      if cur[:node].path!="/" then
+     %>
+     <%=cur[:node].path.gsub(" ","")-%>
+   <% 
+      end
+       cur[:check]=true
+       if cur[:node].children.size!=1 then -%>
+       (<%= cur[:node].count -%>)<br>
+       <%
+        ret=true
+        if cur[:node].children.size==0 && cur[:node].entries.size>0 then %>
+          <%= render :partial=>"show_results", :collection=>cur[:node].entries, :locals=>{:indent=>cur[:level].to_i+1} %>
+      <%end        
+        
+       else -%>/
+       <%
+        ret=false
+       end
+     end
+     if cur[:count]==cur[:node].children.size then 
+        stack.pop
+      else
+        key=cur[:node].children.keys[cur[:count]]
+        stack.push({:node=>cur[:node].children[key],:count=>0,:check=>false,:level=>cur[:level]+1})
+        cur[:count]=cur[:count]+1
+      end
+   end
+-%>