somfy_sdn 1.0.12 → 2.0.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b2c2926c376002fa9632188a5d467c64c2987e48f892975a1a725ec71f38d021
-  data.tar.gz: dcafff75ded7c5e5cccc65912179dd6fbf0c33f36655cf29adb6e7e4d796b7a9
+  metadata.gz: 8b14639678ed3c5a54d4f8d70fd217898238aed5ccd1c81c0f3b78d04592e48b
+  data.tar.gz: 26d14eb134eee69523d2bca19f8ec32c63a3fc110ff7da704681569de2b8422b
 SHA512:
-  metadata.gz: 6fc1a34073e8069bd778575a1e5f8b3531b2bf5a769f3010d2ca93d4c4a2af07af0e26c7e1bb7a7d094d729e41dfb7031a5d569294d285fc82ab5f2b93afeebe
-  data.tar.gz: b61b3e69a01b4b0d709fa381ce0113184f6f5d32227ce3f72eee67c74bcf5e83ff8daa813ee69ef36e9fe76ffa9bc50c9d28eb76c403f1c1db370327ad505155
+  metadata.gz: 3da036c72689def6022a487078bc1024ff9aa10c1b9ec7d04ce6e19a0b5b1e3956e18dcdd44272e6e7e72175afe335dc7d9f4c29785004b88ad5fda344b7a84d
+  data.tar.gz: c12a57173231c7be1b4b7557cb71c4c58fcc312deace5157893850d5301696ca77b1e743d6ed4e2b005c3cc532c267875f234bbe5bf92a564a17d5fa921b3ff9

data/bin/somfy_sdn

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+
+require 'somfy_sdn'
+require 'thor'
+
+class SomfySDNCLI < Thor
+  class_option :verbose, type: :boolean, default: false
+
+  desc "monitor PORT", "Monitor traffic on the SDN network at PORT"
+  def monitor(port)
+    handle_global_options
+
+    sdn = SDN::Client.new(port)
+
+    loop do
+      sdn.receive do |message|
+        SDN.logger.info "Received message #{message.inspect}"
+      end
+    end
+  end
+
+  desc "mqtt PORT MQTT_URI", "Run an MQTT bridge to control the SDN network at PORT"
+  option :"device-id", default: "somfy", desc: "The Homie Device ID"
+  option :"base-topic", default: "homie", desc: "The base Homie topic"
+  option :"auto-discover", type: :boolean, default: true, desc: "Do a discovery at startup"
+  def mqtt(port, mqtt_uri)
+    handle_global_options
+
+    require 'sdn/cli/mqtt'
+
+    SDN::CLI::MQTT.new(port, mqtt_uri,
+      device_id: options["device-id"],
+      base_topic: options["base-topic"],
+      auto_discover: options["auto-discover"])
+  end
+
+  desc "provision PORT [ADDRESS]", "Provision a motor (label and set limits) at PORT"
+  def provision(port, address = nil)
+    handle_global_options
+
+    require 'sdn/cli/provisioner'
+    SDN::CLI::Provisioner.new(port, address)
+  end
+
+  desc "simulator PORT [ADDRESS]", "Simulate a motor (for debugging purposes) at PORT"
+  def simulator(port, address = nil)
+    handle_global_options
+
+    require 'sdn/cli/simulator'
+    SDN::CLI::Simulator.new(port, address)
+  end
+
+  private
+
+  def handle_global_options
+    SDN.logger.level = options[:verbose] ? :debug : :info
+  end
+end
+
+SomfySDNCLI.start(ARGV)   

data/lib/sdn.rb

@@ -1,6 +1,21 @@
+require 'logger'
+
+require 'sdn/client'
 require 'sdn/message'
-require 'sdn/mqtt_bridge'
 
 module SDN
   BROADCAST_ADDRESS = [0xff, 0xff, 0xff]
+
+  class << self
+    def logger
+      @logger ||= begin
+        Logger.new(STDOUT, :info).tap do |logger|
+          logger.datetime_format = '%Y-%m-%d %H:%M:%S.%L'
+          logger.formatter = proc do |severity, datetime, progname, msg|
+            "#{datetime.strftime(logger.datetime_format)} [#{Process.pid}/#{Thread.current.object_id}] #{severity}: #{msg}\n"
+          end
+        end
+      end
+    end
+  end
 end

data/lib/sdn/cli/mqtt.rb

@@ -0,0 +1,369 @@
+require 'mqtt'
+require 'uri'
+require 'set'
+
+require 'sdn/cli/mqtt/group'
+require 'sdn/cli/mqtt/motor'
+require 'sdn/cli/mqtt/read'
+require 'sdn/cli/mqtt/write'
+require 'sdn/cli/mqtt/subscriptions'
+
+module SDN
+  module CLI
+    class MQTT
+      MessageAndRetries = Struct.new(:message, :remaining_retries, :priority)
+
+      include Read
+      include Write
+      include Subscriptions
+
+      WAIT_TIME = 0.25
+      BROADCAST_WAIT = 5.0
+
+      attr_reader :motors, :groups
+
+      def initialize(port, mqtt_uri, device_id: "somfy", base_topic: "homie", auto_discover: true)
+        @base_topic = "#{base_topic}/#{device_id}"
+        @mqtt = ::MQTT::Client.new(mqtt_uri)
+        @mqtt.set_will("#{@base_topic}/$state", "lost", true)
+        @mqtt.connect
+
+        @motors = {}
+        @groups = {}
+
+        @mutex = Mutex.new
+        @cond = ConditionVariable.new
+        @queues = [[], [], []]
+        @response_pending = false
+        @broadcast_pending = false
+
+        @auto_discover = auto_discover
+        @motors_found = true
+
+        publish_basic_attributes
+
+        @sdn = Client.new(port)
+
+        read_thread = Thread.new { read }
+        write_thread = Thread.new { write }
+        @mqtt.get { |topic, value| handle_message(topic, value) }
+      end
+
+      def publish(topic, value)
+        @mqtt.publish("#{@base_topic}/#{topic}", value, true, 0)
+      end
+
+      def subscribe(topic)
+        @mqtt.subscribe("#{@base_topic}/#{topic}")
+      end
+
+      def enqueue(message, queue = 0)
+        @mutex.synchronize do
+          queue = @queues[queue]
+          unless queue.include?(message)
+            queue.push(message)
+            @cond.signal
+          end
+        end
+      end
+
+      def publish_basic_attributes
+        publish("$homie", "v4.0.0")
+        publish("$name", "Somfy SDN Network")
+        publish("$state", "init")
+        publish("$nodes", "FFFFFF")
+
+        publish("FFFFFF/$name", "Broadcast")
+        publish("FFFFFF/$type", "sdn")
+        publish("FFFFFF/$properties", "discover")
+
+        publish("FFFFFF/discover/$name", "Trigger Motor Discovery")
+        publish("FFFFFF/discover/$datatype", "enum")
+        publish("FFFFFF/discover/$format", "discover")
+        publish("FFFFFF/discover/$settable", "true")
+        publish("FFFFFF/discover/$retained", "false")
+
+        subscribe("+/discover/set")
+        subscribe("+/label/set")
+        subscribe("+/control/set")
+        subscribe("+/jog-ms/set")
+        subscribe("+/jog-pulses/set")
+        subscribe("+/position-pulses/set")
+        subscribe("+/position-percent/set")
+        subscribe("+/ip/set")
+        subscribe("+/reset/set")
+        subscribe("+/direction/set")
+        subscribe("+/up-speed/set")
+        subscribe("+/down-speed/set")
+        subscribe("+/slow-speed/set")
+        subscribe("+/up-limit/set")
+        subscribe("+/down-limit/set")
+        subscribe("+/groups/set")
+        (1..16).each do |ip|
+          subscribe("+/ip#{ip}-pulses/set")
+          subscribe("+/ip#{ip}-percent/set")
+        end
+
+        publish("$state", "ready")
+      end
+
+      def publish_motor(addr, node_type)
+        publish("#{addr}/$name", addr)
+        publish("#{addr}/$type", node_type.to_s)
+        properties = %w{
+          discover
+          label
+          state
+          control
+          jog-ms
+          jog-pulses
+          position-pulses
+          position-percent
+          ip
+          down-limit
+          groups
+          last-direction
+        } + (1..16).map { |ip| ["ip#{ip}-pulses", "ip#{ip}-percent"] }.flatten
+
+        unless node_type == :st50ilt2
+          properties.concat %w{
+            reset
+            last-action-source
+            last-action-cause
+            up-limit
+            direction
+            up-speed
+            down-speed
+            slow-speed
+          }
+        end
+
+        publish("#{addr}/$properties", properties.join(","))
+
+        publish("#{addr}/discover/$name", "Trigger Motor Discovery")
+        publish("#{addr}/discover/$datatype", "enum")
+        publish("#{addr}/discover/$format", "discover")
+        publish("#{addr}/discover/$settable", "true")
+        publish("#{addr}/discover/$retained", "false")
+
+        publish("#{addr}/label/$name", "Node label")
+        publish("#{addr}/label/$datatype", "string")
+        publish("#{addr}/label/$settable", "true")
+
+        publish("#{addr}/state/$name", "Current state of the motor")
+        publish("#{addr}/state/$datatype", "enum")
+        publish("#{addr}/state/$format", Message::PostMotorStatus::STATE.keys.join(','))
+
+        publish("#{addr}/control/$name", "Control motor")
+        publish("#{addr}/control/$datatype", "enum")
+        publish("#{addr}/control/$format", "up,down,stop,wink,next_ip,previous_ip,refresh")
+        publish("#{addr}/control/$settable", "true")
+        publish("#{addr}/control/$retained", "false")
+
+        publish("#{addr}/jog-ms/$name", "Jog motor by ms")
+        publish("#{addr}/jog-ms/$datatype", "integer")
+        publish("#{addr}/jog-ms/$format", "-65535:65535")
+        publish("#{addr}/jog-ms/$unit", "ms")
+        publish("#{addr}/jog-ms/$settable", "true")
+        publish("#{addr}/jog-ms/$retained", "false")
+
+        publish("#{addr}/jog-pulses/$name", "Jog motor by pulses")
+        publish("#{addr}/jog-pulses/$datatype", "integer")
+        publish("#{addr}/jog-pulses/$format", "-65535:65535")
+        publish("#{addr}/jog-pulses/$unit", "pulses")
+        publish("#{addr}/jog-pulses/$settable", "true")
+        publish("#{addr}/jog-pulses/$retained", "false")
+
+        publish("#{addr}/position-percent/$name", "Position (in %)")
+        publish("#{addr}/position-percent/$datatype", "integer")
+        publish("#{addr}/position-percent/$format", "0:100")
+        publish("#{addr}/position-percent/$unit", "%")
+        publish("#{addr}/position-percent/$settable", "true")
+
+        publish("#{addr}/position-pulses/$name", "Position from up limit (in pulses)")
+        publish("#{addr}/position-pulses/$datatype", "integer")
+        publish("#{addr}/position-pulses/$format", "0:65535")
+        publish("#{addr}/position-pulses/$unit", "pulses")
+        publish("#{addr}/position-pulses/$settable", "true")
+
+        publish("#{addr}/ip/$name", "Intermediate Position")
+        publish("#{addr}/ip/$datatype", "integer")
+        publish("#{addr}/ip/$format", "1:16")
+        publish("#{addr}/ip/$settable", "true")
+        publish("#{addr}/ip/$retained", "false") if node_type == :st50ilt2
+
+        publish("#{addr}/down-limit/$name", "Down limit")
+        publish("#{addr}/down-limit/$datatype", "integer")
+        publish("#{addr}/down-limit/$format", "0:65535")
+        publish("#{addr}/down-limit/$unit", "pulses")
+        publish("#{addr}/down-limit/$settable", "true")
+
+        publish("#{addr}/last-direction/$name", "Direction of last motion")
+        publish("#{addr}/last-direction/$datatype", "enum")
+        publish("#{addr}/last-direction/$format", Message::PostMotorStatus::DIRECTION.keys.join(','))
+
+        unless node_type == :st50ilt2
+          publish("#{addr}/reset/$name", "Recall factory settings")
+          publish("#{addr}/reset/$datatype", "enum")
+          publish("#{addr}/reset/$format", Message::SetFactoryDefault::RESET.keys.join(','))
+          publish("#{addr}/reset/$settable", "true")
+          publish("#{addr}/reset/$retained", "false")
+
+          publish("#{addr}/last-action-source/$name", "Source of last action")
+          publish("#{addr}/last-action-source/$datatype", "enum")
+          publish("#{addr}/last-action-source/$format", Message::PostMotorStatus::SOURCE.keys.join(','))
+
+          publish("#{addr}/last-action-cause/$name", "Cause of last action")
+          publish("#{addr}/last-action-cause/$datatype", "enum")
+          publish("#{addr}/last-action-cause/$format", Message::PostMotorStatus::CAUSE.keys.join(','))
+
+          publish("#{addr}/up-limit/$name", "Up limit (always = 0)")
+          publish("#{addr}/up-limit/$datatype", "integer")
+          publish("#{addr}/up-limit/$format", "0:65535")
+          publish("#{addr}/up-limit/$unit", "pulses")
+          publish("#{addr}/up-limit/$settable", "true")
+
+          publish("#{addr}/direction/$name", "Motor rotation direction")
+          publish("#{addr}/direction/$datatype", "enum")
+          publish("#{addr}/direction/$format", "standard,reversed")
+          publish("#{addr}/direction/$settable", "true")
+
+          publish("#{addr}/up-speed/$name", "Up speed")
+          publish("#{addr}/up-speed/$datatype", "integer")
+          publish("#{addr}/up-speed/$format", "6:28")
+          publish("#{addr}/up-speed/$unit", "RPM")
+          publish("#{addr}/up-speed/$settable", "true")
+
+          publish("#{addr}/down-speed/$name", "Down speed, always = Up speed")
+          publish("#{addr}/down-speed/$datatype", "integer")
+          publish("#{addr}/down-speed/$format", "6:28")
+          publish("#{addr}/down-speed/$unit", "RPM")
+          publish("#{addr}/down-speed/$settable", "true")
+
+          publish("#{addr}/slow-speed/$name", "Slow speed")
+          publish("#{addr}/slow-speed/$datatype", "integer")
+          publish("#{addr}/slow-speed/$format", "6:28")
+          publish("#{addr}/slow-speed/$unit", "RPM")
+          publish("#{addr}/slow-speed/$settable", "true")
+        end
+
+        publish("#{addr}/groups/$name", "Group Memberships (comma separated, address must start 0101xx)")
+        publish("#{addr}/groups/$datatype", "string")
+        publish("#{addr}/groups/$settable", "true")
+
+        (1..16).each do |ip|
+          publish("#{addr}/ip#{ip}-pulses/$name", "Intermediate Position #{ip}")
+          publish("#{addr}/ip#{ip}-pulses/$datatype", "integer")
+          publish("#{addr}/ip#{ip}-pulses/$format", "0:65535")
+          publish("#{addr}/ip#{ip}-pulses/$unit", "pulses")
+          publish("#{addr}/ip#{ip}-pulses/$settable", "true")
+
+          publish("#{addr}/ip#{ip}-percent/$name", "Intermediate Position #{ip}")
+          publish("#{addr}/ip#{ip}-percent/$datatype", "integer")
+          publish("#{addr}/ip#{ip}-percent/$format", "0:100")
+          publish("#{addr}/ip#{ip}-percent/$unit", "%")
+          publish("#{addr}/ip#{ip}-percent/$settable", "true")
+        end
+
+        motor = Motor.new(self, addr, node_type)
+        @motors[addr] = motor
+        publish("$nodes", (["FFFFFF"] + @motors.keys.sort + @groups.keys.sort).join(","))
+
+        sdn_addr = Message.parse_address(addr)
+        @mutex.synchronize do
+          @queues[2].push(MessageAndRetries.new(Message::GetNodeLabel.new(sdn_addr), 5, 2))
+          case node_type
+          when :st30
+            @queues[2].push(MessageAndRetries.new(Message::GetMotorStatus.new(sdn_addr), 5, 2))
+            @queues[2].push(MessageAndRetries.new(Message::GetMotorLimits.new(sdn_addr), 5, 2))
+            @queues[2].push(MessageAndRetries.new(Message::GetMotorDirection.new(sdn_addr), 5, 2))
+            @queues[2].push(MessageAndRetries.new(Message::GetMotorRollingSpeed.new(sdn_addr), 5, 2))
+            (1..16).each { |ip| @queues[2].push(MessageAndRetries.new(Message::GetMotorIP.new(sdn_addr, ip), 5, 2)) }
+          when :st50ilt2
+            @queues[2].push(MessageAndRetries.new(Message::ILT2::GetMotorSettings.new(sdn_addr), 5, 2))
+            @queues[2].push(MessageAndRetries.new(Message::ILT2::GetMotorPosition.new(sdn_addr), 5, 2))
+            (1..16).each { |ip| @queues[2].push(MessageAndRetries.new(Message::ILT2::GetMotorIP.new(sdn_addr, ip), 5, 2)) }
+          end
+          (1..16).each { |g| @queues[2].push(MessageAndRetries.new(Message::GetGroupAddr.new(sdn_addr, g), 5, 2)) }
+
+          @cond.signal
+        end
+
+        motor
+      end
+
+      def touch_group(group_addr)
+        group = @groups[Message.print_address(group_addr).gsub('.', '')]
+        group&.publish(:motors, group.motors_string)
+      end
+
+      def add_group(addr)
+        addr = addr.gsub('.', '')
+        group = @groups[addr]
+        return group if group
+
+        publish("#{addr}/$name", addr)
+        publish("#{addr}/$type", "Shade Group")
+        publish("#{addr}/$properties", "discover,control,jog-ms,jog-pulses,position-pulses,position-percent,ip,reset,state,last-direction,motors")
+
+        publish("#{addr}/discover/$name", "Trigger Motor Discovery")
+        publish("#{addr}/discover/$datatype", "enum")
+        publish("#{addr}/discover/$format", "discover")
+        publish("#{addr}/discover/$settable", "true")
+        publish("#{addr}/discover/$retained", "false")
+
+        publish("#{addr}/control/$name", "Control motors")
+        publish("#{addr}/control/$datatype", "enum")
+        publish("#{addr}/control/$format", "up,down,stop,wink,next_ip,previous_ip,refresh")
+        publish("#{addr}/control/$settable", "true")
+        publish("#{addr}/control/$retained", "false")
+
+        publish("#{addr}/jog-ms/$name", "Jog motors by ms")
+        publish("#{addr}/jog-ms/$datatype", "integer")
+        publish("#{addr}/jog-ms/$format", "-65535:65535")
+        publish("#{addr}/jog-ms/$unit", "ms")
+        publish("#{addr}/jog-ms/$settable", "true")
+        publish("#{addr}/jog-ms/$retained", "false")
+
+        publish("#{addr}/jog-pulses/$name", "Jog motors by pulses")
+        publish("#{addr}/jog-pulses/$datatype", "integer")
+        publish("#{addr}/jog-pulses/$format", "-65535:65535")
+        publish("#{addr}/jog-pulses/$unit", "pulses")
+        publish("#{addr}/jog-pulses/$settable", "true")
+        publish("#{addr}/jog-pulses/$retained", "false")
+
+        publish("#{addr}/position-pulses/$name", "Position from up limit (in pulses)")
+        publish("#{addr}/position-pulses/$datatype", "integer")
+        publish("#{addr}/position-pulses/$format", "0:65535")
+        publish("#{addr}/position-pulses/$unit", "pulses")
+        publish("#{addr}/position-pulses/$settable", "true")
+
+        publish("#{addr}/position-percent/$name", "Position (in %)")
+        publish("#{addr}/position-percent/$datatype", "integer")
+        publish("#{addr}/position-percent/$format", "0:100")
+        publish("#{addr}/position-percent/$unit", "%")
+        publish("#{addr}/position-percent/$settable", "true")
+
+        publish("#{addr}/ip/$name", "Intermediate Position")
+        publish("#{addr}/ip/$datatype", "integer")
+        publish("#{addr}/ip/$format", "1:16")
+        publish("#{addr}/ip/$settable", "true")
+
+        publish("#{addr}/state/$name", "State of the motors")
+        publish("#{addr}/state/$datatype", "enum")
+        publish("#{addr}/state/$format", Message::PostMotorStatus::STATE.keys.join(',')  + ",mixed")
+
+        publish("#{addr}/last-direction/$name", "Direction of last motion")
+        publish("#{addr}/last-direction/$datatype", "enum")
+        publish("#{addr}/last-direction/$format", Message::PostMotorStatus::DIRECTION.keys.join(',')  + ",mixed")
+
+        publish("#{addr}/motors/$name", "Comma separated motor addresses that are members of this group")
+        publish("#{addr}/motors/$datatype", "string")
+
+        group = @groups[addr] = Group.new(self, addr)
+        publish("$nodes", (["FFFFFF"] + @motors.keys.sort + @groups.keys.sort).join(","))
+        group
+      end
+    end
+  end
+end