ladder_drive 0.4.1 → 0.5.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 1c322d622e10b0ee64912b24117db7086fb6bd5c
-  data.tar.gz: 21d0ef57b8e8d82140071a7d60397861ad9faaff
+  metadata.gz: 5139eaf8a467986626c8f4cbe5b819819ed495c0
+  data.tar.gz: e7e3bae04896ccfd9515c77c4e3457058861e26b
 SHA512:
-  metadata.gz: 15b168caefe744fe6262e01108bd2ee845b7051c18c98367ddd81edf473b78f1e4aaa44bf0ba59853b48ab2593b9263a64a36877a7fcc7343a91d78f673980a4
-  data.tar.gz: 7d1b836921e3eb79fea0a21ccba8a00ff2e9019e293857ffa7272269ec5632cf3e7888bde60bb91170d1908b8e9cbdd12803a38f8f05dff03b552525362c0c82
+  metadata.gz: b321b78ab6bc3a1fe6a84b840c3961b70233d535a8830b9327300e129c922ccc3312432af44c468d101c94853d0971baeb2cc509e9c0b8b0ad41d00565074b99
+  data.tar.gz: 7ccdbc826b357d71587f49f59feb7a5f2183e5046debf9f9608d8bc20ebab7433eb4fa2548b47235b5b6fc6070ba4b684641fe9bc8c34596c02bfb2a56daa7e1

data/.gitignore

@@ -9,3 +9,4 @@
 /tmp/
 *.gem
 /work/
+cache

data/Gemfile

@@ -6,3 +6,6 @@ gemspec
 gem "test-unit"
 
 gem "activesupport", ">=4.2.7"
+
+gem 'pi_piper'
+

data/Gemfile.lock

@@ -1,8 +1,9 @@
 PATH
   remote: .
   specs:
-    ladder_drive (0.4.1)
+    ladder_drive (0.5.0)
       activesupport (~> 4.2, >= 4.2.7)
+      pi_piper
       thor (~> 0)
 
 GEM
@@ -14,14 +15,20 @@ GEM
       minitest (~> 5.1)
       thread_safe (~> 0.3, >= 0.3.4)
       tzinfo (~> 1.1)
+    eventmachine (1.0.9)
+    ffi (1.9.18)
+    ffi (1.9.18-x64-mingw32)
     i18n (0.7.0)
     json (1.8.3)
     minitest (5.9.1)
+    pi_piper (2.0.0)
+      eventmachine (= 1.0.9)
+      ffi
     power_assert (0.2.7)
     rake (10.5.0)
     test-unit (3.1.7)
       power_assert
-    thor (0.19.4)
+    thor (0.20.0)
     thread_safe (0.3.5)
     tzinfo (1.2.2)
       thread_safe (~> 0.1)
@@ -34,8 +41,9 @@ DEPENDENCIES
   activesupport (>= 4.2.7)
   bundler (~> 1.11)
   ladder_drive!
+  pi_piper
   rake (~> 10.0)
   test-unit
 
 BUNDLED WITH
-   1.14.3
+   1.15.4

data/README.md

@@ -180,6 +180,62 @@ OUT M1
 <!-- [![](http://img.youtube.com/vi/qGbicGLB7Gs/0.jpg)](https://youtu.be/qGbicGLB7Gs) -->
 
 
+## Raspberry Pi
+
+You can run it on the Raspberry Pi.
+X or Y devices are assigned to GPIOs.
+
+### Installation
+
+```sh
+$ sudo apt-get install ruby-dev
+$ sudo apt-get install libssl-dev
+$ sudo gem install ladder_drive
+```
+
+### Execution
+
+```sh
+$ ladder_drive create project
+$ cd project
+$ rake target=raspberrypi
+```
+
+### I/O settings
+
+You can describe io configuration by confing/plc.yml file.
+Define inputs pins by inputs section.
+Devine outputs pins by outptus section.
+You can specify pull up or pull down and invert options for input.
+
+```
+  # Raspberry Pi
+  raspberrypi:
+    cpu: Raspberry Pi
+    io: # assign gpio to x and y
+      inputs:
+        x0:
+          pin: 4        # gpio no
+          pull: up      # up | down | off
+          invert: true
+        x1:
+          pin: 17
+          pull: up
+          invert: true
+        x2:
+          pin: 27
+          pull: up
+          invert: true
+      outputs:
+        y0:
+          pin: 18
+        y1:
+          pin: 23
+        y2:
+          pin: 42
+```
+
+
 # Accessing a device values
 
 You can use LadderDrive as a accessing tool for the PLC device.

data/README_jp.md

@@ -59,8 +59,8 @@ plc以下にLadderDriveを実行するPLCプロジェクトの雛形がありま
 
 #### PLCの通信設定
 
-plc以下の使用したいPLCのプロジェクトファイルを開きます。
-IPアドレスなど必要な箇所変更し、PLCに転送します。
+plcディレクトリ以下の使用したいPLCのプロジェクトファイルを開きます。
+IPアドレスなど必要な箇所を変更し、PLCに転送します。
 
 [![](http://img.youtube.com/vi/fGdyIo9AmuE/0.jpg)](https://youtu.be/fGdyIo9AmuE)
 
@@ -118,7 +118,7 @@ targetを指定するとplc.ymlのplcセクション内の該当するターゲ
 $ rake target=iq-r
 ```
 
-plc.ymlファイルのdefaultセクションのtargetでデフォルトのターゲトを設定できます。
+plc.ymlファイルのdefaultセクションのtargetでデフォルトのターゲットを設定できます。
 
 ```
 # plc.yml
@@ -148,7 +148,7 @@ done uploading
 コンソールモードではコマンドを打つ事でデバイスの読み書きができます。
 
 デバイスの値を読み取るにはrコマンドを使用します。
-下の例ではm0から8子分のデバイスを読み出します。
+下の例ではm0から8個分のデバイスを読み出します。
 
 ```sh
 > r m0 8
@@ -183,6 +183,72 @@ OUT M1
 
 <!-- [![](http://img.youtube.com/vi/qGbicGLB7Gs/0.jpg)](https://youtu.be/qGbicGLB7Gs) -->
 
+## Raspberry Pi
+
+Raspberry Pi上で動作させることもできます。
+XとYデバイスはGPIOに割り付けます。
+
+### インストール
+
+OSとしてRaspbianを使用した場合は次の手順でインストールできます。
+
+```sh
+$ sudo apt-get install ruby-dev
+$ sudo apt-get install libssl-dev
+$ sudo gem install ladder_drive
+```
+
+この時の環境は下の通りです。
+
+```
+$ uname -a
+Linux raspberrypi 4.9.41+ #1023 Tue Aug 8 15:47:12 BST 2017 armv6l GNU/Linux
+```
+
+
+### 実行
+
+```sh
+$ ladder_drive create project
+$ cd project
+$ rake target=raspberrypi
+```
+
+### I/O設定
+
+Project下のconfig/plc.ymlファイルで変更できます。
+inputsで入力ピンを定義します。outputsで出力ピンを定義します。
+pinにGPIO番号を指定します。
+入力の場合は pull up, pull downの指定や invertで反転させることができます。
+
+```
+  # Raspberry Pi
+  raspberrypi:
+    cpu: Raspberry Pi
+    io: # assign gpio to x and y
+      inputs:
+        x0:
+          pin: 4        # gpio no
+          pull: up      # up | down | off　で指定します。
+          invert: true
+        x1:
+          pin: 17
+          pull: up
+          invert: true
+        x2:
+          pin: 27
+          pull: up
+          invert: true
+      outputs:
+        y0:
+          pin: 18
+        y1:
+          pin: 23
+        y2:
+          pin: 42
+```
+
+
 ## PLCデバイスへのアクセスツールとしての利用
 
 LadderDriveはPLCデバイスの読み書きツールとしての利用もできます。

data/ladder_drive.gemspec

@@ -16,6 +16,7 @@ Gem::Specification.new do |spec|
 
   spec.add_runtime_dependency 'thor', '~> 0'
   spec.add_runtime_dependency 'activesupport', '~> 4.2', '>= 4.2.7'
+  spec.add_runtime_dependency 'pi_piper'
 
   spec.files         = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
   spec.bindir        = "exe"

data/lib/ladder_drive/config.rb

@@ -62,11 +62,50 @@ module LadderDrive
         host: "localhost",
         port: 5555,
         protocol: "emu_protocol",
+        keep: [
+          ["L0", "L1023"],
+          ["H0", "H1023"],
+        ],
+      }
+      raspberrypi_default = {
+        host: "localhost",
+        port: 5555,
+        protocol: "emu_protocol",
+        keep: [
+          ["L0", "L1023"],
+          ["H0", "H1023"],
+        ],
+        io: {
+          inputs: {
+            x0: 4,
+            x1: 17,
+            x2: 27,
+            x3: 22,
+            x4: 5,
+            x5: 6,
+            x6: 13,
+            x7: 19,
+            x8: 26,
+          },
+          outputs: {
+=begin
+            y0: 18,
+            y1: 23,
+            y2: 24,
+            y3: 25,
+            y4: 12,
+            y5: 16,
+            y6: 20,
+            y7: 21,
+=end
+          }
+        },
       }
 
       @config = default.merge options
       @config[:plc] ||= {}
       @config[:plc][:emulator] = @config[:plc][:emulator] ? emulator_default.merge(@config[:plc][:emulator]) : emulator_default
+      @config[:plc][:raspberrypi] = @config[:plc][:raspberrypi] ? emulator_default.merge(@config[:plc][:raspberrypi]) : raspberrypi_default
 
       @config[:default] ||= {}
 

data/lib/ladder_drive/config_target.rb

@@ -38,6 +38,7 @@ module LadderDrive
       def finalize
         proc {
           EmuPlcServer.terminate
+          RaspberrypiPlcServer.terminate
         }
       end
 
@@ -81,7 +82,9 @@ module LadderDrive
     def run
       case self.name
       when :emulator
-        Plc::Emulator::EmuPlcServer.launch
+        Plc::Emulator::EmuPlcServer.launch @target_info
+      when :raspberrypi
+        Plc::Raspberrypi::RaspberrypiPlcServer.launch @target_info
       else
         # DO NOTHIN
         # Actual device is running independently.

data/lib/ladder_drive/plc_device.rb

@@ -57,12 +57,13 @@ module LadderDrive
       when Fixnum
         @suffix = ESC_SUFFIXES[a]
         @number = b
-      when String
+      when String, Symbol
+        a = a.to_s # convert to string if it's a symbol
         if b
           @suffix = a.upcase
           @number = b
         else
-          /([A-Z]+)?(\d+)/i =~ a
+          /([A-Z]+)?([0-9A-F]+)/i =~ a
           @suffix = ($1 || "").upcase
           case number_type
           when NUMBER_TYPE_DEC_HEX
@@ -90,7 +91,7 @@ module LadderDrive
         end
         "#{@suffix}#{ns}"
       when NUMBER_TYPE_HEX
-        ns = @number.to_s(16)
+        ns = @number.to_s(16).upcase
         ns = "0" + ns unless /^[0-9]/ =~ ns
         "#{@suffix}#{ns}"
       else

data/lib/ladder_drive/protocol/keyence/kv_device.rb

@@ -32,6 +32,14 @@ module Keyence
       @suffix = "R" if @suffix.nil? || @suffix.length == 0
     end
 
+    def + value
+      self.class.new self.suffix, self.number + value
+    end
+
+    def - value
+      self.class.new self.suffix, [self.number - value, 0].max
+    end
+
     private
 
       SUFFIXES_FOR_DEC      = %w(DM EM FM ZF TM Z T TC TS C CC CS CTH CTC AT CM VM)

data/lib/ladder_drive/protocol/keyence/kv_protocol.rb

@@ -55,11 +55,13 @@ module Keyence
     end
 
     def get_bits_from_device count, device
-      values = get_words_from_device count, device
-      values = values.map{|v| v == 0 ? false : true}
-      values.each do |v|
-        device.bool = v
-        device += 1
+      c = (count + 15) / 16
+      words = get_words_from_device c, device
+      values = []
+      count.times do |i|
+        index = i / 16
+        bit = i % 16
+        values << ((words[index] & (1 << bit)) != 0)
       end
       values
     end
@@ -74,7 +76,7 @@ module Keyence
         when false, 0
           cmd = "RS"
         end
-        packet = "#{cmd} #{device.name}\r"
+        packet = "#{cmd} #{device.name}\r\n"
         @logger.debug("> #{dump_packet packet}")
         open
         @socket.puts(packet)
@@ -93,12 +95,12 @@ module Keyence
 
     def get_words_from_device(count, device)
       device = local_device device
-      packet = "RDS #{device.name} #{count}\r"
+      packet = "RDS #{device.name}.H #{count}\r\n"
       @logger.debug("> #{dump_packet packet}")
       open
       @socket.puts(packet)
       res = receive
-      values = res.split(/\s+/).map{|v| v.to_i}
+      values = res.split(/\s+/).map{|v| v.to_i(16)}
       @logger.debug("#{device.name}[#{count}] => #{values}")
       values
     end
@@ -106,7 +108,7 @@ module Keyence
     def set_words_to_device words, device
       device = local_device device
       words = [words] unless words.is_a? Array
-      packet = "WRS #{device.name} #{words.size} #{words.map{|w| w.to_s}.join(" ")}\r"
+      packet = "WRS #{device.name}.H #{words.size} #{words.map{|w| w.to_s(16)}.join(" ")}\r\n"
       @logger.debug("> #{dump_packet packet}")
       open
       @socket.puts(packet)

data/lib/ladder_drive/version.rb

@@ -22,5 +22,5 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module LadderDrive
-  VERSION = "0.4.1"
+  VERSION = "0.5.0"
 end

data/lib/plc/emulator/emu_device.rb

@@ -21,6 +21,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'ladder_drive/plc_device'
+require 'weakref'
 
 include LadderDrive
 
@@ -30,12 +31,14 @@ module Emulator
   class EmuDevice < PlcDevice
 
     attr_reader :in_value, :out_value
+    attr_accessor :plc
 
     def initialize a, b = nil
       super
       @lock = Mutex.new
       @in_value = 0
       @out_value = 0
+      @changed = false
     end
 
     def reset
@@ -46,6 +49,14 @@ module Emulator
       }
     end
 
+    def plc= plc
+      @plc = WeakRef.new plc
+    end
+
+    def changed?
+      @changed
+    end
+
     def value= value
       set_value value
     end
@@ -61,17 +72,41 @@ module Emulator
     end
 
     def bool= value
-      @lock.synchronize { super }
+      set_value value
     end
 
     def word kind=nil
-      value kind
+      if bit_device?
+        v = 0
+        d = self
+        f = 1
+        16.times do
+          v |= f if d.bool(kind)
+          d = d + 1
+          f <<= 1
+        end
+        v
+      else
+        value kind
+      end
     end
 
     def word= value
-      @lock.synchronize {
-        super
-      }
+      set_word value
+    end
+
+    def set_word value, kind=nil
+      if bit_device?
+        f = 1
+        d = self
+        16.times do
+          d.set_value (value & f) != 0, kind
+          d = d + 1
+          f <<= 1
+        end
+      else
+        set_value value, kind
+      end
     end
 
     def value kind=nil
@@ -95,7 +130,8 @@ module Emulator
         when :out
           @out_value = value
         else
-          @value = value
+          @changed = true unless @value == value
+          @value = value if @changed
         end
       }
     end
@@ -103,7 +139,8 @@ module Emulator
     def sync_input
       @lock.synchronize {
         unless @in_value.nil?
-          @value = @in_value
+          @changed = true unless @value == @in_value
+          @value = @in_value if @changed
           @in_value = nil
         end
       }
@@ -112,9 +149,20 @@ module Emulator
     def sync_output
       @lock.synchronize {
         @out_value = @value
+        @changed = false
       }
     end
 
+    def + value
+      d = super
+      plc ? plc.device_by_name(d.name) : d
+    end
+
+    def - value
+      d = super
+      plc ? plc.device_by_name(d.name) : d
+    end
+
   end
 
 end

data/lib/plc/emulator/emu_plc.rb

@@ -21,6 +21,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'ladder_drive/plc_device'
+require 'yaml'
 
 include LadderDrive
 
@@ -31,6 +32,7 @@ module Emulator
 
     attr_accessor :program_data
     attr_reader :program_pointer
+    attr_reader :config
     attr_reader :device_dict
     attr_reader :errors
 
@@ -49,11 +51,14 @@ module Emulator
     INDEX_BIT_STACK       = 5
     SIZE_OF_BIT_STACK     = 3
 
-    def initialize
+    SAVE_INTERVAL = 1.0 #60.0
+
+    def initialize config={}
       SUFFIXES.each do |k|
         eval "@#{k}_devices = []"
       end
       @lock = Mutex.new
+      @config = config
       reset
     end
 
@@ -61,8 +66,14 @@ module Emulator
       @lock.synchronize {
         d = device_dict[name]
         unless d
-          d = EmuDevice.new name
-          device_dict[name] = d
+          # try normalized name again
+          new_d = EmuDevice.new(name)
+          d = device_dict[new_d.name]
+          unless d
+            d = new_d
+            d.plc = self
+            device_dict[d.name] = d
+          end
         end
         d
       }
@@ -94,6 +105,7 @@ module Emulator
         sleep 0.1
       when STOP_PLC_FLAG | CLEAR_PROGRAM_FLAG
         reset
+        load
         status_form_plc.value = CLEAR_PROGRAM_FLAG
         sleep 0.1
       when 0
@@ -105,6 +117,8 @@ module Emulator
       else
         sleep 0.1
       end
+      # Save must be executed berofe sync_output, because changed flag was clear after sync_output
+      save
       sync_output
     end
 
@@ -130,20 +144,27 @@ module Emulator
 
     def execute_console_commands line
       a = line.chomp.split(/\s+/)
-      case a.first
+
+      # separate data type except eval command.
+      unless a[0] == "E"
+        word = /([A-Z0-9]+)(\.H)?/ =~ a[1]
+        a[1] = $1
+      end
+
+      case a[0]
       when /^ST/i
         d = device_by_name a[1]
         d.set_value true, :in
-        "OK\r"
+        "OK\r\n"
       when /^RS/i
         d = device_by_name a[1]
         d.set_value false, :in
-        "OK\r"
+        "OK\r\n"
       when /^RDS/i
         d = device_by_name a[1]
         c = a[2].to_i
         r = []
-        if d.bit_device?
+        if !word && d.bit_device?
           c.times do
             r << (d.bool(:out) ? 1 : 0)
             d = device_by_name (d+1).name
@@ -162,31 +183,38 @@ module Emulator
             end
           end
         end
-        r.map{|e| e.to_s}.join(" ") + "\r"
-      when /^WRS/i
+        r.map{|e| e.to_s(16)}.join(" ") + "\r\n"
+
+      # LadderDrive communication is bases KV protocol.
+      # LadderDrive console is use WRS command only. (Not use WR command)
+      # WR command is for irBoard. (http://irboard.itosoft.com)
+      # A word value is communicated with hex format only in this product. (hard coding)
+      when /^WRS?/i
         d = device_by_name a[1]
+        a.insert 2, "1" if /^WR$/i =~ a.first
         c = a[2].to_i
         case d.suffix
         when "PRG"
           a[3, c].each do |v|
-            program_data[d.number * 2, 2] = [v.to_i].pack("n").unpack("C*")
+            program_data[d.number * 2, 2] = [v.to_i(16)].pack("n").unpack("C*")
             d = device_by_name (d+1).name
           end
         else
-          if d.bit_device?
+          if !word && d.bit_device?
             a[3, c].each do |v|
               d.set_value v == "0" ? false : true, :in
-              d = device_by_name (d+1).name
+              d = d + 1#device_by_name (d+1).name
             end
           else
             a[3, c].each do |v|
-              d.word = v.to_i
-              d.set_value v.to_i, :in
-              d = device_by_name (d+1).name
+              v = v.to_i(16)
+              d.set_word v, :in
+              #d.set_value v, :in
+              d = d + 1#device_by_name (d+1).name
             end
           end
         end
-        "OK\r"
+        "OK\r\n"
       when /E/
         eval(a[1..-1].join(" ")).inspect
       else
@@ -194,8 +222,63 @@ module Emulator
       end
     end
 
+    # --- queries
+    def keep_device? device
+      @keep_ranges ||= begin
+        if config[:keep]
+          config[:keep].map do |a|
+            [device_by_name(a.first), device_by_name(a.last)]
+          end
+        else
+          []
+        end
+      end
+      @keep_ranges.each do |a|
+        f = a.first
+        e = a.last
+        next unless f.suffix == device.suffix
+        return true if (f.number..e.number).include? device.number
+      end
+      false
+    end
+
     private
 
+      # ----------------
+      # Load / Save keep devices
+
+      def dump_memory_path
+        @dump_memory_paty ||= File.join("cache", "dump_memory.yml").tap do |path|
+          FileUtils.mkdir_p( File.dirname(path))
+        end
+      end
+
+      def load
+        path = dump_memory_path
+        return unless File.exist? path
+
+        YAML.load(File.read(path)).each do |a|
+          d = device_by_name(a.first)
+          d.value = a.last
+        end
+      end
+
+      def save
+        devices = @device_dict.values.select{|d| self.keep_device?(d)}
+        needs_save = @pending_save || !(devices.select{|d| d.changed?}).empty?
+        return unless needs_save
+        now = Time.now
+        if @saved_at && ((now - @saved_at) < SAVE_INTERVAL)
+          @pending_save ||= true
+          return
+        end
+
+        File.write dump_memory_path, YAML.dump(devices.map{|d| [d.name, d.value]})
+        @saved_at = now
+        @pending_save = false
+      end
+
+
       # ----------------
       # stack operations
       def stack_device index=0

data/lib/plc/emulator/emu_plc_server.rb

@@ -28,11 +28,13 @@ module Emulator
 
   class EmuPlcServer
 
+    attr_reader :config
+
     class << self
 
-      def launch
+      def launch config={}
         @server ||= begin
-          server = new
+          server = new config
           server.run
           server
         end
@@ -42,7 +44,7 @@ module Emulator
 
     def initialize config = {}
       @port = config[:port] || 5555
-      @plc = EmuPlc.new
+      @plc = EmuPlc.new config
     end
 
     def run
@@ -58,7 +60,7 @@ module Emulator
               r = @plc.execute_console_commands line
               socket.puts r
             rescue => e
-              socket.puts "E0 #{e}\r"
+              socket.puts "E0 #{e}\r\n"
             end
           end
         end

data/lib/plc/plc.rb

@@ -25,3 +25,4 @@ $:.unshift dir unless $:.include? dir
 
 # Use load instead require, because there are two emulator files.
 load File.join(dir, 'emulator/emulator.rb')
+load File.join(dir, 'raspberrypi/raspberrypi.rb')

data/lib/plc/raspberrypi/raspberrypi.rb

@@ -0,0 +1,27 @@
+#
+# Copyright (c) 2017 ITO SOFT DESIGN Inc.
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+dir = File.expand_path(File.dirname(__FILE__))
+$:.unshift dir unless $:.include? dir
+
+require 'raspberrypi_plc'
+require 'raspberrypi_plc_server'

data/lib/plc/raspberrypi/raspberrypi_plc.rb

@@ -0,0 +1,86 @@
+#
+# Copyright (c) 2017 ITO SOFT DESIGN Inc.
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'ladder_drive/plc_device'
+require 'plc/emulator/emulator'
+require 'pi_piper'
+
+include LadderDrive
+include PiPiper
+
+
+module Plc
+module Raspberrypi
+
+  class RaspberrypiPlc < Plc::Emulator::EmuPlc
+
+    def initialize config={}
+      super
+      setup_io
+    end
+
+    private
+
+      def setup_io
+        @available_pi_piper = false
+        @io_dict = { inputs:[], outputs:[] }
+        config[:io][:inputs].each do |dev, info|
+          @io_dict[:inputs] << [device_by_name(dev), Pin.new(pin:info[:pin], direction: :in, pull:(info[:pull].to_sym || :off), invert:info[:invert])]
+        end
+        config[:io][:outputs].each do |dev, info|
+          @io_dict[:outputs] << [device_by_name(dev), Pin.new(pin:info[:pin], direction: :out)]
+        end
+        @available_pi_piper = true
+      rescue NoMethodError
+        puts "WARN: defention of io is missing!"
+      rescue LoadError
+        puts "WARN: pi_piper is not available this system!"
+      end
+
+      def sync_input
+        if @available_pi_piper
+          @io_dict[:inputs].each do |device, pin|
+            pin.read
+            device.set_value pin.on?, :in
+          end
+        end
+        super
+      end
+
+      def sync_output
+        super
+        return unless @available_pi_piper
+
+        @io_dict[:outputs].each do |device, pin|
+          if device.bool
+            pin.on
+          else
+            pin.off
+          end
+        end
+      end
+
+
+  end
+
+end
+end

data/lib/plc/raspberrypi/raspberrypi_plc_server.rb

@@ -0,0 +1,74 @@
+#
+# Copyright (c) 2017 ITO SOFT DESIGN Inc.
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'socket'
+require 'ladder_drive/plc_device'
+
+module Plc
+module Raspberrypi
+
+  class RaspberrypiPlcServer
+
+    class << self
+
+      def launch config={}
+        @server ||= begin
+          server = new config
+          server.run
+          server
+        end
+      end
+
+    end
+
+    def initialize config = {}
+      @port = config[:port] || 5555
+      @plc = RaspberrypiPlc.new config
+    end
+
+    def run
+      puts "launching respberrypi plc ... "
+      @plc.run
+      puts "done launching"
+
+      Thread.new do
+        server = TCPServer.open @port
+        loop do
+          Thread.start(server.accept) do |socket|
+            while line = socket.gets
+              begin
+                r = @plc.execute_console_commands line
+                socket.puts r
+              rescue => e
+                socket.puts "E0 #{e}\r\n"
+              end
+            end
+          end
+        end
+      end
+
+    end
+
+  end
+
+end
+end

data/template/escalator/config/plc.yml

@@ -19,6 +19,30 @@ plc:
     host: 192.168.0.11
     # port: 8501
 
+  # Raspberry Pi
+  raspberrypi:
+    cpu: Raspberry Pi
+    io: # assign gpio to x and y
+      inputs:
+        x0:
+          pin: 4        # gpio no
+          pull: up      # up | down | off
+          invert: true
+        x1:
+          pin: 17
+          pull: up
+          invert: true
+        x2:
+          pin: 27
+          pull: up
+          invert: true
+      outputs:
+        y0:
+          pin: 18
+        y1:
+          pin: 23
+        y2:
+          pin: 42
 
 # default section
 default:

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: ladder_drive
 version: !ruby/object:Gem::Version
-  version: 0.4.1
+  version: 0.5.0
 platform: ruby
 authors:
 - Katsuyoshi Ito
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2017-05-22 00:00:00.000000000 Z
+date: 2017-10-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: thor
@@ -44,6 +44,20 @@ dependencies:
     - - ">="
       - !ruby/object:Gem::Version
         version: 4.2.7
+- !ruby/object:Gem::Dependency
+  name: pi_piper
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
 - !ruby/object:Gem::Dependency
   name: bundler
   requirement: !ruby/object:Gem::Requirement
@@ -142,6 +156,9 @@ files:
 - lib/plc/keyence/kv/kv-5000/sample.al2
 - lib/plc/mitsubishi/iq-r/r08/r08.gx3
 - lib/plc/plc.rb
+- lib/plc/raspberrypi/raspberrypi.rb
+- lib/plc/raspberrypi/raspberrypi_plc.rb
+- lib/plc/raspberrypi/raspberrypi_plc_server.rb
 - sample/ladder_drive/sample1.esc
 - sample/ladder_drive/sample2.esc
 - sample/ladder_drive/sample2.png