1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* ext/socket/mkconstants.rb: refactored to gather stringizer

Browse Source 
description.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@21270 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2009-01-02 08:02:36 +00:00
parent 775d5d8f03
commit 9ce8d4e3b9
2 changed files with 42 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
Fri Jan 2 17:01:51 2009 Tanaka Akira <akr@fsij.org>
* ext/socket/mkconstants.rb: refactored to gather stringizer
description.
Fri Jan 2 15:30:57 2009 Tanaka Akira <akr@fsij.org> Fri Jan 2 15:30:57 2009 Tanaka Akira <akr@fsij.org>
* ext/socket/mkconstants.rb: make common prefix optional. * ext/socket/mkconstants.rb: make common prefix optional.

47
ext/socket/mkconstants.rb
View File

@ -121,25 +121,56 @@ ERB.new(<<'EOS', nil, '%').def_method(Object, "gen_name_to_int(str_var, len_var,
} }
EOS EOS
ERB.new(<<'EOS', nil, '%').def_method(Object, "gen_int_to_name_hash(hash_var, pat)") ERB.new(<<'EOS', nil, '%').def_method(Object, "gen_int_to_name_hash(hash_var, pat, prefix_pat)")
<%=hash_var%> = st_init_numtable(); <%=hash_var%> = st_init_numtable();
% reverse_each_name(pat) {|n| % reverse_each_name(pat) {|n|
#ifdef <%=n%> #ifdef <%=n%>
st_insert(<%=hash_var%>, (st_data_t)<%=n%>, (st_data_t)<%=c_str n%>); st_insert(<%=hash_var%>, (st_data_t)<%=n%>, (st_data_t)<%=c_str n%>);
#endif #endif
% } % }
% if prefix_pat
% reverse_each_name(pat) {|n|
% next if prefix_pat !~ n
#ifdef <%=n%>
st_insert(<%=hash_var%>, (st_data_t)<%=n%>, (st_data_t)<%=c_str $'%>);
#endif
% }
% end
EOS EOS
ERB.new(<<'EOS', nil, '%').def_method(Object, "gen_int_to_name(int_var, hash_var)") ERB.new(<<'EOS', nil, '%').def_method(Object, "gen_int_to_name_func(func_name, hash_var)")
static char *
<%=func_name%>(int val)
{
st_data_t name; st_data_t name;
if (st_lookup(<%=hash_var%>, (st_data_t)<%=int_var%>, &name)) if (st_lookup(<%=hash_var%>, (st_data_t)val, &name))
return (char*)name; return (char*)name;
return NULL; return NULL;
}
EOS EOS
STRINGIZER_DEFS = []
def def_stringizer(func_name, pat, prefix_optional=nil)
prefix_pat = nil
if prefix_optional
if Regexp === prefix_optional
prefix_pat = prefix_optional
else
prefix_pat = /\A#{Regexp.escape prefix_optional}/
end
end
hash_var = "#{func_name}_hash"
decl = "static st_table *#{hash_var};"
gen_hash = gen_int_to_name_hash(hash_var, pat, prefix_pat)
func = gen_int_to_name_func(func_name, hash_var)
STRINGIZER_DEFS << [decl, gen_hash, func]
end
def_stringizer('family_to_str', /\AAF_/)
result << ERB.new(<<'EOS', nil, '%').result(binding) result << ERB.new(<<'EOS', nil, '%').result(binding)
static st_table *family_to_str_hash; <%= STRINGIZER_DEFS.map {|decl, gen_hash, func| decl }.join("\n") %>
static void static void
init_constants(VALUE mConst) init_constants(VALUE mConst)
@ -159,7 +190,7 @@ init_constants(VALUE mConst)
#endif #endif
% end % end
% } % }
<%= gen_int_to_name_hash('family_to_str_hash', /\AAF_/) %> <%= STRINGIZER_DEFS.map {|decl, gen_hash, func| gen_hash }.join("\n") %>
} }
static int static int
@ -210,11 +241,7 @@ udp_optname_to_int(char *str, int len, int *valp)
<%= gen_name_to_int("str", "len", "valp", /\AUDP_/, "UDP_") %> <%= gen_name_to_int("str", "len", "valp", /\AUDP_/, "UDP_") %>
} }
static char * <%= STRINGIZER_DEFS.map {|decl, gen_hash, func| func }.join("\n") %>
family_to_str(int val)
{
<%= gen_int_to_name("val", "family_to_str_hash") %>
}
EOS EOS