/external/icu4c/tools/genren/ |
D | genren.pl | 43 while($ARGV[0] =~ /^-/) { # detects whether there are any arguments 44 $_ = shift @ARGV; # extracts the argument for processing 47 /^-o/ && (($headername = shift (@ARGV)), next); # output file 48 /^-n/ && (($nmopts = shift (@ARGV)), next); # nm opts 49 /^-p/ && (($post = shift (@ARGV)), next); # nm opts 50 /^-x/ && (($mode = shift (@ARGV)), next); # nm opts 51 /^-S/ && (($U_ICU_VERSION_SUFFIX = shift(@ARGV)), next); # pick the suffix 56 unless(@ARGV > 0) { 127 for(;@ARGV; shift(@ARGV)) { 129 @NMRESULT = `nm $nmopts $ARGV[0] $post`; [all …]
|
/external/llvm/utils/ |
D | llvm-native-gxx | 20 for ($i = 0; $i <= $#ARGV; ++$i) { 21 if ($ARGV[$i] =~ /-mllvm-backend=([a-z0-9]*)/) { 24 splice (@ARGV, $i, 1); 27 } elsif ($ARGV[$i] eq "-E") { 29 } elsif ($ARGV[$i] eq "-c") { 30 $GCCOptions .= " " . $ARGV[$i]; 32 } elsif ($ARGV[$i] eq "-v") { 33 $GCCOptions .= " " . $ARGV[$i]; 35 } elsif ($ARGV[$i] eq "-o") { 36 $OutputFile = $ARGV[$i + 1]; [all …]
|
D | llvm-native-gcc | 20 for ($i = 0; $i <= $#ARGV; ++$i) { 21 if ($ARGV[$i] =~ /-mllvm-backend=([a-z0-9]*)/) { 24 splice (@ARGV, $i, 1); 27 } elsif ($ARGV[$i] eq "-E") { 29 } elsif ($ARGV[$i] eq "-c") { 30 $GCCOptions .= " " . $ARGV[$i]; 32 } elsif ($ARGV[$i] eq "-v") { 33 $GCCOptions .= " " . $ARGV[$i]; 35 } elsif ($ARGV[$i] eq "-o") { 36 $OutputFile = $ARGV[$i + 1]; [all …]
|
D | profile.pl | 27 while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { 36 die "-o option requires a filename argument!" if (!scalar(@ARGV)); 37 $ProgramOpts .= " -llvmprof-output $ARGV[0]"; 38 $ProfileFile = $ARGV[0]; 59 die "Must specify LLVM bitcode file as first argument!" if (@ARGV == 0); 61 my $BytecodeFile = $ARGV[0]; 63 shift @ARGV; 72 "$BytecodeFile.inst $ProgramOpts " . (join ' ', @ARGV);
|
D | NewNightlyTest.pl | 155 while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { 160 if (/^-config$/) { $CONFIG_PATH = "$ARGV[0]"; shift; next; } 168 if (/^-parallel-jobs$/) { $PARALLELJOBS = "$ARGV[0]"; shift; next;} 188 if (/^-test-opts$/) { $PROGTESTOPTS .= " $ARGV[0]"; shift; next; } 192 if (/^-f2c$/) { $CONFIGUREARGS .= " --with-f2c=$ARGV[0]"; 194 if (/^-with-externals$/) { $CONFIGUREARGS .= " --with-externals=$ARGV[0]"; 196 if (/^-configure-args$/) { $CONFIGUREARGS .= " $ARGV[0]"; 198 if (/^-submit-server/) { $SUBMITSERVER = "$ARGV[0]"; shift; next; } 199 if (/^-submit-script/) { $SUBMITSCRIPT = "$ARGV[0]"; shift; next; } 200 if (/^-submit-aux/) { $SUBMITAUX = "$ARGV[0]"; shift; next; } [all …]
|
D | plotNLT.pl | 11 $passwd=shift @ARGV; 18 $count = @ARGV / 2; 33 $prog = shift @ARGV; 34 $test = shift @ARGV;
|
/external/dnsmasq/contrib/dynamic-dnsmasq/ |
D | dynamic-dnsmasq.pl | 50 if ( @ARGV < 1 ) { 52 } elsif ( lc $ARGV[0] eq "add" ) { 53 die "Usage: $0 ADD USER PASS HOSTNAME\n" unless @ARGV == 4; 54 add_acct($ARGV[1], $ARGV[2], $ARGV[3]); 55 } elsif ( lc $ARGV[0] eq "del" ) { 56 die "Usage: $0 DEL USER\n" unless @ARGV == 2; 57 print "Are you sure you want to delete user \"$ARGV[1]\"? [N/y] "; 61 del_acct($ARGV[1]); 63 } elsif ( lc $ARGV[0] eq "listusers" or lc $ARGV[0] eq "writehostsfile" ) { 66 if ( lc $ARGV[0] eq "writehostsfile" ) { [all …]
|
/external/clang/tools/scan-build/ |
D | scan-build | 1163 if (!@ARGV) { 1171 while (@ARGV) { 1175 my $arg = $ARGV[0]; 1179 shift @ARGV; 1184 shift @ARGV; 1190 shift @ARGV; 1192 if (!@ARGV) { 1198 $HtmlDir = abs_path(shift @ARGV); 1204 shift @ARGV; 1207 if (!@ARGV) { [all …]
|
D | c++-analyzer | 404 my $Status = system($Compiler,@ARGV); 406 print "$Compiler @ARGV\n"; 436 foreach (my $i = 0; $i < scalar(@ARGV); ++$i) { 437 my $Arg = $ARGV[$i]; 447 my $arch = $ARGV[$i+1]; 460 while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; } 468 while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; } 492 push @CompileOpts, $ARGV[$i]; 493 push @LinkOpts, $ARGV[$i]; 513 $Tmp = $Arg . $ARGV[$i]; [all …]
|
D | ccc-analyzer | 404 my $Status = system($Compiler,@ARGV); 406 print "$Compiler @ARGV\n"; 436 foreach (my $i = 0; $i < scalar(@ARGV); ++$i) { 437 my $Arg = $ARGV[$i]; 447 my $arch = $ARGV[$i+1]; 460 while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; } 468 while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; } 492 push @CompileOpts, $ARGV[$i]; 493 push @LinkOpts, $ARGV[$i]; 513 $Tmp = $Arg . $ARGV[$i]; [all …]
|
/external/openssl/crypto/objects/ |
D | objects.pl | 3 open (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]"; 16 { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; } 18 …{ die "$ARGV[1]:$o:There's already an object with name ",$Cname," on line ",$order{$nid{$Cname}},"… 26 open (IN,"$ARGV[0]") || die "Can't open input file $ARGV[0]"; 113 open (NUMOUT,">$ARGV[1]") || die "Can't open output file $ARGV[1]"; 120 open (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]"; 217 { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; }
|
/external/webkit/Source/JavaScriptCore/tests/mozilla/Getopt/ |
D | Mixed.pm | 203 $value = splice(@ARGV,$i,1) unless defined $value; 274 return () if $#ARGV < 0; # No more arguments 278 return ("", shift @ARGV) if $order == $RETURN_IN_ORDER; 284 while (length($ARGV[$i]) < 2 or 285 index($optionStart,substr($ARGV[$i],0,1)) < 0) { 287 return ("", shift @ARGV) if $order == $RETURN_IN_ORDER; 289 return () if $i > $#ARGV; 294 $option = $ARGV[$i]; 297 splice @ARGV,$i,1; 333 splice(@ARGV,$i,1); [all …]
|
/external/webkit/Source/JavaScriptCore/tests/mozilla/ |
D | runtests.pl | 324 while( $i < @ARGV ){ 325 if ( $ARGV[$i] eq '--threaded' ) { 327 } elsif ( $ARGV[$i] eq '--d' ) { 329 } elsif ( $ARGV[$i] eq '--14' ) { 331 } elsif ( $ARGV[$i] eq '--v' ) { 333 } elsif ( $ARGV[$i] eq '-f' ) { 334 $js_output = $ARGV[++$i]; 335 } elsif ( $ARGV[$i] eq '--o' ) { 337 } elsif ($ARGV[$i] eq '--e' ) { 339 } elsif ($ARGV[$i] eq '--q' ) { [all …]
|
/external/ipsec-tools/src/racoon/contrib/ |
D | sp.pl | 3 die "insufficient arguments" if (scalar(@ARGV) < 2); 4 $src = $ARGV[0]; 5 $dst = $ARGV[1]; 7 if (scalar(@ARGV) > 2) { 8 $mode = $ARGV[2];
|
/external/valgrind/main/coregrind/ |
D | link_tool_exe_darwin.in | 101 my $ala = $ARGV[0]; 115 my $str = $ARGV[$n]; 117 $outname = $ARGV[$n + 1]; 129 my $str = $ARGV[$n]; 131 $archstr = $ARGV[$n + 1]; 157 my $str = $ARGV[$n];
|
/external/pcre/ |
D | perltest.pl | 47 if (@ARGV > 0) 49 open(INFILE, "<$ARGV[0]") || die "Failed to open $ARGV[0]\n"; 54 if (@ARGV > 1) 56 open(OUTFILE, ">$ARGV[1]") || die "Failed to open $ARGV[1]\n";
|
D | 132html | 50 while ($#ARGV >= 0 && $ARGV[0] =~ /^-/) 52 $toc = 1 if $ARGV[0] eq "-toc"; 61 <title>$ARGV[0] specification</title> 64 <h1>$ARGV[0] man page</h1>
|
/external/webkit/Tools/Scripts/ |
D | run-webkit-app | 39 die "Did not specify an application to open (e.g. run-webkit-app AppName).\n" unless length($ARGV[0… 45 print "Start $ARGV[0] with DYLD_FRAMEWORK_PATH set to point to built WebKit in $productDir.\n"; 49 unshift(@ARGV, "-a"); 50 exec "open", @ARGV;
|
D | run-webkit-tests | 72 push(@ARGV, "--verbose"); 77 push(@ARGV, "--results-directory"); 79 push(@ARGV, sourceDir() . "/layout-test-results"); 84 exec $harnessPath ($harnessPath, @ARGV) or die "Failed to execute $harnessPath";
|
D | parallelcl | 22 print STDERR "Received " . @ARGV . " arguments:\n"; 23 foreach my $arg (@ARGV) { 29 foreach my $arg (@ARGV) { 32 Exec("\"$clexe\" \"" . join('" "', @ARGV) . "\""); 61 my $options = substr($firstLine, 0, $firstFileIndex) . join(' ', @ARGV[1 .. $#ARGV]);
|
/external/webkit/Source/WebCore/ |
D | make-hash-tools.pl | 26 my $outdir = $ARGV[0]; 28 my $option = basename($ARGV[0],".gperf"); 36 my $docTypeStringsGperf = $ARGV[0]; 46 my $colorDataGperf = $ARGV[0];
|
/external/strace/ |
D | strace-graph | 68 print STDERR "$0: $ARGV: cannot find start of resumed call on line $."; 89 print STDERR "$0: $ARGV: $.: cannot parse line.\n"; 126 print STDERR "$0: $ARGV: $.: cannot parse string.\n"; 135 print STDERR "$0: $ARGV: $.: unrecognized element.\n"; 156 print STDERR "$0: $ARGV: $.: missing comma in array.\n"; 170 print STDERR "$0: $ARGV: $.: struct field expected.\n"; 178 print STDERR "$0: $ARGV: $.: missing comma in struct.\n"; 189 print STDERR "$0: $ARGV: $.: missing comma.\n";
|
/external/strace/strace/linux/x86_64/ |
D | gentab.pl | 36 open(F,$ARGV[0]) || die "cannot open template file $ARGV[0]\n"; 50 open(S,$ARGV[1]) || die "cannot open syscall file $ARGV[1]\n";
|
/external/icu4c/test/compat/ |
D | tzone.pl | 7 if ($ARGV[0] eq '-h' || $ARGV[0] eq '--help') { 25 if (scalar(@ARGV) == 5) { 26 ($year, $month, $day, $hour, $minute) = @ARGV;
|
/external/webkit/PerformanceTests/SunSpider/ |
D | sunspider-compare-results | 62 if ((scalar @ARGV != 0 && scalar @ARGV != 2) || !$jsShellPath || $showHelp) { 148 if (scalar @ARGV == 2) { 149 $file1 = $ARGV[0]; 150 $file2 = $ARGV[1];
|