Lines Matching refs:args
198 my $args;
201 ($name, $args) = ($1, $2);
202 $args = [split /,\s*/, $args];
203 foreach my $t (@$args) {
208 return ($name, $addr, $args);
237 foreach my $arg (@{$this->{args}}) {
248 my ($args, $argparams, $name) =
249 ($this->{args}, $this->{argparams}, $this->{name});
329 next if $#{$this{args}} + 1 != scalar keys %{$this{argparams}};
338 foreach my $arg (@{$this{args}}) {
368 } @{$this{args}};
389 (join ", ", @{$this{args}}) . ")", "($lim_formula)";
392 if (! @{$this{args}}) {
401 my $args = [];
405 ($name, $addr, $args) = name_split($name, $addr) if /\(.*\)/;
423 if ($flagstring ne "" && !@$args) {
428 my $arglist = @$args ? "(" . (join ", ", @$args) . ")" : "";
430 if !@$args;
439 args => $args,
444 if (!@$args) {