x11 0.0.1a2 → 0.0.1a3

data/lib/X11/extensions/Xrandr/event.rb

@@ -0,0 +1,29 @@
+#--
+# 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.
+#++
+
+#require 'X11/extensions/Xrandr/events'

data/lib/X11/extensions/Xrandr/output.rb

@@ -0,0 +1,59 @@
+#--
+# 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.
+#++
+
+require 'X11/extensions/Xrandr/output/info'
+require 'X11/extensions/Xrandr/output/properties'
+
+module X11; module Xrandr
+
+class Output < ID
+	extend Forwardable
+
+	attr_reader    :resources
+	def_delegators :@resources, :screen
+
+	def initialize (resources, id)
+		if resources.is_a?(Display)
+			super(resorces, id)
+		else
+			super(resources.screen.display, id)
+
+			@resources = resources
+		end
+	end
+
+	def info
+		Output::Info.get(self)
+	end
+
+	def properties
+		Properties.new(self)
+	end
+end
+
+end; end

data/lib/X11/extensions/Xrandr/output/info.rb

@@ -0,0 +1,105 @@
+#--
+# 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; module Xrandr; class Output < ID
+
+class Info
+	def self.finalizer (pointer)
+		proc {
+			C::XRRFreeOutputInfo(pointer)
+		}
+	end
+
+	def self.get (output)
+		new(output, C::XRRGetOutputInfo(output.display.to_ffi, output.resources.to_ffi, output.to_ffi)).tap {|info|
+			ObjectSpace.define_finalizer info, finalizer(info.to_ffi)
+		}
+	end
+
+	attr_reader :output
+
+	def initialize (output, pointer)
+		@output   = output
+		@internal = pointer.is_a?(C::XRROutputInfo) ? pointer : C::XRROutputInfo.new(pointer)
+	end
+
+	C::XRROutputInfo.layout.members.each {|name|
+		define_method name do
+			@internal[name]
+		end
+	}
+
+	alias width mm_width
+	alias height mm_height
+
+	def name
+		@internal[:name].read_bytes(@internal[:nameLen])
+	end
+
+	def crtc
+		Crtc.new(output.resources, @internal[:crtc])
+	end
+
+	def crtcs
+		Enumerator.new do |e|
+			@internal[:crtcs].read_array_of(:RRCrtc, @internal[:ncrtc]).each {|crtc|
+				e << Crtc.new(self, crtc)
+			}
+		end
+	end
+
+	def clones
+		Enumerator.new do |e|
+			@internal[:clones].read_array_of(:RROutput, @internal[:nclone]).each {|clone|
+				e << Output.new(self, clone)
+			}
+		end
+	end
+
+	def modes
+		Enumerator.new do |e|
+			@internal[:modes].read_array_of(:RRMode, @internal[:nmode]).each {|mode|
+				e << Mode.new(self, mode)
+			}
+		end
+	end
+
+	def preferred
+		Enumerator.new do |e|
+			@internal[:modes].read_array_of(:RRMode, @internal[:npreferred]).each {|mode|
+				e << Mode.new(self, mode)
+			}
+		end
+	end
+
+	def to_ffi
+		@internal.pointer
+	end
+end
+
+end; end; end

data/lib/X11/extensions/Xrandr/output/properties.rb

@@ -0,0 +1,78 @@
+#--
+# 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.
+#++
+
+require 'X11/extensions/Xrandr/output/properties/property'
+
+module X11; module Xrandr; class Output < ID
+
+class Properties
+	include Enumerable
+	extend  Forwardable
+
+	attr_reader    :output
+	def_delegators :@output, :display
+
+	def initialize (output)
+		@output = output
+	end
+
+	def [] (atom)
+		if !(property = Property.new(output, Atom[atom, display])).nil?
+			property
+		end
+	end
+
+	def []= (atom, value, type=nil)
+		Property.new(output, Atom[atom, display]).value = value, type
+	end
+
+	def has? (atom)
+		!!self[atom]
+	end
+
+	def delete (atom)
+		C::XRRDeleteOutputProperty(display.to_ffi, output.to_ffi, Atom[atom, display].to_ffi)
+	end
+
+	def each (&block)
+		number = FFI::MemoryPointer.new :int
+		list   = C::XRRListOutputProperties(display.to_ffi, output.to_ffi, number)
+
+		return self if list.null?
+
+		list.read_array_of(:Atom, number.typecast(:int)).each {|atom|
+			block.call Property.new(output, Atom.new(atom.to_i, display))
+		}
+
+		C::XFree(list)
+
+		self
+	end
+end
+
+end; end; end

data/lib/X11/extensions/Xrandr/output/properties/property.rb

@@ -0,0 +1,161 @@
+#--
+# 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.
+#++
+
+require 'X11/extensions/Xrandr/output/properties/property/parser'
+require 'X11/extensions/Xrandr/output/properties/property/info'
+
+module X11; module Xrandr; class Output < ID; class Properties
+
+class Property
+	module Mode
+		Replace = 0
+		Prepend = 1
+		Append  = 2
+
+		def self.[] (what)
+			what.is_a?(Integer) ? what : const_get(what.to_s.downcase.capitalize)
+		end
+	end
+
+	Transforms = {
+		:default => Transform.new(:default) {
+			output do |property, data|
+				data
+			end
+
+			input do |property, value, type|
+				[value, type]
+			end
+		}
+	}
+
+	def self.register (name, &block)
+		Transforms[name.to_s] = Transform.new(name, &block)
+	end
+
+	def self.transform (property)
+		(Transforms[property.name] || Transforms[:default]).for(property)
+	end
+
+	MaxLength = 500000
+
+	extend Forwardable
+
+	attr_reader    :output, :value
+	def_delegators :@output, :display
+	def_delegators :@atom, :to_s, :to_i, :to_ffi
+	def_delegator  :@atom, :to_s, :name
+
+	def initialize (output, name)
+		@output = output
+		@atom   = name
+	end
+
+	def nil?
+		value.nil?
+	end
+
+	def info
+		Info.new(self, C::XRRQueryOutputProperty(display.to_ffi, output.to_ffi, to_ffi))
+	end
+
+	def value
+		type     = FFI::MemoryPointer.new :Atom
+		format   = FFI::MemoryPointer.new :int
+		length   = FFI::MemoryPointer.new :ulong
+		after    = FFI::MemoryPointer.new :ulong
+		property = FFI::MemoryPointer.new :pointer
+
+		return unless C::XRRGetOutputProperty(display.to_ffi, output.to_ffi, to_ffi,
+			0, (MaxLength + 3) / 4, false, false, AnyProperty, type, format, length, after, property).ok?
+
+		return if property.typecast(:pointer).null?
+
+		Property.transform(self).output(Property::Parser.parse(self).output(
+			property.typecast(:pointer).read_string(
+				[length.typecast(:ulong) * FFI.type_size(
+					{ 0 => :void, 8 => :char, 16 => :short, 32 => :long }[format.typecast(:int)]), MaxLength].min)))
+	end
+
+	def value= (value, type=nil, mode=:replace)
+		type ||= self.type
+
+		format, data, length = Property::Parser.parse(self).input(*Property.transform(self).input(
+			value.is_a?(Array) ? value : [value], type))
+
+		C::XRRChangeOutputProperty(display.to_ffi, output.to_ffi, to_ffi, type.to_ffi, format, Mode[mode], data, length)
+
+		display.flush
+	end
+
+	def << (value, type=nil)
+		self.value = value, type, :append
+	end
+
+	def >> (value, type=nil)
+		self.value = value, type, :prepend
+	end
+
+	def type
+		@type ? @type : type?
+	end
+
+	def type?
+		type     = FFI::MemoryPointer.new :Atom
+		format   = FFI::MemoryPointer.new :int
+		length   = FFI::MemoryPointer.new :ulong
+		after    = FFI::MemoryPointer.new :ulong
+		property = FFI::MemoryPointer.new :pointer
+
+		return unless C::XRRGetOutputProperty(display.to_ffi, output.to_ffi, to_ffi,
+			0, (MaxLength + 3) / 4, false, false, AnyProperty, type, format, length, after, property).ok?
+
+		return if property.typecast(:pointer).null?
+
+		Atom.new(type.typecast(:Atom).to_i, display)
+	end
+
+	def type!
+		@type = nil
+		type?
+	end
+
+	def type= (type)
+		@type = type
+	end
+
+	def inspect
+		if nil?
+			"#<X11::Xrandr::Output::Property(#{name})>"
+		else
+			"#<X11::Xrandr::Output::Property(#{name}#{", #{info}" unless info.nil?}): #{type}#{" #{value.inspect}" unless value.nil?}>"
+		end
+	end
+end
+
+end; end; end; end

data/lib/X11/extensions/Xrandr/output/properties/property/info.rb

@@ -0,0 +1,73 @@
+#--
+# 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; module Xrandr; class Output < ID; class Properties; class Property
+
+class Info
+	include ForwardTo
+
+	attr_reader :property
+	forward_to  :@instance
+
+	def initialize (property, pointer)
+		@property = property
+		@internal = pointer.is_a?(C::XRRPropertyInfo) ? pointer : C::XRRPropertyInfo.new(pointer)
+
+		return if nil?
+
+		if range?
+			@instance = Range.new(*@internal[:values].read_array_of(:long, 2))
+		else
+			@instance = @internal[:values].read_array_of(:long, @internal[:num_values])
+		end
+	end
+
+	def nil?
+		@internal[:values].null?
+	end
+
+	def range?
+		@internal[:range]
+	end
+
+	def pending?
+		@internal[:pending]
+	end
+
+	def immutable?
+		@internal[:immutable]
+	end
+
+	undef_method :inspect, :to_s
+
+	def to_ffi
+		@internal.pointer
+	end
+end
+
+end; end; end; end; end