ok2=0
split($i,tab,"=") # get rid of default value
item=tab[1]
+ sub("/[ \t]*&[ \t]*/", "&", item) # supress spaces around * and $
+ sub("/[ \t]**[ \t]*/", "*", item)
for (cpptype in idl_arg_type) {
- if ( substr(item,1,length(cpptype)) == cpptype ) {
+ l = length(cpptype)
+ s0 = substr(item,1,l) # to discriminate between int and int&, ...
+ s1 = " "
+ if (length(item) > l)
+ s1 = substr(item, l+1, 1)
+
+ if ( (s0 == cpptype) && (s1 == " ") ) {
# if compatible, store argument type and name
type[i]=cpptype
name[i]=substr(item,length(cpptype)+1)