Home
last modified time | relevance | path

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

12345678910>>...13

/freebsd/contrib/one-true-awk/testdir/
H A DT.argv10 printf "%s ", ARGV[i]
12 printf "%s", ARGV[i]
22 printf "%s", ARGV[i]
35 ARGV[ARGC-1] = ""
37 print ARGV[i]
103 $awk 'BEGIN { print ARGV[1] } { print ARGV[1] }' name=value foo0 >foo2
107 $awk 'BEGIN { print ARGV[1] + ARGV[2]}' 1 2.345 >foo2
108 diff foo1 foo2 || echo 'BAD: T.argv (ARGV[1] + ARGV[2])'
118 $awk 'BEGIN { ARGV[2] = "" }
122 diff foo4 foo5 || echo 'BAD: T.argv zap ARGV[2]'
[all …]
H A Du.main3 t = ARGV[0]; print "\n" t "\n"; system(t) # usage
4 t = ARGV[0] " -f"; print "\n" t "\n"; system(t) # no program file
5 t = ARGV[0] " -f /glop/glop"; print "\n" t "\n"; system(t) # program inaccessible
6 t = ARGV[0] " -zzz"; print "\n" t "\n"; system(t) # weird option
7 t = ARGV[0] " -F"; print "\n" t "\n"; system(t) # null FS
8 t = ARGV[0] " -F :"; print "\n" t "\n"; system(t) # field sep but no program
/freebsd/sys/tools/
H A Dfw_stub.awk59 if (ARGV[i] ~ /^-/) {
64 for (j = 2; j <= length(ARGV[i]); j++) {
65 o = substr(ARGV[i], j, 1);
67 if (length(ARGV[i]) > j) {
68 opt_c = substr(ARGV[i], j + 1);
73 opt_c = ARGV[i];
78 if (length(ARGV[i]) > j) {
79 opt_m = substr(ARGV[i], j + 1);
84 opt_m = ARGV[i];
89 if (length(ARGV[i]) > j) {
[all …]
/freebsd/crypto/openssl/util/
H A Dwrite-man-symlinks19 if ($#ARGV + 1 != 5 || $ARGV[0] !~ /^(un)?install$/) {
24 my $action = $ARGV[0];
25 my $srcdir = $ARGV[1];
26 my $builddir = $ARGV[2];
27 my $manname = $ARGV[3];
28 my $targetdir = $ARGV[4];
H A Dck_errf.pl48 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 Ddofile.pl40 . (scalar(@ARGV) > 0 ? " from " .join(", ", @ARGV) : "")
52 if defined($opts{i}) and scalar(@ARGV) == 0;
57 @ARGV
58 ? map { { TYPE => 'FILE', SOURCE => $_, FILENAME => $_ } } @ARGV
/freebsd/cddl/usr.sbin/dwatch/
H A Ddwatch555 [ $COUNT -gt 0 ] && ARGV="$ARGV -N $COUNT"
556 [ "$DEBUG" ] && ARGV="$ARGV -d"
557 [ "$DESTRUCTIVE_ACTIONS" ] && ARGV="$ARGV -w"
558 [ "$EXIT_AFTER_COMPILE" ] && ARGV="$ARGV -e"
559 [ "$GROUP" ] && ARGV="$ARGV -g $GROUP"
560 [ "$JID" ] && ARGV="$ARGV -j $JID"
561 [ $MAX_ARGS -ne $_MAX_ARGS ] && ARGV="$ARGV -B $MAX_ARGS"
562 [ $MAX_DEPTH -ne $_MAX_DEPTH ] && ARGV="$ARGV -K $MAX_DEPTH"
563 [ "$ONELINE" ] && ARGV="$ARGV -1"
564 [ "$PID" ] && ARGV="$ARGV -p $PID"
[all …]
/freebsd/crypto/openssl/ms/
H A Dcmp.pl9 ($#ARGV == 1) || die "usage: cmp.pl <file1> <file2>\n";
11 open(IN0,"<$ARGV[0]") || die "unable to open $ARGV[0]\n";
12 open(IN1,"<$ARGV[1]") || die "unable to open $ARGV[1]\n";
38 printf STDERR "$ARGV[0] and $ARGV[1] are different\n";
H A Duplink-x86_64.pl10 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
11 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
/freebsd/tools/tools/scsi-defects/
H A Dscsi-defects.pl43 &usage if $#ARGV < 0 || $#ARGV > 1;
47 $dev = $ARGV[0];
56 if ($#ARGV > 0) {
57 if ($ARGV[1] =~ /^[Gg]/) { $glist = 1; $plist = 0; }
58 elsif ($ARGV[1] =~ /^[Pp]/) { $glist = 0; $plist = 1; }
/freebsd/sys/dev/cxgb/
H A Dbin2h.pl3 if ($#ARGV != 1) {
8 my $success = open INPUT, "$ARGV[0]";
13 $success = open OUTPUT, ">$ARGV[1].h";
59 = stat($ARGV[0]);
64 print OUTPUT "static unsigned int $ARGV[1]_length = $size;\n";
65 print OUTPUT "static unsigned char $ARGV[1]" . "[$size]" . " = {\n";
/freebsd/crypto/openssl/crypto/modes/asm/
H A Daes-gcm-ppc.pl50 my $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
51 my $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
H A Dghash-riscv64-zvkg.pl54 my $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
55 my $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
/freebsd/crypto/openssl/crypto/objects/
H A Dobjects.pl18 my $YEAR = OpenSSL::copyright::latest(($0, $ARGV[1], $ARGV[0]));
20 open (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]";
33 { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; }
35 …{ die "$ARGV[1]:$o:There's already an object with name ",$Cname," on line ",$order{$nid{$Cname}},"…
43 open (IN,"$ARGV[0]") || die "Can't open input file $ARGV[0]";
196 { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; }
/freebsd/crypto/openssl/crypto/
H A Darmv4cpuid.pl12 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
13 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
H A Darm64cpuid.pl12 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
13 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
H A Driscv64cpuid.pl12 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
13 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
H A Driscv32cpuid.pl12 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
13 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
/freebsd/crypto/openssl/apps/
H A Dprogs.pl17 my $opt = shift @ARGV;
26 my $apps_openssl = shift @ARGV;
47 @ARGV = sort keys %commands;
67 foreach (@ARGV) {
72 foreach (@ARGV) {
123 foreach my $cmd ( @ARGV ) {
H A DCA.pl52 my $WHAT = shift @ARGV // "";
53 @ARGV = parse_extra(@ARGV);
336 my $cname = $ARGV[0];
359 my @files = @ARGV ? @ARGV : ( $NEWCERT );
368 my $cname = $ARGV[0];
374 @reason = ("-crl_reason", $ARGV[1])
375 if defined $ARGV[1] && crl_reason_ok($ARGV[1]);
H A Dtsget.in136 my @old_argv = @ARGV;
137 @ARGV = split /\s+/, $ENV{TSGET};
139 @ARGV = @old_argv;
144 if (!exists($options{h}) || (@ARGV == 0 && !exists($options{o}))
145 || (@ARGV > 1 && exists($options{o}))) {
150 @ARGV = ("-") unless @ARGV != 0;
156 REQUEST: foreach (@ARGV) {
/freebsd/crypto/openssl/crypto/md5/asm/
H A Dmd5-aarch64.pl18 my $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
19 my $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
/freebsd/crypto/krb5/src/util/
H A Dgen.pl23 my $orig_args = join(" ", @ARGV);
24 my $templatename = shift @ARGV || &usage;
25 my $outfile = shift @ARGV || &usage;
36 foreach $arg (@ARGV) {
/freebsd/cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/ip/
H A Dget.ipv4remote.pl45 my $port = @ARGV >= 1 ? $ARGV[0] : 0;
46 my $proto = @ARGV == 2 ? $ARGV[1] : "tcp";
/freebsd/contrib/sendmail/contrib/
H A DsocketmapClient.pl9 die "usage: $0 <connection> <mapname> <key> [<key2> ...]" if (@ARGV < 3);
11 my $connection = shift @ARGV;
12 my $mapname = shift @ARGV;
33 while(my $key = shift @ARGV) {

12345678910>>...13