rubber-generate 0.0.5

data/lib/rubber/codegen/gboxed.rb

@@ -0,0 +1,30 @@
+require 'rubber/codegen/class'
+
+module Rubber
+
+class C_GBoxed < C_Class
+  attr_accessor :gparent_class, :flag_nocopy, :c_type_name
+  def register(io, already_defined=false)
+      io.puts "  #{cname} = G_DEF_CLASS(#{superclass}, #{name.inspect}, #{parent.cname});"
+      io.puts "  rbgobj_boxed_not_copy_obj(#{superclass});" if self.flag_nocopy
+      
+      register_children(io)
+  end
+  def doc_rd(io)
+    id = fullname()
+    id += " < #{gparent_class} " if gparent_class
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} class #{id}"
+    io.puts @doc if @doc
+    contents.each { |f| f.doc_rd(io) }
+  end
+  def default_type
+	  c_type_name && (c_type_name + ' *') || 'gpointer'
+  end
+  def pre_func(io, func)
+    io.puts "  #{default_type} _self = ((#{default_type})RVAL2BOXED(self, #{superclass}));" if func.text =~ /_self/
+    super(io, func)
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/gcrefpool.rb

@@ -0,0 +1,53 @@
+module Rubber
+
+class C_GCRefPool
+  define_members :name
+  def code(io)
+    io.puts "static void _#{cname}_add(VALUE val)
+    {
+      if (#{cname} == Qnil)
+      {
+        #{cname} = rb_ary_new3(1, val);
+      }
+      else
+      {
+        rb_ary_push(#{cname}, val);
+      }
+    }
+    
+    static void _#{cname}_del(VALUE val)
+    {
+      if (#{cname} == Qnil)
+      {
+        rb_warn(\"Trying to remove object from empty GC queue #{name}\");
+        return;
+      }
+      rb_ary_delete(#{cname}, val);
+      // If nothing is referenced, don't keep an empty array in the pool...
+      if (RARRAY(#{cname})->len == 0)
+        #{cname} = Qnil;
+    }
+    "
+  end
+  def declare(io)
+    io.puts "static VALUE #{cname} = Qnil;"
+    io.puts "static void _#{cname}_add(VALUE val);"
+    io.puts "static void _#{cname}_del(VALUE val);"
+    io.puts "#define #{name.upcase}_ADD(val) _#{cname}_add(val)"
+    io.puts "#define #{name.upcase}_DEL(val) _#{cname}_del(val)"
+  end
+  include RegisterChildren
+  def default_cname
+    "_gcpool_"+name
+  end
+  def doc_rd(io)
+    # No doc 
+  end
+  def fullname()
+  end
+  def register(io, already_defined=false)
+    io.puts "rb_gc_register_address(&#{cname});"
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/genum.rb

@@ -0,0 +1,33 @@
+require 'rubber/codegen/enum'
+
+module Rubber
+
+class C_GEnum < C_Enum
+  define_members :name, :g_type, :prefix, :parent
+  def init()
+    ($custom_maps[name] ||= {})["VALUE"] = "GENUM2RVAL(%%, #{g_type})"
+    ($custom_maps["VALUE"] ||= {})[name] = "RVAL2GENUM(%%, #{g_type})"
+  end
+  def code(io)
+  end
+  def declare(io)
+  end
+  include RegisterChildren
+  def default_cname
+    "enum"+name
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def doc_rd(io)
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} enum #{fullname}"
+  end
+  def register(io, already_defined=false)
+      io.puts "  G_DEF_CLASS(#{g_type}, #{name.inspect}, #{get_root.cname});"
+      io.puts "  G_DEF_CONSTANTS(#{parent.cname}, #{g_type}, #{prefix.inspect});"
+#    strip = args.first.length - splits.first.length 
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/gflags.rb

@@ -0,0 +1,38 @@
+require 'rubber/codegen/enum'
+
+module Rubber
+
+class C_GFlags < C_Enum
+  define_members :name, :g_type, :prefix, :parent
+  def init()
+    ($custom_maps[name] ||= {})["VALUE"] = "GFLAGS2RVAL(%%, #{g_type})"
+    ($custom_maps["VALUE"] ||= {})[name] = "RVAL2GFLAGS(%%, #{g_type})"
+    gt = g_type.dup
+    gt.sub!("#{$1}_TYPE","#{$1}") if gt =~ /\A([A-Z]+)_TYPE/ # Strip TYPE bit
+    tc = gt.downcase.capitalize.gsub(/_[a-z]/){ |i| i[1..1].upcase}
+    #p tc
+    ($custom_maps["VALUE"] ||= {})[tc] = "RVAL2GFLAGS(%%, #{g_type})"
+  end
+  def code(io)
+  end
+  def declare(io)
+  end
+  include RegisterChildren
+  def default_cname
+    "flags"+name
+  end
+  def doc_rd(io)
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} flags #{fullname}"
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def register(io, already_defined=false)
+      io.puts "  G_DEF_CLASS(#{g_type}, #{name.inspect}, #{get_root.cname});"
+      io.puts "  G_DEF_CONSTANTS(#{parent.cname}, #{g_type}, #{prefix.inspect});"
+#    strip = args.first.length - splits.first.length 
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/ginterface.rb

@@ -0,0 +1,25 @@
+require 'rubber/codegen/class'
+
+module Rubber
+
+class C_GInterface < C_Class
+  attr_accessor :gparent_class
+  def register(io, already_defined=false)
+      io.puts "  #{cname} = G_DEF_INTERFACE(#{superclass}, #{name.inspect}, #{parent.cname});"
+      register_children(io)
+  end
+  def doc_rd(io)
+    id = fullname()
+    id += " < #{gparent_class} " if gparent_class
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} interface #{id}"
+    io.puts @doc if @doc
+    contents.each { |f| f.doc_rd(io) }
+  end
+  def pre_func(io, func)
+    io.puts "  GObject *_self = RVAL2GOBJ(self);" if func.text =~ /_self/
+    super(io, func)
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/gobject.rb

@@ -0,0 +1,42 @@
+require 'rubber/codegen/class'
+
+module Rubber
+
+class C_GObject < C_Class
+  attr_accessor :gparent_class, :c_type_name
+  def init()
+	  @c_type_name ||= 'GObject' # Default
+  end
+#	def c_type
+#		fullname.sub(/::/,'')+' *'
+#	end
+  def register(io, already_defined=false)
+      if parent.child_names && parent.child_names[name]
+      	io.puts "  c#{name} = #{cname};"
+      else
+      	io.puts "  #{cname} = G_DEF_CLASS(#{superclass}, #{name.inspect}, #{parent.cname});"
+      end
+      io.puts @signal_marshals if defined?(@signal_marshals)
+      register_children(io)
+  end
+  def doc_rd(io)
+    id = fullname()
+    id += " < #{gparent_class} " if gparent_class
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} class #{id}"
+    io.puts @doc if @doc
+    contents.each { |f| f.doc_rd(io) }
+  end
+  def feature_signal_marshal(signal,func_name)
+  	@signal_marshals ||= ""
+	@signal_marshals << "  G_DEF_SIGNAL_FUNC(#{cname}, #{signal.inspect}, #{func_name});\n"
+  end
+  def pre_func(io, func)
+	if func.text =~ /_self/
+	    io.puts "  #{@c_type_name} *_self = ((#{@c_type_name}*)RVAL2GOBJ(self));"
+	end
+    super(io, func)
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/integer.rb

@@ -0,0 +1,41 @@
+module Rubber
+
+class C_Integer
+  define_members :name, :number, :parent
+  def code(io)
+  end
+  def declare(io)
+    #io.puts "static VALUE #{cname};"
+  end
+  include RegisterChildren
+  def default_cname
+    #"enum"+name
+  end
+  def doc_rd(io)
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} #{fullname}"
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def fullname()
+    if parent and parent.respond_to?(:fullname)
+      "#{parent.fullname}::#{name}"
+    else
+      name
+    end
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; 
+  def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def register(io, already_defined=false)
+    if parent
+      io.puts "    rb_define_const(#{parent.cname}, #{name.inspect}, INT2NUM(#{number}));"
+    else
+      raise "No parent for string constant #{name}"
+    end
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/module.rb

@@ -0,0 +1,63 @@
+module Rubber
+
+class C_Module
+  define_members :name, :classes, :methods, :functions, :constants, :includes, :parent
+  attr_accessor :doc, :child_names
+  def contents()
+    (functions + methods + classes)
+  end
+  def code(io)
+    contents .each { |f| f.code(io) }
+  end
+  def declare(io)
+    io.puts "static VALUE #{cname};" unless external?
+    contents .each { |f| f.declare(io) }
+  end
+  include RegisterChildren
+  def default_cname
+    "m"+name
+  end
+  def doc_rd(io)
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} module #{fullname}"
+    io.puts @doc if @doc
+    contents .each { |f| f.doc_rd(io) }
+  end
+  def get_root(); is_root? ? self : parent.get_root; end
+  def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def fullname()
+    if is_root?
+      name
+    else
+      #p parent
+      "#{parent.fullname}::#{name}"
+    end
+  end
+  def external? # ie. *defined* externally...
+    cname == 'mGtk' || cname == 'mGdk' || cname == "mGLib"
+  end
+  def add_alias(from, to)
+  	(@aliases ||= []) << [from, to]
+  end
+  def register_aliases(io)
+    if @aliases
+      @aliases.each do |from,to|
+        io.puts "  rb_define_alias(#{cname},#{from.inspect},#{to.inspect});"
+      end
+    end
+  end
+  def register(io, already_defined=false)
+    unless external?
+      if parent and not parent.kind_of?(C_RootModule)
+        io.puts "  #{cname} = rb_define_module_under(#{parent.cname}, #{name.inspect});"
+      else
+        io.puts "  #{cname} = rb_define_module(#{name.inspect});"
+      end
+    end
+    register_children(io)
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/param.rb

@@ -0,0 +1,92 @@
+module Rubber
+
+class C_Param
+  define_members :name, :ctype, :default, :block, :rest, :rtype
+  RUBY_NATIVE_TYPES = %w|T_NIL T_OBJECT T_CLASS T_MODULE T_FLOAT T_STRING T_REGEXP T_ARRAY T_FIXNUM T_HASH T_STRUCT T_BIGNUM T_FILE T_TRUE T_FALSE T_DATA T_SYMBOL|
+  RUBY_NATIVE_NAMES = %w|Nil Object Class Module Float String Regexp Array Fixnum Hash Struct Bignum File True False Data Symbol|
+
+  def initialize(str)
+    r = StringScanner.new(str)
+    @ctype = r.scan(/[a-z_A-Z0-9|]+\s[*]*/) || 'VALUE'
+    @ctype.squeeze!(' ') if @ctype
+    @ctype.strip! if @ctype
+    if RUBY_NATIVE_TYPES.include?(@ctype)
+      @rtype = @ctype
+      @ctype = 'VALUE'
+    elsif (types = @ctype.split(/\|/)).size > 1
+      types.each { |i| i.strip! }
+      if RUBY_NATIVE_TYPES.include?(types.first)
+        @ctype = "VALUE"
+        @rtype = types
+      end
+    end
+    r.skip(/\s*/)
+    @rest = (r.skip(/\*/) and true)
+    @block = (r.skip(/\&/) and true)
+    @name = r.scan(/[A-Za-z0-9_]+/)
+    r.skip(/\s*/)
+    if r.scan(/=(.*)/)
+      @default= r[1].strip
+    end
+  end
+  #include RegisterChildren
+  def cname()
+    if auto_convert?
+      "__v_#{name}"
+    else
+      name
+    end
+  end
+  def auto_convert?
+    ctype and ctype != "VALUE"
+  end
+  def init_value()
+    if @block and not @default
+      "rb_block_proc()"
+    else
+      "Qnil"
+    end
+  end
+  def check_type(io)
+    case @rtype
+    when String
+      io.puts "  Check_Type(#{cname}, #{@rtype});"
+    when Array
+      io.puts "  if (! (" + @rtype.collect { |type|  "(TYPE(#{cname}) == #{type})" }.join(' || ') + ") )"
+      io.puts "    rb_raise(rb_eArgError, \"#{name} argument must be one of #{@rtype.collect {|i| RUBY_NATIVE_NAMES[RUBY_NATIVE_TYPES.index(i)]}.join(', ') }\");"
+    end
+  end
+  def declare(io,fn)
+    if auto_convert?
+      io.puts "  VALUE #{cname} = #{init_value};" if fn.multi
+      io.puts "  #{ctype} #{name}; #{ctype} __orig_#{name};"
+    else
+      io.puts "  VALUE #{cname} = #{init_value};" if fn.multi
+    end
+  end
+  def to_str()
+    "#{ctype} #{name} #{default ? ' = ' + default : ''}"
+  end
+  NICE_CNAMES= {'char*'=> 'String', 'long'=>'Integer', 'int'=>'Integer', 'uint'=>'Unsigned Integer', 'ulong'=>'Unsigned Integer', 'bool'=>'Boolean'}
+  def ruby_def()
+    if @rtype.kind_of?(String)
+      type = RUBY_NATIVE_NAMES[RUBY_NATIVE_TYPES.index(rtype)] + ' '
+    elsif @rtype.kind_of?(Array)
+      types = @rtype.dup
+      types.delete('T_NIL') # Don't mention nil option
+      type = types.collect { |rtype| RUBY_NATIVE_NAMES[RUBY_NATIVE_TYPES.index(rtype)] }.join(' or ') + ' '
+    elsif ctype and ctype != 'VALUE'
+      if NICE_CNAMES.has_key?(ctype)
+        type = NICE_CNAMES[ctype]
+      else
+        type = ctype
+      end
+      type += ' '
+    else
+      type = ''
+    end
+    "#{type}#{name}"
+  end
+end
+
+end # Rubber

data/lib/rubber/codegen/string.rb

@@ -0,0 +1,41 @@
+module Rubber
+
+class C_String
+  define_members :name, :string, :parent
+  def code(io)
+  end
+  def declare(io)
+    #io.puts "static VALUE #{cname};"
+  end
+  include RegisterChildren
+  def default_cname
+    #"enum"+name
+  end
+  def doc_rd(io)
+    depth = (fullname.gsub(/[^:]/,'').size >> 1)
+    io.puts "=#{'=' * depth} #{fullname}"
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def fullname()
+    if parent and parent.respond_to?(:fullname)
+      "#{parent.fullname}::#{name}"
+    else
+      name
+    end
+  end
+  def get_root(); is_root? ? self : parent.get_root; end; 
+  def is_root?()
+    not parent.respond_to?(:fullname)
+  end
+  def register(io, already_defined=false)
+    if parent
+      io.puts "    rb_define_const(#{parent.cname}, #{name.inspect}, rb_str_new2(#{string}));"
+    else
+      raise "No parent for string constant #{name}"
+    end
+  end
+end
+
+end # Rubber