Lines Matching refs:arg
1242 foreach my $arg (split /;/, $content) {
1243 next if ($arg =~ m/^\s*$/);
1244 if ($arg =~ m/^([^\(]+\(\*?\s*)([\w\.]*)(\s*\).*)/) {
1259 $arg =~ s/^\s+//;
1260 $arg =~ s/\s+$//;
1262 $arg =~ s/:\s*\d+\s*//g;
1264 $arg =~ s/\[.*\]//g;
1271 $arg =~ s/\s*,\s*/,/g;
1272 if ($arg =~ m/(.*)\s+([\S+,]+)/) {
1276 $newmember .= "$arg; ";
1398 foreach my $arg (split ',', $members) {
1399 $arg =~ s/^\s*(\w+).*/$1/;
1400 push @parameterlist, $arg;
1401 if (!$parameterdescs{$arg}) {
1402 $parameterdescs{$arg} = $undescribed;
1404 … print STDERR "${file}:$.: warning: Enum value '$arg' not described in enum '$declaration_name'\n";
1407 $_members{$arg} = 1;
1516 foreach my $arg (split($splitter, $args)) {
1518 $arg =~ s/\/\*.*\*\///;
1519 $arg =~ s/\s*EFIAPI\s*/ /g;
1521 $arg =~ s/^\s*//;
1522 $arg =~ s/\s*$//;
1523 $arg =~ s/\s+/ /;
1526 if ($arg =~ /^#/) {
1530 push_parameter($arg, "", "", $file);
1531 } elsif ($arg =~ m/\(.+\)\s*\(/) {
1533 $arg =~ tr/#/,/;
1534 $arg =~ m/[^\(]+\(\s*\*?\s*([\w\.]*)\s*\)/;
1536 $type = $arg;
1539 push_parameter($param, $type, $arg, $file, $declaration_name);
1540 } elsif ($arg) {
1541 $arg =~ s/\s*:\s*/:/g;
1542 $arg =~ s/\s*\[/\[/g;
1544 my @args = split('\s*,\s*', $arg);
1565 push_parameter($2, "$type $1", $arg, $file, $declaration_name);
1570 push_parameter($1, "$type:$2", $arg, $file, $declaration_name)
1575 push_parameter($param, $type, $arg, $file, $declaration_name);