Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
191 lines (166 sloc) 4.34 KB
$type_codes = %w(n B I L F D X C O)
$data_types =
%w(none u_int8_t int16_t int32_t float double scomplex dcomplex VALUE)
$real_types =
%w(none u_int8_t int16_t int32_t float double float double VALUE)
$int_types =
%w(none u_int8_t int16_t int32_t int32_t int32_t scomplex dcomplex VALUE)
$comp_types =
%w(none scomplex scomplex scomplex scomplex dcomplex scomplex dcomplex VALUE)
$swap_types =
%w(none u_int8_t na_size16_t na_size32_t na_size32_t na_size64_t na_size64_t na_size128_t VALUE)
$upcast = [
[ 0, 0, 0, 0, 0, 0, 0, 0, 0],
[ 0, 1, 2, 3, 4, 5, 6, 7, 8],
[ 0, 2, 2, 3, 4, 5, 6, 7, 8],
[ 0, 3, 3, 3, 4, 5, 6, 7, 8],
[ 0, 4, 4, 4, 4, 5, 6, 7, 8],
[ 0, 5, 5, 5, 5, 5, 7, 7, 8],
[ 0, 6, 6, 6, 6, 7, 6, 7, 8],
[ 0, 7, 7, 7, 7, 7, 7, 7, 8],
[ 0, 8, 8, 8, 8, 8, 8, 8, 8] ]
$data_obj = [
[/[O]/,/[O]/, "
*p1 = rb_funcall(*p1,#id,1,*p2);"],
[/[O]/,/[BIL]/,"
*p1 = rb_funcall(*p1,#id,1,INT2FIX(*p2));"],
[/[O]/,/[FD]/, "
*p1 = rb_funcall(*p1,#id,1,rb_float_new(*p2));"],
[/[O]/,/[XC]/, "
*p1 = rb_funcall(*p1,#id,1,rb_complex_new(p2->r,p2->i));"],
[/[BIL]/,/[O]/,"
*p1 = NUM2INT(rb_funcall(INT2FIX(*p1),#id,1,*p2));"],
[/[FD]/,/[O]/, "
*p1 = NUM2DBL(rb_funcall(rb_float_new(*p1),#id,1,*p2));"],
[/[XC]/,/[O]/, "VALUE v=rb_funcall(rb_complex_new(p1->r,p1->i),#id,1,*p2);
p1->r = NUM2REAL(v); p1->i = NUM2IMAG(v);"] ]
def mksetfuncs(name,op,id,funcs)
print "
/* ------------------------- #{name} --------------------------- */\n"
c = $type_codes
n = $type_codes.size
td = $data_types
tr = $real_types
# Function Definition
for i in 0...n
for j in 0...n
funcs.each do |k|
if c[i]=~k[0] && c[j]=~k[1]
#if i==j
# f = "memcpy(p1,p1,sizeof(typed));"
#else
f = k[2]
#end
f = f.
gsub(/p1->/,"((#{td[i]}*)p1)->").
gsub(/p2->/,"((#{td[j]}*)p2)->").
gsub(/\*p1/,"*(#{td[i]}*)p1").
gsub(/\*p2/,"*(#{td[j]}*)p2").
gsub(/#id/,id).
gsub(/#op/,op).
gsub(/typed/,td[i]).
gsub(/typef/,tr[i])
puts $func_body.
gsub(/#name/,name).
sub(/OPERATION/,f).
gsub(/#CC/,c[i]+c[j])
end
end
end
end
# function pointer array
print "\nna_setfunc_t "+name+"Funcs = {\n"
m = []
for i in 0...n
l = []
for j in 0...n
f = true
for k in funcs
if c[i]=~k[0] && c[j]=~k[1]
l += [name+c[i]+c[j]]
f = false
break
end
end
if f
l += ['TpErr']
end
end
m += [' { '+l.join(', ')+' }']
end
print m.join(",\n")+"\n};\n"
end
def mkfuncs(name,t1,t2,func)
print "
/* ------------------------- #{name} --------------------------- */\n"
c = $type_codes
td = $data_types
tr = $real_types
for i in 0...c.size
if func[i] != nil && func[i] != "copy"
f = func[i].
gsub(/p1->/,"((#{t1[i]}*)p1)->").
gsub(/p2->/,"((#{t2[i]}*)p2)->").
gsub(/p3->/,"((#{t2[i]}*)p3)->").
gsub(/\*p1/,"*(#{t1[i]}*)p1").
gsub(/\*p2/,"*(#{t2[i]}*)p2").
gsub(/\*p3/,"*(#{t2[i]}*)p3").
gsub(/type1/,td[i]).
gsub(/typef/,tr[i])
puts $func_body.
gsub(/#name/,name).
sub(/OPERATION/,f).
gsub(/#C/,c[i])
end
end
# Function Array
print "\nna_func_t #{name}Funcs =\n{ "
m = []
for i in 0...c.size
if func[i] == nil
m += ['TpErr']
elsif func[i]=='copy'
m += ['Set'+c[$data_types.index(t1[i])]+c[i]]
else
m += [name+c[i]]
end
end
print m.join(", ")+" };\n"
end
def mksortfuncs(bsname,t1,t2,func)
print "
/* ------------------------- #{bsname} --------------------------- */\n"
c = $type_codes
tf = $real_types
name = bsname
# Function Definition
head = "static int #{name}#code(const void *p1, const void *p2)"
for i in 0...c.size
if func[i] != nil && func[i]=~/^\{/
f = func[i].
gsub(/p1->/,"((#{t1[i]}*)p1)->").
gsub(/p2->/,"((#{t2[i]}*)p2)->").
gsub(/\*\*p1/,"**(#{t1[i]}**)p1").
gsub(/\*\*p2/,"**(#{t2[i]}**)p2").
gsub(/\*p1/,"*(#{t1[i]}*)p1").
gsub(/\*p2/,"*(#{t2[i]}*)p2").
gsub(/typef/,tf[i])
puts( (head+f).gsub(/#code/,c[i]) )
end
end
# Function Array
print "\nna_sortfunc_t #{name}Funcs =\n{ "
m = []
for i in 0...c.size
if func[i] == nil
m += ['(int (*)(const void *, const void *))TpErrI']
elsif func[i]=='copy'
m += ['Set'+c[i]*2]
elsif !( func[i] =~ /^\{/ )
m += [func[i]]
else
m += [name+c[i]]
end
end
print m.join(", ")+" };\n"
end
Something went wrong with that request. Please try again.