x11 0.0.1a2 → 0.0.1a3

data/lib/X11/cursorfont/font.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.
@@ -29,119 +29,119 @@
 module X11; module Cursor
 
 class Font
-  module Shapes
-    @shapes = {
-      :num_glyphs          => 154,
-      :X_cursor            => 0,
-      :arrow               => 2,
-      :based_arrow_down    => 4,
-      :based_arrow_up      => 6,
-      :boat                => 8,
-      :bogosity            => 10,
-      :bottom_left_corner  => 12,
-      :bottom_right_corner => 14,
-      :bottom_side         => 16,
-      :bottom_tee          => 18,
-      :box_spiral          => 20,
-      :center_ptr          => 22,
-      :circle              => 24,
-      :clock               => 26,
-      :coffee_mug          => 28,
-      :cross               => 30,
-      :cross_reverse       => 32,
-      :crosshair           => 34,
-      :diamond_cross       => 36,
-      :dot                 => 38,
-      :dotbox              => 40,
-      :double_arrow        => 42,
-      :draft_large         => 44,
-      :draft_small         => 46,
-      :draped_box          => 48,
-      :exchange            => 50,
-      :fleur               => 52,
-      :gobbler             => 54,
-      :gumby               => 56,
-      :hand1               => 58,
-      :hand2               => 60,
-      :heart               => 62,
-      :icon                => 64,
-      :iron_cross          => 66,
-      :left_ptr            => 68,
-      :left_side           => 70,
-      :left_tee            => 72,
-      :leftbutton          => 74,
-      :ll_angle            => 76,
-      :lr_angle            => 78,
-      :man                 => 80,
-      :middlebutton        => 82,
-      :mouse               => 84,
-      :pencil              => 86,
-      :pirate              => 88,
-      :plus                => 90,
-      :question_arrow      => 92,
-      :right_ptr           => 94,
-      :right_side          => 96,
-      :right_tee           => 98,
-      :rightbutton         => 100,
-      :rtl_logo            => 102,
-      :sailboat            => 104,
-      :sb_down_arrow       => 106,
-      :sb_h_double_arrow   => 108,
-      :sb_left_arrow       => 110,
-      :sb_right_arrow      => 112,
-      :sb_up_arrow         => 114,
-      :sb_v_double_arrow   => 116,
-      :shuttle             => 118,
-      :sizing              => 120,
-      :spider              => 122,
-      :spraycan            => 124,
-      :star                => 126,
-      :target              => 128,
-      :tcross              => 130,
-      :top_left_arrow      => 132,
-      :top_left_corner     => 134,
-      :top_right_corner    => 136,
-      :top_side            => 138,
-      :top_tee             => 140,
-      :trek                => 142,
-      :ul_angle            => 144,
-      :umbrella            => 146,
-      :ur_angle            => 148,
-      :watch               => 150,
-      :xterm               => 152
-    }
+	module Shapes
+		@shapes = {
+			:num_glyphs          => 154,
+			:X_cursor            => 0,
+			:arrow               => 2,
+			:based_arrow_down    => 4,
+			:based_arrow_up      => 6,
+			:boat                => 8,
+			:bogosity            => 10,
+			:bottom_left_corner  => 12,
+			:bottom_right_corner => 14,
+			:bottom_side         => 16,
+			:bottom_tee          => 18,
+			:box_spiral          => 20,
+			:center_ptr          => 22,
+			:circle              => 24,
+			:clock               => 26,
+			:coffee_mug          => 28,
+			:cross               => 30,
+			:cross_reverse       => 32,
+			:crosshair           => 34,
+			:diamond_cross       => 36,
+			:dot                 => 38,
+			:dotbox              => 40,
+			:double_arrow        => 42,
+			:draft_large         => 44,
+			:draft_small         => 46,
+			:draped_box          => 48,
+			:exchange            => 50,
+			:fleur               => 52,
+			:gobbler             => 54,
+			:gumby               => 56,
+			:hand1               => 58,
+			:hand2               => 60,
+			:heart               => 62,
+			:icon                => 64,
+			:iron_cross          => 66,
+			:left_ptr            => 68,
+			:left_side           => 70,
+			:left_tee            => 72,
+			:leftbutton          => 74,
+			:ll_angle            => 76,
+			:lr_angle            => 78,
+			:man                 => 80,
+			:middlebutton        => 82,
+			:mouse               => 84,
+			:pencil              => 86,
+			:pirate              => 88,
+			:plus                => 90,
+			:question_arrow      => 92,
+			:right_ptr           => 94,
+			:right_side          => 96,
+			:right_tee           => 98,
+			:rightbutton         => 100,
+			:rtl_logo            => 102,
+			:sailboat            => 104,
+			:sb_down_arrow       => 106,
+			:sb_h_double_arrow   => 108,
+			:sb_left_arrow       => 110,
+			:sb_right_arrow      => 112,
+			:sb_up_arrow         => 114,
+			:sb_v_double_arrow   => 116,
+			:shuttle             => 118,
+			:sizing              => 120,
+			:spider              => 122,
+			:spraycan            => 124,
+			:star                => 126,
+			:target              => 128,
+			:tcross              => 130,
+			:top_left_arrow      => 132,
+			:top_left_corner     => 134,
+			:top_right_corner    => 136,
+			:top_side            => 138,
+			:top_tee             => 140,
+			:trek                => 142,
+			:ul_angle            => 144,
+			:umbrella            => 146,
+			:ur_angle            => 148,
+			:watch               => 150,
+			:xterm               => 152
+		}
 
-    def self.[] (name)
-      if name.is_a?(Integer)
-        @shapes.key(name)
-      else
-        @shapes[name.to_s.to_sym]
-      end
-    end
+		def self.[] (name)
+			if name.is_a?(Integer)
+				@shapes.key(name)
+			else
+				@shapes[name.to_s.to_sym]
+			end
+		end
 
-    def self.const_missing (name)
-      @shapes[name]
-    end
+		def self.const_missing (name)
+			@shapes[name]
+		end
 
-    def self.method_missing (name, *)
-      @shapes[name]
-    end
-  end
+		def self.method_missing (name, *)
+			@shapes[name]
+		end
+	end
 
-  attr_reader :display
+	attr_reader :display
 
-  def initialize (display, shape)
-    @display = display
-    @shape   = shape.is_a?(Integer) ? shape : Shapes[shape]
-  end
+	def initialize (display, shape)
+		@display = display
+		@shape   = shape.is_a?(Integer) ? shape : Shapes[shape]
+	end
 
-  def to_s
-    Shapes[@shape].to_s
-  end
+	def to_s
+		Shapes[@shape].to_s
+	end
 
-  def to_ffi
-    C::XCreateFontCursor(display.to_ffi, @shape)
-  end
+	def to_ffi
+		C::XCreateFontCursor(display.to_ffi, @shape)
+	end
 end
 
 end; end

data/lib/X11/extension.rb

@@ -0,0 +1,65 @@
+#--
+# 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 Extension
+	@@extensions = []
+
+	def self.define (name, &block)
+		@@extensions << self.new(name, &block)
+	end
+
+	def self.list
+		@@extensions
+	end
+
+	attr_reader :name
+
+	def initialize (name, &block)
+		@name  = name
+		@block = block
+	end
+
+	def apply (display)
+		instance_exec display, &@block
+	end
+
+	def new (data)
+		result = dup
+
+		result.instance_variable_set :@data, data
+		result.define_singleton_method :method_missing do |*args, &block|
+			@data.__send__ *args, &block
+		end
+
+		result
+	end
+end
+
+end

data/lib/X11/extensions.rb

@@ -1,148 +1,127 @@
 #--
-# Copyleft shura. [ shura1991@gmail.com ]
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
 #
-# This file is part of sysctl.
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
 #
-# sysctl is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published
-# by the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
 #
-# sysctl is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
+#    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.
 #
-# You should have received a copy of the GNU Affero General Public License
-# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+# 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.
 #++
 
-require 'ffi' unless defined?(RUBY_ENGINE) && RUBY_ENGINE == 'rbx'
-require 'memoized'
+require 'forwardable'
+require 'ostruct'
+
+require 'require/on'
+require 'ffi'
+require 'ffi/extra'
+require 'versionub'
+require 'call-me/memoize'
+require 'call-me/named'
 require 'refining'
 require 'retarded'
 require 'bitmap'
-require 'forwardable'
-require 'ostruct'
+require 'with'
 
 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
+	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.reject {|lib|
-        lib == '[current process]'
-      }
-    end
-
-    def has_function? (sym, libraries=nil)
-      libraries ||= ffi_libraries
-
-      libraries.any? {|lib|
-        if lib.is_a?(DynamicLibrary)
-          lib
-        else
-          DynamicLibrary.new(lib, 0)
-        end.find_function(sym.to_s) rescue nil
-      }
-    end
-
-    def attach_function! (*args, &block)
-      begin
-        attach_function(*args, &block)
-      rescue Exception => e
-        false
-      end
-    end
-  end
-
-  class Type::Builtin
-    def name
-      inspect[/:(\w+) /][1 .. -2]
-    end
-  end
-
-  class Pointer
-    def typecast (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.new(self)
-      elsif type.is_a?(Type::Builtin)
-        send "read_#{type.name.downcase}"
-      elsif type.respond_to? :from_native
-        type.from_native(typecast(type.native_type), nil)
-      else
-        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)
+class Object
+	def to_bool
+		!!self
+	end
 end
 
-class Integer
-  def to_ffi
-    self
-  end
+class Bitmap::Value
+	alias to_ffi to_i
 end
 
-class String
-  def to_ffi
-    self
-  end
+class Array
+	def singly
+		length == 1 ? first : self
+	end
 end
 
-class Bitmap::Value
-  alias to_ffi to_i
+module ForwardTo
+	def self.included (what)
+		what.instance_eval {
+			extend Forwardable
+
+			@__forward_to__ = []
+
+			def self.forward_to (*what)
+				return @__forward_to__ if what.empty?
+
+				@__forward_to__ << what
+				@__forward_to__.flatten!
+				@__forward_to__.compact!
+				@__forward_to__.uniq!
+			end
+		}
+	end
+
+	def method_missing (name, *args, &block)
+		self.class.forward_to.each {|target|
+			target = if target.to_s.start_with?('@')
+				instance_variable_get target
+			else
+				if target.is_a?(Array)
+					__send__ target.first, *target[1 .. -1]
+				else
+					__send__ target
+				end
+			end
+
+			if target.respond_to? name
+				return target.__send__ name, *args, &block
+			end
+		}
+
+		super
+	end
+end
+
+class Integer
+	alias ok? zero?
 end
 
-module X11; module C; extend FFI::Library; end; end
+module X11; module C
+	extend FFI::Library
+end; end
+
+require 'X11/extension'