agri-controller 0.0.0

data/bin/main.bat

@@ -0,0 +1,2 @@
+ruby main.rb
+pause

data/bin/main.rb

@@ -0,0 +1,23 @@
+
+#$:.unshift("../lib") if $0==__FILE__
+require "rubygems"
+require "agri-controller"
+include AgriController
+
+Thread.abort_on_exception=true
+
+#Save program-ID
+p pid=Process.pid
+open("main_pid","w"){|io| io.print pid.to_s}
+
+#Set TRAP
+trap(:KILL){Process.kill(:QUIT, Process.pid)}
+
+#config setting
+dircopy
+
+#Run
+a=Thread.start{thermo_gruff_loop}
+#main loop
+kr_run
+a.join

data/bin/memo.txt

@@ -0,0 +1,4 @@
+memo
+  cgi-bin�̕Ґ�����������
+�@�@log
+�@�@�@old_log

data/bin/server.bat

@@ -0,0 +1 @@
+ruby server.rb

data/bin/server.rb

@@ -0,0 +1,4 @@
+require "rubygems"
+require "agri-controller"
+include AgriController
+webrick_start(root=Dir.pwd)

data/bin/set_config.rb

@@ -0,0 +1,47 @@
+#x="./cgi-bin/log/"
+#p File.exist?(x)
+require "rubygems"
+require "agri-controller"
+include AgriController
+#require "pp"
+list=Dir.glob("cgi-bin/config/*").sort
+#if $ARGV ==nil
+catch(:exit) do
+  loop do
+    x=0
+    hash={}
+    
+    list.each do |file|
+      #print x.to_s," : ",File.read(file),"\n"
+      if File.file?(file)
+        base=File.basename(file)
+        y=yaml_dbr(base,file)
+        print x.to_s,":",base,":    ",y.inspect,"\n"
+        #config object to Hash
+        hash[x.to_s]=[file,y]
+        x+=1
+      end
+    end
+    
+    print "<0-#{x-1}>input_number:"
+    a=gets().chomp.upcase
+    if hash.has_key?(a)
+      y2=hash[a]
+      print y2[0].inspect," # => ",y2[1].inspect,"\nnew_data:"
+      x=gets.chomp
+      if x!=""
+        begin
+          p yaml_db(File.basename(y2[0]),eval(x),y2[0])
+        rescue
+          p yaml_dbr(File.basename(y2[0]),y2[0])
+        end
+        sleep 0.3
+      end
+    elsif a.include?("E") or a.include?("Q") or a.include?("B")
+      throw :exit
+    else
+    end
+    a="",x=""
+  end
+end
+print "bye!\n"

data/bin/usual.rb

@@ -0,0 +1,3 @@
+require "rubygems"
+require "agri-controller"
+include AgriController

data/lib/agri-controller.rb

@@ -0,0 +1,33 @@
+#!ruby
+#coding:utf-8
+$KCODE="s" if RUBY_VERSION < "1.9.0"
+
+#File.expand_path(File.dirname(__FILE__))
+Dir.glob(File.dirname(__FILE__)+"/agri-controller/*.rb").each do |file|
+#p file
+require file
+end
+
+module AgriController
+  module_function
+end
+
+if $0==__FILE__
+include AgriController
+
+p WR1010_2::list(6,3)
+p KR::export("%01#RCCX00000000**\r",5)#  Dir_log="./log"
+#  Dir_config="./config"
+#  Dir_thermo_data="./thermo_data"
+#  Dir_cgi="../cgi-bin"
+#  Dir_gruff="../htdocs/thermo"
+#  Dir_gruff_small="../htdocs/thermo/thumb"
+
+#t1=Thread.start{thermo_gruff_loop}
+#t2=Thread.start{webrick_start(root=Dir.pwd)}
+
+#main_new
+
+#t1.join
+#t2.join
+end

data/lib/agri-controller/bcc.rb

@@ -0,0 +1,53 @@
+module AgriController
+  module Bcc
+  module_function
+    def _xor(x,y)
+      x1=Bit.new(x.ord)
+      y1=Bit.new(y.ord)
+    #p x1.tos(8,2)
+    #p y1.tos(8,2)
+      (0..7).each do |i|
+    x1.boolbit(!(((x1.on?(i) && y1.on?(i))or x1.off?(i) && y1.off?(i))),i)
+    end
+    #p ret=x1.tos(8,2)
+
+    x1.bit
+
+    end
+
+    #xor check SUM
+    def bcc(str)
+    x=str[0]
+    (str.size-1).times do |i|
+    x=_xor(x,str[i+1])
+    end
+    #p x
+    ret=Bit.new(x).tos(2,16).upcase
+    end
+  end
+def bcc?(str,bcc_char=nil)
+  str2=str.chomp.upcase
+  unless bcc_char && str2.size>2
+    bcc_char=str2[-2..-1]
+    str2=str2[0..-3]
+  else
+    bcc_char=bcc_char.chomp.upcase
+  end
+    bcc_char==bcc(str2)
+end
+end
+
+if $0==__FILE__
+require "bit"
+
+str="%01#RCSX0000"
+include AgriController
+AgriController::Bcc::bcc(str)
+str1="%01#RCSX0000"+"1d\r"
+str2="%01#RCSX0000"
+p Bcc::bcc?(str1)==true
+p Bcc::bcc?(str2,"1D")==true
+p Bcc::bcc?(str2,"1d\r")==true
+
+
+end

data/lib/agri-controller/bit.rb

@@ -0,0 +1,143 @@
+##
+#class Bit
+#          is simple bit culcurater.
+#  if on or off
+#        on(bit) # => on bit
+#        on(1)   # =>2 (if @bit==0)
+#        on(1)   # =>3 (if @bit==1)
+#        on(1)   # =>7 (if @bit==5)
+#    bit_on(bit) # => on bit
+#
+#        off(1)  # =>0 (if @bit==2)
+#        off(1)  # =>1 (if @bit==3)
+#        off(1)  # =>5 (if @bit==7)
+#    bit_off(bit)# => off bit
+#
+#  if check_bit
+#     on?(bit)# =>true or false
+#    off?(bit)# =>true or false
+#
+#  boolbit(true,bit) # ==on(bit)
+#  boolbit(false,bit)# ==off(bit)
+module AgriController
+  class Bit
+  attr_accessor:bit
+    def initialize(bit=0)
+      @bit=bit
+    end
+    
+    def boolbit(bool,bit)
+      if bool
+        bit_on(bit)
+      else
+        bit_off(bit)
+      end
+    end
+    
+    def bit_on(bit)
+      unless on?(bit)
+        @bit+= 2**bit
+      end
+      @bit
+    end
+    
+    def tos(int=6,bit_num=16)
+      x=@bit.to_s(bit_num)
+      (int-x.size).times do
+        x="0"+x
+      end
+      return x.upcase
+    end
+    
+    def bit_off(bit)
+      if on?(bit)
+        @bit=@bit - 2**bit
+      end
+      @bit
+    end
+    
+    def on?(bit)
+      str=tos(24,2)
+        case str.slice(-1-bit,1)
+        when "1"
+          true
+        when "0"
+          false
+        else
+          nil
+        end
+    end
+    def off?(bit)
+      not(on?(bit))
+    end
+    def help
+  "##
+  #class Bit
+  #          is simple bit culcurater.
+  #  if on or off
+  #        on(bit) # => on bit
+  #        on(1)   # =>2 (if @bit==0)
+  #        on(1)   # =>3 (if @bit==1)
+  #        on(1)   # =>7 (if @bit==5)
+  #    bit_on(bit) # => on bit
+  #
+  #        off(1)  # =>0 (if @bit==2)
+  #        off(1)  # =>1 (if @bit==3)
+  #        off(1)  # =>5 (if @bit==7)
+  #    bit_off(bit)# => off bit
+  #
+  #  if check_bit
+  #     on?(bit)# =>true or false
+  #    off?(bit)# =>true or false
+  #
+  #  boolbit(true,bit) # ==on(bit)
+  #  boolbit(false,bit)# ==off(bit)
+  #
+  "
+   end
+   alias on bit_on
+   alias off bit_off
+  end
+end
+if $0==__FILE__
+#require "profile"
+#Test of class Bit
+a=AgriController::Bit.new
+p a
+a.bit_on(1)
+a.bit_on(0)
+a.bit_on(23)
+
+1000.times do
+a.bit_on(1)
+end
+a.bit_on(3)
+a.bit_off(1)
+a.bit_off(1)
+p x=a.bit
+p x.to_s(16)
+a.bit_off(4)
+p x.to_s(2)
+p a.off?(3)
+p a.off?(2)
+p a.off?(1)
+p a.off?(0)
+p a.on?(3)
+p a.on?(2)
+p a.on?(1)
+p a.on?(0)
+p a
+p b=AgriController::Bit.new(11)
+p b.bit.to_s(2)
+print b.help
+c=AgriController::Bit.new(8388621)
+p c
+p c.tos
+p c.boolbit(true,4)
+p c.tos
+p c.boolbit(false,4)
+p c.tos
+p c.on(4)
+p c.bit
+
+end

data/lib/agri-controller/dacs.rb

@@ -0,0 +1,114 @@
+#require "serial"
+#require "Win32API" #for windows.
+
+module AgriController
+  ##
+  #use Dacs_32bit_I/O_photoMOS_reray on usb_serial_port (win,linux compatible)
+  module Dacs
+    #export is a simple IO_command send(set),and recieve(import)
+    # search com_port(3-19) and communicate
+    #  export("ffffff")# =>"R0FFFFFF&"
+    #
+    #com_port number recommended
+    #com_port=6                   #(see system infomation)
+    #  export("ffffff",com_port,0)#return =>"R0FFFFFF&"
+    #  export("000000",com_port,0)#return =>"R0FFFFFF&"
+    #  export("R",com_port,1)     #return =>"R883DFFF&"
+    #  export("R",com_port)       #return =>"R0FFFFFF&"
+    #
+    #hex_6
+    #ex.          # =>"FBD017","ffffff"
+    #recieve only.# =>"R"
+    def export(hex_6,com_port=port?,io_port=0,dip=0)
+      #hex_6
+      #ex.          # =>"FBD017","ffffff"
+      #recieve only.# =>"R"
+
+      case io_port
+      #io_port must be io_port*8+dip_switch(on board)
+      when 1
+        io_port=8*io_port+dip#2nd word
+      else#io_port should be 0
+        io_port=dip#2nd word
+      end
+      a=Serial.new
+        #search COM port 3-9
+        if a.open(com_port,0,57600,8,0,0,4096,4096)!=-1
+          command="W#{(io_port).to_s}#{hex_6}&"
+          
+          yield command if block_given?
+          #p command
+          a.send(command)
+          sleep 0.04
+          receive=a.receive
+          a.close
+          return receive
+        else
+          return false
+        end
+      nil
+    end
+    
+    ##
+    #search ports COM3-19
+    #if sucsess return int(port number)
+    #else return nil.
+    def port?(x=3)
+      a=Serial.new
+        #search COM port 3-19
+        bool=false#serch flag
+        
+        while bool==false
+          x+=1
+          if x > 20
+            return nil
+          end
+
+          if a.open(x,0,57600,8,0,0,108,324) == -1
+            if x > 20
+              return nil
+            end
+          else
+            a.send("W0R&")
+            sleep 0.1
+            receive=a.receive#should_be "R0xxxxxx&",x=hex
+            #p receive.split(//).last
+            #p x
+            #p receive
+            if receive
+              if receive.split(//).last=="&"
+                if receive.split(//).first=="R"
+                  bool=true
+                end
+              end
+            end
+            a.close
+          end
+        end
+
+      return x
+    end
+    
+    def import(com_port=port?,io_port=0,dip=0)
+      export("R",com_port,io_port,dip)
+    end
+    
+    def import_bit(com_port=port?,io_port=0,dip=0)
+      
+      port_bit=import(com_port=port?,io_port,dip)
+      if port_bit
+        import_bits=port_bit.slice(2,6).to_i(16)
+      else
+        import_bits=0
+      end
+      return import_bits
+    end
+  end
+end
+
+if $0==__FILE__
+  include AgriController::Dacs
+  p port?
+p x=export("FFFFFF",5)
+#p x.to_s(16)
+end