Lines Matching refs:arg

1513 	foreach my $arg (split ',', $members) {
1514 	    $arg =~ s/^\s*(\w+).*/$1/;
1515 	    push @parameterlist, $arg;
1516 	    if (!$parameterdescs{$arg}) {
1517 		$parameterdescs{$arg} = $undescribed;
1518 		print STDERR "Warning(${file}:$.): Enum value '$arg' ".
1589     foreach my $arg (split($splitter, $args)) {
1591 	$arg =~ s/\/\*.*\*\///;
1593 	$arg =~ s/^\s*//;
1594 	$arg =~ s/\s*$//;
1595 	$arg =~ s/\s+/ /;
1597 	if ($arg =~ /^#/) {
1601 	    push_parameter($arg, "", $file);
1602 	} elsif ($arg =~ m/\(.+\)\s*\(/) {
1604 	    $arg =~ tr/#/,/;
1605 	    $arg =~ m/[^\(]+\(\*?\s*(\w*)\s*\)/;
1607 	    $type = $arg;
1611 	} elsif ($arg) {
1612 	    $arg =~ s/\s*:\s*/:/g;
1613 	    $arg =~ s/\s*\[/\[/g;
1615 	    my @args = split('\s*,\s*', $arg);