/macosx-10.10/tcl-105/tcl_ext/expect/expect/ |
H A D | exp_glob.c | 25 int nocase)); 32 Exp_StringCaseMatch(string, strlen, pattern, plen, nocase, offset) /* INTL */ 37 int nocase; 54 expDiagLog(" nocase=%d\n",nocase); 72 sm = Exp_StringCaseMatch2(string,stop,pattern,pstop,nocase); 101 ssm = Exp_StringCaseMatch2(s,stop,pattern,pstop,nocase); 126 Exp_StringCaseMatch2(string,stop,pattern,pstop,nocase) /* INTL */ 132 int nocase; 145 expDiagLog(" nocase [all...] |
/macosx-10.10/tcl-105/tcl_ext/expect/expect/example/ |
H A D | passmass | 128 expect -nocase -re "(login|username):.*" { 143 expect -nocase "password*" { 171 expect -nocase "password:" 179 expect -nocase -re "(old|existing login) password:.*" { 181 expect -nocase "sorry*" { 184 } -nocase "password:" 185 } -nocase -re "new password:" { 195 } -nocase -re "(password|verification|verify|again):.*" 197 expect -nocase -re "(not changed|incorrect|choose new).*" {
|
/macosx-10.10/tcl-105/tcl84/tcl/generic/ |
H A D | tclUtf.c | 1644 Tcl_UniCharCaseMatch(string, pattern, nocase) 1648 int nocase; /* 0 for case sensitive, 1 for insensitive */ 1685 if (nocase) { 1695 if (nocase) { 1704 if (Tcl_UniCharCaseMatch(string, pattern, nocase)) { 1735 ch1 = (nocase ? Tcl_UniCharToLower(*string) : *string); 1741 startChar = (nocase ? Tcl_UniCharToLower(*pattern) : *pattern); 1748 endChar = (nocase ? Tcl_UniCharToLower(*pattern) 1789 if (nocase) { 1825 TclUniCharMatch(string, strLen, pattern, ptnLen, nocase) [all...] |
H A D | tclUtil.c | 1212 Tcl_StringCaseMatch(string, pattern, nocase) 1216 int nocase; /* 0 for case sensitive, 1 for insensitive */ 1259 (nocase ? tolower(UCHAR(*pattern)) : UCHAR(*pattern)); 1262 if (nocase) { 1273 if (nocase) { 1296 if (Tcl_StringCaseMatch(string, pattern, nocase)) { 1329 (nocase ? tolower(UCHAR(*string)) : UCHAR(*string)); 1333 if (nocase) { 1343 (nocase ? tolower(UCHAR(*pattern)) : UCHAR(*pattern)); 1347 if (nocase) { [all...] |
/macosx-10.10/tcl-105/tcl/tcl/generic/ |
H A D | tclUtf.c | 1652 int nocase) /* 0 for case sensitive, 1 for insensitive */ 1692 if (nocase) { 1703 if (nocase) { 1714 if (Tcl_UniCharCaseMatch(uniStr, uniPattern, nocase)) { 1745 ch1 = (nocase ? Tcl_UniCharToLower(*uniStr) : *uniStr); 1751 startChar = (nocase ? Tcl_UniCharToLower(*uniPattern) 1759 endChar = (nocase ? Tcl_UniCharToLower(*uniPattern) 1800 if (nocase) { 1842 int nocase) /* 0 for case sensitive, 1 for insensitive */ 1885 if (nocase) { 1610 Tcl_UniCharCaseMatch( CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase) argument 1798 TclUniCharMatch( CONST Tcl_UniChar *string, int strLen, CONST Tcl_UniChar *pattern, int ptnLen, int nocase) argument [all...] |
H A D | tclCmdMZ.c | 101 "-nocase", "-start", "--", NULL 460 "-all", "-nocase", "-expanded", 559 int slen, nocase; 564 nocase = (cflags & TCL_REG_NOCASE); 565 strCmpFn = nocase ? Tcl_UniCharNcasecmp : Tcl_UniCharNcmp; 593 (nocase && Tcl_UniCharToLower(*wstring)==wsrclc)) && 1768 int nocase = 0, mapWithDict = 0, copySource = 0; 1774 Tcl_WrongNumArgs(interp, 1, objv, "?-nocase? charMap string"); 1782 strncmp(string, "-nocase", (size_t) length2) == 0) { 1783 nocase 556 int slen, nocase; local 1756 int nocase = 0, mapWithDict = 0, copySource = 0; local 2024 int nocase = 0; local 2492 int length1, length2, i, match, length, nocase = 0, reqlength = -1; local 2639 int length1, length2, i, match, length, nocase = 0, reqlength = -1; local [all...] |
H A D | tclUtil.c | 1355 int nocase) /* 0 for case sensitive, 1 for insensitive */ 1401 (nocase ? tolower(UCHAR(*pattern)) : UCHAR(*pattern)); 1404 if (nocase) { 1417 if (nocase) { 1441 if (Tcl_StringCaseMatch(str, pattern, nocase)) { 1474 (nocase ? tolower(UCHAR(*str)) : UCHAR(*str)); 1478 if (nocase) { 1487 startChar = (Tcl_UniChar) (nocase 1492 if (nocase) { 1502 endChar = (Tcl_UniChar) (nocase 1337 Tcl_StringCaseMatch( CONST char *str, CONST char *pattern, int nocase) argument [all...] |
/macosx-10.10/ksh-23/ksh/src/cmd/ksh93/edit/ |
H A D | completion.c | 65 static int charcmp(int a, int b, int nocase) argument 67 if(nocase) 82 static char *overlaid(register char *str,register const char *newstr,int nocase) argument 85 while((c= *(unsigned char *)str) && ((d= *(unsigned char*)newstr++),charcmp(c,d,nocase))) 304 int nocase=0,narg,cmd_completion=0; local 370 nocase = (strchr(saveout,'c')!=0); 420 out = overlaid(begin,path_basename(*com++),nocase); 422 out = overlaid(begin,*com++,nocase);
|
/macosx-10.10/sudo-73/src/ |
H A D | fnmatch.c | 160 const int nocase = !!(flags & FNM_CASEFOLD); local 202 if (classmatch(*pattern, **string, nocase, pattern) 228 else if (nocase && (isupper((unsigned char)**string) || 242 else if (nocase && (isupper((unsigned char)**string) || 270 else if (nocase && (isupper((unsigned char)**string) || isupper((unsigned char)**pattern))
|
/macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/snit/ |
H A D | validate.tcl | 564 # -nocase 0|1 566 # globs and regexps are case-insensitive if -nocase 1. 568 option -nocase -readonly 1 -default 0 620 # NEXT, validate -nocase 621 if {[catch {snit::boolean validate $options(-nocase)} result]} { 622 return -code error "invalid -nocase: $result" 663 if {$options(-nocase)} { 664 set result [string match -nocase $options(-glob) $value] 677 if {$options(-nocase)} { 678 set result [regexp -nocase [all...] |
/macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/dns/ |
H A D | resolv.tcl | 104 if { [string match -nocase "nameserver" $e] } { 106 if { [string match -nocase "UnKnown" $hostname] } {
|
/macosx-10.10/tcl-105/tcl_ext/xotcl/xotcl/apps/comm/ |
H A D | link-checker.xotcl | 74 if {![regexp -nocase {http://([^/:]+)} $url _ host]} { 91 if {[regexp -nocase {[.](gif|jpg|ps|pdf|gz)$} $url]} { 115 while {[regexp -nocase -indices -start $start -- \ 121 if {[regexp -nocase $ref($elem)$ref_re $attribs _ i]} {
|
/macosx-10.10/apr-32/apr/apr/strings/ |
H A D | apr_fnmatch.c | 77 const int nocase = !!(flags & APR_FNM_CASE_BLIND); local 138 else if (nocase && (isupper(**string) || isupper(*startch) 151 else if (nocase && (isupper(**string) || isupper(**pattern)) 178 else if (nocase && (isupper(**string) || isupper(**pattern))
|
/macosx-10.10/tcl-105/tcl_ext/incrtcl/iwidgets/generic/ |
H A D | regexpfield.itk | 60 itk_option define -nocase nocase Nocase 0 242 # OPTION: -nocase 247 itcl::configbody iwidgets::Regexpfield::nocase { 249 switch $itk_option(-nocase) { 255 error "bad nocase option \"$itk_option(-nocase)\":\ 437 # If the value of the "-nocase" option is true, then add the 438 # "-nocase" flag to the list of flags. 442 if {$itk_option(-nocase)} { [all...] |
/macosx-10.10/tcl-105/tcl/tcl/library/http1.0/ |
H A D | http.tcl | 121 if {! [regexp -nocase {^(http://)?([^/:]+)(:([0-9]+))?(/.*)?$} $url \ 224 if {![regexp -nocase ^text $state(type)]} { 238 if {[regexp -nocase {^content-type:(.+)$} $line x type]} { 241 if {[regexp -nocase {^content-length:(.+)$} $line x length]} { 244 if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} {
|
/macosx-10.10/tcl-105/tcl84/tcl/library/http1.0/ |
H A D | http.tcl | 121 if {! [regexp -nocase {^(http://)?([^/:]+)(:([0-9]+))?(/.*)?$} $url \ 224 if {![regexp -nocase ^text $state(type)]} { 238 if {[regexp -nocase {^content-type:(.+)$} $line x type]} { 241 if {[regexp -nocase {^content-length:(.+)$} $line x length]} { 244 if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} {
|
/macosx-10.10/tcl-105/tcl_ext/sdx/sdx/lib/app-sdx/ |
H A D | fetch.tcl | 78 if {[regexp -nocase ^location$ $name]} {
|
/macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/bibtex/ |
H A D | bibtex.tcl | 360 if {[regexp -nocase {\s*comment([^\n])*\n(.*)} $block \ 366 } elseif {[regexp -nocase {\s*string[^\{]*\{(.*)\}[^\}]*} \ 371 } elseif {[regexp -nocase {\s*preamble[^\{]*\{(.*)\}[^\}]*} \ 378 set rest [string map -nocase $data($token,strings) $rest]
|
/macosx-10.10/tcl-105/tcl84/tcl/library/http/ |
H A D | http.tcl | 807 if {$state(-binary) || ![string match -nocase text* $state(type)] 834 if {[regexp -nocase {^content-type:(.+)$} $line x type]} { 837 regexp -nocase {charset\s*=\s*(\S+)} $type x state(charset) 839 if {[regexp -nocase {^content-length:(.+)$} $line x length]} { 842 if {[regexp -nocase {^content-encoding:(.+)$} $line x coding]} { 845 if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} {
|
/macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/smtpd/ |
H A D | smtpd.tcl | 565 set r [regexp -nocase {^HELO\s+([-\w\.]+)\s*$} $line -> domain] 593 set r [regexp -nocase {^EHLO\s+([-\w\.]+)\s*$} $line -> domain] 616 set r [regexp -nocase {^MAIL FROM:\s*(.*)} $line -> from] 669 set r [regexp -nocase {^RCPT TO:\s*(.*)} $line -> to] 690 if {[string match -nocase "postmaster" $addr(local)]} { 824 regexp -nocase {^NOOP (.*)$} -> str
|
/macosx-10.10/tcl-105/tcl_ext/bwidget/bwidget/ |
H A D | xpm2image.tcl | 64 if { [string equal -nocase $color "none"] } {
|
/macosx-10.10/tcl-105/tcl_ext/tklib/tklib/examples/widget/ |
H A D | screenruler.tcl | 87 if {![regexp -nocase $re $file -> ext]} {
|
/macosx-10.10/tcl-105/tcl/tcl/library/http/ |
H A D | http.tcl | 680 if {[string equal -nocase $key "host"]} { 683 if {[string equal -nocase $key "accept-encoding"]} { 688 if {[string equal -nocase $key "content-length"]} { 1007 $state(-binary) || ![string match -nocase text* $state(type)] 1031 if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} { 1036 if {[regexp -nocase \ 1041 regexp -nocase {charset\s*=\s*(\S+?);?} \
|
/macosx-10.10/tcl-105/tcl_ext/tcllib/tcllib/modules/ldap/ |
H A D | ldapx.tcl | 689 if {[string equal -nocase $newdn $olddn]} then { 713 if {! [string equal -nocase $osup $nsup]} then { 723 if {! [string equal -nocase $ordn $nrdn]} then { 792 if {[regexp -expanded -nocase "^$utf8yes$" $attr]} then { 794 if {[regexp -expanded -nocase "^$utf8no$" $attr]} then { 1607 if {[string equal -nocase [lindex $r 0] "version"]} then {
|
/macosx-10.10/tcl-105/tcl_ext/tclvfs/tclvfs/http2.6/ |
H A D | http.tcl | 692 if {[string equal -nocase $key "host"]} { continue } 693 if {[string equal -nocase $key "accept-encoding"]} { 698 if {[string equal -nocase $key "content-length"]} { 999 if {$state(-binary) || ![string match -nocase text* $state(type)]} { 1018 if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} { 1023 regexp -nocase {charset\s*=\s*(\S+?);?} \
|