x11 0.0.1a1 → 0.0.1a2

data/lib/X11/X.rb

@@ -30,4 +30,7 @@ require 'X11/X/c'
 
 module X11
 
+CurrentTime = 0
+AnyProperty = 0
+
 end

data/lib/X11/X/c.rb

@@ -26,23 +26,24 @@
 # or implied.
 #++
 
-require 'X11/extensions'
+require 'X11/Xatom'
 
 module X11; module C
 
-typedef :ulong, :XID
-typedef :ulong, :Mask
-typedef :ulong, :Atom
-typedef :ulong, :VisualID
-typedef :ulong, :Time
-typedef :XID,   :Window
-typedef :XID,   :Drawable
-typedef :XID,   :Font
-typedef :XID,   :Pixmap
-typedef :XID,   :Cursor
-typedef :XID,   :Colormap
-typedef :XID,   :GContext
-typedef :XID,   :KeySym
-typedef :uchar, :KeyCode
+module ::FFI
+  typedef :ulong, :XID
+  typedef :ulong, :Mask
+  typedef :ulong, :VisualID
+  typedef :ulong, :Time
+  typedef :XID,   :Window
+  typedef :XID,   :Drawable
+  typedef :XID,   :Font
+  typedef :XID,   :Pixmap
+  typedef :XID,   :Cursor
+  typedef :XID,   :Colormap
+  typedef :XID,   :GContext
+  typedef :XID,   :KeySym
+  typedef :uchar, :KeyCode
+end
 
 end; end

data/lib/X11/Xatom.rb

@@ -0,0 +1,167 @@
+#--
+# 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/extensions'
+
+module X11
+
+class Atom
+  @atoms = {
+    :PRIMARY             => 1,
+    :SECONDARY           => 2,
+    :ARC                 => 3,
+    :ATOM                => 4,
+    :BITMAP              => 5,
+    :CARDINAL            => 6,
+    :COLORMAP            => 7,
+    :CURSOR              => 8,
+    :CUT_BUFFER0         => 9,
+    :CUT_BUFFER1         => 10,
+    :CUT_BUFFER2         => 11,
+    :CUT_BUFFER3         => 12,
+    :CUT_BUFFER4         => 13,
+    :CUT_BUFFER5         => 14,
+    :CUT_BUFFER6         => 15,
+    :CUT_BUFFER7         => 16,
+    :DRAWABLE            => 17,
+    :FONT                => 18,
+    :INTEGER             => 19,
+    :PIXMAP              => 20,
+    :POINT               => 21,
+    :RECTANGLE           => 22,
+    :RESOURCE_MANAGER    => 23,
+    :RGB_COLOR_MAP       => 24,
+    :RGB_BEST_MAP        => 25,
+    :RGB_BLUE_MAP        => 26,
+    :RGB_DEFAULT_MAP     => 27,
+    :RGB_GRAY_MAP        => 28,
+    :RGB_GREEN_MAP       => 29,
+    :RGB_RED_MAP         => 30,
+    :STRING              => 31,
+    :VISUALID            => 32,
+    :WINDOW              => 33,
+    :WM_COMMAND          => 34,
+    :WM_HINTS            => 35,
+    :WM_CLIENT_MACHINE   => 36,
+    :WM_ICON_NAME        => 37,
+    :WM_ICON_SIZE        => 38,
+    :WM_NAME             => 39,
+    :WM_NORMAL_HINTS     => 40,
+    :WM_SIZE_HINTS       => 41,
+    :WM_ZOOM_HINTS       => 42,
+    :MIN_SPACE           => 43,
+    :NORM_SPACE          => 44,
+    :MAX_SPACE           => 45,
+    :END_SPACE           => 46,
+    :SUPERSCRIPT_X       => 47,
+    :SUPERSCRIPT_Y       => 48,
+    :SUBSCRIPT_X         => 49,
+    :SUBSCRIPT_Y         => 50,
+    :UNDERLINE_POSITION  => 51,
+    :UNDERLINE_THICKNESS => 52,
+    :STRIKEOUT_ASCENT    => 53,
+    :STRIKEOUT_DESCENT   => 54,
+    :ITALIC_ANGLE        => 55,
+    :X_HEIGHT            => 56,
+    :QUAD_WIDTH          => 57,
+    :WEIGHT              => 58,
+    :POINT_SIZE          => 59,
+    :RESOLUTION          => 60,
+    :COPYRIGHT           => 61,
+    :NOTICE              => 62,
+    :FONT_NAME           => 63,
+    :FAMILY_NAME         => 64,
+    :FULL_NAME           => 65,
+    :CAP_HEIGHT          => 66,
+    :WM_CLASS            => 67,
+    :WM_TRANSIENT_FOR    => 68,
+
+    :LAST_PREDEFINED => 68
+  }
+
+  def self.to_hash
+    @atoms
+  end
+
+  def self.const_missing (const)
+    Atom.new(to_hash.find {|name, value|
+      name.to_s.downcase == const.to_s.downcase
+    }.last)
+  end
+
+  def self.method_missing (id, *)
+    const_missing(id)
+  end
+
+  def self.from_name (display, name, if_exists=false)
+    C::XInternAtom(display.to_ffi, name, if_exists).tap {|atom|
+      break atom.to_i == 0 ? nil : atom.to_i
+    }
+  end
+
+  attr_reader :display
+
+  def initialize (value, display=nil)
+    if display
+      @display = display
+      @value   = value.is_a?(Integer) ? value : Atom.from_name(display, value.to_s).to_i
+    else
+      @value = value.is_a?(Integer) ? value : Atom.const_missing(value).to_i
+    end
+  end
+
+  def name
+    @name ||= if display
+      C::XGetAtomName(display.to_ffi, self)
+    else
+      Atom.to_hash.index(@value).tap {|name|
+        break name.nil? ? nil : name.to_s
+      }
+    end
+  end
+
+  def to_sym
+    name.to_sym rescue nil
+  end
+
+  def to_s
+    name
+  end
+
+  def to_i
+    @value
+  end; alias to_ffi to_i
+
+  def inspect
+    to_sym.to_s
+  end
+end
+
+end
+
+require 'X11/Xatom/c'

data/lib/X11/Xatom/c.rb

@@ -0,0 +1,52 @@
+#--
+# 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/Xdefs'
+
+module X11; module C
+
+module Atom
+  extend FFI::DataConverter
+
+  native_type :ulong
+
+  def self.to_native (value, ctx)
+    value.to_ffi
+  end
+
+  def self.from_native (value, ctx)
+    X11::Atom.new(value)
+  end
+end
+
+FFI.typedef Atom, :Atom
+
+attach_function :XInternAtom, [:pointer, :string, :Bool], :Atom
+attach_function :XGetAtomName, [:pointer, :Atom], :string
+
+end; end

data/lib/X11/Xdefs/c.rb

@@ -27,9 +27,12 @@
 #++
 
 require 'X11/extensions'
+require 'X11/Xatom'
 
 module X11; module C
 
+ffi_lib_add 'X11'
+
 module Bool
   extend FFI::DataConverter
 
@@ -44,11 +47,12 @@ module Bool
   end
 end
 
-typedef :ulong, :Atom
-typedef Bool,   :Bool
-typedef :ulong, :XID
-typedef :ulong, :Mask
-typedef :XID,   :Font
-typedef :ulong, :FSID
+module ::FFI
+  typedef Bool,   :Bool
+  typedef :ulong, :XID
+  typedef :ulong, :Mask
+  typedef :XID,   :Font
+  typedef :ulong, :FSID
+end
 
 end; end

data/lib/X11/Xlib.rb

@@ -26,12 +26,18 @@
 # or implied.
 #++
 
+require 'X11/Xlib/exceptions'
+require 'X11/Xlib/transform'
+
 require 'X11/Xlib/c'
 
 require 'X11/Xlib/display'
 require 'X11/Xlib/screen'
 require 'X11/Xlib/window'
 require 'X11/Xlib/visual'
+require 'X11/Xlib/keysym'
 
+require 'X11/Xlib/status'
 require 'X11/Xlib/event'
 require 'X11/Xlib/mask'
+require 'X11/Xlib/revert_to'

data/lib/X11/Xlib/c/functions.rb

@@ -28,13 +28,19 @@
 
 module X11; module C
 
+attach_function :XFree, [:pointer], :int
+
 attach_function :XOpenDisplay, [:string], :pointer
 attach_function :XCloseDisplay, [:pointer], :int
+attach_function :XFlush, [:pointer], :int
+attach_function :XGetInputFocus, [:pointer, :pointer, :pointer], :int
+attach_function :XSetInputFocus, [:pointer, :Window, :int, :Time], :int
 
 attach_function :XGrabButton, [:pointer, :uint, :uint, :Window, :Bool, :uint, :int, :int, :Window, :Cursor], :int
 attach_function :XGrabKey, [:pointer, :int, :uint, :Window, :Bool, :int, :int], :int
 attach_function :XGrabKeyboard, [:pointer, :Window, :Bool, :int, :int, :Time], :int
 attach_function :XGrabPointer, [:pointer, :Window, :Bool, :uint, :int, :int, :Window, :Cursor, :Time], :int
+attach_function :XQueryPointer, [:pointer, :Window, :pointer, :pointer, :pointer, :pointer, :pointer, :pointer, :pointer], :Bool
 
 attach_function :XUngrabButton, [:pointer, :uint, :uint, :Window], :int
 attach_function :XUngrabKey, [:pointer, :int, :uint, :Window], :int
@@ -43,12 +49,21 @@ attach_function :XUngrabPointer, [:pointer, :Time], :int
 
 attach_function :XGetWindowAttributes, [:pointer, :Window, :pointer], :int
 attach_function :XMoveResizeWindow, [:pointer, :Window, :int, :int, :uint, :uint], :int
+attach_function :XMoveWindow, [:pointer, :Window, :int, :int], :int
+attach_function :XResizeWindow, [:pointer, :Window, :uint, :uint], :int
 attach_function :XRaiseWindow, [:pointer, :Window], :int
+attach_function :XQueryTree, [:pointer, :Window, :pointer, :pointer, :pointer, :pointer], :Status
+attach_function :XListProperties, [:pointer, :Window, :pointer], :pointer
+attach_function :XGetWindowProperty, [:pointer, :Window, :Atom, :long, :long, :Bool, :Atom, :pointer, :pointer, :pointer, :pointer, :pointer], :Status
 
+attach_function :XAllowEvents, [:pointer, :int, :Time], :int
 attach_function :XNextEvent, [:pointer, :pointer], :int
+attach_function :XMaskEvent, [:pointer, :long, :pointer], :int
 attach_function :XCheckTypedEvent, [:pointer, :int, :pointer], :Bool
+attach_function :XWindowEvent, [:pointer, :Window, :long, :pointer], :int
 
 attach_function :XStringToKeysym, [:string], :KeySym
+attach_function :XKeysymToString, [:KeySym], :string
 attach_function :XKeysymToKeycode, [:pointer, :KeySym], :KeyCode
 
 end; end

data/lib/X11/Xlib/c/type/key_sym.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.
+#++
+
+module X11; module C
+
+module KeySym
+  extend FFI::DataConverter
+
+  native_type :XID
+
+  def self.to_native (value, ctx)
+    value.to_i
+  end
+
+  def self.from_native (value, ctx)
+    X11::Keysym.new(value)
+  end
+end
+
+FFI.typedef KeySym, :KeySym
+
+end; end

data/lib/X11/Xlib/c/type/status.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.
+#++
+
+module X11; module C
+
+module Status
+  extend FFI::DataConverter
+
+  native_type :int
+
+  def self.to_native (value, ctx)
+    value.to_i
+  end
+
+  def self.from_native (value, ctx)
+    X11::Status.new(value)
+  end
+end
+
+FFI.typedef Status, :Status
+
+end; end