Home
last modified time | relevance | path

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

12345678910>>...47

/openbsd/src/usr.bin/compress/
Dgzexe28 typeset prog tmp
36 prog=`/usr/bin/basename "$0"`
38 /bin/echo "$prog: cannot create tmp dir"; exit 1
42 /usr/bin/gzip -dc > "$tmp/$prog" 2> /dev/null; then
43 /bin/chmod u+x "$tmp/$prog"
44 "$tmp/$prog" ${1+"$@"}
47 /bin/echo "$prog: cannot decompress $0"
62 echo "$prog: cannot create tmp file"
66 echo "$prog: cannot copy $1 to $tmp"
71 echo "$prog: cannot decompress $1"
[all …]
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"
79 echo "$prog: warning: could not keep mode of $filez"
81 echo "$prog: could not copy $tmp to $filegz"
87 echo -n "$prog: warning: could not keep timestamp of "
[all …]
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/src/gnu/usr.bin/perl/
Dregexp.h569 # define RXp_ISTAINTED(prog) 0 argument
571 # define RXp_MATCH_TAINTED(prog) 0 argument
573 # define RXp_MATCH_TAINTED_on(prog) NOOP argument
575 # define RXp_MATCH_TAINTED_off(prog) NOOP argument
579 # define RXp_ISTAINTED(prog) (RXp_EXTFLAGS(prog) & RXf_TAINTED) argument
581 # define RXp_MATCH_TAINTED(prog) (RXp_EXTFLAGS(prog) & RXf_TAINTED_SEEN) argument
583 # define RXp_MATCH_TAINTED_on(prog) (RXp_EXTFLAGS(prog) |= RXf_TAINTED_SEEN) argument
585 # define RXp_MATCH_TAINTED_off(prog) (RXp_EXTFLAGS(prog) &= ~RXf_TAINTED_SEEN) argument
589 # define RXp_HAS_CUTGROUP(prog) ((prog)->intflags & PREGf_CUTGROUP_SEEN) argument
595 # define RXp_MATCH_COPIED(prog) (RXp_EXTFLAGS(prog) & RXf_COPY_DONE) argument
[all …]
Dregexec.c850 Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, char *strend, in Perl_pregexec() argument
863 regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, NULL, in Perl_pregexec()
944 struct regexp *const prog = ReANY(rx); in Perl_re_intuit_start() local
945 SSize_t start_shift = prog->check_offset_min; in Perl_re_intuit_start()
952 U8 other_ix = 1 - prog->substrs->check_ix; in Perl_re_intuit_start()
956 const I32 multiline = prog->extflags & RXf_PMf_MULTILINE; in Perl_re_intuit_start()
957 RXi_GET_DECL(prog,progi); in Perl_re_intuit_start()
975 assert(prog->substrs->data[0].min_offset >= 0); in Perl_re_intuit_start()
976 assert(prog->substrs->data[0].max_offset >= 0); in Perl_re_intuit_start()
977 assert(prog->substrs->data[1].min_offset >= 0); in Perl_re_intuit_start()
[all …]
/openbsd/src/gnu/usr.bin/gcc/gcc/testsuite/lib/
Dold-dejagnu.exp46 proc process-option { prog option message flag_name pattern } {
51 set tmp [grep $prog "$option.*" line]
133 proc old-dejagnu { compiler prog name cflagsx default_cflags libs } {
198 set tmp [grep $prog "FIXME -.*"]
201 warning "[file tail [file dirname $prog]]/[file tail $prog] [lrange $i 2 end]"
206 set tmp [lindex [grep $prog "Special.*Options:.*"] 0]
224 set tmp [lindex [grep $prog "Additional sources: .*"] 0]
232 regsub -all " " $tmp " [file dirname $prog]/" tmp
240 set tmp [lindex [grep $prog "Additional files: .*"] 0]
245 regsub -all " " $tmp " [file dirname $prog]/" tmp
[all …]
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];
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];
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];
/openbsd/src/regress/bin/ksh/
Dth141 ($prog = $0) =~ s#.*/##;
144 Usage: $prog -p prog -s test-set [-v] [-C category] [-e e=v] test-name ...
209 die "$prog: no program specified (use -p)\n" if !defined $opt_p;
210 die "$prog: no test set specified (use -s)\n" if !defined $opt_s;
216 die "$prog: bad -t argument (should be number > 0): $opt_t\n"
225 die "$prog: categories can't be negated on the command line\n"
259 die "$prog: couldn't get current working directory\n" if $pwd eq '';
260 die "$prog: couldn't cd to $pwd - $!\n" if !chdir($pwd);
264 die "$prog: $test_prog is not executable - bye\n"
347 print STDERR "$prog: can't open directory $dir - $!\n";
[all …]
/openbsd/src/gnu/usr.bin/perl/lib/
Dperl5db.t100 my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
107 my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
115 my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
247 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);
684 my $wrapper = _calc_trace_wrapper({ prog => '../lib/perl5db/t/rt-104168' });
[all …]
/openbsd/src/gnu/usr.bin/perl/t/comp/
Dretainedlines.t54 my ($prog, $name) = @_;
56 my @expect_lines = (undef, map ({"$_\n"} split "\n", $prog), "\n", ';');
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');
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/B/t/
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)=()',
[all …]
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/src/gnu/llvm/clang/utils/analyzer/
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/src/sys/lib/libsa/
Drpc.c110 rpc_call(struct iodesc *d, u_int32_t prog, u_int32_t vers, u_int32_t proc, void *sdata, in rpc_call() argument
125 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
316 rpc_pmap_getcache(struct in_addr addr, u_int prog, u_int vers) in rpc_pmap_getcache() argument
322 pl->prog == prog && pl->vers == vers) in rpc_pmap_getcache()
329 rpc_pmap_putcache(struct in_addr addr, u_int prog, u_int vers, int port) in rpc_pmap_putcache() argument
347 pl->prog = prog; in rpc_pmap_putcache()
358 rpc_getport(struct iodesc *d, u_int32_t prog, u_int32_t vers) in rpc_getport() argument
[all …]
/openbsd/src/regress/usr.sbin/pkg_add/
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/src/usr.bin/which/
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/src/gnu/usr.bin/perl/t/mro/
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~
211 utf8::encode($prog);
213 $prog,
220 $prog = q~
[all …]
/openbsd/src/gnu/usr.bin/perl/t/uni/
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/src/gnu/usr.bin/perl/t/io/
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/src/gnu/usr.bin/perl/t/op/
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/src/gnu/usr.bin/perl/t/run/
Dswitches.t31 prog => 'print qq(<$_>) while <>',
38 prog => '1',
45 prog => '1',
52 prog => 'print qq(<$_>) while <>',
59 prog => 's/\n/-/g;$_.=q(/)',
66 prog => 's/\n/-/g;$_.=q(/)',
72 prog => 'BEGIN { print qq{($/)} } print qq{[$/]}',
80 prog => 'BEGIN { printf q<(%d)>, defined($/) } printf q<[%d]>, defined($/)',
262 is runperl(stderr => 1, prog => '#!perl -M'),
340 prog => 'die q{oops}' ),
[all …]
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',
/openbsd/src/regress/sys/net/pflow/
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 $!;

12345678910>>...47