agri-controller 0.0.0 → 0.0.8

data/bin/main.bat

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

data/bin/main.rb

@@ -1,23 +0,0 @@
-
-#$:.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

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

data/bin/server.bat

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

data/bin/server.rb

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

data/bin/set_config.rb

@@ -1,47 +0,0 @@
-#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

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

data/lib/agri-controller/dacs.rb

@@ -1,114 +0,0 @@
-#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

data/lib/agri-controller/dircopy.rb

@@ -1,30 +0,0 @@
-#!ruby
-#coding:utf-8
-$KCODE="s" if RUBY_VERSION < "1.9.0"
-module AgriController
-  module_function
-  def dircopy(dir=File.dirname($0))
-    
-    FileUtils.mkdir(dir) unless File.exist?(dir)
-    begin
-      lib=File.dirname(__FILE__)
-      unless File.exist?(dir+"/cgi-bin")
-        #p File.dirname(__FILE__)
-        FileUtils.cp_r(lib+"/../cgi-bin", dest=dir, options = {})
-      p "create-> /cgi-bin"
-      end
-      #rescue
-      #end
-      
-      #begin
-      unless File.exist?(dir+"/htdocs")
-        FileUtils.cp_r(src=lib+"/../htdocs", dest=dir, options = {})
-      p "create-> /htdocs"
-      end
-      
-      #FileUtils.cp_r(Dir.glob(lib+"/bin/*"), dest=dir, options = {})
-      
-      #rescue
-    end
-  end
-end

data/lib/agri-controller/kr.rb

@@ -1,34 +0,0 @@
-#require "serial"
-#require "bcc"
-module AgriController
-  module KR
-    module_function
-    def export(command,com_port=5)
-      time=Time.now+10
-      a=Serial.new
-        time0=Time.now
-        if a.open(com_port,1,38400,8,1,0,8,10)!=-1#115200,57600,38400,19200
-          a.send(command)
-          sleep 0.4
-          #x=0
-          while time > Time.now
-          #x+=1
-          receive=a.receive
-          sleep 0.4
-            break if ((receive!=nil ))#or (receive==">"))
-          #p x
-          end
-          #return receive
-        else
-          receive=false
-        end  
-        a.close
-      #p Time.now-time0
-      return receive
-    end
-  end
-end
-
-if $0==__FILE__
-  p AgriController::KR::export("%01#RCCX00000000**\r",5)# => "%01$RC020013\r"
-end

data/lib/agri-controller/kr_2.rb

@@ -1,78 +0,0 @@
-#require "serial"
-#require "bcc"
-module AgriController
-  module_function
-
-module KR_2
-module_function
-  def export(command,com_port=5)
-    time=Time.now+10
-    a=Serial.new
-      time0=Time.now
-      if a.open(com_port,1,38400,8,1,0,8,10)!=-1#115200,57600,38400,19200
-        a.send(command)
-        sleep 0.4
-        #x=0
-        while time > Time.now
-        #x+=1
-        receive=a.receive
-        sleep 0.4
-          break if ((receive!=nil ))#or (receive==">"))
-        #p x
-        end
-        #return receive
-      else
-        receive=false
-      end  
-      a.close
-    #p Time.now-time0
-    return receive
-  end
-end
-end
-if $0==__FILE__
-=begin
-#  p Bcc::bcc("%01#RCSX0000")
-#  p Bcc::bcc(">%FD0000048042")
-  str="%01#WCCY000000000F00**\r"
-  p x=KR::export(str,5)
-  str="%02#WCCY00000000FF00**\r"
-  p x=KR::export(str,5)
-
-  tim=Time.now
-  str="%01#RCCY00000000**\r"
-  #str='%01#WCCY000000000F00'
-  bcc=Bcc::bcc(str)
-  p command=str#+bcc+"\x0d"
-  p x=KR::export(command,5)
-  p x.slice(7,1).to_i(16)
-  p Time.now-tim
-  puts
-  str="%02#RCCY00000000**\r"
-  #str='%01#WCCY000000000F00'
-  bcc=Bcc::bcc(str)
-  p command=str#+bcc+"\x0d"
-  p x=KR::export(command,5)
-  p x.slice(6,2).to_i(16)
-  p Time.now - tim
-  
-  #str='%02#WCCY00000000FF00'
-  str='%01#WCCY000000000500'
-  bcc=Bcc::bcc(str)
-  p command=str+bcc+"\x0d"
-  p KR::export(command,5)
-  sleep 1
-  str='%01#WCCY000000000000'
-  #str='%01#WCCY000000000F00'
-  bcc=Bcc::bcc(str)
-  p command=str+bcc+"\x0d"
-  p KR::export(command,5)
-  sleep 1
-  #str='%02#WCCY000000000000'
-  #str='%01#WCCY000000000F00'
-  #bcc=Bcc::bcc(str)
-  #p command=str+bcc+"\x0d"
-  #p KR::export(command,5)
-=end
-  p KR::export("%01#RCCX00000000**\r",5)# => "%01$RC020013\r"
-end

data/lib/agri-controller/serial.rb

@@ -1,114 +0,0 @@
-#!ruby
-#coding:utf-8
-module AgriController
-require "Win32API"
-  class Serial
-     GENERIC_READ  = 0x80000000
-     GENERIC_WRITE = 0x40000000
-     OPEN_EXISTING = 3
-     FILE_ATTRIBUTE_NORMAL = 0x00000080
-     FILE_FLAG_OVERLAPPED  = 0x40000000
-     PURGE_TXABORT = 1
-     PURGE_RXABORT = 2
-     PURGE_TXCLEAR = 4
-     PURGE_RXCLEAR = 8
-
-     @@iniflg = 0
-     def initialize
-        if @@iniflg != 1
-           @@wcreatefile = Win32API.new('kernel32','CreateFile','PIIPIII','I');
-           @@wclosehandle = Win32API.new('kernel32','CloseHandle','I','I')
-           @@wSetupComm = Win32API.new('kernel32','SetupComm','III','I')
-           @@wPurgeComm = Win32API.new('kernel32','PurgeComm','II','I')
-           @@wSetCommTimeouts = Win32API.new('kernel32','SetCommTimeouts','IP','I')
-           @@wGetCommState = Win32API.new('kernel32','GetCommState','IP','I')
-           @@wSetCommState = Win32API.new('kernel32','SetCommState','IP','I')
-           @@wEscapeCommFunction = Win32API.new('kernel32','EscapeCommFunction','II','I')
-           @@wClearCommError = Win32API.new('kernel32','ClearCommError','IPP','I')
-           @@wWriteFile = Win32API.new('kernel32','WriteFile','IPIPP','I')
-           @@wReadFile = Win32API.new('kernel32','ReadFile','IPIPP','I')
-           @@iniflg = 1
-        end
-        @wcrecv = "\x0" * 512
-        @iinvstep = 1
-     end
-
-     def send(schar)
-        ilen = schar.length
-        wpwadd = [0].pack("I")
-        soverlapped = [0,0,0,0,0].pack("I*")
-        @@wWriteFile.call(@iht,schar,ilen,wpwadd,soverlapped)
-     end
-
-     def receive
-        dwerr = [0].pack("I")
-        statcom = [0,0,0].pack("I*")
-        bi = @@wClearCommError.call(@iht,dwerr,statcom)
-        if bi != 0
-           wstatcom = statcom.unpack("I*")
-           if wstatcom[1] > 0
-              ilen = wstatcom[1]
-              dreadsize = [0].pack("I")
-              roverlapped = [0,0,0,0,0].pack("I*")
-              @@wReadFile.call(@iht,@wcrecv,ilen,dreadsize,roverlapped)
-              irlen = dreadsize.unpack("I")
-              rcvchar = @wcrecv.unpack("a#{irlen[0]}")[0]
-           end
-        end
-        return rcvchar
-     end
-
-     def open(icomno,idcbflags,ibaud,ibyte,iparity,istopbits,irecbuf,isenbuf)
-        comno = "COM#{icomno}\0"
-        @iht = @@wcreatefile.call(comno,GENERIC_READ | GENERIC_WRITE,0,nil,
-                                  OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL | FILE_FLAG_OVERLAPPED,0)
-        ir = nil
-        if @iht != -1
-           ir = catch(:exit){
-              bi = @@wSetupComm.call(@iht,irecbuf,isenbuf)    #送受信ﾊﾞｯﾌｧ
-              throw :exit, -2 if bi == 0
-            bi = @@wPurgeComm.call(@iht,PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR | PURGE_RXCLEAR)
-              throw :exit, -3 if bi == 0                      #ﾊﾞｯﾌｧｸﾘｱｰ
-              readIntervalTimeout = 1000
-              readTotalTimeoutMultiplier = 0
-              readTotalTimeoutConstant = 0
-              writeTotalTimeoutMultiplier = 20
-              writeTotalTimeoutConstant = 1000
-            commTimeout = [readIntervalTimeout,readTotalTimeoutMultiplier,readTotalTimeoutConstant,
-                             writeTotalTimeoutMultiplier,writeTotalTimeoutConstant]
-              wCommTimeout = commTimeout.pack("i*")
-              bi = @@wSetCommTimeouts.call(@iht,wCommTimeout);#time out
-              throw :exit, -4 if bi == 0
-              wDCB = ' ' * 8 * 3 + ' ' * 2 * 3 + ' ' * 1 * 8 + ' ' * 2
-              bi = @@wGetCommState.call(@iht,wDCB)            #状態取得
-              throw :exit, -5 if bi == 0
-              dFMT = "IIISSSCCCCCCCCS"                        #DCB構造体
-              dcb = wDCB.unpack(dFMT)
-              dcb[2] = idcbflags
-              dcb[1] = ibaud
-              dcb[6] = ibyte
-              dcb[7] = iparity
-              dcb[8] = istopbits
-              wDCB = dcb.pack(dFMT)
-              bi = @@wSetCommState.call(@iht,wDCB)            #状態ｾｯﾄ
-              throw :exit, -6 if bi == 0
-              setdtr = 5
-              bi = @@wEscapeCommFunction.call(@iht,setdtr)    #DTR ON
-              throw :exit, -7 if bi == 0
-           }
-        else
-           ir = -1
-        end
-        return ir
-     end
-
-     def close
-        if @iht != -1
-           clrdtr = 6
-           bi = @@wEscapeCommFunction.call(@iht,clrdtr)       #DTR OFF
-           @@wclosehandle.call(@iht)
-        end
-     end
-
-  end
-end