| /titanic_41/usr/src/tools/scripts/ |
| H A D | wdiff.pl | 38 if ($#ARGV + 1 == 1) {
39 $diffword = $ARGV[0];
41 $ARGV[0] = '-';
42 $ARGV[1] = '-';
43 } elsif ($#ARGV + 1 == 2) {
44 open DIFF, "diff -D $diffword $ARGV[0] $ARGV[1] | expand |";
50 $title = $opt_t ? $opt_t : "Differences between $ARGV[0] and $ARGV[1]";
206 print "<pre><span class='subtracted'> --- $ARGV[0]
207 </span><span class='added'> +++ $ARGV[1]
|
| H A D | validate_flg.pl | 137 die "$0: missing argument for $_\n" if $#ARGV == -1;
138 $arg = shift @ARGV;
147 while ($#ARGV >= 0) {
148 $_ = $ARGV[0];
150 shift @ARGV;
168 if ($#ARGV == 0) {
169 $basedir = shift @ARGV;
170 } elsif ($#ARGV > 0) {
|
| H A D | validate_paths.pl | 135 die "$0: missing argument for $_\n" if $#ARGV == -1;
136 $arg = shift @ARGV;
145 while ($#ARGV >= 0) {
146 $_ = $ARGV[0];
148 shift @ARGV;
194 if ($#ARGV < 0) {
197 foreach $file (@ARGV) {
|
| H A D | find_elf.pl | 323 @SaveArgv = @ARGV;
324 if ((getopts('afrs', \%opt) == 0) || (scalar(@ARGV) != 1)) {
338 my $Arg = $ARGV[0];
|
| H A D | interface_check.pl | 416 @SaveArgv = @ARGV;
417 if ((getopts('c:E:e:f:hIi:ow:', \%opt) == 0) || (!$opt{f} && ($#ARGV == -1))) {
490 foreach my $Arg (@ARGV) {
|
| H A D | genoffsets.pl | 118 usage() if (@ARGV < 1);
125 my ($cc, @cflags) = @ARGV;
|
| /titanic_41/usr/src/cmd/sgs/tools/ |
| H A D | lint_hdr.pl | 69 die $usage if (scalar(@ARGV) == 0);
70 while ($_ = $ARGV[0],/^-/) {
83 $argc = scalar(@ARGV);
85 $target = $ARGV[0];
86 $elfclass = ($argc == 2) ? "Elf$ARGV[1] - " : '';
|
| H A D | libconv_mk_report_bufsize.pl | 47 ((scalar(@ARGV) == 1) && (($limit = int($ARGV[0])) > 0)) ||
|
| /titanic_41/usr/src/tools/depcheck/ |
| H A D | make_pkg_db | 68 while (@ARGV) {
69 $arg = shift (@ARGV);
74 while (($ARGV[0] !~ /^-/) && (@ARGV)){
75 push (@IFiles, shift(@ARGV));
78 $DBDir = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
80 $PKGDefs = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
|
| H A D | get_depend_info | 91 while (@ARGV) {
92 $arg = shift (@ARGV);
97 $DBDir = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
110 $PKGName = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
112 $Root = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
|
| /titanic_41/usr/src/cmd/xargs/ |
| H A D | xargs.c | 100 static char **ARGV = arglist; variable
346 *ARGV++ = addarg(cmdname); /* use the default cmd. */ in main()
369 psave->p_ARGV = ARGV; in main()
373 *ARGV++ = addarg(*mav++); in main()
379 initlist = ARGV; in main()
386 ARGV = initlist; in main()
425 *ARGV++ = arg; in main()
435 if ((ARGV - arglist) == MAXARGS) { in main()
440 *ARGV = NULL; in main()
451 ARGV--; in main()
[all …]
|
| /titanic_41/usr/src/cmd/sgs/packages/common/ |
| H A D | readme_revision | 70 while ((scalar(@ARGV) > 0) && ($_ = $ARGV[0],/^-/)) {
85 $cnt = scalar @ARGV;
93 $readme = $ARGV[0];
|
| /titanic_41/usr/src/cmd/stat/arcstat/ |
| H A D | arcstat.pl | 157 if (defined $ARGV[0] && defined $ARGV[1]) {
158 $int = $ARGV[0];
159 $count = $ARGV[1];
160 } elsif (defined $ARGV[0]) {
161 $int = $ARGV[0];
|
| /titanic_41/usr/src/uts/i86pc/io/dr/ |
| H A D | sbdgenerr.pl | 36 while ($#ARGV >= 0) {
37 $prefix{$ARGV[0]} = 0;
38 shift @ARGV;
|
| /titanic_41/usr/src/lib/cfgadm_plugins/sbd/ |
| H A D | sbdgenerr.pl | 39 while ($#ARGV >= 0) {
40 $prefix{$ARGV[0]} = 0;
41 shift @ARGV;
|
| /titanic_41/usr/src/uts/sun4u/ngdr/io/ |
| H A D | sbdgenerr.pl | 39 while ($#ARGV >= 0) {
40 $prefix{$ARGV[0]} = 0;
41 shift @ARGV;
|
| /titanic_41/usr/src/cmd/projadd/ |
| H A D | projdel.pl | 79 usage(gettext('Invalid command-line arguments')) if (@ARGV != 1);
80 usage(gettext('No project name specified')) if (! defined($ARGV[0]));
82 my $pname = $ARGV[0];
|
| H A D | projadd.pl | 103 usage(gettext('Invalid command-line arguments')) if (@ARGV != 1);
104 usage(gettext('No project name specified')) if (! defined($ARGV[0]));
108 $pname = $ARGV[0];
|
| /titanic_41/usr/src/cmd/sgs/tools/common/ |
| H A D | sgsmsg_piglatin_nl.pl | 66 die "usage: $script start_index\n" if ($ARGV[0] eq '');
67 $lineno = int($ARGV[0]);
|
| /titanic_41/usr/src/cmd/auditrecord/ |
| H A D | mkmsg.pl | 45 unless ($#ARGV == 1) {
49 my $textDomain = $ARGV[0];
50 my $poFile = $ARGV[1];
|
| /titanic_41/usr/src/grub/grub-0.97/docs/ |
| H A D | help2man | 76 die $help_info unless @ARGV == 1;
165 join '', map { s/ +$//; expand $_ } `$ARGV[0] --$_ 2>/dev/null`
166 or die "$this_program: can't get `--$_' info from $ARGV[0]\n"
170 (my $program = $ARGV[0]) =~ s!.*/!!;
|
| /titanic_41/usr/src/cmd/rcm_daemon/common/ |
| H A D | SUNW,vdevices.pl | 93 my $rsrc = shift(@ARGV);
124 $cmd = shift(@ARGV);
|
| /titanic_41/usr/src/cmd/dtrace/test/tst/common/ip/ |
| H A D | get.ipv4remote.pl | 43 my $tcpport = @ARGV == 1 ? $ARGV[0] : 0;
|
| /titanic_41/usr/src/lib/libshell/common/tests/ |
| H A D | builtins.sh | 381 ((n++)); ARGC[$n]=1 ARGV[$n]=""
382 ((n++)); ARGC[$n]=2 ARGV[$n]="-a"
383 ((n++)); ARGC[$n]=4 ARGV[$n]="-a -v 2"
384 ((n++)); ARGC[$n]=4 ARGV[$n]="-a -v 2 x"
385 ((n++)); ARGC[$n]=4 ARGV[$n]="-a -v 2 x y"
387 do set -- ${ARGV[$i]}
|
| /titanic_41/usr/src/cmd/dtrace/demo/ |
| H A D | mkdemo.pl | 223 if (basename($ARGV[0]) ne "$htmlfile") {
224 demo_find(basename($ARGV[0]));
|