gir_ffi 0.4.3 → 0.5.0

data/lib/gir_ffi/builder/argument/base.rb

@@ -1,151 +0,0 @@
-require 'gir_ffi/info_ext/i_registered_type_info'
-
-module GirFFI
-  module Builder
-    module Argument
-      # Abstract parent class of the argument building classes. These
-      # classes are used by Builder::Function to create the code that
-      # processes each argument before and after the actual function call.
-      class Base
-        KEYWORDS = [
-          "alias", "and", "begin", "break", "case", "class", "def", "do",
-          "else", "elsif", "end", "ensure", "false", "for", "if", "in",
-          "module", "next", "nil", "not", "or", "redo", "rescue", "retry",
-          "return", "self", "super", "then", "true", "undef", "unless",
-          "until", "when", "while", "yield"
-        ]
-
-        attr_reader :name, :retname
-
-        attr_accessor :length_arg, :array_arg
-
-        def initialize var_gen, name, typeinfo, direction
-          @typeinfo = typeinfo
-          @inarg = nil
-          @retname = nil
-          @name = safe(name)
-          @var_gen = var_gen
-          @length_arg = nil
-          @array_arg = nil
-        end
-
-        def type_info
-          @typeinfo
-        end
-
-        def type_tag
-          type_info.tag
-        end
-
-        def specialized_type_tag
-          type_info.flattened_tag
-        end
-
-        def type_specification
-          type_info.type_specification
-        end
-
-        TAG_TO_WRAPPER_CLASS_MAP = {
-          :glist => 'GLib::List',
-          :gslist => 'GLib::SList',
-          :ghash => 'GLib::HashTable',
-          :array => 'GLib::Array',
-          :utf8 => 'GirFFI::InPointer',
-          :void => 'GirFFI::InPointer'
-        }
-
-        def argument_class_name
-          case (tag = type_tag)
-          when :interface
-            type_info.interface_type_name
-          when :array
-            case type_info.array_type
-            when :byte_array
-              'GLib::ByteArray'
-            when :array
-              'GLib::Array'
-            when :ptr_array
-              'GLib::PtrArray'
-            else # :c
-              if type_info.zero_terminated?
-                if type_info.element_type == :utf8
-                  'GLib::Strv'
-                else
-                  'GirFFI::InPointer'
-                end
-              else
-                'GirFFI::InPointer'
-              end
-            end
-          else
-            TAG_TO_WRAPPER_CLASS_MAP[tag]
-          end
-        end
-
-        def subtype_tag_or_class_name index=0
-          type = type_info.param_type(index)
-          tag = type.tag
-          base = if tag == :interface
-                   type.interface_type_name
-                 else
-                   tag.inspect
-                 end
-          if type.pointer?
-            "[:pointer, #{base}]"
-          else
-            base
-          end
-        end
-
-        def elm_t
-          type_info.element_type.inspect
-        end
-
-        def array_size
-          if @length_arg
-            @length_arg.retname
-          else
-            type_info.array_fixed_size
-          end
-        end
-
-        def safe name
-          if KEYWORDS.include? name
-            "#{name}_"
-          else
-            name
-          end
-        end
-
-        def inarg
-          @array_arg.nil? ? @inarg : nil
-        end
-
-        def retval
-          @array_arg.nil? ? @retname : nil
-        end
-
-        def callarg
-          @callarg ||= @var_gen.new_var
-        end
-
-        def pre
-          []
-        end
-
-        def post
-          []
-        end
-
-        def postpost
-          []
-        end
-
-        def cleanup
-          []
-        end
-      end
-    end
-  end
-end
-

data/lib/gir_ffi/builder/argument/in_base.rb

@@ -1,14 +0,0 @@
-module GirFFI
-  module Builder
-    module Argument
-      # Abstract base class implementing argument processing for arguments
-      # with direction :in.
-      class InBase < Base
-        def initialize var_gen, name, typeinfo, direction
-          super var_gen, name, typeinfo, direction
-          @inarg = @name
-        end
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/argument/in_out_base.rb

@@ -1,18 +0,0 @@
-module GirFFI
-  module Builder
-    module Argument
-      # Abstract base class implementing argument processing for arguments
-      # with direction :inout.
-      class InOutBase < Base
-        def initialize var_gen, name, typeinfo, direction
-          super var_gen, name, typeinfo, direction
-          @inarg = @name
-        end
-
-        def retname
-          @retname ||= @var_gen.new_var
-        end
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/argument/out_base.rb

@@ -1,15 +0,0 @@
-module GirFFI
-  module Builder
-    module Argument
-      # Abstract base class implementing argument processing for arguments
-      # with direction :out.
-      class OutBase < Base
-        def retname
-          @retname ||= @var_gen.new_var
-        end
-      end
-    end
-  end
-end
-
-

data/test/gir_ffi/builder/argument/base_test.rb

@@ -1,55 +0,0 @@
-require 'gir_ffi_test_helper'
-
-describe GirFFI::Builder::Argument::Base do
-  describe "#subtype_tag_or_class_name" do
-    describe "for a simple type" do
-      it "returns the string ':void'" do
-        mock(subtype = Object.new).tag { :void }
-        mock(subtype).pointer? { false }
-
-        mock(info = Object.new).param_type(0) { subtype }
-
-        builder = GirFFI::Builder::Argument::Base.new nil, 'foo', info, :direction
-        assert_equal ":void", builder.subtype_tag_or_class_name
-      end
-    end
-
-    describe "for an array of simple type :foo" do
-      it "returns the string ':foo'" do
-        mock(subtype = Object.new).tag { :foo }
-        mock(subtype).pointer? { false }
-
-        mock(info = Object.new).param_type(0) { subtype }
-
-        builder = GirFFI::Builder::Argument::Base.new nil, 'bar', info, :direction
-        assert_equal ":foo", builder.subtype_tag_or_class_name
-      end
-    end
-
-    describe "for an array of an interface class" do
-      it "returns the interface's full class name" do
-        mock(subtype = Object.new).tag { :interface }
-        mock(subtype).interface_type_name { "-full-type-name-" }
-        mock(subtype).pointer? { false }
-
-        mock(info = Object.new).param_type(0) { subtype }
-
-        builder = GirFFI::Builder::Argument::Base.new nil, 'bar', info, :direction
-        assert_equal "-full-type-name-", builder.subtype_tag_or_class_name
-      end
-    end
-
-    describe "for an array of pointer to simple type :foo" do
-      it "returns the string '[:pointer, :foo]'" do
-        mock(subtype = Object.new).tag { :foo }
-        mock(subtype).pointer? { true }
-
-        mock(info = Object.new).param_type(0) { subtype }
-
-        builder = GirFFI::Builder::Argument::Base.new nil, 'bar', info, :direction
-        assert_equal "[:pointer, :foo]", builder.subtype_tag_or_class_name
-      end
-    end
-  end
-end
-

data/test/integration/pretty_print_test.rb

@@ -1,33 +0,0 @@
-require 'gir_ffi_test_helper'
-
-require 'tempfile'
-
-GirFFI.setup :Regress
-
-describe "Pretty-printing" do
-  def assert_syntax_ok str
-    tmp = Tempfile.new "gir_ffi"
-    # TODO: Make #pretty_print add this preamble.
-    tmp.write "# coding: utf-8\n"
-    tmp.write str
-    tmp.flush
-    is_ok = `ruby -c #{tmp.path} 2>&1`
-    is_ok.must_match(/^Syntax OK/)
-  end
-
-  describe "for the Regress module" do
-    it "runs without throwing an exception" do
-      Regress._builder.pretty_print
-    end
-
-    it "results in valid Ruby" do
-      assert_syntax_ok Regress._builder.pretty_print
-    end
-  end
-
-  describe "for the GLib module" do
-    it "results in valid Ruby" do
-      assert_syntax_ok GLib._builder.pretty_print
-    end
-  end
-end