RubyGems - agri-controller - Versions diffs - 0.0.0 - Mend

agri-controller 0.0.0

Files changed (158) hide show

data/bin/main.bat +2 -0
data/bin/main.bat /202/326/202/314/203V/203/207/201[/203g/203J/203b/203g.lnk +0 -0
data/bin/main.rb +23 -0
data/bin/memo.txt +4 -0
data/bin/server.bat +1 -0
data/bin/server.bat /202/326/202/314/203V/203/207/201[/203g/203J/203b/203g.lnk +0 -0
data/bin/server.rb +4 -0
data/bin/set_config.rb +47 -0
data/bin/usual.rb +3 -0
data/bin//203R/203}/203/223/203h /203v/203/215/203/223/203v/203g.lnk +0 -0
data/lib/agri-controller.rb +33 -0
data/lib/agri-controller/bcc.rb +53 -0
data/lib/agri-controller/bit.rb +143 -0
data/lib/agri-controller/dacs.rb +114 -0
data/lib/agri-controller/dircopy.rb +30 -0
data/lib/agri-controller/error_caption.rb +46 -0
data/lib/agri-controller/kr.rb +34 -0
data/lib/agri-controller/kr_2.rb +78 -0
data/lib/agri-controller/loger.rb +51 -0
data/lib/agri-controller/main.rb +0 -0
data/lib/agri-controller/main_new.rb +401 -0
data/lib/agri-controller/multiple_pulse_timer.rb +169 -0
data/lib/agri-controller/n_dan_thermo.rb +154 -0
data/lib/agri-controller/save_threads.rb +172 -0
data/lib/agri-controller/serial.rb +114 -0
data/lib/agri-controller/setting_io.rb +53 -0
data/lib/agri-controller/thermo_data_each_day.rb +67 -0
data/lib/agri-controller/thermo_gruff.rb +109 -0
data/lib/agri-controller/thermo_gruff_generate.rb +28 -0
data/lib/agri-controller/thermo_gruff_loop.rb +35 -0
data/lib/agri-controller/value_controller.rb +167 -0
data/lib/agri-controller/version.rb +5 -0
data/lib/agri-controller/web.rb +39 -0
data/lib/agri-controller/webrick_test.rb +46 -0
data/lib/agri-controller/wetsensor.rb +119 -0
data/lib/agri-controller/wr1010.rb +316 -0
data/lib/agri-controller/wr1010_2.rb +0 -0
data/lib/cgi-bin/auto01.cgi +0 -0
data/lib/cgi-bin/auto02.cgi +0 -0
data/lib/cgi-bin/change_step.cgi +42 -0
data/lib/cgi-bin/config/change_step +4 -0
data/lib/cgi-bin/config/house1 +20 -0
data/lib/cgi-bin/config/house2 +8 -0
data/lib/cgi-bin/config/kr01_readable.txt +2 -0
data/lib/cgi-bin/config/kr02_readable.txt +2 -0
data/lib/cgi-bin/config/kr1_bit.txt +2 -0
data/lib/cgi-bin/config/kr2_bit.txt +2 -0
data/lib/cgi-bin/config/last_bit.txt +1 -0
data/lib/cgi-bin/config/last_thermo_data +22 -0
data/lib/cgi-bin/config/last_thermo_time +2 -0
data/lib/cgi-bin/config/manual_bool01.txt +2 -0
data/lib/cgi-bin/config/manual_bool02.txt +2 -0
data/lib/cgi-bin/config/reload_flag +2 -0
data/lib/cgi-bin/config/run_check +2 -0
data/lib/cgi-bin/config/thermo_define.yml +4 -0
data/lib/cgi-bin/config/time_array +10 -0
data/lib/cgi-bin/config/wait_time +2 -0
data/lib/cgi-bin/config/wet0 +3 -0
data/lib/cgi-bin/config/wet0_drain +2 -0
data/lib/cgi-bin/config/wet1 +3 -0
data/lib/cgi-bin/config/wet1_drain +2 -0
data/lib/cgi-bin/config/wet_input.txt +1 -0
data/lib/cgi-bin/curtain_h1.cgi +43 -0
data/lib/cgi-bin/curtain_h1_setting.cgi +43 -0
data/lib/cgi-bin/curtain_h2.cgi +43 -0
data/lib/cgi-bin/curtain_h2_setting.cgi +43 -0
data/lib/cgi-bin/dacs_port.cgi +43 -0
data/lib/cgi-bin/delay_time_0.cgi +43 -0
data/lib/cgi-bin/delay_time_1.cgi +43 -0
data/lib/cgi-bin/error_clear.cgi +0 -0
data/lib/cgi-bin/house1.cgi +42 -0
data/lib/cgi-bin/house1a.cgi +43 -0
data/lib/cgi-bin/house2.cgi +42 -0
data/lib/cgi-bin/house2b.cgi +43 -0
data/lib/cgi-bin/house_n_dan_thermo1.cgi +43 -0
data/lib/cgi-bin/house_n_dan_thermo2.cgi +0 -0
data/lib/cgi-bin/keitai.cgi +25 -0
data/lib/cgi-bin/kr01.cgi +0 -0
data/lib/cgi-bin/kr01_readable.txt.cgi +42 -0
data/lib/cgi-bin/kr02.cgi +0 -0
data/lib/cgi-bin/kr02_readable.txt.cgi +42 -0
data/lib/cgi-bin/kr1_bit.txt.cgi +42 -0
data/lib/cgi-bin/kr2_bit.txt.cgi +42 -0
data/lib/cgi-bin/kr_log.cgi +18 -0
data/lib/cgi-bin/last_bit.txt.cgi +42 -0
data/lib/cgi-bin/last_thermo_data.cgi +42 -0
data/lib/cgi-bin/last_thermo_time.cgi +42 -0
data/lib/cgi-bin/log.cgi +19 -0
data/lib/cgi-bin/log/errors.txt +1 -0
data/lib/cgi-bin/log/errors_.txt +93 -0
data/lib/cgi-bin/log/kr_command_log.txt +240 -0
data/lib/cgi-bin/log/log.txt +441 -0
data/lib/cgi-bin/log/old_log/log_.txt +15 -0
data/lib/cgi-bin/log/thermo/2010-05-22_thermo.csv +1438 -0
data/lib/cgi-bin/log/thermo/2010-06-12_thermo.csv +3 -0
data/lib/cgi-bin/log/thermo/2010-06-13_thermo.csv +2 -0
data/lib/cgi-bin/log/thermo/2010-06-16_thermo.csv +85 -0
data/lib/cgi-bin/log/thermo/2010-06-17_thermo.csv +285 -0
data/lib/cgi-bin/log/thermo_data.csv +643 -0
data/lib/cgi-bin/log/thermo_graph_loop.txt +1 -0
data/lib/cgi-bin/main.cgi +98 -0
data/lib/cgi-bin/manual_bool01.txt.cgi +42 -0
data/lib/cgi-bin/manual_bool02.txt.cgi +42 -0
data/lib/cgi-bin/post_change_step.cgi +44 -0
data/lib/cgi-bin/post_house1.cgi +44 -0
data/lib/cgi-bin/post_house2.cgi +44 -0
data/lib/cgi-bin/post_kr01.cgi +0 -0
data/lib/cgi-bin/post_kr01_readable.txt.cgi +44 -0
data/lib/cgi-bin/post_kr02.cgi +0 -0
data/lib/cgi-bin/post_kr02_readable.txt.cgi +44 -0
data/lib/cgi-bin/post_kr1_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_kr2_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_last_bit.txt.cgi +44 -0
data/lib/cgi-bin/post_last_thermo_data.cgi +44 -0
data/lib/cgi-bin/post_last_thermo_time.cgi +44 -0
data/lib/cgi-bin/post_manual_bool01.txt.cgi +44 -0
data/lib/cgi-bin/post_manual_bool02.txt.cgi +44 -0
data/lib/cgi-bin/post_reload_flag.cgi +44 -0
data/lib/cgi-bin/post_run_check.cgi +44 -0
data/lib/cgi-bin/post_thermo_define.yml.cgi +44 -0
data/lib/cgi-bin/post_time_array.cgi +44 -0
data/lib/cgi-bin/post_wait_time.cgi +44 -0
data/lib/cgi-bin/post_wet0.cgi +44 -0
data/lib/cgi-bin/post_wet0_drain.cgi +44 -0
data/lib/cgi-bin/post_wet1.cgi +44 -0
data/lib/cgi-bin/post_wet1_drain.cgi +44 -0
data/lib/cgi-bin/post_wet_input.txt.cgi +44 -0
data/lib/cgi-bin/reload_flag.cgi +42 -0
data/lib/cgi-bin/reset_.cgi +0 -0
data/lib/cgi-bin/run_check.cgi +42 -0
data/lib/cgi-bin/set.cgi +33 -0
data/lib/cgi-bin/set_post_yml_each.rb +72 -0
data/lib/cgi-bin/set_yml_cgi_each.rb +0 -0
data/lib/cgi-bin/setting.cgi +0 -0
data/lib/cgi-bin/setting.cgi.1 +0 -0
data/lib/cgi-bin/setting_io.rb +53 -0
data/lib/cgi-bin/thermo_data_graphs.cgi +0 -0
data/lib/cgi-bin/thermo_data_list.cgi +0 -0
data/lib/cgi-bin/thermo_define.yml.cgi +42 -0
data/lib/cgi-bin/thermo_graph.cgi +0 -0
data/lib/cgi-bin/time_array.cgi +42 -0
data/lib/cgi-bin/wait_time.cgi +42 -0
data/lib/cgi-bin/web.rb +39 -0
data/lib/cgi-bin/wet0.cgi +42 -0
data/lib/cgi-bin/wet0_drain.cgi +42 -0
data/lib/cgi-bin/wet1.cgi +42 -0
data/lib/cgi-bin/wet1_drain.cgi +42 -0
data/lib/cgi-bin/wet_input.txt.cgi +42 -0
data/lib/htdocs/css/str.css +89 -0
data/lib/htdocs/favicon.ico +0 -0
data/lib/htdocs/thermo/thermo_data.jpg +0 -0
data/lib/htdocs/thermo/thumb/thermo_data.jpg +0 -0
data/test/tc_bit.rb +15 -0
data/test/tc_bit.rb.1 +15 -0
data/test/tc_bit.rb.2 +21 -0
data/test/ts_agri-controller.rb +10 -0
data/test/ts_agri-controller.rb.1 +8 -0
metadata +229 -0

data/lib/agri-controller/version.rb ADDED Viewed

@@ -0,0 +1,5 @@
+#!ruby
+#coding:utf-8
+module AgriController
+  VERSION      = "0.0.0"
+end

data/lib/agri-controller/web.rb ADDED Viewed

@@ -0,0 +1,39 @@
+#!ruby
+#coding:utf-8
+module AgriController
+  module Web
+  module_function
+    def html_head(title="kansi_htm",tuika='')
+    head=<<EOS
+    <html>
+      <head>
+        <meta http-equiv="Content-Language" content="ja" />
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
+        #{tuika}
+          <link rel="stylesheet" type="text/css" href="../css/str.css" title="str"/>
+        <title>#{title}</title>
+      </head>
+      <body>
+EOS
+    end
+    def html_end
+    _end='
+      </body>
+    </html>'
+    return _end
+    end
+    def html_head_refresh(title,time)
+      #time:should be able to convert Integer
+      str= <<eos
+  <META HTTP-EQUIV="Refresh" CONTENT="#{time.to_s};URL=./main.cgi">
+eos
+      html_head(title,str)
+    end
+  end
+end
+if $0==__FILE__
+print Web::html_end
+end

data/lib/agri-controller/webrick_test.rb ADDED Viewed

@@ -0,0 +1,46 @@
+#! ruby -Ku
+#require 'pathname'
+require 'webrick'
+module AgriController
+    module WEBrick::HTTPServlet
+      FileHandler.add_handler('rb', CGIHandler)
+    end
+  module_function
+  def webrick_start(root=Dir.pwd,port=10080)
+    #p approot=Pathname.pwd.parent
+    app_root =root#File.expand_path(File.dirname(__FILE__) + '/..')
+    p document_root = app_root + '/htdocs'
+    p rubybin = 'c:/ruby187/bin/rubyw.exe'
+    #rubybin = 'ruby.exe'
+    server = WEBrick::HTTPServer.new({
+      :DocumentRoot => document_root,
+      :BindAddress => '127.0.0.1',
+      :CGIInterpreter => rubybin,
+      :Port => port
+    })
+    # App/cgi/
+    app_root + '/cgi-bin/*.{cgi,rb}'
+    cgilist = Dir.glob(app_root + '/cgi-bin/*.{cgi,rb}')
+    cgilist.each {|cgi_file|
+      p cgi_file_name = File.basename(cgi_file)
+      server.mount('/cgi-bin/' + cgi_file_name, WEBrick::HTTPServlet::CGIHandler, cgi_file)
+    }
+    ['INT', 'TERM'].each {|signal|
+      Signal.trap(signal){ server.shutdown }
+    }
+    server.start
+  end
+end
+if $0==__FILE__
+$KCODE="s"
+  AgriController::webrick_start
+end

data/lib/agri-controller/wetsensor.rb ADDED Viewed

@@ -0,0 +1,119 @@
+#require "Setting_io"
+#require "wet_sensor"
+module AgriController
+  class WetSensor #< Wet_sensor
+    #include Setting_io
+    attr_reader :name
+    def initialize( delay=1 , name="x")
+      @name=name
+      @keep=false
+      @delay=delay
+      @time=on
+      @command=false
+      @wet_read=yaml_db("wet_read",false, name)
+      @wet_sensor=yaml_db("wet_sensor", false,name)
+      @weted=false
+    end
+    def on
+      @time=Time.now+@delay
+    end
+    def time?
+      Time.now > @time
+    end
+  def commander
+    if @command==true
+      yield
+      @command=false
+      return true
+    else
+      return false
+    end
+  end
+    def run(bit,name=@name)
+      ##illigating check
+      #���������H
+      if bit
+        #print "1"
+        #flag read
+        @wet_read  =yaml_dbr("wet_read",name)
+        @wet_sensor=yaml_dbr("wet_sensor",name)
+        #���m�ォ�H
+        if @weted
+          #print "2"
+          #���m��̓Z���T�[�̊��m�������Ȃ�
+          return !time?
+        #���m���Ă��Ȃ�
+        else
+          #�Z���T�[���m(true)
+          if @wet_sensor
+            #�X�g�b�v����
+            p "#{name} detect:#{Time.now.to_s}"
+            @weted=true
+            #���؏���
+            on
+            #�Z���T�[�s���m
+          else
+            #print "4"
+            #�Z���T�[�̒l�ǂݍ���
+            if @wet_read==false
+              #print "5"
+                #�₢���킹����
+                @command=true
+                @wet_read=yaml_db("wet_read",true,name)
+              # =>�Ԏ��ɂ����sensor���ύX
+            else
+              #wet_read==true
+              #�҂����킹��
+              #print "6"
+            end
+          end
+          #�������s
+          return true
+        end
+      #�������Ă��Ȃ��Ƃ�
+      else
+        #print "."
+        if @wet_sensor
+          @wet_sensor=yaml_db("wet_sensor",false,name)
+        end
+        if @wet_read
+          @wet_read=yaml_db("wet_read",false,name)
+        end
+        @weted=false
+        return bit
+      end
+    end
+  end
+end
+if $0==__FILE__
+require "setting_io"
+include AgriController
+include Setting_io
+name="bit"
+time=Time.now
+bool=false
+bit=WetSensor.new(3,name)
+  loop do
+    break if Time.now >(time+10)
+    p bit.run(true)
+    if Time.now>(time+2) && (bool==false)
+      p Time.now
+      p "detected"
+      yaml_db("wet_sensor",true,name)
+      yaml_db("wet_read",false,name)
+      bool=true
+    end#p yaml_dbr("wet_read","bit")
+    sleep 0.9
+  end
+end

data/lib/agri-controller/wr1010.rb ADDED Viewed

@@ -0,0 +1,316 @@
+module AgriController
+  ##
+  #module WR1010
+  #  before using,you must check COM_port of WR1010,and set same config.
+  #
+  #  How to use
+  #    require "wr1010"
+  #    include WR1010
+  #
+  #    list(com_port=7,child_thermo_numbers=4)
+  #        # =>[[25.9, 36, 36, "10100001000", 5],
+  #             [26.7, false, 21, "10100001000", 5],
+  #             [26.1, false, 3, "10100001000", 5],
+  #             [26.1, false, 51, "10100001000", 5]]
+  #            or nil
+  #
+  #  data meaning
+  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
+  #  if fail communicate , returns nil.
+  module WR1010
+    module_function
+    ##
+    #communication setting is very important.please check .
+    # icomno COMNO 1-
+    # idcbflags 0:binariy
+    #           1:parity_on
+    #           2:CTS output flow controll
+    #           b:no check Null char
+    #         c,d:RTS output flow controll
+    # ibaud rate 110,300,600,1200,2400,4800,9600,14400,19200,38400
+    # ibyte 1byte_length 4,5,6,7,8
+    # iparity PARITY 0:none 1:odd 2:even
+    # istopbits STPBIT 0:1bit
+    #                  1:1.5bit
+    #                  2:2bit
+    # irecbuf,isenbuf BUFFERSIZE(recieve,send)
+    # return nil:ok
+    #open(icomno,idcbflags,ibaud,ibyte,iparity,istopbits,irecbuf,isenbuf)
+    #WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
+    # =>"%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r" (example.)
+    def WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
+      a=Serial.new
+        if a.open(com_port,1,57600,8,0,0,8,10) != -1#108,324)!=-1
+          command="%#{send_port}#RDD00000#{number_of_address}#{bcc_sum}\r"
+          yield command if block_given?
+          #p command
+          a.send(command)
+          sleep sleep_t
+          receive=a.receive
+          a.close
+          return receive
+        else
+          return false
+        end
+      nil
+    end
+    ##
+    #returns address number of child thermos(5 chars)
+    #child_thermo(1)# =>"00003"
+    #child_thermo(4)# =>"00015"
+    #child_thermo(56)# =>"00223"
+    def child_thermo(n)
+      begin
+        x=n*4-1
+        y=x.to_s
+        (5-y.size).times{y="0"+y}
+      rescue
+        raise "method child_thermo(#{n}):error"
+      end
+      return y
+    end
+    #thermo_data(recieve_value)# =>["0ff0fffff500ffff","1f00ffffff000000"](ex.)
+    def thermo_data(recieve_value)#ex# =>["0ff0fffff500ffff","1f00ffffff000000"]
+      begin
+        if recieve_value
+          str=recieve_value[6..(-4)]
+          size=str.size
+          if (size)%16 ==0
+          array=[]
+            (size/16).times do |i|
+              array[i]=str.slice!(0..15)
+            end
+          array
+          else
+            nil
+          end
+        else
+          nil
+        end
+      rescue
+        return nil
+      end
+    end
+    def thrmo_array(str)
+      begin
+        result=[]
+        str.each do |data|
+          #p data ;p data.size
+        result_1=[]
+          (data.size/4).times do |i|
+            result_1 << data.slice((i*4),4)
+          end
+          result << anaryze(result_1)
+        end
+        return result
+      rescue
+        return nil
+      end
+    end
+    def anaryze(data)#["0201", "2C00", "2400", "0805"]
+      result=[]
+        #result[0]
+                x=thermo_hex_to_i(data[0])
+        result << judge(x).to_f/10
+        #result[1]
+        x2 = thermo_hex_to_i(data[1])
+        if x2==65535
+          result << false
+        elsif x2<=32766
+          if x2<=100
+            result << x2
+          elsif
+            result << 100
+          end
+        else
+          #p thermo_hex_to_i(data[1])
+          result << false
+        end
+        #result[2]
+        result << thermo_hex_to_i(data[2])
+        #result[3]
+        result << thermo_hex_to_i(data[3]).to_s(2)
+      result
+    end
+    def errors(bit_str)#"10100001000"
+      error_list=[]
+      #if bit_str
+        bit=Bit.new(Integer("0b"+bit_str))
+        #p bit.bit
+        if bit.on?(0)
+          error_list << "bit0:causion:battery. "
+        end
+        if bit.on?(1)
+          error_list << "bit1:Error:sensor cable. "
+        end
+        if bit.on?(2)
+          error_list << "bit2:causion:Temp is too High or Low. "
+        end
+        if bit.off?(3)
+          error_list << "bit3:Error:FATAL ERROR.needs maintainance. "
+        end
+        #p error_list
+        #radio power
+        size=bit_str.size*-1
+        #p bit_str
+        #p bit_str.slice((size..-9))
+        radio_power=Integer("0b"+bit_str.slice((size..-9)))
+        if error_list==[]
+          begin
+            return radio_power
+          rescue
+            return nil
+          end
+        end
+      #else
+      #  nil
+      #end
+      error_list << radio_power
+    end
+  #+-tempereture judge function
+  def judge(x)
+    begin
+      bit=Bit.new(x)
+      unless bit.on?(15)
+        return x
+      else
+        res= x-65535
+        #under -100 'c (degrees Celsius)
+        #thermo must be error 35536 => "1000101011010000" => -2999.9
+        unless res< -1000
+          return res
+        else
+          return nil
+        end
+      end
+    rescue
+      nil
+    end
+  end
+    def thermo_hex_to_i(data)
+      #hex="f100" # =>241
+      x=data.slice(0..1)
+      y=data.slice(2..3)
+      result=((y+x).to_i(16))
+    end
+    def list(com_port=7,thermo=4,sleep_t=0.05)
+      result=[]
+      send_port="01"
+      bcc_sum="**"
+      number_of_address=child_thermo(thermo)
+      recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum,sleep_t)
+      if recieve_value
+        ret=thermo_data(recieve_value)
+        if ret
+          x=thrmo_array(ret)
+          if x
+            x.each do |data|
+              ret=errors(data[3])
+              data << ret#"10100001000"
+              result << data
+            end
+            return result
+          end
+        end
+      end
+      nil
+    end
+    def to_log(log_file,data)
+      #add data to log_file
+      if data.class!=nil
+        open(log_file,"a") do |io|
+          io.print Time.now
+          io.print "\n"
+          data.each do |str|
+            res=""
+            str.each do |str2|
+              res+=str2.to_s+","
+            end
+            io.print res.chop+"\n"
+          end
+          io.print("\n")
+        end
+        #rename log_file if size too big
+        if File.size?(log_file)>=100000
+          i=1
+          bool=true
+          while bool
+            new_name=i.to_s+log_file
+            unless File.exist?(new_name)
+              File.rename(log_file,new_name)
+              bool=false
+            end
+            i+=1
+          end
+        end
+        nil
+      end
+    end
+    def help
+  '##
+  #module WR1010
+  #  before using,you must check COM_port of WR1010,and set same config.
+  #
+  #  How to use
+  #    require "wr1010"
+  #    include WR1010
+  #
+  #    list(com_port=7,child_thermo_numbers=4)
+  #        # =>[[25.9, 36, 36, "10100001000", 5],
+  #             [26.7, false, 21, "10100001000", 5],
+  #             [26.1, false, 3, "10100001000", 5],
+  #             [26.1, false, 51, "10100001000", 5]]
+  #            or nil
+  #
+  #  data meaning
+  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
+  #  if fail communicate , returns nil.'
+    end
+    alias status errors
+    alias com list
+    alias save to_log
+  end
+end
+if $0==__FILE__
+#p $KCODE=""
+include WR1010
+#com_port=7
+#send_port="01"
+#number_of_address="00015"
+#bcc_sum="**"
+#p recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum)
+#p ret=thermo_data(recieve_value)
+#p x=thrmo_array(ret)
+p x=list(8,4)
+#p judge(65534).to_f/10
+#p thermo_data(nil)
+#thrmo_array(ret)
+#p judge 65535
+p child_thermo(4)
+=begin
+sample="%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r"
+#sample=["0D0129000C000f05", "1401FFFF38000804", "0E01FFFF09000802", "3901FFFF1C000900"]
+p ret=thermo_data(sample)
+=end
+#save("foo.txt",list(4))
+end