x11 0.0.1a1 → 0.0.1a2

data/lib/X11/extensions.rb

@@ -17,14 +17,63 @@
 # along with sysctl. If not, see <http://www.gnu.org/licenses/>.
 #++
 
-require 'ffi'
+require 'ffi' unless defined?(RUBY_ENGINE) && RUBY_ENGINE == 'rbx'
 require 'memoized'
 require 'refining'
+require 'retarded'
+require 'bitmap'
+require 'forwardable'
+require 'ostruct'
+
+module Kernel
+  def with (*args)
+    yield *args
+  end
+
+  def suppress_warnings
+    exception = nil
+    tmp, $VERBOSE = $VERBOSE, nil
+
+    begin
+      result = yield
+    rescue Exception => e
+      exception = e
+    end
+
+    $VERBOSE = tmp
+
+    if exception
+      raise exception
+    else
+      result
+    end
+  end
+end
 
 module FFI
+  def self.type_size (type)
+    type = FFI.find_type(type) if type.is_a?(Symbol)
+
+    if type.is_a?(Class) && (type.ancestors.member?(FFI::Struct) && !type.is_a?(FFI::ManagedStruct)) || type.is_a?(Type::Builtin)
+      type.size
+    elsif type.respond_to? :from_native
+      type.native_type.size
+    else
+      raise ArgumentError, 'you have to pass a Struct, a Builtin type or a Symbol'
+    end
+  end
+
   module Library
     def ffi_lib_add (*names)
-      ffi_lib *((begin; ffi_libraries; rescue Exception; []; end).map { |lib| lib.name } + names).compact.uniq
+      ffi_lib *((begin
+        ffi_libraries
+      rescue Exception
+        []
+      end).map {|lib|
+        lib.name
+      } + names).compact.uniq.reject {|lib|
+        lib == '[current process]'
+      }
     end
 
     def has_function? (sym, libraries=nil)
@@ -49,35 +98,51 @@ module FFI
   end
 
   class Type::Builtin
-    memoize
     def name
-      Type::Builtin.constants.find {|name|
-        Type::Builtin.const_get(name) == self
-      }
+      inspect[/:(\w+) /][1 .. -2]
     end
   end
 
   class Pointer
     def typecast (type)
-      if type.is_a?(Symbol)
-        type = FFI.find_type(type)
-      end
+      type = FFI.find_type(type) if type.is_a?(Symbol)
 
-      if type.is_a?(Class) && type.ancestors.member?(FFI::Struct)
+      if type.is_a?(Class) && type.ancestors.member?(FFI::Struct) && !type.is_a?(FFI::ManagedStruct)
         type.new(self)
       elsif type.is_a?(Type::Builtin)
-        if type.name == :STRING
-          read_string
-        else
-          send "read_#{type.name.downcase}"
-        end
+        send "read_#{type.name.downcase}"
+      elsif type.respond_to? :from_native
+        type.from_native(typecast(type.native_type), nil)
       else
-        ArgumentError.new 'You have to pass a Struct, a Builtin type or a Symbol'
+        raise ArgumentError, 'you have to pass a Struct, a Builtin type or a Symbol'
       end
     end
+
+    def read_array_of (type, number)
+      type = FFI.find_type(type) if type.is_a?(Symbol)
+      type = type.native_type    if type.respond_to? :native_type
+
+      send "read_array_of_#{type.name.downcase}", number
+    end
   end
 
   find_type(:size_t) rescue typedef(:ulong, :size_t)
 end
 
+class Integer
+  def to_ffi
+    self
+  end
+end
+
+class String
+  def to_ffi
+    self
+  end
+end
+
+class Bitmap::Value
+  alias to_ffi to_i
+end
+
 module X11; module C; extend FFI::Library; end; end

data/lib/X11/keysym.rb

@@ -0,0 +1,47 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+# 
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+# 
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+# 
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+# 
+# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# 
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+require 'X11/Xlib'
+
+module X11
+
+class Keysym
+  def self.const_missing (name)
+    C::XStringToKeysym(name.to_s)
+  end
+
+  def self.method_missing (name, *)
+    C::XStringToKeysym(name.to_s)
+  end
+
+  def self.[] (what)
+    what.is_a?(Integer) ? Keysym.new(what) : self.method_missing(what)
+  end
+end
+
+end

data/lib/X11/simple.rb

@@ -0,0 +1,33 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+# 
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+# 
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+# 
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+# 
+# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# 
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+require 'X11/Xlib'
+require 'X11/Xutil'
+require 'X11/cursorfont'
+
+require 'X11/simple/display'

data/lib/X11/simple/display.rb

@@ -0,0 +1,64 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+# 
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+# 
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+# 
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+# 
+# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# 
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+module X11
+
+class Display
+  def select_window (frame=false)
+    return unless grab_pointer(false, Mask::Event[:ButtonPress, :ButtonRelease], :sync, :async, root_window, Cursor::Font.new(self, :crosshair))
+
+    target  = nil
+    buttons = 0
+
+    while target.nil? || !buttons.zero?
+      allow_events Event::Mode::SyncPointer
+
+      case (event = root_window.next_event Mask::Event[:ButtonPress, :ButtonRelease])
+      when Event::ButtonPress
+        if target.nil?
+          target = event.subwindow
+
+          if target.nil?
+            target = root_window
+          end
+        end
+
+        buttons += 1
+
+      when Event::ButtonRelease
+        buttons -= 1 if buttons > 0
+      end
+    end
+
+    ungrab_pointer
+
+    frame ? target : target.client
+  end
+end
+
+end

data/lib/X11/simple/window.rb

@@ -0,0 +1,45 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+# 
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+# 
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+# 
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+# 
+# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# 
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+module X11
+
+class Window
+  def client
+    win = properties[:_NET_VIRTUAL_ROOTS].any? {|vroot|
+      next unless self == vroot
+
+      unless (tmp = self.pointer_on?).nil?
+        break tmp
+      else
+        return self
+      end
+    } or self
+  end
+end
+
+end

metadata

@@ -2,7 +2,7 @@
 name: x11
 version: !ruby/object:Gem::Version 
   prerelease: 5
-  version: 0.0.1a1
+  version: 0.0.1a2
 platform: ruby
 authors: 
 - meh.
@@ -10,10 +10,10 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-08-02 00:00:00 Z
+date: 2011-08-09 00:00:00 Z
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: memoized
+  name: ffi
   prerelease: false
   requirement: &id001 !ruby/object:Gem::Requirement 
     none: false
@@ -24,7 +24,7 @@ dependencies:
   type: :runtime
   version_requirements: *id001
 - !ruby/object:Gem::Dependency 
-  name: refining
+  name: memoized
   prerelease: false
   requirement: &id002 !ruby/object:Gem::Requirement 
     none: false
@@ -35,7 +35,7 @@ dependencies:
   type: :runtime
   version_requirements: *id002
 - !ruby/object:Gem::Dependency 
-  name: ffi
+  name: refining
   prerelease: false
   requirement: &id003 !ruby/object:Gem::Requirement 
     none: false
@@ -45,6 +45,28 @@ dependencies:
         version: "0"
   type: :runtime
   version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: retarded
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id004
+- !ruby/object:Gem::Dependency 
+  name: bitmap
+  prerelease: false
+  requirement: &id005 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id005
 description: 
 email: meh@paranoici.org
 executables: []
@@ -54,12 +76,23 @@ extensions: []
 extra_rdoc_files: []
 
 files: 
+- lib/X11/Xatom.rb
 - lib/X11/Xlib.rb
+- lib/X11/keysym.rb
 - lib/X11/extensions.rb
 - lib/X11/Xdefs/c.rb
 - lib/X11/Xmd.rb
+- lib/X11/cursorfont.rb
+- lib/X11/Xutil.rb
+- lib/X11/Xatom/c.rb
 - lib/X11/X/c.rb
 - lib/X11/X.rb
+- lib/X11/Xutil/window.rb
+- lib/X11/Xutil/c/type/text_property.rb
+- lib/X11/Xutil/c/type/class_hint.rb
+- lib/X11/Xutil/c/types.rb
+- lib/X11/Xutil/c/functions.rb
+- lib/X11/Xutil/c.rb
 - lib/X11/Xmd/c.rb
 - lib/X11/Xlib/event/visibility_notify.rb
 - lib/X11/Xlib/event/create_notify.rb
@@ -98,9 +131,26 @@ files:
 - lib/X11/Xlib/event/keymap_notify.rb
 - lib/X11/Xlib/event/configure_request.rb
 - lib/X11/Xlib/visual.rb
+- lib/X11/Xlib/revert_to.rb
 - lib/X11/Xlib/screen.rb
 - lib/X11/Xlib/window.rb
+- lib/X11/Xlib/transform.rb
+- lib/X11/Xlib/keysym.rb
+- lib/X11/Xlib/exceptions.rb
+- lib/X11/Xlib/status.rb
+- lib/X11/Xlib/window/properties/property.rb
+- lib/X11/Xlib/window/properties/property/parser/atom.rb
+- lib/X11/Xlib/window/properties/property/parser/cardinal.rb
+- lib/X11/Xlib/window/properties/property/parser/arc.rb
+- lib/X11/Xlib/window/properties/property/parser/hints.rb
+- lib/X11/Xlib/window/properties/property/class.rb
+- lib/X11/Xlib/window/properties/property/command.rb
+- lib/X11/Xlib/window/properties/property/net_virtual_root.rb
+- lib/X11/Xlib/window/properties/property/parser.rb
+- lib/X11/Xlib/window/properties.rb
 - lib/X11/Xlib/window/attributes.rb
+- lib/X11/Xlib/hints/flags.rb
+- lib/X11/Xlib/hints/icon.rb
 - lib/X11/Xlib/mask.rb
 - lib/X11/Xlib/c/type/map_event.rb
 - lib/X11/Xlib/c/type/visual.rb
@@ -116,6 +166,7 @@ files:
 - lib/X11/Xlib/c/type/window_attributes.rb
 - lib/X11/Xlib/c/type/button_event.rb
 - lib/X11/Xlib/c/type/key_event.rb
+- lib/X11/Xlib/c/type/status.rb
 - lib/X11/Xlib/c/type/mapping_event.rb
 - lib/X11/Xlib/c/type/circulate_request_event.rb
 - lib/X11/Xlib/c/type/no_expose_event.rb
@@ -125,6 +176,7 @@ files:
 - lib/X11/Xlib/c/type/motion_event.rb
 - lib/X11/Xlib/c/type/create_window_event.rb
 - lib/X11/Xlib/c/type/configure_event.rb
+- lib/X11/Xlib/c/type/key_sym.rb
 - lib/X11/Xlib/c/type/any_event.rb
 - lib/X11/Xlib/c/type/graphics_expose_event.rb
 - lib/X11/Xlib/c/type/configure_request_event.rb
@@ -145,9 +197,15 @@ files:
 - lib/X11/Xlib/c/functions.rb
 - lib/X11/Xlib/event.rb
 - lib/X11/Xlib/events.rb
+- lib/X11/Xlib/hints.rb
 - lib/X11/Xlib/c.rb
 - lib/X11/Xlib/display.rb
+- lib/X11/simple/window.rb
+- lib/X11/simple/display.rb
+- lib/X11/cursorfont/font.rb
+- lib/X11/cursorfont/c.rb
 - lib/X11/Xdefs.rb
+- lib/X11/simple.rb
 homepage: http://github.com/meh/ruby-x11
 licenses: []