nera 0.0.1

data/lib/nera/nera_simulator_records.rb

@@ -0,0 +1,84 @@
+require 'nera_database'
+require 'nera_simulator'
+
+module NERA
+
+  # This class access the simulator table.
+  class SimulatorRecords
+
+    # keys of the simulator table
+    ATTRIBUTES = [ [:id, Integer], [:name, String], [:created_at, DateTime], [:updated_at, DateTime] ]
+
+    # NERA::Database object
+    @db
+
+    # argument is the path to database file
+    def initialize( db_file)
+      @db = NERA::Database.new( db_file)
+    end
+
+    # if file already exists, returns false
+    def self.create_table( db_file)
+      NERA::Database.create_table( db_file)
+    end
+
+    # return keys of the simulator table
+    def keys
+      keys = ATTRIBUTES.map do |x|
+        x[0]
+      end
+    end
+
+    # sim_class must be a subclass of NERA::Simulator
+    def add( sim_class)
+      unless sim_class.superclass == NERA::Simulator
+        raise ArgumentError, "must be a subclass of NERA::Simulator"
+      end
+      name = sim_class.to_s
+      found = @db.find_all do |rec|
+        rec[:name] == name
+      end
+      if found
+        $stderr.puts "Same simulator already exists."
+        return nil
+      end
+      d = DateTime.now
+      h = { :name => name, :created_at => d, :updated_at => d}
+      id = @db.add( h)
+      return id
+    end
+
+    def get_class( id)
+      raise ArgumentError unless id.is_a?(Integer)
+      rec = @db.find_by_id(id)
+      return nil unless rec
+      klass = eval(rec[:name])
+      return klass
+    end
+
+    def list
+      l = @db.find_all do |r| true end
+      return l.to_a
+    end
+
+    def touch( id)
+      raise ArgumentError unless id.is_a?( Integer)
+      rec = @db.find_by_id( id)
+      return nil unless rec
+      rec[:updated_at] = DateTime.now
+      @db.update( rec)
+    end
+
+    def destroy( id)
+      raise ArgumentError unless id.is_a?(Integer)
+      @db.destroy(id)
+    end
+
+    def transaction
+      @db.transaction {
+        yield
+      }
+    end
+    
+  end
+end

data/lib/nera.rb

@@ -0,0 +1,25 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__)+'/nera/') unless
+  $:.include?(File.dirname(__FILE__)+'/nera/') || $:.include?(File.expand_path(File.dirname(__FILE__))+'/nera/')
+
+require 'yaml'
+require 'nera_cui'
+require 'nera_database'
+require 'nera_db_folders'
+require 'nera_dialog'
+require 'nera_job_layer_controller'
+require 'nera_job_records'
+require 'nera_job_script'
+require 'nera_parameter_layer_controller'
+require 'nera_parameter_records'
+require 'nera_run_layer_controller'
+require 'nera_run_records'
+require 'nera_simulator'
+require 'nera_simulator_layer_controller'
+require 'nera_simulator_records'
+
+module NERA
+  VERSION = '0.0.1'
+end

data/lib/nera_addsim/make_simulator.rb

@@ -0,0 +1,307 @@
+require 'nera_dialog'
+
+module NERA
+
+  class CUI_Simulator_Adder
+    #-------------- create simulator script --------------------
+    def script_body(sim_info)
+      params=[]
+      sim_info[:params].each do | param |
+        params << " [#{param[0]},#{param[1]},#{param[2]}]" 
+      end
+      params_str =  params.join(",\n\t\t") 
+      str = <<"BODY"
+class #{sim_info[:name]} < NERA::Simulator
+  
+  Parameters = [#{params_str}\n\t\t]
+                
+  def simulate_command(seed)
+    return \"#{sim_info[:exec]}\"
+  end
+
+end
+BODY
+        return str
+    end
+    private :script_body
+
+    #-------------- add new parameter --------------------
+    def add_param
+      array = []
+      type = [Integer, Float, String]
+      while true
+        $stdout.puts
+        $stdout.puts "+++Input parameter name+++"
+        name = Readline.readline(">").chomp.strip
+        break if name =~ /^[a-z]/ or name =~ /^[A-Z]/
+        $stdout.puts "Input is not valid"
+        $stdout.puts 
+        $stdout.puts "Input the simulator name again."
+      end
+      array << ":#{name}"
+      $stdout.puts
+      num = Dialog.select_one(type, "++Select parameter type+++")
+      array << type[num]
+      default = 0
+      while true
+        $stdout.puts
+        $stdout.puts "+++Input default value+++"
+        default = Readline.readline(">").chomp.strip
+        if default == ""
+          $stdout.puts "Input is empty"
+          next 
+        end
+        if type[num] == Integer or type[num] == Float
+          if /[-+]?(?:[0-9]+(\.[0-9]*)?|(\.[0-9]+))([eE][-+]?[0-9]+)?/ =~ default
+            break
+          end
+        else
+          default = "\"#{default}\"" 
+          break
+        end
+        $stdout.puts "! Input value must be #{type[num]}"
+      end
+      array << default
+      $stdout.puts
+      
+      return array
+    end
+    private :add_param
+
+
+    #-------------- modify parameter --------------------
+    def mod_param(param)
+      type = [Integer, Float, String]
+
+      while true
+        $stdout.puts
+        menu = ["return"]
+        menu += ["Name    -> #{param[0].sub(':','')}"]
+        menu += ["Type    -> #{param[1]}"]
+        menu += ["Default -> #{param[2]}"]
+        menu += ["delete"]
+        num = Dialog.select_one(menu,"Select modifying parameter")
+        
+        case num
+        when 0
+          if param[1] == Integer or param[1] == Float
+            unless /[-+]?(?:[0-9]+(\.[0-9]*)?|(\.[0-9]+))([eE][-+]?[0-9]+)?/ =~ param[2]
+              $stdout.puts "! Default value must be #{param[1]}"
+              next
+            end
+          end
+          return param
+        when 1
+          name = nil
+          while true
+            $stdout.puts
+            $stdout.puts "+++Input parameter name+++"
+            name = Readline.readline(">").chomp.strip
+            break if name =~ /^[a-z]/ or name =~ /^[A-Z]/
+            $stdout.puts "Input is not valid"
+            $stdout.puts 
+            $stdout.puts "Input the simulator name again."
+          end
+          param[0] = ":#{name}"
+        when 2
+          $stdout.puts
+          num = Dialog.select_one(type, "+++Select new parameter type+++ \n #{param[1]} ->")
+          param[1] = type[num]
+        when 3
+          while true
+            $stdout.puts
+            $stdout.puts "+++Input new default value+++"
+            default = Readline.readline("#{param[2]} -> ").chomp.strip
+            # p param[1]
+            if param[1] == Integer or param[1] == Float
+              if /[-+]?(?:[0-9]+(\.[0-9]*)?|(\.[0-9]+))([eE][-+]?[0-9]+)?/ =~ default
+                param[2] = default
+                break
+              end
+            else 
+              param[2] = "\"#{default}\""
+              break
+            end
+            $stdout.puts "! Input value must be #{param[1]}"
+          end
+        when 4
+          if param[1] == Integer or param[1] == Float
+            unless /[-+]?(?:[0-9]+(\.[0-9]*)?|(\.[0-9]+))([eE][-+]?[0-9]+)?/ =~ param[2]
+              $stdout.puts "! Default value must be #{param[1]}"
+              next
+            end
+          end
+          return []
+        end
+      end
+    end
+    private :mod_param
+
+
+    ########################################
+    #   Main process
+    ########################################
+    def main_process( db_folder )
+      sim_info = {}
+      #-------------- set simulator name --------------------
+      $stdout.puts "=================================================="
+      $stdout.puts "(1/4)  Simulator Name "
+      $stdout.puts "=================================================="
+      $stdout.puts "Input the simulator name."
+      while true
+        name = Readline.readline(">",true).chomp.strip
+        if name == ""
+          $stdout.puts "Input is empty"
+          $stdout.puts 
+          $stdout.puts "Input the simulator name again."
+          next
+        end
+        if /\W/ =~ name
+          $stdout.puts "You can use only alphameric characters; 0-9, A-Z, a-z, and _(underscore) ."
+          $stdout.puts 
+          next
+        elsif /^[_0-9]/ =~ name
+          $stdout.puts "Initial character must be capital Roman-character."
+          $stdout.puts 
+          next
+        elsif /^[a-z]/ =~ name
+          name[0,1] = name[0,1].upcase
+        end
+        
+        if File.exists?(db_folder+"Simulator_classes/"+name+".rb") or File.exists?(db_folder + name )
+          $stdout.puts "The simulator \"#{name}\" already exists. "
+          return nil
+        end
+        
+        $stdout.print "Would you create a new simulator \"#{name}\" ?(y/n): "
+        if Readline.readline("").chomp.strip == "y"
+          sim_info[:name]=name
+          break
+        end
+        $stdout.puts
+        $stdout.puts "Input the simulator name again."
+      end
+
+      #-------------- set executable file --------------------
+      $stdout.puts 
+      $stdout.puts "=================================================="
+      $stdout.puts "(2/4)  Path of Executable File "
+      $stdout.puts "=================================================="
+      $stdout.puts "Input the path of the executable file."
+      home  = File.expand_path("~/")+"/"
+      Dir.chdir(home) do 
+        while true
+          path_file = Readline.readline("> ~/").chomp.strip
+          unless File.file?(home+path_file)
+            $stdout.puts "File \"~/#{path_file}\" is not found."
+            $stdout.print "Would you abort this registration\" ?(y/n): "
+            return nil if Readline.readline("").chomp.strip == "y"
+          else
+            if (File.stat(home+path_file).mode & 2**6 ) != 2**6
+              $stdout.puts "File ~/#{path_file} is not executable."
+              $stdout.print "Would you abort this registration\" ?(y/n): "
+              return nil if Readline.readline("").chomp.strip == "y"
+            end
+          end
+          
+          $stdout.print "Would you use \"~/#{path_file}\" ?(y/n): "
+          if Readline.readline("").chomp.strip == "y"
+            sim_info[:path]="~/"+path_file
+            break
+          end
+          $stdout.puts
+          $stdout.puts "Input the path of the executable file again."
+        end
+      end
+
+      #-------------- set parameters --------------------
+      $stdout.puts 
+      $stdout.puts "=================================================="
+      $stdout.puts "(3/4)  Parameters "
+      $stdout.puts "=================================================="
+      $stdout.puts "Set parameters"
+
+      exec = ""
+      path = sim_info[:path]
+      params = []
+      while true
+        $stdout.puts "------------------------------"
+        $stdout.puts "Execute command :"
+        params_str = ""
+        params.each do | name, type, default |
+          params_str += " (#{name.sub(':','')})"
+        end
+        exec = "#{path}#{params_str} (seed)"
+        $stdout.puts "  $ #{exec}"
+        $stdout.puts "------------------------------"
+        menu =["add"]
+        params.each do | name, type, default |
+          menu += ["#{name.sub(':','')} : #{type} (default #{default})"]
+        end
+        menu += ["exit"]
+        num = Dialog.select_one(menu)
+        # p menu[num]
+        case menu[num]
+        when "add"
+          params << add_param()
+          next
+        when "exit"
+          if params.length==0
+            $stdout.print "Any parameters don't exist. Would you continue this registration?(y/n): "
+            next if Readline.readline("").chomp.strip != "y"
+          end
+          break
+        else
+          case tmp = mod_param(params[num-1])
+          when []
+            params.delete_at(num-1)
+          when params[num-1]
+            next
+          else
+            params[num-1] = tmp
+          end
+
+        end
+      end
+
+      sim_info[:exec] = exec.gsub("(seed)", "\#\{seed\}").gsub("(", "\#\{@param\[:").gsub(")","\]\}")
+      sim_info[:params] = params
+
+
+      #-------------- finish --------------------
+      $stdout.puts 
+      $stdout.puts "=================================================="
+      $stdout.puts "(4/4)  Completed successfully "
+      $stdout.puts "=================================================="
+      $stdout.puts "+ Simulator Name : #{sim_info[:name]}"
+      $stdout.puts "+ Executable File : #{sim_info[:path]}"
+      $stdout.puts "+ Parameters : "
+      if sim_info[:params].length == 0 
+        $stdout.puts "     No parameter"
+      else
+        index = 1
+        cmd = []
+        sim_info[:params].each do |name, type, default|
+          cmd << name.sub(':','')
+          $stdout.puts "     #{index}-> #{name.sub(':','')} : #{type} (default #{default}) "
+          index += 1
+        end
+      end
+      $stdout.puts "+ Command : \"#{sim_info[:exec].gsub( "\#\{seed\}","(seed)").gsub("\#\{@param\[:","(").gsub("\]\}",")")}\""
+      
+      return sim_info
+    end
+    
+    #-------------- output file --------------------
+    def initialize(db_folder)
+      sim_info = main_process( db_folder + '/' ) 
+      return nil if sim_info == nil
+      $stdout.puts "----------------------------------------"
+      filename = sim_info[:name]+".rb"
+      $stdout.puts "This simulator is saved as \"#{filename}\""
+      $stdout.puts "----------------------------------------"
+      File.open(db_folder+"/Simulator_classes/"+filename,"w").puts script_body(sim_info)
+    end
+    
+  end
+end

data/scripts/make_manifest.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby
+
+base_dir = File.join(File.dirname(__FILE__), "..")
+glob_pattern = File.join("**", "*")
+exclude_patterns = [
+  /^pkg/,/^doc/,
+]
+
+Dir.chdir(base_dir)
+files = Dir.glob(glob_pattern).delete_if do |fname|
+  File.directory?(fname) or
+  exclude_patterns.find do |pattern|
+    pattern =~ fname
+  end
+end
+manifest = File.new("Manifest.txt", "w")
+manifest.puts files.sort.join("\n")
+manifest.close
+
+puts "Manifest.txt updated"
+

data/test/runner.rb

@@ -0,0 +1,3 @@
+require 'test/unit'
+
+Test::Unit::AutoRunner.run(true, './', ['--exclude=test_nera_dialog'])

data/test/test_helper.rb

@@ -0,0 +1,52 @@
+require 'stringio'
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/nera'
+
+class Ising < NERA::Simulator
+  Parameters = [ [:L, Integer, 32],
+                 [:K, Float, 0.223],
+                 [:tmax, Integer, 512]
+               ]
+
+  def simulate_command( seed)
+    return "echo Ising!"
+  end
+
+  public
+  def analyze_test1
+    FileUtils.touch("test1")
+  end
+
+  def analyze_test2
+    FileUtils.touch("test2")
+  end
+
+end
+
+class Heisenberg < NERA::Simulator
+  Parameters = [ [:lx, Integer, 255],
+                 [:ly, Integer, 255],
+                 [:lz, Integer, 256],
+                 [:k, Float, 0.223],
+                 [:mag_field, Float, 0.85],
+                 [:tmax, Integer, 512]
+               ]
+  
+  def simulate_command( seed)
+    return "echo Heisenberg!"
+  end
+  
+end
+
+class XY < NERA::Simulator
+  Parameters = [ [:L,Integer,32], [:K,Float,0.22], [:in_trashbox? ,Integer,128] ]
+end
+
+
+class Temp
+  Parameters = [ [:hoge, Float, 0.5]]
+  
+  def self.parameter_array
+    return [:L,:tmax]
+  end
+end