democracy 0.0.56

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

@@ -0,0 +1,326 @@
+#!/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.
+
+
+
+
+
+# 54 of 16 source files
+module GIRepository
+require_relative "string__"
+    class TypeInfo < BaseInfo
+    TAG_MAP = {
+      TypeTag::VOID     => "Void",
+      TypeTag::BOOLEAN  => "LibC::Int",
+      TypeTag::INT8     => "Int8",
+      TypeTag::UINT8    => "UInt8",
+      TypeTag::INT16    => "Int16",
+      TypeTag::UINT16   => "UInt16",
+      TypeTag::INT32    => "Int32",
+      TypeTag::UINT32   => "UInt32",
+      TypeTag::INT64    => "Int64",
+      TypeTag::UINT64   => "UInt64",
+      TypeTag::FLOAT    => "Float32",
+      TypeTag::DOUBLE   => "Float64",
+      TypeTag::GTYPE    => "UInt64",
+      TypeTag::UTF8     => "UInt8",
+      TypeTag::FILENAME => "UInt8",
+      TypeTag::GLIST    => "Void*",
+      TypeTag::GSLIST   => "Void*",
+      TypeTag::GHASH    => "Void*",
+      TypeTag::ERROR    => "LibGLib::Error*",
+      TypeTag::UNICHAR  => "UInt8",
+    }
+
+    BLACKLIST = {"VaClosureMarshal", "DBusProxyClass", "DBusInterfaceSkeletonClass"}
+
+    def tag
+      GIRepository.type_info_get_tag(self)
+    end
+
+    def pointer?
+      GIRepository.type_info_is_pointer(self)
+    end
+
+    def void?
+      tag.void?
+    end
+
+    def interface
+      BaseInfo.wrap(GIRepository.type_info_get_interface(self)).not_nil!
+    end
+
+    def array_type
+      GIRepository.type_info_get_array_type(self)
+    end
+
+    def array_length_param
+      GIRepository.type_info_get_array_length(self)
+    end
+
+    def array_fixed_size
+      GIRepository.type_info_get_array_fixed_size(self)
+    end
+
+    def param_type(n = 0)
+      BaseInfo.wrap(GIRepository.type_info_get_param_type(self, n)).as(TypeInfo)
+    end
+
+    def zero_terminated?
+      GIRepository.type_info_is_zero_terminated(self)
+    end
+
+    def primitive?
+      {
+        TypeTag::BOOLEAN,
+        TypeTag::INT8,
+        TypeTag::UINT8,
+        TypeTag::INT16,
+        TypeTag::UINT16,
+        TypeTag::INT32,
+        TypeTag::UINT32,
+        TypeTag::INT64,
+        TypeTag::UINT64,
+        TypeTag::FLOAT,
+        TypeTag::DOUBLE,
+        TypeTag::GTYPE,
+        TypeTag::UTF8,
+        TypeTag::FILENAME,
+        TypeTag::UNICHAR,
+      }.includes?(tag)
+    end
+
+    def lib_definition(builder)
+      base = case tag
+             when .interface?
+               interface = self.interface
+               name = interface.name
+               if interface.info_type.unresolved?
+                 return "Void*"
+               elsif name.nil? || BLACKLIST.includes?(name) || (name && 'a' <= name[0] <= 'z') # More weird stuff, also compiler could be smarter here
+                 interface.is_a?(CallbackInfo) ? "-> Void" : "Void*"
+               elsif interface.is_a?(CallbackInfo) && inline_type?
+                 return Crout.build { |b| write interface.as(CallbackInfo).signature(b) }
+               else
+                 namespace = "Lib#{interface.namespace}::"
+                 namespace = nil if namespace == self.namespace
+                 "#{namespace}#{interface.name}"
+               end
+             when .array?
+               case array_type
+               when ArrayType::C
+                 param = param_type.lib_definition(builder)
+                 param += "[#{array_fixed_size}]" if array_fixed_size > 1
+                 param
+               else
+                 "Void"
+               end
+             else
+               TAG_MAP[tag]
+             end
+      base = "Pointer(#{base})" if pointer?
+      base
+    end
+
+    def null_value_for_lib(builder)
+      if pointer?
+        "#{lib_definition(builder)}.null"
+      else
+        "nil"
+      end
+    end
+
+    def signal_lib_definition(builder)
+      base = lib_definition(builder)
+      base += "*" if is_pointer_in_signal?
+      base
+    end
+
+    def is_pointer_in_signal?
+      tag.interface? && !interface.is_a?(EnumInfo)
+    end
+
+    def gvalue_type
+      "GObject::Type::" + case tag
+      when .int32?
+        "INT"
+      when .uint32?
+        "UINT"
+      when .interface?
+        interface = self.interface
+        case interface
+        when ObjectInfo, StructInfo, UnionInfo
+          "OBJECT"
+        when InterfaceInfo
+          "INTERFACE"
+        when EnumInfo
+          "ENUM"
+        else
+          "INTERFACE"
+        end
+      when .ghash?
+        "POINTER"
+      else
+        tag.to_s
+      end
+    end
+
+    def wrapper_definition(builder, libname = "")
+      case tag
+      when .interface?
+        interface.full_constant
+      when .array?
+        "::Enumerable(#{param_type.wrapper_definition(builder, libname)})"
+      when .void?
+        pointer? ? "Void*" : "Nil"
+      when .utf8?, .filename?
+        "::String"
+      when .boolean?
+        "::Bool"
+      else
+        TAG_MAP[tag]
+      end
+    end
+
+    def convert_to_crystal(builder, variable) : String | Crout::Expression
+      case tag
+      when .interface?
+        interface = self.interface
+        case interface
+        when ObjectInfo, StructInfo, UnionInfo, EnumInfo, FlagsInfo
+          builder.call "new", variable, receiver: interface.full_constant
+        when InterfaceInfo
+          builder.call "new", variable, receiver: "#{interface.full_constant}::Wrapper"
+        else
+          variable
+        end
+      when .array?
+        case array_type
+        when ArrayType::C
+          item = builder.declare_var
+          builder.call("new", variable, receiver: "GObject::PointerIterator", block_args: {item}) do |b|
+            b.line param_type.convert_to_crystal(b, item)
+          end
+        else
+          variable
+        end
+      when .boolean?
+        "(#{variable} == 1)"
+      when .utf8?, .filename?
+        builder.call "new", variable, receiver: "::String"
+      when .glist?
+        "GLib::ListIterator(#{param_type.wrapper_definition(builder)}, #{param_type.lib_definition(builder)}*).new(GLib::List.new(#{variable}.as(LibGLib::List*)))"
+      when .gslist?
+        "GLib::SListIterator(#{param_type.wrapper_definition(builder)}, #{param_type.lib_definition(builder)}*).new(GLib::SList.new(#{variable}.as(LibGLib::SList*)))"
+      else
+        variable
+      end
+    end
+
+    def convert_from_crystal(variable)
+      case tag
+      when .interface?
+        interface = self.interface
+        if interface.namespace == "GObject" && interface.name == "Value"
+          "#{variable}.to_gvalue.to_unsafe#{".value" unless pointer?}"
+        elsif interface.is_a?(ObjectInfo) || interface.is_a?(InterfaceInfo)
+          converter = interface.to_unsafe_name if interface.responds_to?(:to_unsafe_name)
+          pointer? && converter ? "#{variable}.#{converter}" : variable
+        else
+          pointer? ? "#{variable}.to_unsafe.as(Lib#{interface.full_constant}*)" : variable
+        end
+      when .array?
+        if param_type.tag.uint8? # Assume UInt8* (gchar*) is a string for now
+          "#{variable}.to_unsafe"
+        else
+          "(__#{variable}_ary = #{variable}.map { |__item| #{param_type.convert_from_crystal("__item")} }.to_a).to_unsafe"
+        end
+      when .boolean?
+        "LibC::Int.new(#{variable} ? 1 : 0)"
+      when .glist?,
+           .gslist?,
+           .ghash?,
+           .error?,
+           .void?
+        variable
+      when .utf8?, .filename?
+        "#{variable}.to_unsafe"
+      else
+        if pointer?
+          variable
+        else
+          "#{TAG_MAP[tag]}.new(#{variable})"
+        end
+      end
+    end
+
+    def unwrap_gvalue(variable)
+      case tag
+      when .interface?
+        interface = self.interface
+        case interface
+        when ObjectInfo, StructInfo, UnionInfo
+          "#{interface.full_constant}.cast(#{variable}.object)"
+        when InterfaceInfo
+          "#{interface.full_constant}::Wrapper.cast(#{variable}.instance)"
+        when FlagsInfo
+          "#{interface.full_constant}.new(#{interface.type}.new(#{variable}.flags))"
+        when EnumInfo
+          "#{interface.full_constant}.new(#{interface.type}.new(#{variable}.enum))"
+        else
+          "#{variable}"
+        end
+      when .boolean?
+        "#{variable}.boolean"
+      when .utf8?
+        "#{variable}.string"
+      when .int32?
+        "#{variable}.int"
+      when .uint32?
+        "#{variable}.uint"
+      when .float?
+        "#{variable}.float"
+      when .double?
+        "#{variable}.double"
+      when .ghash?
+        "GLib::HashTable.new(#{variable}.pointer.as(LibGLib::HashTable*))"
+      else
+        variable
+      end
+    end
+
+    def inline_type?
+      tag.interface? && equal(interface)
+    end
+
+    Dumper.def do
+      dumper.puts "* tag = #{tag}"
+      dumper.puts "* pointer = #{pointer?}"
+      dumper.puts "* is_inline_type = #{inline_type?}"
+      dumper.puts "* array_type = #{array_type}" if tag.array?
+      dumper.puts "* array_length_param = #{array_length_param}" if tag.array?
+      dumper.puts "* array_fixed_size = #{array_fixed_size}" if tag.array?
+      dumper.puts "* is_zero_terminated = #{zero_terminated?}" if tag.array?
+
+      Dumper.dump_child interface if tag.interface?
+      Dumper.dump_child param_type if tag.array?
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,136 @@
+#!/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.
+
+
+
+
+
+# 52 of 16 source files
+module GIRepository
+require_relative "string__"
+    class UnionInfo < BaseInfo
+    include RegisteredTypeInfo
+    include WrapperGenerator
+
+    each_converted union_info, field, FieldInfo
+    each_converted union_info, method, FunctionInfo
+
+    def name
+      name = super
+      name = 'A' <= name[0] <= 'Z' ? name : "#{c_prefix}#{name}" if name
+      name = 'A' <= name[0] <= 'Z' ? name : "#{name[0].upcase}#{name[1..]}"  if name
+      name.not_nil!
+    end
+
+    def size
+      GIRepository.union_info_get_size(self)
+    end
+
+    def alignment
+      GIRepository.union_info_get_alignment(self)
+    end
+
+    def discriminated?
+      GIRepository.union_info_is_discriminated(self)
+    end
+
+    def discriminators
+      discriminators = Hash(String, ConstantInfo).new
+
+      fields.each_with_index do |field, i|
+        info = ConstantInfo.wrap GIRepository.union_info_get_discriminator(self, i)
+        name = field.name
+        discriminators[name] = info.as(ConstantInfo) if name && info
+      end
+
+      discriminators
+    end
+
+    def discriminator_type
+      TypeInfo.wrap GIRepository.union_info_get_discriminator_type(self)
+    end
+
+    def discriminator_offset
+      GIRepository.union_info_get_discriminator_offset(self)
+    end
+
+    def lib_definition(builder)
+      if fields_size > 0
+        builder.def_union(name) do
+          each_field &.lib_definition(builder)
+        end
+      else
+        builder.def_alias name, "Void*"
+      end
+
+      each_method &.lib_definition(builder)
+    end
+
+    def wrapper_definition(builder, libname)
+      builder.def_class(name) do
+        section { add_include "GObject::WrappedType" }
+
+        union_members = [name].concat fields.map { |field| field.type.wrapper_definition(libname) }
+        def_alias "Union", union_members.join("|")
+
+        each_field do |field|
+          if field.readable?
+            def_method(field.wrapper_name) do
+              ptr = call("to_unsafe")
+              value = if field.type.tag.interface? && !field.type.pointer?
+                        call("as", "Lib#{field.type.namespace}::#{field.type.interface.name}*", receiver: ptr)
+                      else
+                        ptr = call("as", ptr_type(libname), receiver: ptr)
+                        strct = call("value", receiver: ptr)
+                        call(field.name, receiver: strct)
+                      end
+
+              line field.type.convert_to_crystal(builder, value)
+            end
+          end
+        end
+
+        write_gtype_constant builder, libname
+        write_constructor builder, libname
+        write_to_unsafe builder, libname
+        write_methods builder, libname
+      end
+    end
+
+    Dumper.def do
+      dumper.puts "* size = #{size}"
+      dumper.puts "* alignment = #{alignment}"
+      dumper.puts "* discriminated = #{discriminated?}"
+      if discriminated?
+        dumper.puts "*  discriminator_offset = #{discriminator_offset}"
+        Dumper.dump_child discriminator_type
+        dumper.puts "* discriminators:"
+        dumper.nest(2) do
+          discriminators.each do |field, constant|
+            dumper.puts "- #{field}"
+            dumper.nest(2) { yield constant }
+          end
+        end
+      end
+      Dumper.dump_childs field
+      Dumper.dump_childs method
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,33 @@
+#!/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.
+
+
+
+
+
+# 60 of 16 source files
+module GIRepository
+require_relative "string__"
+    class VFuncInfo < BaseInfo
+    def lib_definition(builder)
+      builder.comment "Virtual function #{name}"
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,62 @@
+#!/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.
+
+
+
+
+
+# 48 of 16 source files
+module GIRepository
+require_relative "string__"
+    class ValueInfo < BaseInfo
+    def value : Int64
+      GIRepository.value_info_get_value(self)
+    end
+
+    def literal(tag)
+      case tag
+      when .int8?
+        value.to_i8
+      when .uint8?, .unichar?
+        value.to_u8
+      when .int16?
+        value.to_i16
+      when .uint16?
+        value.to_u16
+      when .int32?
+        value.to_i32
+      when .uint32?
+        value.to_u32
+      when .uint64?
+        value.to_u64
+      when .float?
+        value.to_f
+      when .double?
+        value.to_f64
+      else
+        value
+      end
+    end
+
+    Dumper.def do
+      dumper.puts "* value = #{value}"
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,68 @@
+#!/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.
+
+
+
+
+
+# 43 of 16 source files
+module GIRepository
+require_relative "string__"
+ require_relative "./repository"
+  class Repository
+    @@instance : self?
+
+    def self.instance
+      @@instance ||= default
+    end
+
+    def require(namespace : String, version : String? = nil)
+      self.require namespace, version, :zero_none
+    end
+
+    def dependencies(namespace : String)
+      dependencies = previous_def
+      dependencies.map { |dep|
+        name, version = dep.split('-')
+        {name, version}
+      }
+    end
+
+    def find_by_name(namespace : String, name : String)
+      ptr = LibGIRepository.repository_find_by_name(self, namespace, name)
+      BaseInfo.wrap BaseInfo.new(ptr) if ptr
+    end
+
+    def all_infos(namespace : String)
+      Array.new(n_infos(namespace)) { |index|
+        info(namespace, index).not_nil!
+      }
+    end
+
+    def info(namespace : String, index : Int)
+      BaseInfo.wrap previous_def
+    end
+
+    def shared_library(namespace : String)
+      libs = LibGIRepository.repository_get_shared_library(@pointer.as(LibGIRepository::Repository*), namespace)
+      String.new(libs) if libs
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)