From 1cba7dcfe314e500eeb5566a0b87311d20e34748 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=A9my=20Zurcher?= Date: Sun, 22 Jan 2012 17:27:54 +0100 Subject: tools/genruby: cleanup, do not define specific pointer types, use :pointer --- Changelog | 7 ++++-- tools/genruby.rb | 67 +++++++++++++++++++++++--------------------------------- 2 files changed, 32 insertions(+), 42 deletions(-) diff --git a/Changelog b/Changelog index 7799429..d234375 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,6 @@ +2012-01-xx Jérémy Zurcher + * do not create type specific pointers, use pointer + 2011-09-02 Jérémy Zurcher * release 0.0.9 * implement test_bg, test_actionslider, test_box @@ -17,8 +20,8 @@ * elementary objects constructor helper * elementary objects may wrap callback pointers * quick add classes : ElmDiskSelectorItem, ElmEntry, ElmFlipSelector, ElmFLipSelectorItem, ElmHoversel, ElmHoverselItem, ElmGenlistItemClassStruct, ElmHover, ElmButton, ElmListItem, ElmGenList, - * auto complete _set and _get function suffixes - * bugfix ecore_getopt + * auto complete _set and _get function suffixes + * bugfix ecore_getopt * add REinaList#from_a ptrt * add REinaList#to_a ptrt=nil * rework EcoreGetopt diff --git a/tools/genruby.rb b/tools/genruby.rb index 8d2934a..9fd4e14 100755 --- a/tools/genruby.rb +++ b/tools/genruby.rb @@ -29,12 +29,13 @@ libraries = [ ] # INDENT=' '*8 +WRAP_LEN=150 # HEADER =<<-EOF #! /usr/bin/env ruby # -*- coding: UTF-8 -*- # -require 'efl' +require 'efl/native' # module Efl # @@ -43,7 +44,7 @@ module Efl FCT_PREFIX = 'MY_FCT_PREFIX_' # def self.method_missing meth, *args, &block - sym = Efl::MethodResolver self, meth, FCT_PREFIX + sym = Efl::MethodResolver.resolve self, meth, FCT_PREFIX self.send sym, *args, &block end # @@ -69,7 +70,7 @@ TYPES = { 'time_t' => ':ulong', 'size_t' => ':ulong', 'ssize_t' => ':long', - 'uintptr_t' => ':uintptr_t', + 'uintptr_t' => ':pointer', 'double' => ':double', 'long int' => ':long', 'long long' => ':long_long', @@ -77,35 +78,27 @@ TYPES = { 'unsigned char' => ':uchar', 'unsigned short' => ':ushort', 'unsigned long long' => ':ulong_long', - 'int *' => ':int_p', - 'void *' => ':void_p', - 'short *' => ':short_p', - 'float *' => ':float_p', - 'size_t *' => ':ulong_p', - 'ssize_t *' => ':long_p', - 'double *' => ':double_p', - 'unsigned int *' => ':uint_p', - 'unsigned char *' => ':uchar_p', - 'unsigned short *' => ':ushort_p', 'char *' => ':string', # FIXME ?!?! - 'char **' => ':string_array', # FIXME ?!?! - 'char ***' => ':string_array_p', # FIXME ?!?! 'fd_set *' => ':pointer', 'FILE *' => ':pointer', 'va_list' => ':pointer', # FIXME ?!?! 'struct tm *' => ':pointer', 'struct timeval *' => ':pointer', 'struct sockaddr *' => ':pointer', + 'Eina_Bool' => ':bool' } # TYPES_USAGE = {} # def set_type t, sym if TYPES[t].nil? - TYPES[t]=':'+sym.downcase - puts " define type : #{t} => :#{sym.downcase}" + v = ( TYPES[sym].nil? ? ':'+sym.downcase : TYPES[sym][1..-1] ) + TYPES[t] = v + puts " define type : #{t} => #{v}" + return v else - puts "ERROR set type #{t} => #{sym}" + return TYPES['Eina_Bool'] if t=='Eina_Bool' + puts "ERROR type #{t} => #{sym} alredy exists!" exit 1 end end @@ -142,14 +135,14 @@ def get_type_from_arg arg, l end # def wrap_text txt, indent - txt.gsub( /(.{1,#{170}})(?: +|$\n?)|(.{1,#{170}})/,"\\1\\2\n#{indent}").sub(/\n\s+$/,'') + txt.gsub( /(.{1,#{150}})(?: +|$\n?)|(.{1,#{150}})/,"\\1\\2\n#{indent}").sub(/\n\s+$/,'') end # def gen_enums path, indent r = [] open(path+'-enums','r').readlines.each do |l| l.strip! - if not l=~/(typedef enum(?: \w+)?) \{([-A-Z0-9_=, ]+)\} (\w+)/ + if not l=~/((?:typedef )?enum(?: \w+)?) \{([-A-Z0-9_=, ]+)\} (\w+)/ puts "FIXME : #{l}\n#{indent}# FIXME" r << indent+"# #{l}\n#{indent}# FIXME" next @@ -157,10 +150,10 @@ def gen_enums path, indent typedef = $1.strip values = $2.strip typename = $3.strip - v = set_type typename, typename + tsym = set_type typename, typename args = values.split(',').collect { |cst| ':'+cst.strip.downcase }.join(', ').gsub(/=/,',').gsub(/ ,/,',') r << indent+"# #{typedef} {...} #{typename};" - r << wrap_text( indent+"enum :#{v}, [ #{args} ]", indent+' '*4 ) + r << wrap_text( indent+"enum #{tsym}, [ #{args} ]", indent+' '*4 ) end r end @@ -169,28 +162,22 @@ def gen_typedefs path, indent r = [] open(path+'-types','r').readlines.each do |l| l.strip! - if l=~/typedef (struct|enum|union) _?\w+ (\w+);/ + if l=~/typedef (struct|union) _?\w+ (\w+);/ t = $2.strip - v = 'pointer' + sym = 'pointer' + elsif l=~/typedef enum/ + # nothing todo + next elsif l =~/typedef\s+((?:\w+\**\s)+)(\w+);/ t = $2.strip - v = $1.strip - if TYPES[t].nil? - if not TYPES[v].nil? - set_type t, TYPES[v] - elsif TYPES.values.include? ':'+v - set_type t, v - else - puts "\nFIXME gen_typedefs : >#{t}< >#{v}<" - exit 1 - end - end + sym = $1.strip else r << indent+"# #{l}\n#{indent}# FIXME" next end + tsym = set_type t, sym r << indent+"# #{l}" - r << indent+"typedef :#{v}, :#{t.downcase}" + r << indent+"typedef #{tsym}, :#{t.downcase}" end r end @@ -207,11 +194,11 @@ def gen_callbacks path, indent ret = $1.strip name = $2.strip args = $3.split(',').collect { |arg| get_type_from_arg arg, l }.join ', ' - k = name.sub(/\(/,'').sub(/\)/,'').sub(/\*/,'') - t = name.downcase.sub(/\(/,'').sub(/\)/,'').sub(/\*/,'') - t = set_type k, t + t = name.sub(/\(/,'').sub(/\)/,'').sub(/\*/,'') + sym = ( t.downcase=~/_cb$/ ? t : t+'_cb' ) + tsym = set_type t, sym r << indent+"# #{l}" - r << wrap_text(indent+"callback :#{t}, [ #{args} ], #{get_type ret}", indent+' '*4 ) + r << wrap_text(indent+"callback #{tsym}, [ #{args} ], #{get_type ret}", indent+' '*4 ) end r end -- cgit v1.1-2-g2b99