Home
last modified time | relevance | path

Searched refs:ARGV (Results 1 – 25 of 381) sorted by relevance

12345678910>>...16

/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
H A Deu_command.t47 @ARGV = ($self, $self);
54 @ARGV = ( $Testfile );
58 @ARGV = ( $Testfile );
61 @ARGV = ( $Testfile );
63 is_deeply( \@ARGV, [$Testfile], 'test_f preserves @ARGV' );
65 @ARGV = ( $Testfile );
66 ok( -e $ARGV[0], 'created!' );
69 utime ($now, $now, $ARGV[0]);
82 my $stamp = (stat($ARGV[0]))[9];
86 @ARGV = qw(newfile);
[all …]
/openbsd-src/regress/sys/kern/sosplice/tcp/
H A Dremote.pl48 if (@ARGV and -f $ARGV[-1]) {
54 @ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
55 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
56 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
62 forward => $ARGV[0],
67 listenaddr => $ARGV[1],
69 connectaddr => $ARGV[2],
70 connectport => $ARGV[3],
96 listenaddr => ($mode eq "auto" ? $ARGV[1] : undef),
97 listenport => ($mode eq "manual" ? $ARGV[0] : undef),
[all …]
/openbsd-src/regress/sys/kern/sosplice/udp/
H A Dremote.pl48 if (@ARGV and -f $ARGV[-1]) {
54 @ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
55 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
56 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
62 forward => $ARGV[0],
69 listenaddr => $ARGV[1],
71 connectaddr => $ARGV[2],
72 connectport => $ARGV[3],
99 listenaddr => ($mode eq "auto" ? $ARGV[1] : undef),
100 listenport => ($mode eq "manual" ? $ARGV[0] : undef),
[all …]
/openbsd-src/regress/sys/kern/sosplice/scapy/
H A Dscapy.pl44 if (@ARGV and -f $ARGV[-1]) {
50 @ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
51 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
52 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
61 forward => $ARGV[0],
65 listenaddr => $ARGV[1],
67 connectaddr => $ARGV[2],
68 connectport => $ARGV[3],
100 listenaddr => ($mode eq "auto" ? $ARGV[1] : undef),
101 listenport => ($mode eq "manual" ? $ARGV[0] : $$ & 0xffff),
[all …]
/openbsd-src/regress/usr.sbin/relayd/
H A Dremote.pl48 if (@ARGV and -f $ARGV[-1]) {
54 @ARGV == 3 && $ARGV[0] =~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "manual" :
55 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] =~ /^\d+$/ ? "relay" :
56 @ARGV == 4 && $ARGV[1] !~ /^\d+$/ && $ARGV[3] !~ /^\d+$/ ? "auto" :
63 forward => $ARGV[0],
66 listenaddr => $ARGV[1],
69 connectaddr => $ARGV[2],
70 connectport => $ARGV[3],
88 print STDERR "listen sock: $ARGV[1] $rport\n";
102 forward => $ARGV[0],
[all …]
/openbsd-src/gnu/llvm/llvm/utils/
H A Dllvm-native-gxx20 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 …]
/openbsd-src/gnu/usr.bin/perl/win32/bin/
H A Dexetype.pl13 unless (0 < @ARGV && @ARGV < 3) {
18 $ARGV[1] = uc $ARGV[1] if $ARGV[1];
19 unless (@ARGV == 1 || defined $subsys{$ARGV[1]}) {
21 print "Invalid subsystem $ARGV[1], please use $subsys\n";
26 open EXE, '+<', $ARGV[0] or die "Cannot open $ARGV[0]: $!\n";
33 die "$ARGV[0] is not an MSDOS executable file.\n"
49 if (@ARGV == 1) {
53 print "$ARGV[0] uses the $subsys subsystem.\n";
56 print EXE pack "S", $subsys{$ARGV[1]};
H A Dsearch.pl62 if $FIND_ONLY == 0 && $showrc == 0 && @ARGV == 0;
125 while (@ARGV && $ARGV[0] =~ m/^-/)
127 $arg = shift(@ARGV);
226 $! = 2, die qq/$0: expecting glob arg to -$arg\n/ unless @ARGV;
227 foreach (split(/\s+/, shift @ARGV)) {
242 $! = 2, die qq/$0: expecting arg to -$arg\n/ unless @ARGV;
243 foreach (split(/\s+/, shift @ARGV)) {
252 $! = 2, die qq/$0: expecting filename arg to -$arg\n/ unless @ARGV;
253 $start = shift(@ARGV);
263 $! = 2, die "$0: expecting filename arg to -$arg\n" unless @ARGV;
[all …]
/openbsd-src/gnu/usr.bin/perl/lib/Getopt/
H A DStd.pm58 C<-->. The C<--> will be removed from C<@ARGV>.
107 while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
110 shift @ARGV;
115 shift(@ARGV);
118 shift(@ARGV);
119 $rest = shift(@ARGV);
140 $ARGV[0] = "-$rest";
143 shift(@ARGV);
242 while(@ARGV
[all...]
H A DStd.t17 @ARGV = qw(-xo -f foo -y file);
20 is( "@ARGV", 'file', 'options removed from @ARGV (1)' );
24 @ARGV = qw(-hij k -- -l m -n);
27 is( "@ARGV", 'k -- -l m -n', 'options removed from @ARGV (2)' );
34 @ARGV = qw(-foi -i file);
37 is( "@ARGV", 'file', 'options removed from @ARGV (3)' );
42 @ARGV
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/
H A DCommand.pm89 @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
117 my ($src,$dst) = @ARGV;
118 local @ARGV = ($dst); touch(); # in case $dst doesn't exist
134 File::Path::rmtree([grep -e $_,@ARGV],0,0);
148 foreach my $file (@ARGV) {
184 foreach my $file (@ARGV) {
205 my @src = @ARGV;
235 my @src = @ARGV;
264 local @ARGV = @ARGV;
265 my $mode = shift(@ARGV);
[all …]
/openbsd-src/regress/sys/net/pf_divert/
H A Dremote.pl55 my $command = "$0 @ARGV";
58 if (@ARGV) {
66 if (@ARGV) {
77 @ARGV >= 3 && $ARGV[0] !~ /^\d+$/ && $ARGV[2] =~ /^\d+$/ ? "divert" :
78 @ARGV >= 3 && $ARGV[0] !~ /^\d+$/ && $ARGV[2] !~ /^\d+$/ ? "auto" :
81 if (@ARGV == 5 && $mode eq "auto") {
82 ($clientport, $serverport) = @ARGV[3,4];
83 } elsif (@ARGV == 4 && $mode eq "divert") {
84 ($bindport) = $ARGV[3];
85 } elsif (@ARGV != 3) {
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/
H A DMM.pm68 my @argv = ExtUtils::Command::expand_wildcards(@ARGV);
105 local @ARGV = @_ ? @_ : @ARGV;
130 return 0 unless @ARGV;
140 my $count = scalar @ARGV / 2;
145 my ($pod, $man) = splice(@ARGV, 0, 2);
159 }} while @ARGV;
175 my $packlist = $ARGV[0];
214 my($type, $name) = splice(@ARGV, 0, 2);
219 : @ARGV;
260 my($packlist) = shift @ARGV;
[all …]
/openbsd-src/regress/sys/net/pflow/
H A Dflow.pl79 if (scalar(@ARGV) != 2 || ($ARGV[0] != 9 && $ARGV[0]!=10)) {
84 if (scalar(@ARGV) != 2 || ($ARGV[1] != 4 && $ARGV[1]!=6)) {
157 '127.0.0.1:9996', 'pflowproto', $ARGV[0]);
159 system('./gen_traffic '.$ARGV[1].' &');
161 if ($ARGV[0] == 9 && $ARGV[1] == 4) {
163 } elsif ($ARGV[0] == 9 && $ARGV[1] == 6) {
165 } elsif ($ARGV[0] == 10 && $ARGV[1] == 4) {
167 } elsif ($ARGV[0] == 10 && $ARGV[1] == 6) {
/openbsd-src/gnu/usr.bin/perl/cpan/Getopt-Long/t/
H A Dgol-linkage.t16 @ARGV = qw(-Foo -baR --foo bar);
24 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
25 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
28 @ARGV = qw(-Foo -baR --foo bar);
37 print ((@ARGV == 1) ? "" : "not ", "ok 14\n");
38 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 15\n");
43 @ARGV = qw(/Foo=-baR --bar bar);
52 print ((@ARGV == 1) ? "" : "not ", "ok 24\n");
53 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 25\n");
62 @ARGV = qw(/Foo=-baR);
[all …]
/openbsd-src/gnu/usr.bin/perl/Porting/
H A Dbisect.pl27 unshift @ARGV, '--help' if $bad || $usage;
28 unshift @ARGV, '--validate' if $validate;
31 unshift @ARGV, '--module', $module if defined $module;
32 unshift @ARGV, '--with-module', $with_module if defined $with_module;
38 unshift @ARGV, '--cpan-config-dir', $cpan_config_dir;
49 system $^X, $runner, '--check-args', '--check-shebang', @ARGV and exit 255;
74 unshift @ARGV, '--jobs', $jobs if defined $jobs;
75 unshift @ARGV, '--make', $make if defined $make;
115 unshift @ARGV, '--gold', defined $gold ? $gold : $stable[-1];
181 system $^X, $runner, '--check-args', @ARGV
[all …]
H A Dgit-find-p4-change6 die "usage: $0 [-c|--checkout] [git-log-options] changenum" unless @ARGV;
13 for (@ARGV) {
21 @ARGV = grep { defined } @ARGV;
30 if ( -t STDOUT or @ARGV ) {
31 system(qw(git log), $grep, "-$num", "--all", $before, @ARGV);
/openbsd-src/gnu/usr.bin/perl/vms/
H A Dgen_shrfls.pl40 if ($ARGV[0] eq '-f') {
41 open(INP,'<',$ARGV[1]) or die "Can't read input file $ARGV[1]: $!\n";
42 print "Input taken from file $ARGV[1]\n" if $debug;
43 @ARGV = ();
46 push(@ARGV,split(/\|/,$_));
49 print "Read input data | ",join(' | ',@ARGV)," |\n" if $debug > 1;
52 my $cc_cmd = shift @ARGV; # no longer used to run the preprocessor
93 my $objsuffix = shift @ARGV;
95 my $dbgprefix = shift @ARGV;
97 my $olbsuffix = shift @ARGV;
[all …]
H A Dmms2make.pl24 if ($#ARGV > -1 && $ARGV[0] =~ /^[\-\/]trim/i) {
26 shift @ARGV;
28 $infile = $#ARGV > -1 ? shift(@ARGV) : "Descrip.MMS";
29 $outfile = $#ARGV > -1 ? shift(@ARGV) : "Makefile";
32 foreach (@ARGV) { $macros{"\U$_"}=1 }
/openbsd-src/gnu/usr.bin/perl/t/io/
H A Dnargv.t21 local *ARGV;
24 @ARGV = mkfiles(1..3);
36 @ARGV = mkfiles(1..3);
52 @ARGV = mkfiles(1..3);
53 my $sidfile = $ARGV[1];
55 my $mode = (stat $ARGV[1])[2];
77 local *ARGV;
80 @ARGV = mkfiles(5, 4);
92 @ARGV = mkfiles(1 .. 10);
93 for my $file (@ARGV) {
/openbsd-src/regress/usr.bin/cvs/
H A Dsetdate.pl14 die "usage: setdate.pl file revision date\n" if ($#ARGV != 2);
16 open FILE, "< $ARGV[0]" or die "cannot open file $ARGV[0] for reading\n";
21 open FILE, "> $ARGV[0]" or die "cannot open file $ARGV[0] for writing\n";
25 s/$1/$ARGV[2]/;
30 $gotrev = 1 if (m/^$ARGV[1]\n$/);
/openbsd-src/regress/lib/libc/getopt_long/
H A Dtest.ok5 remaining ARGV: myfile
11 remaining ARGV: onefile twofile threefile
23 remaining ARGV: somefile
26 remaining ARGV: myfile --force -f infile -9
29 remaining ARGV: onefile twofile --best -Williterate -i foo.in threefile
41 remaining ARGV: somefile
47 remaining ARGV: myfile
53 remaining ARGV: onefile twofile threefile
65 remaining ARGV: somefile
68 remaining ARGV: myfile -force -f infile -9
[all …]
/openbsd-src/gnu/usr.bin/perl/t/
H A Dharness69 $Verbose++ while @ARGV && $ARGV[0] eq '-v' && shift;
76 if ($ARGV[0] && $ARGV[0] =~ /^-?-dumptests$/) {
81 if ($ARGV[0] && $ARGV[0] =~ /^-?-torture$/) {
92 # [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
93 @ARGV = grep $_ && length( $_ ) => @ARGV;
95 while ($ARGV[
[all...]
/openbsd-src/usr.bin/libtool/LT/Mode/
H A DInstall.pm41 my @argvcopy = @ARGV;
46 if (@ARGV < 2 && (!defined $install_opts{'d'} && @ARGV == 1)) {
51 if (@ARGV < 2) {
57 my @instopts = @argvcopy[0 .. (@argvcopy - @ARGV - 1)];
58 my $dst = pop @ARGV;
59 my @src = @ARGV;
94 LT::Exec->install(@$ltprog, @instopts, @ARGV);
/openbsd-src/gnu/usr.bin/perl/dist/Module-CoreList/
H A Dcorelist208 if ( !@ARGV ) {
220 if(@ARGV != 2) {
224 my ($old_ver, $new_ver) = @ARGV;
260 unless @ARGV;
269 utility_version($_) for @ARGV;
279 unless @ARGV;
307 for my $feature (@ARGV) {
318 if ( !@ARGV ) {
322 while (@ARGV) {
324 if ($ARGV[0] =~ /=/) {
[all …]

12345678910>>...16