Home
last modified time | relevance | path

Searched refs:pat (Results 1 – 25 of 138) sorted by relevance

123456

/mirbsd/src/lib/libc/string/
Dbm.c91 bm_pat *pat; in bm_comp() local
97 if ((pat = malloc(sizeof(*pat))) == NULL) in bm_comp()
99 pat->pat = NULL; in bm_comp()
100 pat->delta = NULL; in bm_comp()
102 pat->patlen = len; /* copy pattern */ in bm_comp()
103 if ((pat->pat = malloc(pat->patlen)) == NULL) in bm_comp()
105 memcpy(pat->pat, pb, pat->patlen); in bm_comp()
107 if ((pat->delta = malloc(256 * sizeof(*d))) == NULL) in bm_comp()
109 for (j = 0, d = pat->delta; j < 256; j++) in bm_comp()
110 d[j] = pat->patlen; in bm_comp()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/File/
DDosGlob.pm21 for my $pat (@_) {
27 next OUTER unless defined $pat and $pat ne '';
29 if ($pat =~ /^"(.*)"\z/s) {
30 $pat = $1;
31 if ($cond eq 'd') { push(@retval, $pat) if -d $pat }
32 else { push(@retval, $pat) if -e $pat }
37 if ($pat =~ m|^([A-Za-z]:)[^/\\]|s) {
40 if ($pat =~ m|^(.*)([\\/])([^\\/]*)\z|s) {
43 push (@retval, $pat), next OUTER if $tail eq '';
50 $pat = $tail;
[all …]
DDosGlob.t84 my $pat = ($^O eq 'MacOS') ? ':*:a*.t': '*/a*.t';
85 while (glob ($pat)) {
96 $pat = $^O eq 'MacOS' ? ':*:a*.t' : '*/a*.t';
97 while (glob($pat)) {
/mirbsd/src/gnu/usr.sbin/sendmail/libsm/
Dmatch.c45 sm_match(str, pat)
47 const char *pat; variable
55 switch (*pat)
62 ++pat;
66 ++pat;
67 if (*pat == '\0')
74 if (sm_match(pat, str))
82 ccstart = pat++;
84 if (*pat == '!')
87 ++pat;
[all …]
Dt-match.c17 #define try(str, pat, want) \ argument
18 got = sm_match(str, pat); \
22 str, pat, got ? "true" : "false");
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
Dsv_xpvf38 vnewSVpvf(pTHX_ const char *pat, va_list *args)
41 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
50 # define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo…
55 # define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo…
63 sv_catpvf_mg(pTHX_ SV *sv, const char *pat, ...)
66 va_start(args, pat);
67 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
81 sv_catpvf_mg_nocontext(SV *sv, const char *pat, ...)
85 va_start(args, pat);
86 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/File/Glob/
DGlob.pm120 my ($pat,$flags) = @_;
122 return doglob($pat,$flags);
137 my $pat = shift;
139 my @pat;
142 $pat = $_ unless defined $pat;
145 $pat =~ s/^\s+//; # Protect against empty elements in
146 $pat =~ s/\s+$//; # things like < *.c> and <*.c >.
148 if ($pat =~ /\s/) {
153 @pat = Text::ParseWords::parse_line('\s+',0,$pat);
162 if (@pat) {
[all …]
/mirbsd/src/gnu/usr.bin/perl/vms/ext/
DXSSymSet.pm42 my $pat = '([^_])';
43 if ($frac > 1) { $pat .= '[^A-Z_]{' . ($frac - 1) . '}'; }
44 $prefix =~ s/$pat/$1/g;
47 $pat =~ s/A-Z//;
48 $prefix =~ s/$pat/$1/g;
54 my $pat = '([^_])';
55 if ($frac > 1) { $pat .= '[^A-Z_]{' . ($frac - 1) . '}'; }
57 $squeezed =~ s/$pat/$1/g;
59 $pat =~ s/A-Z//;
60 $squeezed =~ s/$pat/$1/g;
[all …]
/mirbsd/src/gnu/usr.bin/perl/Porting/
DMaintainers.pm174 for my $pat (get_module_pat($module)) {
175 $ModuleByPat{$pat} = $module;
180 for my $pat (keys %ModuleByPat) {
181 if (-e $pat) {
182 $ExpModuleByPat{$pat} = $ModuleByPat{$pat};
184 for my $exp (glob($pat)) {
185 $ExpModuleByPat{$exp} = $ModuleByPat{$pat};
210 for my $pat (keys %ModuleByPat) {
212 if (-d $pat) {
215 if ($file =~ m|^$pat|i) {
[all …]
/mirbsd/src/gnu/usr.bin/perl/x2p/
Dutil.c165 fatal(const char *pat,...) in fatal() argument
170 va_start(args, pat); in fatal()
171 vfprintf(stderr,pat,args); in fatal()
174 fprintf(stderr,pat,a1,a2,a3,a4); in fatal()
183 warn(const char *pat,...) in warn() argument
188 va_start(args, pat); in warn()
189 vfprintf(stderr,pat,args); in warn()
192 fprintf(stderr,pat,a1,a2,a3,a4); in warn()
Ds2p.PL967 my( $del, $pat, $fl ) = @_;
972 $pat = substr( $pat, 1, length($pat) - 2 );
977 for( my $ic = 0; $ic < length( $pat ); $ic++ ){
978 my $c = substr( $pat, $ic, 1 );
981 my $nc = peek($pat,$ic);
1009 my $endpos = index( $pat, '\\}', $ic );
1014 my $rep = substr( $pat, $ic+1, $endpos-($ic+1) );
1054 if( peek($pat,$ic) =~ /[0-9]/ ){
1090 if( peek($pat,$ic) eq '^' ){
1094 my $nc = peek($pat,$ic);
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dregexp.t59 ($pat, $subject, $result, $repl, $expect, $reason) = split(/\t/,$_,6);
60 $input = join(':',$pat,$subject,$result,$repl,$expect);
61 infty_subst(\$pat);
63 $pat = "'$pat'" unless $pat =~ /^[:']/;
/mirbsd/src/usr.bin/make/
Dvarmodifiers.c360 const char *pat = (const char *)pattern; in VarMatch() local
362 if (Str_Matchi(word->s, word->e, pat, strchr(pat, '\0'))) { in VarMatch()
381 const char *pat = (const char *)pattern; in VarNoMatch() local
383 if (!Str_Matchi(word->s, word->e, pat, strchr(pat, '\0'))) { in VarNoMatch()
597 VarPattern *pat = (VarPattern *)patp; in VarSYSVMatch() local
602 if ((ptr = Str_SYSVMatch(word->s, pat->lhs, &len)) != NULL) in VarSYSVMatch()
603 Str_SYSVSubst(buf, pat->rhs, ptr, len); in VarSYSVMatch()
796 VarREError(int err, regex_t *pat, const char *str) in VarREError() argument
801 errlen = regerror(err, pat, 0, 0); in VarREError()
803 regerror(err, pat, errbuf, errlen); in VarREError()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Time/HiRes/
Dppport.h3699 static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
3702 extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
3714 DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args) in DPPP_()
3717 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); in DPPP_()
3726 # define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo… argument
3731 # define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo… argument
3737 static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
3740 extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
3748 DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...) in DPPP_()
3751 va_start(args, pat); in DPPP_()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Cwd/
Dppport.h3699 static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
3702 extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args);
3714 DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args) in DPPP_()
3717 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); in DPPP_()
3726 # define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo… argument
3731 # define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bo… argument
3737 static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
3740 extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
3748 DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...) in DPPP_()
3751 va_start(args, pat); in DPPP_()
[all …]
/mirbsd/src/gnu/usr.bin/perl/
Ddeb.c27 Perl_deb_nocontext(const char *pat, ...) in Perl_deb_nocontext() argument
32 va_start(args, pat); in Perl_deb_nocontext()
33 vdeb(pat, &args); in Perl_deb_nocontext()
40 Perl_deb(pTHX_ const char *pat, ...) in Perl_deb() argument
44 va_start(args, pat); in Perl_deb()
45 vdeb(pat, &args); in Perl_deb()
51 Perl_vdeb(pTHX_ const char *pat, va_list *args) in Perl_vdeb() argument
65 (void) PerlIO_vprintf(Perl_debug_log, pat, *args); in Perl_vdeb()
/mirbsd/src/usr.bin/lex/
Dparse.y87 int pat, scnum, eps, headcnt, trailcnt, anyccl, lastchar, i, rulelen; variable
123 pat = cclinit();
124 cclnegate( pat );
126 def_rule = mkstate( -pat );
228 pat = $2;
229 finish_rule( pat, variable_trail_rule,
237 pat );
249 pat );
264 pat = $1;
265 finish_rule( pat, variable_trail_rule,
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/File/Glob/t/
Dcase.t25 my $pat = $^O eq "MacOS" ? ":op:G*.t" : "op/G*.t";
29 @a = csh_glob($pat);
35 @a = csh_glob($pat); # None should be uppercase
40 @a = bsd_glob($pat, GLOB_NOCASE);
/mirbsd/src/gnu/usr.bin/perl/win32/
Dconfig_h.PL35 ($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
41 while ($pat =~ s/-e\s+'([^']*)'\s*//)
112 local ($data,$pat) = ($1,$2);
114 eval "\$data =~ $pat";
/mirbsd/src/gnu/usr.bin/perl/NetWare/
Dconfig_h.PL27 ($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
32 while ($pat =~ s/-e\s+'([^']*)'\s*//)
109 local ($data,$pat) = ($1,$2);
111 eval "\$data =~ $pat";
/mirbsd/src/gnu/usr.bin/perl/wince/
Dconfig_h.PL36 ($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
42 while ($pat =~ s/-e\s+'([^']*)'\s*//)
113 local ($data,$pat) = ($1,$2);
115 eval "\$data =~ $pat";
/mirbsd/src/usr.bin/ssh/
Dcompat.c63 const char *pat; in compat_datafellows() member
168 for (i = 0; check[i].pat; i++) { in compat_datafellows()
169 if (match_pattern_list(version, check[i].pat, in compat_datafellows()
170 strlen(check[i].pat), 0) == 1) { in compat_datafellows()
171 debug("match: %s pat %s", version, check[i].pat); in compat_datafellows()
Dmatch.c215 char *p, *pat; in match_user() local
221 pat = xstrdup(pattern); in match_user()
222 p = strchr(pat, '@'); in match_user()
225 if ((ret = match_pattern(user, pat)) == 1) in match_user()
227 xfree(pat); in match_user()
/mirbsd/src/gnu/usr.bin/perl/ext/Errno/
DErrno_pm.PL177 my $pat;
179 $pat = '^/\*\s+(.+)\s+\d+\s*:\s+\*/';
182 $pat = '^#\s*(?:line)?\s*\d+\s+"([^"]+)"';
186 if (/$pat/o) {
193 $file{$1} = 1 if /$pat/o;
/mirbsd/src/gnu/usr.sbin/sendmail/sendmail/
Dtrace.c145 char *pat, *endpat; local
148 pat = s;
169 sm_debug_addsetting_x(sm_strndup_x(pat, endpat - pat), level);

123456