democracy 0.0.56

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

@@ -0,0 +1,115 @@
+#!/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.
+
+
+
+
+
+# 62 of 16 source files
+module GIRepository
+require_relative "string__"
+    class ConstantInfo < BaseInfo
+    def name
+      super.try &.sub(/\A[a-z]/) { |m| m[0].upcase }
+    end
+
+    def value
+      size = LibGIRepository.constant_info_get_value(self, out value)
+      {size, value}
+    end
+
+    def with_value
+      size, val = self.value
+      yield size, val
+    ensure
+      foo = val.not_nil!
+      LibGIRepository.constant_info_free_value(self, pointerof(foo))
+    end
+
+    def type
+      BaseInfo.wrap(GIRepository.constant_info_get_type(self)).as(TypeInfo)
+    end
+
+    def literal(builder)
+      with_value do |size, value|
+        case type.tag
+        when .boolean?
+          builder.literal value.v_boolean
+        when .int8?
+          builder.literal value.v_int8
+        when .uint8?
+          builder.literal value.v_uint8
+        when .int16?
+          builder.literal value.v_int16
+        when .uint16?
+          builder.literal value.v_uint16
+        when .int32?
+          builder.literal value.v_int32
+        when .uint32?
+          builder.literal value.v_uint32
+        when .int64?
+          builder.literal value.v_int64
+        when .uint64?
+          builder.literal value.v_uint64
+        when .float?
+          builder.literal value.v_float
+        when .double?
+          builder.literal value.v_double
+        when .utf8?
+          builder.literal String.new(value.v_string)
+        when .array?
+          pointer_type = "Pointer(StaticArray(#{type.param_type.lib_definition(builder)}, #{size}))"
+          if size > 0
+            pointer = builder.call "new", builder.literal(value.v_pointer), receiver: pointer_type
+            builder.call "value", receiver: pointer
+          else
+            builder.call "null", receiver: pointer_type
+          end
+        when .interface?
+          builder.comment "INTERFACE CONSTANT #{name} #{size}" # debug, should never end up being generated
+        else
+          raise "Bug: Unhandled constant type #{type.tag}"
+        end
+      end
+    end
+
+    def lib_definition(builder)
+      if type.tag.interface?
+        builder.comment "#{name} = ungeneratable value"
+      elsif name = self.name
+        builder.end_of_line_comment ": #{type.lib_definition(builder)}"
+        builder.line builder.assign name, literal(builder)
+      else
+        builder.comment "# nameless constant for #{literal(builder)}"
+      end
+    end
+
+    def wrapper_definition(builder, libname)
+      if name = self.name
+        builder.line builder.assign name, "#{libname}::#{name}"
+      end
+    end
+
+    Dumper.def do
+      Dumper.dump_child type
+      dumper.puts "* value = #{Crout.build { |b| literal(b) }}"
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,88 @@
+#!/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.
+
+
+
+
+
+# 55 of 16 source files
+module GIRepository
+require_relative "string__"
+    class EnumInfo < BaseInfo
+    include RegisteredTypeInfo
+
+    each_converted enum_info, value, ValueInfo
+    each_converted enum_info, method, FunctionInfo
+
+    def attributes(builder)
+    end
+
+    def name
+      super.not_nil!
+    end
+
+    def type_tag
+      GIRepository.enum_info_get_storage_type(self)
+    end
+
+    def type
+      TypeInfo::TAG_MAP[type_tag]
+    end
+
+    def lib_definition(builder)
+      builder.section do
+        builder.def_alias name, type
+        each_method &.lib_definition(builder)
+      end
+    end
+
+    def wrapper_definition(builder, libname)
+      attributes(builder)
+      builder.def_enum(name, type: type) do
+        line assign "ZERO_NONE", literal(0) unless values.any? { |value| value.value == 0 }
+
+        each_value do |value|
+          if name = value.name
+            name = name.upcase
+            if 'A' <= name[0] <= 'Z'
+              line assign name, literal(value.literal(type_tag))
+            else
+              comment "#{name} = #{literal(value.literal(type_tag))}"
+            end
+          end
+        end
+      end
+
+      each_method { |method| builder.comment "Function #{method.name}" }
+    end
+
+    Dumper.def do
+      dumper.puts "* type = #{type}"
+      Dumper.dump_childs value
+      Dumper.dump_childs method
+    end
+  end
+
+  class FlagsInfo < EnumInfo
+    def attributes(builder)
+      builder.annotation("Flags")
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,97 @@
+#!/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.
+
+
+
+
+
+# 47 of 16 source files
+module GIRepository
+require_relative "string__"
+    class FieldInfo < BaseInfo
+    KEYWORDS = ArgInfo::KEYWORDS
+
+    def type
+      BaseInfo.wrap(GIRepository.field_info_get_type(self)).as(TypeInfo)
+    end
+
+    def name(keyword_safe = true)
+      name = super()
+      if name && name[0].uppercase?
+        normalized_name = "#{name[0].downcase}#{name[1..-1]}"
+        neighbour_fields =  case container = self.container
+          when ObjectInfo, StructInfo, UnionInfo
+            container.fields
+          else
+            nil
+          end
+        if neighbour_fields && neighbour_fields.any? &.raw_name.==(normalized_name)
+          name = "_#{name}"
+        else
+          name = normalized_name
+        end
+      end
+      name = "_#{name}" if keyword_safe && KEYWORDS.includes? name if name
+      name.not_nil!
+    end
+
+    def raw_name
+      ptr = LibGIRepository.base_info_get_name(self)
+      String.new(ptr) if ptr
+    end
+
+    def wrapper_name
+      name = name(false)
+      name = "_#{name}" if name == "initialize" || name == "finalize"
+      name
+    end
+
+    def flags
+      GIRepository.field_info_get_flags(self)
+    end
+
+    def readable?
+      flags.readable?
+    end
+
+    def writable?
+      flags.writable?
+    end
+
+    def size
+      GIRepository.field_info_get_size(self)
+    end
+
+    def offset
+      GIRepository.field_info_get_offset(self)
+    end
+
+    def lib_definition(builder)
+      builder.field_binding name, type.lib_definition(builder)
+    end
+
+    Dumper.def do
+      dumper.puts "* flags = #{flags}"
+      dumper.puts "* size = #{size}"
+      dumper.puts "* offset = #{offset}"
+      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/function_info.cr

@@ -0,0 +1,237 @@
+#!/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.
+
+
+
+
+
+# 58 of 16 source files
+module GIRepository
+require_relative "string__"
+    class FunctionInfo < BaseInfo
+    include CallableInfo
+
+    def name
+      name = super
+      if name
+        name = name.sub(/^_/, "") unless symbol.includes?("__")
+        name = "new" if name.empty?
+        name = "init" if name == "initialize"
+      end
+      name
+    end
+
+    def wrapper_name
+      method_name = name
+
+      raise "Cannot handle method without a name" unless method_name
+
+      method_name = method_name.underscore
+
+      if method_name.starts_with?("get_")
+        method_prefix = "get_"
+        method_name = method_name[4..-1]
+      elsif method_name.starts_with?("set_") && args.size == 2 && method?
+        method_prefix = "set_"
+        method_name = "#{method_name[4..-1]}="
+      elsif method_name.starts_with?("is_")
+        method_prefix = "is_"
+        method_name = "#{method_name[3..-1]}?"
+      end
+
+      method_name = "#{method_prefix}#{method_name}" if ('0'..'9').includes? method_name[0]
+
+      method_name
+    end
+
+    def flags
+      GIRepository.function_info_get_flags(self)
+    end
+
+    def symbol
+      GIRepository.function_info_get_symbol(self)
+    end
+
+    def constructor?
+      flags.is_constructor?
+    end
+
+    def setter?
+      (name = wrapper_name) && name.ends_with?('=')
+    end
+
+    def gvalue_out?
+      return false if constructor? || setter?
+
+      args.count(&.gvalue_out?) == 1
+    end
+
+    def closure_arg?
+      return false if setter?
+
+      args.count(&.closure?) == 1
+    end
+
+    def lib_definition(builder)
+      builder.fun_binding symbol,
+        args.map(&.lib_definition(builder)),
+        name: "#{prefix}#{name}",
+        return_type: return_type.lib_definition(builder)
+    end
+
+    def wrapper_definition(builder, libname)
+      method_name = wrapper_name
+
+      wrapper_args = args
+
+      sizable_args = wrapper_args.select { |candidate|
+        !candidate.out? && !candidate.inout? &&
+          candidate.type.tag.array? && candidate.type.array_length_param >= 0
+      }
+      offset = wrapper_args.first?.is_a?(SelfArgInfo) ? 1 : 0
+      sizable_args_size_args = sizable_args.map { |arg| wrapper_args[arg.type.array_length_param + offset] }
+
+      closure_arg = wrapper_args.find &.closure? if closure_arg?
+
+      gvalue_out_arg = wrapper_args.find &.gvalue_out? if gvalue_out?
+      wrapper_args.delete(gvalue_out_arg) if gvalue_out?
+
+      collection_args = wrapper_args.select { |candidate|
+        !candidate.out? && !candidate.inout? &&
+          wrapper_args.any? { |arg| arg.name == "n_#{candidate.name}" }
+      }
+      collection_args_size_args = collection_args.map { |arg| "n_#{arg.name}" }
+
+      primitive_out_args = wrapper_args.select { |candidate| candidate.out? && candidate.type.primitive? }
+
+      wrapper_args = wrapper_args.reject { |arg|
+        sizable_args_size_args.includes?(arg) ||
+          primitive_out_args.includes?(arg) ||
+          collection_args_size_args.includes?(arg.name)
+      }
+
+      def_method(builder, libname, wrapper_args.map(&.for_wrapper_definition(builder, libname)).compact, gvalue_out_arg) do
+        sizable_args.zip(sizable_args_size_args) do |arg, size_arg|
+          size = call("size", receiver: builder.var(arg.name))
+          if arg.nilable?
+            line assign size_arg.name, ternary(builder.var(arg.name), size, literal(0))
+          else
+            line assign size_arg.name, size
+          end
+        end
+
+        collection_args.each do |arg|
+          if arg.nilable?
+            line def_if(arg.name) { |b|
+              b.line b.assign "__#{arg.name}", arg.for_wrapper_pass(builder, libname)
+              b.line b.assign "n_#{arg.name}", b.call("size", receiver: "__#{arg.name}_ary")
+            }.else { |b|
+              b.line b.assign "n_#{arg.name}", b.literal(0)
+            }
+          else
+            line assign "__#{arg.name}", arg.for_wrapper_pass(builder, libname)
+            line assign "n_#{arg.name}", call("size", receiver: "__#{arg.name}_ary")
+          end
+        end
+
+        line assign gvalue_out_arg.name, call("new", receiver: "GObject::Value") if gvalue_out_arg
+
+        error = line assign_var call "null", receiver: "Pointer(LibGLib::Error)" if throws?
+
+        lib_args = args.map { |arg|
+          if collection_args.includes?(arg)
+            "__#{arg.name}"
+          elsif primitive_out_args.includes?(arg)
+            "out #{arg.name}"
+          elsif arg.is_a?(ErrorArgInfo)
+            arg.for_wrapper_pass(builder, error)
+          else
+            arg.for_wrapper_pass(builder, libname)
+          end
+        }.compact.join(", ")
+
+        libcall = call("#{prefix}#{name}", lib_args, receiver: libname)
+        if skip_return?
+          line libcall
+        else
+          return_value = line assign_var(libcall)
+        end
+
+        line call("assert", error, receiver: "GLib::Error") if throws?
+
+        if gvalue_out_arg
+          return_value = gvalue_out_arg.name
+        elsif !skip_return? && return_value
+          if return_type.pointer? && !may_return_null?
+            conditional_line call("null?", receiver: return_value), call("raise_unexpected_null", literal(symbol), receiver: "GObject")
+          end
+
+          ptr = return_value
+          return_value = return_type.convert_to_crystal(builder, ptr)
+          return_value = call("cast", return_value) if constructor?
+          return_value = conditional_line ptr, assign_var(return_value) if may_return_null?
+
+          if primitive_out_args.any?
+            return_values = primitive_out_args.map { |arg| arg.type.convert_to_crystal(builder, arg.name) }
+            return_values.unshift return_value
+            return_value = tuple(return_values)
+          end
+        elsif primitive_out_args.size == 1
+          arg = primitive_out_args.first
+          return_value = arg.type.convert_to_crystal(builder, arg.name)
+        elsif primitive_out_args.any?
+          return_value = tuple(primitive_out_args.map { |arg| arg.type.convert_to_crystal(builder, arg.name) })
+        else
+          return_value = literal(nil)
+        end
+
+        line return_value if return_value
+      end
+
+      if closure_arg
+        closure_wrapper_args = wrapper_args.reject(&.==(closure_arg)).map(&.for_wrapper_definition(builder, libname)).compact
+        closure_wrapper_args << builder.arg closure_arg.name, prefix: :block_capture
+        def_method(builder, libname, closure_wrapper_args, gvalue_out_arg) do
+          line assign closure_arg.name, call("new", var(closure_arg.name), receiver: "GObject::Closure")
+          line call method_name, wrapper_args.reject(&.is_a?(SelfArgInfo)).map(&.name)
+        end
+      end
+    end
+
+    def def_method(builder, libname, wrapper_args, gvalue_out_arg)
+      method_name = wrapper_name
+      return_type = if constructor?
+                      "self"
+                    elsif gvalue_out_arg
+                      gvalue_out_arg.type.wrapper_definition(builder, libname)
+                    end
+
+      builder.def_method(method_name, wrapper_args, class_method: !method?, return_type: return_type) do
+        with builder yield builder
+      end
+    end
+
+    Dumper.def do
+      dumper.puts "* flags = #{flags}"
+      dumper.puts "* symbol = #{symbol}"
+      dumper.puts "* constructor = #{constructor?}"
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)

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

@@ -0,0 +1,97 @@
+#!/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.
+
+
+
+
+
+# 56 of 16 source files
+module GIRepository
+require_relative "string__"
+ require_relative "./object"
+  class InterfaceInfo < BaseInfo
+    include RegisteredTypeInfo
+    include WrapperGenerator
+
+    each_converted interface_info, constant, ConstantInfo
+    each_converted interface_info, method, FunctionInfo
+    each_converted interface_info, prerequisite, BaseInfo
+    each_converted interface_info, property, PropertyInfo, properties
+    each_converted interface_info, signal, SignalInfo
+    each_converted interface_info, vfunc, VFuncInfo
+
+    def iface_struct
+      ptr = LibGIRepository.interface_info_get_iface_struct(self)
+      StructInfo.new ptr if ptr
+    end
+
+    def lib_definition(builder)
+      builder.end_of_line_comment "interface"
+      builder.def_struct(name) do
+        iface_struct = self.iface_struct
+        if iface_struct
+          iface_struct.field_definition(builder)
+        else
+          field_binding "_data", "UInt8[0]"
+        end
+
+        each_prerequisite { |prerequisite| comment("Requires #{prerequisite.name}") }
+        each_signal(&.lib_definition(builder))
+        each_vfunc(&.lib_definition(builder))
+        each_property(&.lib_definition(builder))
+      end
+
+      each_constant(&.lib_definition(builder))
+
+      type_init_lib_definition(builder)
+      each_method(&.lib_definition(builder))
+    end
+
+    def wrapper_definition(builder, libname)
+      builder.def_module(name) do
+        attach_to_next_section { comment ":nodoc:" }
+        def_class("Wrapper", parent: "GObject::Object") do
+          add_include "GObject::WrappedType"
+          add_include name
+
+          write_gtype_constant builder, libname
+          write_constructor builder, libname
+          write_to_unsafe builder, libname
+        end
+
+        write_interface_to_unsafe builder, libname
+
+        each_constant &.wrapper_definition(builder, libname)
+        each_method &.wrapper_definition(builder, libname)
+        each_signal &.wrapper_definition(builder, libname)
+      end
+    end
+
+    Dumper.def do
+      Dumper.dump_child iface_struct
+      Dumper.dump_childs constant
+      Dumper.dump_childs prerequisite
+      Dumper.dump_childs property, properties
+      Dumper.dump_childs method
+      Dumper.dump_childs signal
+      Dumper.dump_childs vfunc
+    end
+  end
+end
+
+
+
+
+
+
+
+
+# Feedback and donation to gregorycohen2@gmail.com (money transfer or Paypal)