ruby-dbus-openplacos 0.6.0

data/lib/dbus/marshall.rb

@@ -0,0 +1,443 @@
+# dbus.rb - Module containing the low-level D-Bus implementation
+#
+# This file is part of the ruby-dbus project
+# Copyright (C) 2007 Arnaud Cornet and Paul van Tilburg
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License, version 2.1 as published by the Free Software Foundation.
+# See the file "COPYING" for the exact licensing terms.
+
+require 'socket'
+
+# = D-Bus main module
+#
+# Module containing all the D-Bus modules and classes.
+module DBus
+  # Exception raised when an invalid packet is encountered.
+  class InvalidPacketException < Exception
+  end
+
+  # = D-Bus packet unmarshaller class
+  #
+  # Class that handles the conversion (unmarshalling) of payload data
+  # to Array.
+  class PacketUnmarshaller
+    # Index pointer that points to the byte in the data that is 
+    # currently being processed.
+    #
+    # Used to kown what part of the buffer has been consumed by unmarshalling.
+    # FIXME: Maybe should be accessed with a "consumed_size" method.
+    attr_reader :idx
+
+    # Create a new unmarshaller for the given data _buffer_ and _endianness_.
+    def initialize(buffer, endianness)
+      @buffy, @endianness = buffer.dup, endianness
+      if @endianness == BIG_END
+        @uint32 = "N"
+        @uint16 = "n"
+        @double = "G"
+      elsif @endianness == LIL_END
+        @uint32 = "V"
+        @uint16 = "v"
+        @double = "E"
+      else
+        # FIXME: shouldn't a more special exception be raised here?
+        # yes, idea for a good name ? :)
+        raise Exception, "Incorrect endianness"
+      end
+      @idx = 0
+    end
+
+    # Unmarshall the buffer for a given _signature_ and length _len_.
+    # Return an array of unmarshalled objects
+    def unmarshall(signature, len = nil)
+      if len != nil
+        if @buffy.size < @idx + len
+          raise IncompleteBufferException
+        end
+      end
+      sigtree = Type::Parser.new(signature).parse
+      ret = Array.new
+      sigtree.each do |elem|
+        ret << do_parse(elem)
+      end
+      ret
+    end
+
+    # Align the pointer index on a byte index of _a_, where a
+    # must be 1, 2, 4 or 8.
+    def align(a)
+      case a
+      when 1
+      when 2, 4, 8
+        bits = a - 1
+        @idx = @idx + bits & ~bits
+        raise IncompleteBufferException if @idx > @buffy.size
+      else
+        raise "Unsupported alignment #{a}"
+      end
+    end
+
+    ###############################################################
+    # FIXME: does anyone except the object itself call the above methods?
+    # Yes : Message marshalling code needs to align "body" to 8 byte boundary
+    private
+
+    # Retrieve the next _nbytes_ number of bytes from the buffer.
+    def get(nbytes)
+      raise IncompleteBufferException if @idx + nbytes > @buffy.size
+      ret = @buffy.slice(@idx, nbytes)
+      @idx += nbytes
+      ret
+    end
+
+    # Retrieve the series of bytes until the next NULL (\0) byte.
+    def get_nul_terminated
+      raise IncompleteBufferException if not @buffy[@idx..-1] =~ /^([^\0]*)\0/
+      str = $1
+      raise IncompleteBufferException if @idx + str.size + 1 > @buffy.size
+      @idx += str.size + 1
+      str
+    end
+
+    # Get the string length and string itself from the buffer.
+    # Return the string.
+    def get_string
+      align(4)
+      str_sz = get(4).unpack(@uint32)[0]
+      ret = @buffy.slice(@idx, str_sz)
+      raise IncompleteBufferException if @idx + str_sz + 1 > @buffy.size
+      @idx += str_sz
+      if @buffy[@idx].ord != 0
+        raise InvalidPacketException, "String is not nul-terminated"
+      end
+      @idx += 1
+      # no exception, see check above
+      ret
+    end
+
+    # Get the signature length and signature itself from the buffer.
+    # Return the signature.
+    def get_signature
+      str_sz = get(1).unpack('C')[0]
+      ret = @buffy.slice(@idx, str_sz)
+      raise IncompleteBufferException if @idx + str_sz + 1 >= @buffy.size
+      @idx += str_sz
+      if @buffy[@idx].ord != 0
+        raise InvalidPacketException, "Type is not nul-terminated"
+      end
+      @idx += 1
+      # no exception, see check above
+      ret
+    end
+
+    # Based on the _signature_ type, retrieve a packet from the buffer
+    # and return it.
+    def do_parse(signature)
+      packet = nil
+      case signature.sigtype
+      when Type::BYTE
+        packet = get(1).unpack("C")[0]
+      when Type::UINT16
+        align(2)
+        packet = get(2).unpack(@uint16)[0]
+      when Type::INT16
+        align(4)
+        packet = get(4).unpack(@uint16)[0]
+        if (packet & 0x8000) != 0
+          packet -= 0x10000
+        end
+      when Type::UINT32
+        align(4)
+        packet = get(4).unpack(@uint32)[0]
+      when Type::INT32
+        align(4)
+        packet = get(4).unpack(@uint32)[0]
+        if (packet & 0x80000000) != 0
+          packet -= 0x100000000
+        end
+      when Type::UINT64
+        align(8)
+        packet_l = get(4).unpack(@uint32)[0]
+        packet_h = get(4).unpack(@uint32)[0]
+        if @endianness == LIL_END
+          packet = packet_l + packet_h * 2**32
+        else
+          packet = packet_l * 2**32 + packet_h
+        end
+      when Type::INT64
+        align(8)
+        packet_l = get(4).unpack(@uint32)[0]
+        packet_h = get(4).unpack(@uint32)[0]
+        if @endianness == LIL_END
+          packet = packet_l + packet_h * 2**32
+        else
+          packet = packet_l * 2**32 + packet_h
+        end
+        if (packet & 0x8000000000000000) != 0
+          packet -= 0x10000000000000000
+        end
+      when Type::DOUBLE
+        align(8)
+        packet = get(8).unpack(@double)[0]
+      when Type::BOOLEAN
+        align(4)
+        v = get(4).unpack(@uint32)[0]
+        raise InvalidPacketException if not [0, 1].member?(v)
+        packet = (v == 1)
+      when Type::ARRAY
+        align(4)
+        # checks please
+        array_sz = get(4).unpack(@uint32)[0]
+        raise InvalidPacketException if array_sz > 67108864
+
+        align(signature.child.alignment)
+        raise IncompleteBufferException if @idx + array_sz > @buffy.size
+
+        packet = Array.new
+        start_idx = @idx
+        while @idx - start_idx < array_sz
+          packet << do_parse(signature.child)
+        end
+
+        if signature.child.sigtype == Type::DICT_ENTRY then
+          packet = packet.inject(Hash.new) do |hash, pair|
+            hash[pair[0]] = pair[1]
+            hash
+	  end
+        end
+      when Type::STRUCT
+        align(8)
+        packet = Array.new
+        signature.members.each do |elem|
+          packet << do_parse(elem)
+        end
+      when Type::VARIANT
+        string = get_signature
+        # error checking please
+        sig = Type::Parser.new(string).parse[0]
+        align(sig.alignment)
+        packet = do_parse(sig)
+      when Type::OBJECT_PATH
+        packet = get_string
+      when Type::STRING
+        packet = get_string
+      when Type::SIGNATURE
+        packet = get_signature
+      when Type::DICT_ENTRY
+        align(8)
+        key = do_parse(signature.members[0])
+        value = do_parse(signature.members[1])
+        packet = [key, value]
+      else
+        raise NotImplementedError,
+	  "sigtype: #{signature.sigtype} (#{signature.sigtype.chr})"
+      end
+      packet
+    end # def do_parse
+  end # class PacketUnmarshaller
+
+  # D-Bus packet marshaller class
+  #
+  # Class that handles the conversion (unmarshalling) of Ruby objects to
+  # (binary) payload data.
+  class PacketMarshaller
+    # The current or result packet.
+    # FIXME: allow access only when marshalling is finished
+    attr_reader :packet
+
+    # Create a new marshaller, setting the current packet to the
+    # empty packet.
+    def initialize(offset = 0)
+      @packet = ""
+      @offset = offset          # for correct alignment of nested marshallers
+    end
+
+    # Round _n_ up to the specified power of two, _a_
+    def num_align(n, a)
+      case a
+      when 1, 2, 4, 8
+        bits = a - 1
+        n + bits & ~bits
+      else
+        raise "Unsupported alignment"
+      end
+    end
+
+    # Align the buffer with NULL (\0) bytes on a byte length of _a_.
+    def align(a)
+      @packet = @packet.ljust(num_align(@offset + @packet.length, a) - @offset, 0.chr)
+    end
+
+    # Append the the string _str_ itself to the packet.
+    def append_string(str)
+      align(4)
+      @packet += [str.length].pack("L") + str + "\0"
+    end
+
+    # Append the the signature _signature_ itself to the packet.
+    def append_signature(str)
+      @packet += str.length.chr + str + "\0"
+    end
+
+    # Append the array type _type_ to the packet and allow for appending
+    # the child elements.
+    def array(type)
+      # Thanks to Peter Rullmann for this line
+      align(4)
+      sizeidx = @packet.size
+      @packet += "ABCD"
+      align(type.alignment)
+      contentidx = @packet.size
+      yield
+      sz = @packet.size - contentidx
+      raise InvalidPacketException if sz > 67108864
+      @packet[sizeidx...sizeidx + 4] = [sz].pack("L")
+    end
+
+    # Align and allow for appending struct fields.
+    def struct
+      align(8)
+      yield
+    end
+
+    # Append a string of bytes without type.
+    def append_simple_string(s)
+      @packet += s + "\0"
+    end
+
+    # Append a value _val_ to the packet based on its _type_.
+    def append(type, val)
+      raise TypeException, "Cannot send nil" if val.nil?
+
+      type = type.chr if type.kind_of?(Fixnum)
+      type = Type::Parser.new(type).parse[0] if type.kind_of?(String)
+      case type.sigtype
+      when Type::BYTE
+        @packet += val.chr
+      when Type::UINT32
+        align(4)
+        @packet += [val].pack("L")
+      when Type::UINT64
+	align(8)
+	@packet += [val].pack("Q")
+      when Type::INT64
+	align(8)
+	@packet += [val].pack("q")
+      when Type::INT32
+        align(4)
+        @packet += [val].pack("l")
+      when Type::UINT16
+        align(2)
+        @packet += [val].pack("S")
+      when Type::INT16
+        align(2)
+        @packet += [val].pack("s")
+      when Type::DOUBLE
+        align(8)
+	@packet += [val].pack("d")
+      when Type::BOOLEAN
+        align(4)
+        if val
+          @packet += [1].pack("L")
+        else
+          @packet += [0].pack("L")
+        end
+      when Type::OBJECT_PATH
+        append_string(val)
+      when Type::STRING
+        append_string(val)
+      when Type::SIGNATURE
+        append_signature(val)
+      when Type::VARIANT
+        vartype = nil
+        if val.is_a?(Array) and val.size == 2
+          if val[0].is_a?(DBus::Type::Type)
+            vartype, vardata = val
+          elsif val[0].is_a?(String)
+            begin
+              parsed = Type::Parser.new(val[0]).parse
+              vartype = parsed[0] if parsed.size == 1
+              vardata = val[1]
+            rescue Type::SignatureException
+              # no assignment
+            end
+          end
+        end
+        if vartype.nil?
+          vartype, vardata = PacketMarshaller.make_variant(val)
+          vartype = Type::Parser.new(vartype).parse[0]
+        end
+
+        append_signature(vartype.to_s)
+        align(vartype.alignment)
+        sub = PacketMarshaller.new(@offset + @packet.length)
+        sub.append(vartype, vardata)
+        @packet += sub.packet
+      when Type::ARRAY
+        if val.kind_of?(Hash)
+          raise TypeException, "Expected an Array but got a Hash" if type.child.sigtype != Type::DICT_ENTRY
+          # Damn ruby rocks here
+          val = val.to_a
+        end
+        if not val.kind_of?(Array)
+          raise TypeException, "Expected an Array but got a #{val.class}"
+        end
+        array(type.child) do
+          val.each do |elem|
+            append(type.child, elem)
+          end
+        end
+      when Type::STRUCT, Type::DICT_ENTRY
+        # TODO use duck typing, val.respond_to?
+        raise TypeException, "Struct/DE expects an Array" if not val.kind_of?(Array)
+        if type.sigtype == Type::DICT_ENTRY and val.size != 2
+          raise TypeException, "Dict entry expects a pair"
+        end
+        if type.members.size != val.size
+          raise TypeException, "Struct/DE has #{val.size} elements but type info for #{type.members.size}"
+        end
+        struct do
+          type.members.zip(val).each do |t, v|
+            append(t, v)
+          end
+        end
+      else
+        raise NotImplementedError,
+	  "sigtype: #{type.sigtype} (#{type.sigtype.chr})"     
+      end
+    end # def append
+
+    # Make a [signature, value] pair for a variant
+    def self.make_variant(value)
+      # TODO: mix in _make_variant to String, Integer...
+      if value == true
+        ["b", true]
+      elsif value == false
+        ["b", false]
+      elsif value.nil?
+        ["b", nil]
+      elsif value.is_a? Float
+        ["d", value]
+      elsif value.is_a? Symbol
+        ["s", value.to_s]
+      elsif value.is_a? Array
+        ["av", value.map {|i| make_variant(i) }]
+      elsif value.is_a? Hash
+        h = {}
+        value.each_key {|k| h[k] = make_variant(value[k]) }
+        ["a{sv}", h]
+      elsif value.respond_to? :to_str
+        ["s", value.to_str]
+      elsif value.respond_to? :to_int
+        i = value.to_int
+        if -2_147_483_648 <= i && i < 2_147_483_648
+          ["i", i]
+        else
+          ["x", i]
+        end
+      end
+    end    
+  end # class PacketMarshaller
+end # module DBus

data/lib/dbus/matchrule.rb

@@ -0,0 +1,100 @@
+# This file is part of the ruby-dbus project
+# Copyright (C) 2007 Arnaud Cornet and Paul van Tilburg
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License, version 2.1 as published by the Free Software Foundation.
+# See the file "COPYING" for the exact licensing terms.
+
+module DBus
+  # Exception raised when an erroneous match rule type is encountered.
+  class MatchRuleException < Exception
+  end
+
+  # = D-Bus match rule class
+  #
+  # FIXME
+  class MatchRule
+    # The list of possible match filters.
+    FILTERS = [:sender, :interface, :member, :path, :destination, :type]
+    # The sender filter.
+    attr_accessor :sender
+    # The interface filter.
+    attr_accessor :interface
+    # The member filter.
+    attr_accessor :member
+    # The path filter.
+    attr_accessor :path
+    # The destination filter.
+    attr_accessor :destination
+    # The type type that is matched.
+    attr_reader :type
+
+    # Create a new match rule
+    def initialize
+      @sender = @interface = @member = @path = @destination = @type = nil
+    end
+
+    # Set the message types to filter to type _t_.
+    # Possible message types are: signal, method_call, method_return, and error.
+    def type=(t)
+      if not ['signal', 'method_call', 'method_return', 'error'].member?(t)
+        raise MatchRuleException, t
+      end
+      @type = t
+    end
+
+    # Returns a match rule string version of the object.
+    # E.g.:  "type='signal',sender='org.freedesktop.DBus',interface='org.freedesktop.DBus',member='Foo',path='/bar/foo',destination=':452345.34',arg2='bar'"
+    def to_s
+      FILTERS.select do |sym|
+        not method(sym).call.nil?
+      end.collect do |sym|
+        "#{sym.to_s}='#{method(sym).call}'"
+      end.join(",")
+    end
+
+    # Parses a match rule string _s_ and sets the filters on the object.
+    def from_s(str)
+      str.split(",").each do |eq|
+        if eq =~ /^(.*)='([^']*)'$/
+# "
+          name = $1
+          val = $2
+          if FILTERS.member?(name.to_sym)
+            method(name + "=").call(val)
+          else
+            raise MatchRuleException, name
+          end
+        end
+      end
+      self
+    end
+
+    # Sets the match rule to filter for the given _signal_ and the
+    # given interface _intf_.
+    def from_signal(intf, signal)
+      signal = signal.name unless signal.is_a?(String)
+      self.type = "signal"
+      self.interface = intf.name
+      self.member = signal
+      self.path = intf.object.path
+      self
+    end
+
+    # Determines whether a message _msg_ matches the match rule.
+    def match(msg)
+      if @type
+        if {Message::SIGNAL => "signal", Message::METHOD_CALL => "method_call",
+          Message::METHOD_RETURN => "method_return",
+          Message::ERROR => "error"}[msg.message_type] != @type
+          return false
+        end
+      end
+      return false if @interface and @interface != msg.interface
+      return false if @member and @member != msg.member
+      return false if @path and @path != msg.path
+      true
+    end
+  end # class MatchRule
+end # module D-Bus