bcs-interrogator 0.0.2 → 0.0.6

data/lib/brewery_control_system/api/3.7.0/setpoints.rb

@@ -0,0 +1,15 @@
+require File.join File.dirname(__FILE__), "ultemp"
+class NRB::BreweryControlSystem::API
+  class Setpoints < Ultemp
+
+    register_middleware middleware_options(self)
+
+  private
+
+    def parse
+      return if body_array.nil?
+      setpoints
+    end
+
+  end
+end

data/lib/brewery_control_system/api/3.7.0/sysname.rb

@@ -0,0 +1,247 @@
+class NRB::BreweryControlSystem::API
+  class Sysname < Endpoint
+    # http://wiki.embeddedcc.com/index.php/Sysname.dat
+    #   Entries in the sysname structure cannot be more than 16 characters
+    #   Commas are not allowed 
+
+    class << self
+      def endpoint; 'sysname.dat'; end
+    end
+
+    DESCRIPTIONS = [
+                     'Firmware Version',
+                     'Process 0 name',
+                     'Process 1 name',
+                     'Process 2 name',
+                     'Process 3 name',
+                     'Process 0 State 0 name',
+                     'Process 0 State 1 name',
+                     'Process 0 State 2 name',
+                     'Process 0 State 3 name',
+                     'Process 0 State 4 name',
+                     'Process 0 State 5 name',
+                     'Process 0 State 6 name',
+                     'Process 0 State 7 name',
+                     'Process 1 State 0 name',
+                     'Process 1 State 1 name',
+                     'Process 1 State 2 name',
+                     'Process 1 State 3 name',
+                     'Process 1 State 4 name',
+                     'Process 1 State 5 name',
+                     'Process 1 State 6 name',
+                     'Process 1 State 7 name',
+                     'Process 2 State 0 name',
+                     'Process 2 State 1 name',
+                     'Process 2 State 2 name',
+                     'Process 2 State 3 name',
+                     'Process 2 State 4 name',
+                     'Process 2 State 5 name',
+                     'Process 2 State 6 name',
+                     'Process 2 State 7 name',
+                     'Process 3 State 0 name',
+                     'Process 3 State 1 name',
+                     'Process 3 State 2 name',
+                     'Process 3 State 3 name',
+                     'Process 3 State 4 name',
+                     'Process 3 State 5 name',
+                     'Process 3 State 6 name',
+                     'Process 3 State 7 name',
+                     'Output 0 name',
+                     'Output 1 name',
+                     'Output 2 name',
+                     'Output 3 name',
+                     'Output 4 name',
+                     'Output 5 name',
+                     'Din 0 name',
+                     'Din 1 name',
+                     'Din 2 name',
+                     'Din 3 name',
+                     'Process 0 Win 0 name',
+                     'Process 0 Win 1 name',
+                     'Process 0 Win 2 name',
+                     'Process 0 Win 3 name',
+                     'Process 1 Win 0 name',
+                     'Process 1 Win 1 name',
+                     'Process 1 Win 2 name',
+                     'Process 1 Win 3 name',
+                     'Process 2 Win 0 name',
+                     'Process 2 Win 1 name',
+                     'Process 2 Win 2 name',
+                     'Process 2 Win 3 name',
+                     'Process 3 Win 0 name',
+                     'Process 3 Win 1 name',
+                     'Process 3 Win 2 name',
+                     'Process 3 Win 3 name',
+                     'Temp Probe 0 name',
+                     'Temp Probe 1 name',
+                     'Temp Probe 2 name',
+                     'Temp Probe 3 name',
+                     'Process 0 Timer 0 name',
+                     'Process 0 Timer 1 name',
+                     'Process 0 Timer 2 name',
+                     'Process 0 Timer 3 name',
+                     'Process 1 Timer 0 name',
+                     'Process 1 Timer 1 name',
+                     'Process 1 Timer 2 name',
+                     'Process 1 Timer 3 name',
+                     'Process 2 Timer 0 name',
+                     'Process 2 Timer 1 name',
+                     'Process 2 Timer 2 name',
+                     'Process 2 Timer 3 name',
+                     'Process 3 Timer 0 name',
+                     'Process 3 Timer 1 name',
+                     'Process 3 Timer 2 name',
+                     'Process 3 Timer 3 name',
+                     'Reserved 0',
+                     'Reserved 1',
+                     'Temp Probe 4 name',
+                     'Temp Probe 5 name',
+                     'Temp Probe 6 name',
+                     'Temp Probe 7 name',
+                     'Din 4 name',
+                     'Din 5 name',
+                     'Din 6 name',
+                     'Din 7 name',
+                     'Output 6 name',
+                     'Output 7 name',
+                     'Output 8 name',
+                     'Output 9 name',
+                     'Output 10 name',
+                     'Output 11 name',
+                     'Output 12 name',
+                     'Output 13 name',
+                     'Output 14 name',
+                     'Output 15 name',
+                     'Output 16 name',
+                     'Output 17 name',
+                     'Process 4 name',
+                     'Process 5 name',
+                     'Process 6 name',
+                     'Process 7 name',
+                     'Process 4 State 0 name',
+                     'Process 4 State 1 name',
+                     'Process 4 State 2 name',
+                     'Process 4 State 3 name',
+                     'Process 4 State 4 name',
+                     'Process 4 State 5 name',
+                     'Process 4 State 6 name',
+                     'Process 4 State 7 name',
+                     'Process 5 State 0 name',
+                     'Process 5 State 1 name',
+                     'Process 5 State 2 name',
+                     'Process 5 State 3 name',
+                     'Process 5 State 4 name',
+                     'Process 5 State 5 name',
+                     'Process 5 State 6 name',
+                     'Process 5 State 7 name',
+                     'Process 6 State 0 name',
+                     'Process 6 State 1 name',
+                     'Process 6 State 2 name',
+                     'Process 6 State 3 name',
+                     'Process 6 State 4 name',
+                     'Process 6 State 5 name',
+                     'Process 6 State 6 name',
+                     'Process 6 State 7 name',
+                     'Process 7 State 0 name',
+                     'Process 7 State 1 name',
+                     'Process 7 State 2 name',
+                     'Process 7 State 3 name',
+                     'Process 7 State 4 name',
+                     'Process 7 State 5 name',
+                     'Process 7 State 6 name',
+                     'Process 7 State 7 name',
+                     'Process 4 Win 0 name',
+                     'Process 4 Win 1 name',
+                     'Process 4 Win 2 name',
+                     'Process 4 Win 3 name',
+                     'Process 5 Win 0 name',
+                     'Process 5 Win 1 name',
+                     'Process 5 Win 2 name',
+                     'Process 5 Win 3 name',
+                     'Process 6 Win 0 name',
+                     'Process 6 Win 1 name',
+                     'Process 6 Win 2 name',
+                     'Process 6 Win 3 name',
+                     'Process 7 Win 0 name',
+                     'Process 7 Win 1 name',
+                     'Process 7 Win 2 name',
+                     'Process 7 Win 3 name',
+                     '4 Timer 0 name',
+                     '4 Timer 1 name',
+                     '4 Timer 2 name',
+                     '4 Timer 3 name',
+                     '5 Timer 0 name',
+                     '5 Timer 1 name',
+                     '5 Timer 2 name',
+                     '5 Timer 3 name',
+                     '6 Timer 0 name',
+                     '6 Timer 1 name',
+                     '6 Timer 2 name',
+                     '6 Timer 3 name',
+                     '7 Timer 0 name',
+                     '7 Timer 1 name',
+                     '7 Timer 2 name',
+                     '7 Timer 3 name',
+                     'Reserved 2',
+                     'Reserved 3',
+                     'Reserved 4',
+                     'Reserved 5',
+                     'Reserved 6',
+                     'Reserved 7',
+                     'Reserved 8',
+                     'Reserved 9',
+                     'Reserved 10',
+                     'Reserved 11',
+                     'Reserved 12',
+                     'Reserved 13',
+                     'Reserved 14',
+                     'Reserved 15',
+                     'Reserved 16',
+                     'Reserved 17',
+                     'Reserved 18',
+                     'Reserved 19',
+                     'Reserved 20',
+                     'Reserved 21',
+                     'Reserved 22',
+                     'Reserved 23',
+                     'Reserved 24',
+                     'Reserved 25',
+                     'Reserved 26',
+                     'Reserved 27',
+                     'Reserved 28',
+                     'Reserved 29',
+                     'Reserved 30',
+                     'Reserved 31',
+                     'Reserved 32',
+                     'Reserved 33',
+                     'Reserved 34'
+                   ].freeze
+
+    def descriptions; DESCRIPTIONS; end
+
+#    def input_names; data[43..46] + data[89..92]; end
+#    def output_names; data[37..42] + data[93..104]; end
+#    def temp_probe_names; data[63..66] + data[85..88]; end
+
+   register_middleware middleware_options(self)
+
+  private
+
+    attr_accessor :body_text
+
+    def body_array
+      super.map { |str| str.strip[/.+/m] }
+    end
+
+
+    def parse
+raise "Stop using this"
+      return if body_text.nil?
+      body_array.each_with_index.inject({}) do |hash,(body,i)|
+        hash[descriptions[i]] = body_array[i]
+        hash
+      end
+    end
+
+  end
+end

data/lib/brewery_control_system/api/3.7.0/temperature_probe_names_endpoint.rb

@@ -0,0 +1,21 @@
+class NRB::BreweryControlSystem::API
+  class TemperatureProbeNamesEndpoint < Endpoint
+    # http://wiki.embeddedcc.com/index.php/sysname.dat
+    class << self
+      def endpoint; 'sysname.dat'; end
+    end
+
+    register_middleware middleware_options(self)
+
+  private
+
+    def body_array
+      super.map { |val| val.strip[/.+/m] }
+    end
+
+
+    def parse
+      [ *body_array[63..66], *body_array[85..88] ].compact
+    end
+  end
+end

data/lib/brewery_control_system/api/3.7.0/temperature_probes_endpoint.rb

@@ -0,0 +1,42 @@
+require File.join File.dirname(__FILE__), "temperature_probe_names_endpoint.rb"
+class NRB::BreweryControlSystem::API
+  class TemperatureProbesEndpoint
+
+    class << self
+      def fetch(api: nil)
+        new(api: api).fetch
+      end
+    end
+
+
+    def fetch
+      names = http_service do |b|
+                b.response TemperatureProbeNamesEndpoint
+              end.get(TemperatureProbeNamesEndpoint.endpoint).body
+      ultemp = http_service do |b|
+                    b.response Ultemp
+                  end.get(Ultemp.endpoint).body
+      temps = ultemp[34..41]
+      setpoints = ultemp[42..49]
+      names.each_with_index.collect do |name,i|
+        NRB::BreweryControlSystem::TemperatureProbe.new name, temps[i], setpoints[i]
+      end
+    end
+
+
+    def http_service &block
+      api.http_service &block
+    end
+
+
+    def initialize(api: nil)
+      raise ArgumentError.new("Need an api") if api.nil?
+      self.api = api
+    end
+
+  private
+
+    attr_accessor :api
+
+  end
+end

data/lib/brewery_control_system/api/3.7.0/temps.rb

@@ -0,0 +1,15 @@
+require File.join File.dirname(__FILE__), "ultemp"
+class NRB::BreweryControlSystem::API
+  class Temps < Ultemp
+
+    register_middleware middleware_options(self)
+
+  private
+
+    def parse
+      return if body_array.nil?
+      temps
+    end
+
+  end
+end

data/lib/brewery_control_system/api/3.7.0/ultemp.rb

@@ -0,0 +1,117 @@
+class NRB::BreweryControlSystem::API
+  class Ultemp < Endpoint
+    # http://wiki.embeddedcc.com/index.php/Ultemp.dat
+    #   All entries in the ultemp structure have to be in the range
+    #   0 <= ultemp < 2^32
+    #   Commas are not allowed 
+
+    class << self
+      def endpoint; 'ultemp.dat'; end
+    end
+
+    register_middleware middleware_options(self)
+
+  private
+
+    def alarm
+      body_array[54].to_s(2).rjust(9,"0")[8] == "1"
+    end
+
+
+   def bit_range(data, range)
+   end
+
+
+    def body_array
+      super.map { |i| i.to_i }
+    end
+
+
+    def body_array_by_ten(range)
+      collect_body_array(range) { |t| t.to_f / 10.0 }
+    end
+
+
+    def collect_body_array(range, &block)
+      body_array[range].collect &block
+    end
+
+
+    def decode_current_state(int)
+      # http://forum.embeddedcc.com/viewtopic.php?f=9&t=484&p=2513
+      ( "%08x" % int ).scan(/[0-9a-f\.]{2}/).reverse.collect { |hex| hex == ".." || hex == "ff" ? nil : hex.to_i(16) }
+    end
+
+
+    def input_statuses
+      unmask_boolean body_array[2], 0..7
+    end
+
+
+    def internal_registers
+      unmask_boolean body_array[53], 0..15
+    end
+
+
+    def output_statuses
+      unmask_boolean body_array[1], 0..17
+    end
+
+
+    def parse
+      return if body_array.nil?
+      [ *running_processes,
+        *output_statuses,
+        *input_statuses,
+        *temps,
+        *setpoints,
+        *processes_current_state,
+        *process_timers,
+        *internal_registers,
+        *process_pause_states,
+        alarm
+      ]
+    end
+
+
+    def process_pause_states
+      unmask_boolean body_array[54], 0..7
+    end
+
+
+    def processes_current_state
+      [ *decode_current_state(body_array[19]), *decode_current_state(body_array[20]) ]
+    end
+
+
+    def process_timers
+      body_array[21..52]
+    end
+
+
+    def running_processes
+      unmask_boolean body_array[0], 0..7
+    end
+
+
+    def temps
+      body_array_by_ten(3..10)
+    end
+
+
+    def setpoints
+      body_array_by_ten(11..18)
+    end
+
+
+    def unmask(masked, range)
+      range.collect { |i| masked & (2**i) }
+    end
+
+
+    def unmask_boolean(masked, range)
+      unmask(masked, range).collect { |unmasked| unmasked > 0 }
+    end
+
+  end
+end