Home
last modified time | relevance | path

Searched refs:prog (Results 1 – 25 of 1197) sorted by relevance

12345678910>>...48

/openbsd/usr.bin/compress/
H A Dgzexe28 typeset prog tmp
36 prog=`/usr/bin/basename "$0"`
43 /bin/chmod u+x "$tmp/$prog"
44 "$tmp/$prog" ${1+"$@"}
62 echo "$prog: cannot create tmp file"
66 echo "$prog: cannot copy $1 to $tmp"
71 echo "$prog: cannot decompress $1"
167 echo "$prog: cannot compress $1"
184 prog=`basename "$0"`
185 USAGE="usage: $prog [-d] file ..."
[all …]
H A Dznew41 echo "$prog: $filez does not exist"
45 echo "$prog: $filez is not a regular file"
49 echo "$prog: $filegz already exists"
54 echo "$prog: cannot create tmp file"
63 echo -n "$prog: $filez is smaller than $filegz"
69 echo "$prog: integrity check of $tmp failed"
76 echo "$prog: warning: could not keep mode of $filez"
81 echo "$prog: could not copy $tmp to $filegz"
92 echo "$prog: failed to process $filez"
98 prog=`basename "$0"`
[all …]
H A Dzdiff26 *cmp) prog=cmp
28 *) prog=diff
31 USAGE="usage: z$prog [options] file1 [file2]"
65 *) echo "z$prog: unknown suffix" 1>&2
68 compress -cdfq "$1" | $prog $flags - "$files"
84 tmp=`mktemp -t z$prog.XXXXXXXXXX` || exit 1
98 $filt | $prog $flags $files
100 $prog $flags $files
/openbsd/gnu/usr.bin/perl/
H A Dregexp.h572 # define RXp_ENGINE(prog) ((prog)->engine) argument
574 # define RXp_SUBBEG(prog) ((prog)->subbeg) argument
576 # define RXp_SUBOFFSET(prog) ((prog)->suboffset) argument
580 # define RXp_OFFSp(prog) ((prog)->offs) argument
590 # define RXp_NPARENS(prog) ((prog)->nparens) argument
592 # define RXp_SUBLEN(prog) ((prog)->sublen) argument
594 # define RXp_MINLEN(prog) ((prog)->minlen) argument
598 # define RXp_GOFS(prog) ((prog)->gofs) argument
606 # define RXp_SUBSTRS(prog) ((prog)->substrs) argument
608 # define RXp_PPRIVATE(prog) ((prog)->pprivate) argument
[all …]
H A Dregexec.c990 && (prog->float_utf8 || prog->float_substr)) in Perl_re_intuit_start()
1013 if ((!prog->anchored_utf8 && prog->anchored_substr) in Perl_re_intuit_start()
1014 || (!prog->float_utf8 && prog->float_substr)) in Perl_re_intuit_start()
1018 if (!prog->check_substr && prog->check_utf8) { in Perl_re_intuit_start()
1609 else if (prog->float_substr || prog->float_utf8) { in Perl_re_intuit_start()
1742 && (prog->check_utf8 == prog->float_utf8) in Perl_re_intuit_start()
1746 && (prog->check_substr == prog->float_substr) in Perl_re_intuit_start()
3611 RXp_SUBCOFFSET(prog) = RXp_SUBOFFSET(prog); in S_reg_set_capture_string()
3949 if (prog->check_substr || prog->check_utf8) { in Perl_regexec_flags()
3980 if ((prog->anchored_substr || prog->anchored_utf8) && prog->intflags & PREGf_SKIP) { in Perl_regexec_flags()
[all …]
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/lib/
H A Dold-dejagnu.exp51 set tmp [grep $prog "$option.*" line]
198 set tmp [grep $prog "FIXME -.*"]
201 warning "[file tail [file dirname $prog]]/[file tail $prog] [lrange $i 2 end]"
232 regsub -all " " $tmp " [file dirname $prog]/" tmp
245 regsub -all " " $tmp " [file dirname $prog]/" tmp
261 verbose "Will compile $prog to object" 3
264 set tmp [lindex [grep $prog "Build then link:"] 0]
276 verbose "Will compile $prog to binary" 3
279 set tmp [grep $prog "Skip if (|not )feature:.*"];
302 set tmp [grep $prog "Skip if (|not )target:.*"];
[all …]
H A Dg++-dg.exp24 proc g++-dg-test { prog do_what extra_tool_flags } {
30 set output_file "[file rootname [file tail $prog]].i"
34 set output_file "[file rootname [file tail $prog]].s"
38 set output_file "[file rootname [file tail $prog]].o"
42 set output_file "[file rootname [file tail $prog]].exe"
51 set output_file "./[file rootname [file tail $prog]].exe"
66 set comp_output [g++_target_compile "$prog" "$output_file" "$compile_type" $options];
H A Dgcc-dg.exp56 proc gcc-dg-test { prog do_what extra_tool_flags } {
62 set output_file "[file rootname [file tail $prog]].i"
66 set output_file "[file rootname [file tail $prog]].s"
70 set output_file "[file rootname [file tail $prog]].o"
74 set output_file "[file rootname [file tail $prog]].exe"
83 set output_file "./[file rootname [file tail $prog]].exe"
98 set comp_output [gcc_target_compile "$prog" "$output_file" "$compile_type" $options];
H A Dobjc-dg.exp58 proc objc-dg-test { prog do_what extra_tool_flags } {
64 set output_file "[file rootname [file tail $prog]].i"
68 set output_file "[file rootname [file tail $prog]].s"
72 set output_file "[file rootname [file tail $prog]].o"
76 set output_file "[file rootname [file tail $prog]].exe"
85 set output_file "./[file rootname [file tail $prog]].exe"
100 set comp_output [objc_target_compile "$prog" "$output_file" "$compile_type" $options];
H A Dg77-dg.exp56 proc g77-dg-test { prog do_what extra_tool_flags } {
62 set output_file "[file rootname [file tail $prog]].i"
66 set output_file "[file rootname [file tail $prog]].s"
70 set output_file "[file rootname [file tail $prog]].o"
74 set output_file "[file rootname [file tail $prog]].exe"
83 set output_file "./[file rootname [file tail $prog]].exe"
98 set comp_output [g77_target_compile "$prog" "$output_file" "$compile_type" $options];
/openbsd/regress/bin/ksh/
H A Dth141 ($prog = $0) =~ s#.*/##;
260 die "$prog: couldn't cd to $pwd - $!\n" if !chdir($pwd);
264 die "$prog: $test_prog is not executable - bye\n"
375 print STDERR "$prog: can't open $file - $!\n";
413 print STDERR "$prog: couldn't cd to $tempdir - $!\n";
469 print STDERR "$prog: can't fork - $!\n";
593 print STDERR "$prog: couldn't cd to $pwd - $!\n";
659 print STDERR "$prog: couldn't rmdir $file - $!\n";
664 print STDERR "$prog: couldn't unlink $file - $!\n";
678 print STDERR "$prog: can't open $file - $!\n";
[all …]
/openbsd/gnu/usr.bin/perl/lib/
H A Dperl5db.t247 my $prog = $args->{prog};
249 if (ref($prog) eq 'SCALAR') {
253 print $fh $$prog;
254 $prog = $fh->filename;
256 elsif (ref($prog) ne '' or !defined($prog)) {
260 $self->_prog($prog);
1049 prog => $prog_fn,
1133 prog => $prog_fn,
1197 prog => '../lib/perl5db/t/fact',
1215 prog => '../lib/perl5db/t/lsub-n',
[all …]
/openbsd/gnu/usr.bin/perl/t/comp/
H A Dretainedlines.t54 my ($prog, $name) = @_;
88 my $prog = "sub $name {
94 eval $prog or die;
95 check_retained_lines($prog, ord $sep);
101 my $prog = "sub $name {
110 eval $prog and die;
115 check_retained_lines($prog,
124 my $prog = "1 + 1 + 1\n";
129 is (eval $prog, 3, 'String eval works');
155 eval (my $prog = "BEGIN{die}\n");
[all …]
/openbsd/gnu/llvm/clang/utils/analyzer/
H A Dreducer.pl5 my $prog = "reducer";
7 die "$prog <code file> <error string> [optional command]\n" if ($#ARGV < 0);
9 die "$prog: [error] cannot read file $file\n" if (! -r $file);
12 die "$prog: [error] no error string specified\n" if (! defined $magic);
16 print "$prog: created temporary directory '$dir'\n";
22 open(OUT, ">$scriptFile") or die "$prog: cannot create '$scriptFile'\n";
53 print "$prog: starting reduction\n";
67 print "$prog: generated '$file.reduced";
/openbsd/sys/lib/libsa/
H A Drpc.c125 prog, vers, proc); in rpc_call()
128 port = rpc_getport(d, prog, vers); in rpc_call()
170 call->rp_prog = htonl(prog); in rpc_call()
309 u_int prog; /* host order */ member
322 pl->prog == prog && pl->vers == vers) in rpc_pmap_getcache()
347 pl->prog = prog; in rpc_pmap_putcache()
361 u_int32_t prog; /* call program */ in rpc_getport() member
387 if (prog == PMAPPROG) in rpc_getport()
391 port = rpc_pmap_getcache(d->destip, prog, vers); in rpc_getport()
396 args->prog = htonl(prog); in rpc_getport()
[all …]
/openbsd/gnu/usr.bin/perl/ext/B/t/
H A Doptree_varinit.t73 prog => 'my $a',
89 prog => 'our $a',
107 prog => 'local $c',
194 prog => 'my $a=undef',
214 prog => 'our $a=undef',
237 prog => 'local $c=undef',
315 prog => 'my $a=()',
333 prog => 'our $a=()',
354 prog => 'local $c=()',
376 prog => 'my ($a,$b)=()',
H A Doptree_specials.t34 prog => q{$a=$b && print q/foo/},
44 prog => $src,
284 prog => $src,
306 prog => $src,
328 prog => $src,
351 prog => $src,
373 prog => $src,
603 prog => 'print q/foo/',
/openbsd/regress/usr.sbin/pkg_add/
H A Dmy28 my $prog = "pkg_".(shift @ARGV);
31 if ($prog ne 'pkg_info') {
34 if ($prog eq 'pkg_add') {
40 unshift(@args, 'perl', '-d', "/usr/sbin/$prog", '-D', 'debug');
42 unshift(@args, $prog);
44 print STDERR join(' ', $prog, @ARGV), "\n" unless $ENV{'SILENT'} || $ENV{'VERBOSE'};
58 my $module = "OpenBSD::$choices->{$prog}";
/openbsd/usr.bin/which/
H A Dwhich.c95 findprog(char *prog, char *path, int progmode, int allmatches) in findprog() argument
103 if (strchr(prog, '/')) { in findprog()
104 if ((stat(prog, &sbuf) == 0) && S_ISREG(sbuf.st_mode) && in findprog()
105 access(prog, X_OK) == 0) { in findprog()
106 (void)puts(prog); in findprog()
109 warnx("%s: Command not found.", prog); in findprog()
126 len = snprintf(filename, sizeof(filename), "%s/%s", p, prog); in findprog()
128 warnc(ENAMETOOLONG, "%s/%s", p, prog); in findprog()
146 warnx("%s: Command not found.", prog); in findprog()
/openbsd/gnu/usr.bin/perl/t/mro/
H A Dpackage_aliases_utf8.t57 my $prog = q~
87 utf8::encode($prog);
89 $prog,
119 my $prog = q~
145 utf8::encode($prog);
148 $prog,
184 my $prog = q~
213 $prog,
220 $prog = q~
250 $prog,
[all …]
/openbsd/gnu/usr.bin/perl/t/uni/
H A Dlabels.t31 my $prog = 'last ＬＯＯＰ;';
34 eval $prog;
39 Encode::_utf8_off($prog);
40 evalbytes $prog;
61 my $prog = "redo L\N{LATIN CAPITAL LETTER A WITH ACUTE}BEL";
65 utf8::downgrade($prog);
70 eval $prog;
/openbsd/gnu/usr.bin/perl/t/io/
H A Dinplace.t16 runperl( prog => 'print qq(foo\n);',
29 is ( runperl( prog => 'print<>;', args => \@tfiles ),
33 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
41 runperl( prog => 'print qq(bar\n);',
58 is( runperl( prog => 'print<>;', args => \@my_ifiles ),
66 runperl( prog => 'print qq(bar\n);',
80 is( runperl( prog => 'print<>;', args => \@my_ifiles ),
101 runperl( prog => $code,
/openbsd/gnu/usr.bin/perl/t/op/
H A Ddbm.t18 my $prog = <<'EOC';
43 $prog =~ s/\@\@\@\@/$filename/;
45 fresh_perl_is("require AnyDBM_File;\n$prog", 'ok', {}, 'explicit require');
46 fresh_perl_is($prog, 'ok', {}, 'implicit require');
48 $prog = <<'EOC';
56 fresh_perl_like($prog, qr/No dbm on this machine/, {},
58 fresh_perl_like('delete $::{"AnyDBM_File::"}; ' . $prog,
/openbsd/regress/sys/net/pflow/
H A Dflow.pl58 my (@ifs, $prog);
59 open($prog, 'ifconfig |') or die $!;
60 while(<$prog>) {
64 close($prog) or die $!;
143 $error_ref, @elem_names, $prog, $line);
148 open($prog, '|pfctl -f -') or die $!;
149 print $prog gen_pf_conf(get_ifs());
150 close($prog) or die $!;
/openbsd/gnu/usr.bin/perl/t/run/
H A DswitchC.t24 prog => 'print chr(256)',
29 prog => 'print chr(256)',
39 prog => 'print ord(<STDIN>)',
46 prog => 'warn chr(256), qq(\n)',
51 prog => "open(F, q(>$tmpfile)); print F chr(256); close F",
56 prog => "open(F, q(<$tmpfile)); print ord(<F>); close F",
70 prog => "do q($scriptfile)",
75 prog => 'print ord shift',
116 prog => '1',

12345678910>>...48