democracy 0.0.56

data/crystal-gobject/src/g_i_repository/g_i_repository.cr

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+#
+# Democracy software compilation VERSION 0.0., created on 2021-11-14 17:41:34 -0500
+# Get all of this code, and all of these files, with
+# gem install democracy
+# Linux ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux-gnu]
+#
+# Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+
+
+
+# 45 of 16 source files
+module GIRepository
+require_relative "string__"
+ require_relative ".//"
+  def self.filename(filename)
+    filename.not_nil!
+      .gsub(/[A-Z][a-z]*(?=[A-Z])/) { |m| "#{m.downcase}_" }
+      .gsub(/::/, "_")
+      .downcase
+  end
+
+  def self.object_info_get_parent(info : GIRepository::BaseInfo)
+    parent = LibGIRepository.object_info_get_parent(info.to_unsafe.as(LibGIRepository::BaseInfo*))
+    BaseInfo.new(parent) if parent
+  end
+
+  def self.object_info_get_class_struct(info : GIRepository::BaseInfo)
+    class_struct = LibGIRepository.object_info_get_class_struct(info.to_unsafe.as(LibGIRepository::BaseInfo*))
+    BaseInfo.new(class_struct) if class_struct
+  end
+end
+
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

data/crystal-gobject/src/g_i_repository/info/arg_info.cr

@@ -0,0 +1,157 @@
+#!/usr/bin/env ruby
+#
+# Democracy software compilation VERSION 0.0., created on 2021-11-14 17:41:34 -0500
+# Get all of this code, and all of these files, with
+# gem install democracy
+# Linux ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux-gnu]
+#
+# Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+
+
+
+# 57 of 16 source files
+module GIRepository
+require_relative "string__"
+    class ArgInfo < BaseInfo
+    KEYWORDS = {"abstract", "alias", "begin", "def", "end", "in", "module", "next", "out", "self"}
+
+    def name
+      name = super
+      name = "_#{name}" if name[0].uppercase? if name
+      name = "_#{name}" if KEYWORDS.includes? name
+      name.not_nil!
+    end
+
+    def direction
+      GIRepository.arg_info_get_direction(self)
+    end
+
+    def in?
+      direction.in?
+    end
+
+    def out?
+      direction.out?
+    end
+
+    def inout?
+      direction.inout?
+    end
+
+    def optional?
+      GIRepository.arg_info_is_optional self
+    end
+
+    def nullable?
+      GIRepository.arg_info_may_be_null self
+    end
+
+    def nilable?
+      nullable? || optional?
+    end
+
+    def gvalue_out?
+      out? && type.tag.interface? && type.interface.namespace == "GObject" && type.interface.name == "Value"
+    end
+
+    def closure?
+      in? && type.tag.interface? && type.interface.namespace == "GObject" && type.interface.name == "Closure"
+    end
+
+    def return_value?
+      GIRepository.arg_info_is_return_value(self)
+    end
+
+    def skip?
+      GIRepository.arg_info_is_skip(self)
+    end
+
+    def type
+      BaseInfo.wrap(GIRepository.arg_info_get_type(self)).as(TypeInfo)
+    end
+
+    def ownership_transfer
+      GIRepository.arg_info_get_ownership_transfer(self)
+    end
+
+    def caller_allocates?
+      GIRepository.arg_info_is_caller_allocates(self)
+    end
+
+    def lib_definition(builder)
+      builder.arg name, type: "#{type.lib_definition(builder)}#{'*' if out? || inout?}"
+    end
+
+    def for_wrapper_definition(builder, libname)
+      case type.tag
+      when .int8?, .uint8?, .int16?, .uint16?, .int32?, .uint32?, .int64?, .uint64?
+        builder.arg name, type: "::Int"
+      when .float?, .double?
+        builder.arg name, type: "::Float"
+      when .array?
+        if type.param_type.tag.int8? # Assume Int8* (gchar*) is a string for now
+          builder.arg name, type: "::String#{"?" if nilable?}"
+        elsif type.param_type.tag.uint8?
+          builder.arg name, type: "::Bytes#{"?" if nilable?}"
+        else
+          builder.arg name, type: "::Enumerable#{"?" if nilable?}"
+        end
+      when .interface?
+        interface = type.interface
+        if interface.namespace == "GObject" && interface.name == "Value"
+          builder.arg name
+        elsif interface.is_a?(UnionInfo)
+          builder.arg name, type: "#{type.wrapper_definition(libname)}::Union#{"?" if nilable?}"
+        else
+          builder.arg name, type: "#{type.wrapper_definition(libname)}#{"?" if nilable?}"
+        end
+      else
+        builder.arg name, type: "#{type.wrapper_definition(libname)}#{"?" if nilable?}"
+      end
+    end
+
+    def for_wrapper_pass(builder, libname)
+      if out? || inout?
+        name
+      else
+        if nullable?
+          "#{name} ? #{type.convert_from_crystal(name)} : #{type.null_value_for_lib(builder)}"
+        else
+          type.convert_from_crystal(name)
+        end
+      end
+    end
+
+    def from_wrapper_pass
+      if out? || inout?
+        name
+      else
+        "#{"#{name} && " if nullable?}#{type.convert_to_crystal(name)}"
+      end
+    end
+
+    Dumper.def do
+      dumper.puts "* direction = #{direction}"
+      dumper.puts "* optional = #{optional?}"
+      dumper.puts "* nullable = #{nullable?}"
+      dumper.puts "* return_value = #{return_value?}"
+      dumper.puts "* ownership = #{ownership_transfer}"
+      dumper.puts "* caller_allocates = #{caller_allocates?}"
+      dumper.puts "* skip = #{skip?}"
+      Dumper.dump_child type
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

data/crystal-gobject/src/g_i_repository/info/base_info.cr

@@ -0,0 +1,169 @@
+#!/usr/bin/env ruby
+#
+# Democracy software compilation VERSION 0.0., created on 2021-11-14 17:41:34 -0500
+# Get all of this code, and all of these files, with
+# gem install democracy
+# Linux ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux-gnu]
+#
+# Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+
+
+
+# 59 of 16 source files
+module GIRepository
+require_relative "string__"
+    class BaseInfo
+    INFO_TYPES = Hash(InfoType, BaseInfo.class).new
+
+    macro inherited
+      INFO_TYPES[InfoType::{{@type.name[14..-5].upcase.id}}] = {{@type}}
+    end
+
+    def self.wrap(info)
+      return unless info
+
+      upper = INFO_TYPES[info.info_type]?
+      if upper
+        LibGIRepository.base_info_ref(info)
+        info = upper.new info.to_unsafe
+      end
+
+      info
+    end
+
+    def self.new(pointer : LibGIRepository::BaseInfo*)
+      new(ptr: pointer) if pointer
+    end
+
+    def initialize(*, ptr : LibGIRepository::BaseInfo*)
+      @pointer = ptr.as(Void*)
+      LibGIRepository.base_info_ref(ptr)
+    end
+
+    def ==(other)
+      return false unless other.is_a?(BaseInfo)
+      self.class == other.class && equal(other)
+    end
+
+    def info_type
+      InfoType.new LibGIRepository.base_info_get_type self
+    end
+
+    def name
+      ptr = LibGIRepository.base_info_get_name(self)
+      String.new(ptr) if ptr
+    end
+
+    def constant
+      name.try &->Namespace.constant(String)
+    end
+
+    def full_constant
+      "#{namespace_constant}::#{constant}"
+    end
+
+    def namespace
+      namespace = previous_def
+      "#{namespace[0].upcase}#{namespace[1..-1]}"
+    end
+
+    def symbol_prefix
+      typelib.namespace.downcase
+    end
+
+    def namespace_constant
+      Namespace.constant(namespace)
+    end
+
+    def container?
+      ptr = LibGIRepository.base_info_get_container(self)
+      BaseInfo.wrap(BaseInfo.new(ptr)) if ptr
+    end
+
+    def container
+      container = container?
+      return container if container
+      raise "No container for #{self}"
+    end
+
+    def c_prefix
+      Repository.instance.c_prefix(namespace)
+    end
+
+    def prefix
+      container = container?
+      return "" unless container
+      name = container.name
+      return "" unless name
+      prefix = name
+        .gsub(/[A-Z][a-z]*(?=[A-Z])/) { |m| "#{m.downcase}_" }
+        .downcase
+      "#{prefix}_"
+    end
+
+    def attributes
+      attributes = Hash(String, String).new
+      return attributes if info_type.unresolved?
+      iter = GIRepository::AttributeIter.new
+      while LibGIRepository.base_info_iterate_attributes(self, iter, out name, out value) == 1
+        attributes[String.new(name)] = String.new(value)
+      end
+
+      attributes
+    end
+
+    def finalize
+      LibGIRepository.base_info_unref(to_unsafe)
+    end
+
+    def lib_definition(builder)
+      builder.comment "Bug: #{name} : #{info_type}"
+    end
+
+    def wrapper_definition(builder, libname)
+      builder.comment "Bug: #{name} : #{info_type}"
+    end
+
+    def dump(io : IO)
+      Dumper.new(io).dump(self)
+    end
+
+    def dump(dumper : Dumper)
+      dumper.dump(self)
+    end
+
+    def dump(dumper, & : BaseInfo ->)
+      dump_base(dumper)
+      attributes.each do |name, value|
+        dumper.puts "- #{name} = #{value}"
+      end
+    end
+
+    def dump_base(dumper)
+      dumper.io.print "#{dumper.base_indent}+ "
+      to_s(dumper.io)
+      dumper.io.puts
+    end
+
+    def to_s(io)
+      io << (name || "<no name>") << " (" << GIRepository.info_type_to_string(info_type) << ", " << namespace << ')'
+    end
+
+    def to_unsafe
+      previous_def.as(LibGIRepository::BaseInfo*)
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

data/crystal-gobject/src/g_i_repository/info/callable_info.cr

@@ -0,0 +1,266 @@
+#!/usr/bin/env ruby
+#
+# Democracy software compilation VERSION 0.0., created on 2021-11-14 17:41:34 -0500
+# Get all of this code, and all of these files, with
+# gem install democracy
+# Linux ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux-gnu]
+#
+# Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+
+
+
+# 53 of 16 source files
+module GIRepository
+require_relative "string__"
+    module CallableInfo
+    class FakeContainer
+      getter name
+
+      def initialize(@name : String)
+      end
+
+      def type_lib_definition
+        name
+      end
+    end
+
+    class FakeType
+      def initialize(@container : BaseInfo | FakeContainer)
+      end
+
+      def lib_definition(builder)
+        case container = @container
+        when RegisteredTypeInfo
+          container.type_lib_definition
+        else
+          container.name.not_nil!
+        end
+      end
+
+      def signal_lib_definition(builder)
+        base = lib_definition(builder)
+        base += "*" if base && is_pointer_in_signal?
+        base
+      end
+
+      def is_pointer_in_signal?
+        @container.is_a?(StructInfo)
+      end
+
+      def wrapper_definition(builder, libname)
+        @container.name.not_nil!
+      end
+
+      def tag
+        TypeTag.new 0u32
+      end
+
+      def array_length_param
+        -1
+      end
+
+      def primitive?
+        false
+      end
+
+      def convert_to_crystal(builder, variable)
+        if @container.is_a? InterfaceInfo
+          builder.call "new", variable, receiver: "#{@container.name}::Wrapper"
+        else
+          builder.call "new", variable, receiver: @container.name
+        end
+      end
+
+      def convert_from_crystal(variable)
+        variable
+      end
+
+      def gvalue_type
+        case @container
+        when RegisteredTypeInfo
+          "GObject::Type::OBJECT"
+        else
+          "GObject::Type::NONE"
+        end
+      end
+    end
+
+    class SelfArgInfo
+      def initialize(@container : BaseInfo)
+      end
+
+      def lib_definition(builder)
+        builder.arg "this", type: "#{@container.name}*"
+      end
+
+      def name
+        "this"
+      end
+
+      def type
+        FakeType.new(@container)
+      end
+
+      def for_wrapper_definition(builder, libname)
+      end
+
+      def for_wrapper_pass(builder, libname)
+        builder.call("as", "#{libname}::#{@container.name}*", receiver: "@pointer")
+      end
+
+      def from_wrapper_pass
+        "#{@container.name}.new(this)"
+      end
+
+      def gvalue_out?
+        false
+      end
+
+      def nilable?
+        false
+      end
+
+      def in?
+        true
+      end
+
+      def out?
+        false
+      end
+
+      def inout?
+        false
+      end
+
+      def closure?
+        false
+      end
+    end
+
+    class ErrorArgInfo
+      def lib_definition(builder)
+        builder.arg "error", type: "LibGLib::Error**"
+      end
+
+      def name
+        "error"
+      end
+
+      def type
+        FakeType.new FakeContainer.new("LibGLib::Error*")
+      end
+
+      def for_wrapper_definition(builder, libname)
+      end
+
+      def for_wrapper_pass(builder, var)
+        builder.call("pointerof", var)
+      end
+
+      def from_wrapper_pass
+        "error"
+      end
+
+      def gvalue_out?
+        false
+      end
+
+      def nilable?
+        false
+      end
+
+      def in?
+        true
+      end
+
+      def out?
+        true
+      end
+
+      def inout?
+        true
+      end
+
+      def closure?
+        false
+      end
+    end
+
+    def method?
+      GIRepository.callable_info_is_method(self)
+    end
+
+    def throws?
+      GIRepository.callable_info_can_throw_gerror(self)
+    end
+
+    def skip_return?
+      GIRepository.callable_info_skip_return(self) || return_type.void?
+    end
+
+    def may_return_null?
+      GIRepository.callable_info_may_return_null(self)
+    end
+
+    each_converted callable_info, arg, ArgInfo
+
+    def args
+      args = [] of ArgInfo | SelfArgInfo | ErrorArgInfo
+      args << SelfArgInfo.new(container) if method?
+      each_arg do |arg|
+        args << arg
+      end
+      args << ErrorArgInfo.new if throws?
+      args
+    end
+
+    def return_type
+      BaseInfo.wrap(GIRepository.callable_info_get_return_type(self)).as(TypeInfo)
+    end
+
+    def each_return_attribute
+      iter = AttributeIter.new
+      while LibGIRepository.callable_info_iterate_return_attributes(self, iter, out name, out value) == 1
+        yield String.new(name), String.new(value)
+      end
+    end
+
+    def caller_owns_return_value?
+      GIRepository.callable_info_get_caller_owns(self)
+    end
+
+    def self_arg_ownership
+      GIRepository.callable_info_get_instance_ownership_transfer(self)
+    end
+
+    Dumper.def do
+      dumper.puts "* method = #{method?}"
+      dumper.puts "* throws = #{throws?}"
+      dumper.puts "* skip_return = #{skip_return?}"
+      dumper.puts "* may_return_null = #{may_return_null?}"
+      dumper.puts "* caller_owns = #{caller_owns_return_value?}"
+      dumper.puts "* self_arg_ownership = #{self_arg_ownership}"
+      print_header = true
+      each_return_attribute do |name, value|
+        dumper.puts "* return_attributes" if print_header
+        print_header = false
+        dumper.puts "  - #{name} = #{value}"
+      end
+      Dumper.dump_child return_type
+      Dumper.dump_childs arg
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

data/crystal-gobject/src/g_i_repository/info/callback_info.cr

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+#
+# Democracy software compilation VERSION 0.0., created on 2021-11-14 17:41:34 -0500
+# Get all of this code, and all of these files, with
+# gem install democracy
+# Linux ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux-gnu]
+#
+# Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+
+
+
+# 50 of 16 source files
+module GIRepository
+require_relative "string__"
+    class CallbackInfo < BaseInfo
+    include CallableInfo
+
+    def name
+      name = super.not_nil!
+      'A' <= name[0] <= 'Z' ? name : "#{name[0].upcase}#{name[1..]}"
+    end
+
+    def signature(builder)
+      builder.proc_type(args.map(&.type.lib_definition(builder)), return_type: return_type.lib_definition(builder))
+    end
+
+    def lib_definition(builder)
+      builder.def_alias name, signature(builder)
+    end
+
+    def wrapper_definition(builder, libname)
+      builder.def_alias name, "#{libname}::#{name}"
+    end
+
+    def for_wrapper_definition(builder, libname)
+      return_type = self.return_type.wrapper_definition(builder, libname)
+      return_type = "" if return_type == "Void" || return_type == "Void*"
+      builder.proc_type args.map(&.type.wrapper_definition(builder, libname)), return_type: return_type
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)