/third_party/curl/tests/ |
H A D | secureserver.pl | 98 while(@ARGV) { 99 if($ARGV[0] eq '--verbose') { 102 elsif($ARGV[0] eq '--proto') { 103 if($ARGV[1]) { 104 $proto = $ARGV[1]; 105 shift @ARGV; 108 elsif($ARGV[0] eq '--accept') { 109 if($ARGV[1]) { 110 if($ARGV[1] =~ /^(\d+)$/) { 112 shift @ARGV; [all...] |
H A D | devtest.pl | 138 while(@ARGV) { 139 if($ARGV[0] eq "-h") { 152 elsif($ARGV[0] eq "--verbose") { 155 elsif($ARGV[0] eq "sleep") { 156 shift @ARGV; 157 sleep $ARGV[0]; 159 elsif($ARGV[0] eq "echo") { 160 shift @ARGV; 161 print $ARGV[0] . "\n"; 163 elsif($ARGV[ [all...] |
H A D | testcurl.pl | 93 while ($ARGV[0]) { 94 if ($ARGV[0] =~ /--target=/) { 95 $targetos = (split(/=/, shift @ARGV, 2))[1]; 97 elsif ($ARGV[0] =~ /--setup=/) { 98 $setupfile = (split(/=/, shift @ARGV, 2))[1]; 100 elsif ($ARGV[0] =~ /--extvercmd=/) { 101 $extvercmd = (split(/=/, shift @ARGV, 2))[1]; 103 elsif ($ARGV[0] =~ /--mktarball=/) { 104 $mktarball = (split(/=/, shift @ARGV, 2))[1]; 106 elsif ($ARGV[ [all...] |
H A D | sshserver.pl | 121 while(@ARGV) { 122 if($ARGV[0] eq '--verbose') { 125 elsif($ARGV[0] eq '--debugprotocol') { 129 elsif($ARGV[0] eq '--user') { 130 if($ARGV[1]) { 131 $username = $ARGV[1]; 132 shift @ARGV; 135 elsif($ARGV[0] eq '--id') { 136 if($ARGV[1]) { 137 if($ARGV[ [all...] |
H A D | runtests.pl | 2148 if(@ARGV && $ARGV[-1] eq '$TFLAGS') { 2149 pop @ARGV; 2150 push(@ARGV, split(' ', $ENV{'TFLAGS'})) if defined($ENV{'TFLAGS'}); 2157 while(@ARGV) { 2158 if ($ARGV[0] eq "-v") { 2162 elsif ($ARGV[0] eq "-c") { 2164 $DBGCURL=$CURL=$ARGV[1]; 2165 shift @ARGV; 2167 elsif ($ARGV[ [all...] |
H A D | ftpserver.pl | 2989 while(@ARGV) { 2990 if($ARGV[0] eq '--verbose') { 2993 elsif($ARGV[0] eq '--srcdir') { 2994 if($ARGV[1]) { 2995 $srcdir = $ARGV[1]; 2996 shift @ARGV; 2999 elsif($ARGV[0] eq '--id') { 3000 if($ARGV[1] && ($ARGV[1] =~ /^(\d+)$/)) { 3002 shift @ARGV; [all...] |
H A D | memanalyze.pl | 43 if($ARGV[0] eq "-v") { 45 shift @ARGV; 47 elsif($ARGV[0] eq "-t") { 49 shift @ARGV; 51 elsif($ARGV[0] eq "-l") { 54 shift @ARGV; 73 my $file = $ARGV[0];
|
H A D | test1167.pl | 53 if($ARGV[0] eq "-v") { 59 my $root=$ARGV[0] || "."; 62 my $i = ($ARGV[1]) ? "-I$ARGV[1] " : '';
|
H A D | test1140.pl | 29 my $docsroot = $ARGV[0]; 37 shift @ARGV; 39 my @f = @ARGV;
|
/third_party/icu/icu4c/source/tools/genren/ |
H A D | genren.pl | 45 while($ARGV[0] =~ /^-/) { # detects whether there are any arguments 46 $_ = shift @ARGV; # extracts the argument for processing 49 /^-o/ && (($headername = shift (@ARGV)), next); # output file 50 /^-n/ && (($nmopts = shift (@ARGV)), next); # nm opts 51 /^-p/ && (($post = shift (@ARGV)), next); # nm opts 52 /^-x/ && (($mode = shift (@ARGV)), next); # nm opts 53 /^-S/ && (($U_ICU_VERSION_SUFFIX = shift(@ARGV)), next); # pick the suffix 58 unless(@ARGV > 0) { 63 #$headername = "uren".substr($ARGV[0], 6, index(".", $ARGV[ [all...] |
/third_party/skia/third_party/externals/icu/source/tools/genren/ |
H A D | genren.pl | 45 while($ARGV[0] =~ /^-/) { # detects whether there are any arguments 46 $_ = shift @ARGV; # extracts the argument for processing 49 /^-o/ && (($headername = shift (@ARGV)), next); # output file 50 /^-n/ && (($nmopts = shift (@ARGV)), next); # nm opts 51 /^-p/ && (($post = shift (@ARGV)), next); # nm opts 52 /^-x/ && (($mode = shift (@ARGV)), next); # nm opts 53 /^-S/ && (($U_ICU_VERSION_SUFFIX = shift(@ARGV)), next); # pick the suffix 58 unless(@ARGV > 0) { 63 #$headername = "uren".substr($ARGV[0], 6, index(".", $ARGV[ [all...] |
/third_party/skia/tools/skpbench/ |
H A D | skpbench.py | 139 ARGV = [FLAGS.skpbench, '--verbosity', str(FLAGS.verbosity)] variable in SKPBench 141 ARGV.extend(['--duration', str(FLAGS.duration)]) 143 ARGV.extend(['--sampleMs', str(FLAGS.sample_ms)]) 145 ARGV.extend(['--gpuClock', 'true']) 147 ARGV.extend(['--fps', 'true']) 149 ARGV.extend(['--pr'] + re.split(r'[ ,]', FLAGS.pr)) 151 ARGV.extend(['--cc', 'true']) 153 ARGV.extend(['--cachePathMasks', 'false']) 155 ARGV.extend(['--allPathsVolatile', 'true']) 157 ARGV [all...] |
/third_party/curl/scripts/ |
H A D | cd2nroff | 41 while(@ARGV) { 42 if($ARGV[0] eq "-d") { 43 shift @ARGV; 44 $dir = shift @ARGV; 46 elsif($ARGV[0] eq "-e") { 47 shift @ARGV; 48 $extension = shift @ARGV; 50 elsif($ARGV[0] eq "-k") { 51 shift @ARGV; 54 elsif($ARGV[ [all...] |
/third_party/mbedtls/tests/data_files/ |
H A D | print_c.pl | 21 if (!@ARGV || $ARGV[0] == '--help') { 33 my $pp_name = @ARGV > 1 ? shift @ARGV : undef; 34 my $name = shift @ARGV;
|
/third_party/curl/tests/libtest/ |
H A D | test613.pl | 28 if ( $#ARGV < 1 ) 40 if ($ARGV[0] eq "prepare") 42 my $dirname = $ARGV[1]; 72 elsif ($ARGV[0] eq "postprocess") 74 my $dirname = $ARGV[1]; 75 my $logfile = $ARGV[2]; 145 print "Unsupported command $ARGV[0]\n";
|
/third_party/node/deps/openssl/openssl/util/ |
H A D | ck_errf.pl | 48 while ( @ARGV ) { 49 my $arg = $ARGV[0]; 53 $config = $ARGV[1]; 54 shift @ARGV; 67 shift @ARGV; 72 die "Extra parameters given.\n" if @ARGV; 80 @source = @ARGV;
|
H A D | dofile.pl | 40 . (scalar(@ARGV) > 0 ? " from " .join(", ", @ARGV) : "") 52 if defined($opts{i}) and scalar(@ARGV) == 0; 57 @ARGV 58 ? map { { TYPE => 'FILE', SOURCE => $_, FILENAME => $_ } } @ARGV
|
H A D | mkerr.pl | 80 while ( @ARGV ) { 81 my $arg = $ARGV[0]; 85 $config = $ARGV[1]; 86 shift @ARGV; 104 shift @ARGV; 105 $modules{uc $ARGV[0]} = 1; 112 shift @ARGV; 118 die "Extra parameters given.\n" if @ARGV; 124 @source = @ARGV;
|
/third_party/openssl/util/ |
H A D | ck_errf.pl | 48 while ( @ARGV ) { 49 my $arg = $ARGV[0]; 53 $config = $ARGV[1]; 54 shift @ARGV; 67 shift @ARGV; 72 die "Extra parameters given.\n" if @ARGV; 80 @source = @ARGV;
|
H A D | dofile.pl | 40 . (scalar(@ARGV) > 0 ? " from " .join(", ", @ARGV) : "") 52 if defined($opts{i}) and scalar(@ARGV) == 0; 57 @ARGV 58 ? map { { TYPE => 'FILE', SOURCE => $_, FILENAME => $_ } } @ARGV
|
/third_party/ltp/tools/ |
H A D | genhtml.pl | 63 my $header_file = shift (@ARGV) || syntax(); 64 my $start_tag = shift (@ARGV) || syntax(); 65 my $end_tag = shift (@ARGV) || syntax(); 66 my $output_tag = shift (@ARGV) || syntax(); 67 my $execution_tag = shift (@ARGV) || syntax(); 105 foreach my $file (@ARGV) {
|
/third_party/skia/third_party/externals/libwebp/examples/ |
H A D | unicode.h | 29 #define INIT_WARGV(ARGC, ARGV) \ 71 #define INIT_WARGV(ARGC, ARGV) 73 #define GET_WARGV(ARGV, C) (ARGV)[C] 74 #define GET_WARGV_SHIFTED(ARGV, C) (ARGV)[C]
|
/third_party/tzdata/ |
H A D | tzselect.ksh | 39 # awk 'BEGIN { VAR = substr(ARGV[1], 2); ARGV[1] = "" } ...' ="VALUE" 214 continent_re = substr(ARGV[1], 2) 215 TZ_COUNTRY_TABLE = substr(ARGV[2], 2) 216 TZ_ZONE_TABLE = substr(ARGV[3], 2) 217 ARGV[1] = ARGV[2] = ARGV[3] = "" 271 coord = substr(ARGV[1], 2) 272 TZ_COUNTRY_TABLE = substr(ARGV[ [all...] |
/third_party/ltp/tools/sparse/sparse-src/ |
H A D | cgcc | 22 while (@ARGV) { 23 $_ = shift(@ARGV); 41 die ("$0: missing argument for $_") if !@ARGV; 47 die ("$0: missing argument for $_") if !@ARGV; 48 die ("$0: invalid argument for $_") if $ARGV[0] ne 'c'; 69 $gcc_base_dir = shift @ARGV; 75 $multiarch_dir = shift @ARGV;
|
/third_party/pcre2/pcre2/ |
H A 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>
|