Lines Matching refs:args
447 # one can use 2-args map_type() unconditionally.
1142 my $args = "$orig_args ,";
1143 if ($args =~ /^( (??{ $C_arg }) , )* $ /x) {
1144 @args = ($args =~ /\G ( (??{ $C_arg }) ) , /xg);
1145 for ( @args ) {
1176 $_ = "$name$default"; # Assigns to @args
1183 @args = split(/\s*,\s*/, $orig_args);
1187 @args = split(/\s*,\s*/, $orig_args);
1188 for (@args) {
1201 unshift(@args, $arg0);
1208 foreach $i (0 .. $#args) {
1209 if ($args[$i] =~ s/\.\.\.//) {
1211 if ($args[$i] eq '' && $i == $#args) {
1213 pop(@args);
1217 if ($only_C_inlist{$args[$i]}) {
1221 $report_args .= ", $args[$i]";
1223 if ($args[$i] =~ /^([^=]*[^\s=])\s*=\s*(.*)/s) {
1225 $args[$i] = $1;
1226 $defaults{$args[$i]} = $2;
1227 $defaults{$args[$i]} =~ s/"/\\"/g;
1234 my @func_args = @args;
1241 @args_match{@args} = @args_num;