6 $funcname = pop(@fields);
17 last unless /^[IO]+\s/;
19 push(@modes, shift(@fields));
20 push(@names, pop(@fields));
21 push(@types, "@fields");
32 $namelist = '$' . join(', $', @names);
33 $namelist = '' if $namelist eq '$';
37 fatal("Usage: &$funcname($namelist)");
40 if ($rettype eq 'void') {
50 foreach $i (1..@names) {
54 if ($type =~ /^[A-Z]+\*$/) {
60 $what = ($type =~ /^(struct\s+\w+|char|[A-Z]+)\s*\*$/ ? "get" : "gnum");
61 $type .= "\t" if length($type) < 4;
62 $cast .= "\t" if length($cast) < 8;
63 $x = "\t" x (length($name) < 6);
65 if ($what eq 'gnum') {
66 push(@outies, "\t str_numset(st[$i], (double) $name);\n");
69 push(@outies, "\t str_set(st[$i], (char*) $name);\n");
71 push(@callnames, "&$name");
74 push(@callnames, $name);
78 $type $name =$x $cast str_$what(st[$i]);
87 $callnames = join(', ', @callnames);
88 $outies = join("\n",@outies);
89 if ($rettype eq 'void') {
91 $pre (void)$funcname($callnames);
96 $pre retval = $funcname($callnames);
99 if ($rettype =~ /^(struct\s+\w+|char)\s*\*$/) {
101 str_set(st[0], (char*) retval);
104 elsif ($rettype =~ /^[A-Z]+\s*\*$/) {
106 str_nset(st[0], (char*) &retval, sizeof retval);
111 str_numset(st[0], (double) retval);
114 print $outies if $outies;
115 print $post if $post;
117 print "\t}\n\treturn sp;\n";
124 print "\t}\n\treturn sp;\n";