x11 0.0.1a2 → 0.0.1a3

data/lib/X11/Xlib/display/extensions.rb

@@ -0,0 +1,56 @@
+#--
+# 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 meh ''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 meh 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
+
+class Extensions < Array
+	attr_reader :display
+
+	def initialize (display)
+		@display = display
+	end
+
+	def load (extension)
+		self << extension.apply(display)
+	end
+
+	memoize
+	def [] (name)
+		find {|extension|
+			extension.name.downcase == name.to_s.downcase
+		}
+	end
+
+	def available
+		Enumerator.new do |e|
+
+		end
+	end
+end
+
+end; end

data/lib/X11/Xlib/drawable.rb

@@ -0,0 +1,48 @@
+#--
+# 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 meh ''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 meh 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 Drawable < ID
+	named :x, :y, :width, :height, :to, :destination, :gc, :optional => 0 .. -1
+	def copy (x=nil, y=nil, width=nil, height=nil, to=nil, destination=nil, gc=nil)
+		x           ||= 0
+		y           ||= 0
+		width       ||= self.width
+		height      ||= self.height
+		to          ||= [0, 0]
+		destination ||= Pixmap.create(to_ffi, width, height)
+		gc          ||= GraphicContext.new
+
+		C::XCopyArea(display.to_ffi, to_ffi, destination.to_ffi, gc.to_ffi, x, y, width, height, to.first, to.last)
+
+		destination
+	end
+end
+
+end

data/lib/X11/Xlib/error.rb

@@ -0,0 +1,100 @@
+# 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 meh ''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 meh 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 Error < Exception
+	def self.from (event)
+		X11::const_get(Status.new(event[:error_code]).to_sym).new(event)
+	end
+
+	def self.raise (exception)
+		@error = exception
+	end
+
+	def self.pop
+		return unless @error
+
+		@error.tap {
+			@error = nil
+		}
+	end
+
+	attr_reader :type, :display, :resource, :serial, :error, :request, :minor
+
+	def initialize (event=nil)
+		return super(self.class.name[/\w+$/]) unless event
+
+		@type     = event[:type]
+		@display  = X11::Display.new(event[:display])
+		@resource = event[:resourceid]
+		@serial   = event[:serial]
+		@error    = event[:error_code]
+		@request  = event[:request_code]
+		@minor    = event[:minor_code]
+
+		FFI::MemoryPointer.new(512).tap {|string|
+			C::XGetErrorText(@display.to_ffi, @error, string, string.size)
+
+			super(string.typecast(:string))
+		}
+	end
+
+	def to_sym
+		self.class.name[/\w+$/].to_sym
+	end
+
+	def inspect
+		"#<#{to_sym}: 0x#{resource.to_s(16)} #{request}:#{error}.#{minor}>"
+	end
+end
+
+BadRequest        = Class.new(Error)
+BadValue          = Class.new(Error)
+BadWindow         = Class.new(Error)
+BadPixmap         = Class.new(Error)
+BadAtom           = Class.new(Error)
+BadCursor         = Class.new(Error)
+BadFont           = Class.new(Error)
+BadMatch          = Class.new(Error)
+BadDrawable       = Class.new(Error)
+BadAccess         = Class.new(Error)
+BadAlloc          = Class.new(Error)
+BadColor          = Class.new(Error)
+BadGC             = Class.new(Error)
+BadIDChoice       = Class.new(Error)
+BadName           = Class.new(Error)
+BadLength         = Class.new(Error)
+BadImplementation = Class.new(Error)
+
+C::XSetErrorHandler(X11::ErrorHandler = FFI::Function.new(:int, [:pointer, :pointer]) {|display, event|
+	Error.raise Error.from(C::XErrorEvent.new(event)); 1
+})
+
+C::XSetIOErrorHandler(X11::IOErrorHandler = FFI::Function.new(:int, [:pointer]) {|display|
+	Error.raise IOError.new('fatal X IO error'); 1
+})
+
+end

data/lib/X11/Xlib/event.rb

@@ -1,26 +1,26 @@
 #--
 # 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
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''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
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh 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.
@@ -31,40 +31,69 @@ require 'X11/Xlib/events'
 module X11
 
 class Event
-  module Mode
-    AsyncPointer   = 0
-    SyncPointer    = 1
-    ReplayPointer  = 2
-    AsyncKeyboard  = 3
-    SyncKeyboard   = 4
-    ReplayKeyboard = 5
-    AsyncBoth      = 6
-    SyncBoth       = 7
-
-    def self.[] (name)
-      const_get name
-    end
-  end
-
-  def self.index (event)
-    Events.to_a.index(event)
-  end
-
-  def self.new (event)
-    event = event.typecast(C::XEvent) unless event.is_a?(C::XEvent)
-
-    (Events[event[:type]] || Any).new(event)
-  end
+	module Mode
+		AsyncPointer   = 0
+		SyncPointer    = 1
+		ReplayPointer  = 2
+		AsyncKeyboard  = 3
+		SyncKeyboard   = 4
+		ReplayKeyboard = 5
+		AsyncBoth      = 6
+		SyncBoth       = 7
+
+		def self.[] (name)
+			const_get name
+		end
+	end
+
+	def self.index (name)
+		Events.each_with_index {|event, index|
+			next if event.nil?
+
+			return index if event.name[/[^:]*$/] == name.to_s
+		}
+	end
+
+	def self.new (event)
+		event = event.typecast(C::XEvent) unless event.is_a?(C::XEvent)
+
+		(Events[event[:type]] || Any).new(event)
+	end
+
+	def self.mask_for (what)
+		case what
+			when Array
+				what.inject(Mask::Event[]) {|a, b| mask_for(a) + mask_for(b) }
+
+			when Symbol
+				Mask::Event[*(Events.find {|event|
+					event && event.name[/[^:]*$/].to_sym == what
+				}.mask rescue [])]
+
+			when Bitmap::Value
+				what
+
+			when Regexp
+				Mask::Event[*Events.select {|event|
+					event && event.name[/[^:]*$/].match(what)
+				}.map {|event|
+					event.mask
+				}.flatten.compact.uniq]
+
+			when nil
+				Mask::Event.all
+		end
+	end
 end
 
 class C::XEvent
-  Events.to_a.compact.each {|type|
-    next unless type.attribute rescue nil
+	Events.to_a.compact.each {|type|
+		next unless type.attribute rescue nil
 
-    define_method(type.attribute) {
-      type.new(self)
-    }
-  }
+		define_method(type.attribute) {
+			type.new(self)
+		}
+	}
 end
 
 end

data/lib/X11/Xlib/event/any.rb

@@ -1,33 +1,31 @@
 #--
 # 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
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''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
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh 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.
 #++
 
 class X11::Event::Any < X11::Event::Helper
-  attribute :xany
-
-  include X11::Event::Common
+	attribute :xany
 end

data/lib/X11/Xlib/event/button_press.rb

@@ -1,44 +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
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''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
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh 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.
 #++
 
 class X11::Event::ButtonPress < X11::Event::Helper
-  attribute :xbutton
+	extend X11::Event::Generic::Button
 
-  include X11::Event::Common
-
-  manage :root, X11::Event::Window
-  manage :subwindow, X11::Event::Window
-  manage :time
-  manage :x
-  manage :y
-  manage :x_root
-  manage :y_root
-  manage :state
-  manage :button
-  manage [:same_screen, :same_screen?]
+	mask :ButtonPress
 end

data/lib/X11/Xlib/event/button_release.rb

@@ -1,44 +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
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''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
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh 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.
 #++
 
 class X11::Event::ButtonRelease < X11::Event::Helper
-  attribute :xbutton
+	extend X11::Event::Generic::Button
 
-  include X11::Event::Common
-
-  manage :root, X11::Event::Window
-  manage :subwindow, X11::Event::Window
-  manage :time
-  manage :x
-  manage :y
-  manage :x_root
-  manage :y_root
-  manage :state
-  manage :button
-  manage [:same_screen, :same_screen?]
+	mask :ButtonRelease
 end