/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | regexp.h | 90 #define RX_MATCH_TAINTED(prog) ((prog)->reganch & ROPT_TAINTED_SEEN) 91 #define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN) 92 #define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN) 93 #define RX_MATCH_TAINTED_set(prog, t) ((t) \ 94 ? RX_MATCH_TAINTED_on(prog) \ 95 : RX_MATCH_TAINTED_off(prog)) 97 #define RX_MATCH_COPIED(prog) ((pro [all...] |
H A D | regexec.c | 316 Perl_pregexec(pTHX_ register regexp *prog, char *stringarg, register char *strend, argument 324 regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, NULL, 329 S_cache_re(pTHX_ regexp *prog) argument 331 PL_regprecomp = prog->precomp; /* Needed for FAIL. */ 333 PL_regprogram = prog->program; 335 PL_regnpar = prog->nparens; 336 PL_regdata = prog->data; 337 PL_reg_re = prog; 387 Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, argument 405 RX_MATCH_UTF8_set(prog,do_utf 951 S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun) argument 1606 Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *strend, char *strbeg, I32 minend, SV *sv, void *data, U32 flags) argument 2068 S_regtry(pTHX_ regexp *prog, char *startpos) argument 2250 S_regmatch(pTHX_ regnode *prog) argument 4560 S_to_utf8_substr(pTHX_ register regexp *prog) argument 4584 S_to_byte_substr(pTHX_ register regexp *prog) argument [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | cpp.aux | 19 ($prog = <<'END') =~ s/X//g; 27 print TRY $prog;
|
H A D | hints.t | 69 prog => '$^H |= 0x20000; eval q{BEGIN { $^H |= 0x20000 }}',
|
/osnet-11/usr/src/lib/libnsl/yp/ |
H A D | yp_rsvd.c | 35 __yp_clnt_create_rsvdport_netid_req(const char *hostname, rpcprog_t prog, argument 53 return (clnt_create(hostname, prog, vers, nt)); 73 if (!rpcb_getaddr(prog, vers, nconf, svcaddr, hostname)) { 81 prog, vers, sendsz, recvsz)) == NULL) { 94 __yp_clnt_create_rsvdport(const char *hostname, rpcprog_t prog, argument 100 ret = __yp_clnt_create_rsvdport_netid_req(hostname, prog, 104 prog, vers, "udp", sendsz, recvsz); 107 return (__yp_clnt_create_rsvdport_netid_req(hostname, prog,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switchC.t | 26 prog => 'print chr(256)', 36 prog => 'print ord(<STDIN>)', 43 prog => 'warn chr(256), qq(\n)', 48 prog => 'open(F, q(>out)); print F chr(256); close F', 55 prog => 'open(F, q(<out)); print ord(<F>); close F', 60 prog => 'print ord shift',
|
H A D | switches.t | 32 prog => 'print qq(<$_>) while <>', 39 prog => '1', 46 prog => '1', 53 prog => 'print qq(<$_>) while <>', 60 prog => 's/\n/-/g;$_.=q(/)', 67 prog => 's/\n/-/g;$_.=q(/)', 73 prog => 'BEGIN { print qq{($/)} } print qq{[$/]}', 115 prog => 'print for qw/foo bar/' 123 prog => 'for (qw/abc def ghi/) {print defined $$_ ? $$_ : q(-)}', 158 prog [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | dumpvar.t | 53 my($prog, $expected) = split(/\nEXPECT\n?/, $_); 58 eval $prog; 62 ok(0, "$prog - $ERR"); 65 like($$out, $expected, $prog); 67 is($$out, $expected, $prog);
|
H A D | strict.t | 48 my($prog,$expected) = split(/\nEXPECT\n/, $_); 49 if ( $prog =~ /--FILE--/) { 50 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; 65 $prog = shift @files ; 66 $prog =~ s|\./abc|:abc|g if $^O eq 'MacOS'; 69 print TEST $prog,"\n"; 80 # allow expected output to be written as if $prog is on STDIN 92 print STDERR "PROG: $switch\n$prog\n";
|
H A D | subs.t | 29 my($prog,$expected) = split(/\nEXPECT\n/, $_); 30 if ( $prog =~ /--FILE--/) { 31 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; 45 $prog = shift @files ; 48 print TEST $prog,"\n"; 61 # allow expected output to be written as if $prog is on STDIN 74 print STDERR "PROG: $switch\n$prog\n";
|
H A D | warnings.t | 78 my($prog,$expected) = split(/\nEXPECT\n/, $_); 79 if ( $prog =~ /--FILE--/) { 80 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; 98 $prog = shift @files ; 103 $prog =~ s|require "./abc(d)?";|require ":abc$1";|g; 104 $prog =~ s|"\."|":"|g; 115 print TEST $prog,"\n"; 128 # allow expected output to be written as if $prog is on STDIN 180 print STDERR "PROG: $switch\n$prog\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | concise.t | 13 $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1); 33 prog => q{$a||=$b && print q/foo/},
|
H A D | lint.t | 14 my ($opts,$prog,$result,$testname) = @_; 17 prog => $prog,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/re/ |
H A D | re.xs | 13 extern I32 my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend, 17 extern char* my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos, 20 extern SV* my_re_intuit_string (pTHX_ regexp *prog);
|
/osnet-11/usr/src/lib/libnsl/rpc/ |
H A D | clnt_generic.c | 69 clnt_create_vers(const char *hostname, const rpcprog_t prog, argument 73 return (clnt_create_vers_timed(hostname, prog, vers_out, vers_low, 84 clnt_create_vers_timed(const char *hostname, const rpcprog_t prog, argument 94 clnt = clnt_create_timed(hostname, prog, vers_high, nettype, tp); 158 clnt_create(const char *hostname, const rpcprog_t prog, const rpcvers_t vers, argument 161 return (clnt_create_timed(hostname, prog, vers, nettype, NULL)); 173 clnt_create_timed(const char *hostname, const rpcprog_t prog, argument 204 if ((clnt = clnt_door_create(prog, vers, 0)) != NULL) 230 clnt = clnt_tp_create_timed(hostname, prog, vers, nconf, tp); 291 const rpcprog_t prog, cons 290 clnt_create_service_timed(const char *host, const char *service, const rpcprog_t prog, const rpcvers_t vers, const ushort_t port, const char *netclass, const struct timeval *tmout) argument 489 clnt_tp_create(const char *hostname, const rpcprog_t prog, const rpcvers_t vers, const struct netconfig *nconf) argument 502 clnt_tp_create_timed(const char *hostname, const rpcprog_t prog, const rpcvers_t vers, const struct netconfig *nconf, const struct timeval *tp) argument 576 clnt_tli_create(const int fd, const struct netconfig *nconf, struct netbuf *svcaddr, const rpcprog_t prog, const rpcvers_t vers, const uint_t sendsz, const uint_t recvsz) argument 594 _clnt_tli_create_timed(int fd, const struct netconfig *nconf, struct netbuf *svcaddr, rpcprog_t prog, rpcvers_t vers, uint_t sendsz, uint_t recvsz, const struct timeval *tp) argument [all...] |
H A D | rpc_soc.c | 73 clnt_com_create(struct sockaddr_in *raddr, rpcprog_t prog, rpcvers_t vers, argument 109 sport = pmap_getport(raddr, prog, vers, proto); 124 cl = clnt_tli_create(fd, nconf, &bindaddr, prog, vers, 154 clntudp_bufcreate(struct sockaddr_in *raddr, rpcprog_t prog, rpcvers_t vers, argument 159 cl = clnt_com_create(raddr, prog, vers, sockp, sendsz, recvsz, "udp"); 175 clnttcp_create(struct sockaddr_in *raddr, rpcprog_t prog, rpcvers_t vers, argument 178 return (clnt_com_create(raddr, prog, vers, sockp, sendsz, 183 clntraw_create(rpcprog_t prog, rpcvers_t vers) argument 185 return (clnt_raw_create(prog, vers)); 478 clnt_broadcast(rpcprog_t prog, rpcvers_ argument [all...] |
/osnet-11/usr/src/grub/grub2/build-bios/ccas_wrap/ |
H A D | ccas_wrap.c | 28 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, 157 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, argument 161 fprintf(stderr, "Error initting file actions for %s\n", prog); 166 fprintf(stderr, "Error setting dup2 file action for fd%d -> fd%d for %s\n", dup_src, dup_dest, prog); 171 fprintf(stderr, "Error setting close file action for fd%d for %s\n", fd0, prog); 176 fprintf(stderr, "Error setting close file action for fd%d for %s\n", dup_src, prog);
|
/osnet-11/usr/src/grub/grub2/build-uefi64/ccas_wrap/ |
H A D | ccas_wrap.c | 28 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, 157 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, argument 161 fprintf(stderr, "Error initting file actions for %s\n", prog); 166 fprintf(stderr, "Error setting dup2 file action for fd%d -> fd%d for %s\n", dup_src, dup_dest, prog); 171 fprintf(stderr, "Error setting close file action for fd%d for %s\n", fd0, prog); 176 fprintf(stderr, "Error setting close file action for fd%d for %s\n", dup_src, prog);
|
/osnet-11/usr/src/grub/grub2/ccas_wrap/ |
H A D | ccas_wrap.c | 28 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, 157 do_spawn_file_actions(const char *prog, posix_spawn_file_actions_t *file_actionsp, argument 161 fprintf(stderr, "Error initting file actions for %s\n", prog); 166 fprintf(stderr, "Error setting dup2 file action for fd%d -> fd%d for %s\n", dup_src, dup_dest, prog); 171 fprintf(stderr, "Error setting close file action for fd%d for %s\n", fd0, prog); 176 fprintf(stderr, "Error setting close file action for fd%d for %s\n", dup_src, prog);
|
/osnet-11/usr/src/lib/librdc/common/ |
H A D | llib-lrdc | 42 struct netbuf *get_addr(char *hostname, ulong_t prog, ulong_t vers,
|
/osnet-11/usr/src/lib/libast/common/path/ |
H A D | pathprog.c | 38 #include "FEATURE/prog" 41 prog(const char* command, char* path, size_t size) function 111 if ((n = prog(command, path, size)) > 0 && n < size && *path != '/' && (rel = strdup(path)))
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | ref.t | 309 prog => $lexical . 'BEGIN {$a = \q{pass}}; $a = $$a; print $a'); 331 prog=> 'print 1; print qq-*$\*-;print 1;'); 345 runperl(prog => 'sub UNIVERSAL::AUTOLOAD { qr// } a->p' ); 349 runperl(prog => 'sub UNIVERSAL::DESTROY { warn } bless \$a, A', stderr => 1); 356 runperl(prog => 'sub f { my $x = shift; *z = $x; } f({}); f();'); 364 prog => 'use Symbol;my $x=bless \gensym,"t"; print;*$$x=$x',
|
H A D | anonsub.t | 30 my($prog,$expected) = split(/\nEXPECT\n/, $_); 32 print TEST "$prog\n"; 45 # allow expected output to be written as if $prog is on STDIN 50 print STDERR "PROG: $switch\n$prog\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
H A D | test.pl | 344 # prog => one-liner (avoid quotes) 387 if (defined $args{prog}) { 388 die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where() 390 $args{progs} = [$args{prog}] 395 foreach my $prog (@{$args{progs}}) { 397 $runperl .= qq ( -e "$prog" ); 400 $runperl .= qq ( -e '$prog' ); 531 my($prog, $resolve, $runperl_args, $name) = @_; 541 $prog =~ s#/dev/null#NL:#; 544 $prog [all...] |
/osnet-11/usr/src/grub/grub-0.97/netboot/ |
H A D | nfs.h | 46 uint32_t prog; member in struct:rpc_t::__anon217::__anon218
|