diff options
author | hobbs <hobbs> | 2000-05-08 21:59:58 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2000-05-08 21:59:58 (GMT) |
commit | 09f4c1de476f86324d54f2e8c31a66870ce1c8bc (patch) | |
tree | 025da577bdce141098365ffb242ca0ae0be52104 /generic/tcl.decls | |
parent | 63adaf2eb6d8949c310ea3f93c699ed6dd1c8839 (diff) | |
download | tcl-09f4c1de476f86324d54f2e8c31a66870ce1c8bc.zip tcl-09f4c1de476f86324d54f2e8c31a66870ce1c8bc.tar.gz tcl-09f4c1de476f86324d54f2e8c31a66870ce1c8bc.tar.bz2 |
* doc/Utf.3:
* generic/tclStubInit.c:
* generic/tcl.decls:
* generic/tclDecls.h:
* generic/tclUtf.c: Added new functions Tcl_UniCharNcasecmp and
Tcl_UniCharCaseMatch (unicode parallel to Tcl_StringCaseMatch)
* generic/tclUtil.c: rewrote Tcl_StringCaseMatch algorithm for
optimization and made Tcl_StringMatch just call Tcl_StringCaseMatch
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 1f09cfa..39a6c21 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.34 2000/05/02 22:02:33 kupries Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.35 2000/05/08 21:59:58 hobbs Exp $ library tcl @@ -1379,6 +1379,14 @@ declare 400 generic { int Tcl_IsChannelExisting (CONST char* channelName) } +declare 401 generic { + int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *cs, CONST Tcl_UniChar *ct,\ + unsigned long n) +} +declare 402 generic { + int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *ustr, \ + CONST Tcl_UniChar *pattern, int nocase) +} ############################################################################## |