summaryrefslogtreecommitdiffstats
path: root/generic/regc_locale.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/regc_locale.c')
-rw-r--r--generic/regc_locale.c57
1 files changed, 29 insertions, 28 deletions
diff --git a/generic/regc_locale.c b/generic/regc_locale.c
index 3374007..f6a10ed 100644
--- a/generic/regc_locale.c
+++ b/generic/regc_locale.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: regc_locale.c,v 1.9 2002/07/29 10:56:08 dkf Exp $
+ * RCS: @(#) $Id: regc_locale.c,v 1.10 2002/07/29 12:27:51 dkf Exp $
*/
/* ASCII character-name table */
@@ -526,8 +526,11 @@ static chr graphCharTable[] = {
*/
static int
nmcces(v)
- struct vars *v;
+ struct vars *v; /* context */
{
+ /*
+ * No multi-character collating elements defined at the moment.
+ */
return 0;
}
@@ -537,7 +540,7 @@ nmcces(v)
*/
static int
nleaders(v)
- struct vars *v;
+ struct vars *v; /* context */
{
return 0;
}
@@ -548,8 +551,8 @@ nleaders(v)
*/
static struct cvec *
allmcces(v, cv)
- struct vars *v;
- struct cvec *cv; /* this is supposed to have enough room */
+ struct vars *v; /* context */
+ struct cvec *cv; /* this is supposed to have enough room */
{
return clearcvec(cv);
}
@@ -560,9 +563,9 @@ allmcces(v, cv)
*/
static celt
element(v, startp, endp)
- struct vars *v;
- chr *startp; /* points to start of name */
- chr *endp; /* points just past end of name */
+ struct vars *v; /* context */
+ chr *startp; /* points to start of name */
+ chr *endp; /* points just past end of name */
{
struct cname *cn;
size_t len;
@@ -602,9 +605,9 @@ element(v, startp, endp)
*/
static struct cvec *
range(v, a, b, cases)
- struct vars *v;
- celt a;
- celt b; /* might equal a */
+ struct vars *v; /* context */
+ celt a; /* range start */
+ celt b; /* range end, might equal a */
int cases; /* case-independent? */
{
int nchrs;
@@ -658,10 +661,9 @@ range(v, a, b, cases)
- before - is celt x before celt y, for purposes of range legality?
^ static int before(celt, celt);
*/
-static int /* predicate */
+static int /* predicate */
before(x, y)
- celt x;
- celt y;
+ celt x, y; /* collating elements */
{
/* trivial because no MCCEs */
if (x < y) {
@@ -677,9 +679,10 @@ before(x, y)
*/
static struct cvec *
eclass(v, c, cases)
- struct vars *v;
- celt c;
- int cases; /* all cases? */
+ struct vars *v; /* context */
+ celt c; /* Collating element representing
+ * the equivalence class. */
+ int cases; /* all cases? */
{
struct cvec *cv;
@@ -712,7 +715,7 @@ eclass(v, c, cases)
*/
static struct cvec *
cclass(v, startp, endp, cases)
- struct vars *v;
+ struct vars *v; /* context */
chr *startp; /* where the name starts */
chr *endp; /* just past the end of the name */
int cases; /* case-independent? */
@@ -924,8 +927,8 @@ cclass(v, startp, endp, cases)
*/
static struct cvec *
allcases(v, pc)
- struct vars *v;
- pchr pc;
+ struct vars *v; /* context */
+ pchr pc; /* character to get case equivs of */
{
struct cvec *cv;
chr c = (chr)pc;
@@ -956,11 +959,10 @@ allcases(v, pc)
* stop at embedded NULs!
^ static int cmp(CONST chr *, CONST chr *, size_t);
*/
-static int /* 0 for equal, nonzero for unequal */
+static int /* 0 for equal, nonzero for unequal */
cmp(x, y, len)
- CONST chr *x;
- CONST chr *y;
- size_t len; /* exact length of comparison */
+ CONST chr *x, *y; /* strings to compare */
+ size_t len; /* exact length of comparison */
{
return memcmp(VS(x), VS(y), len*sizeof(chr));
}
@@ -973,11 +975,10 @@ cmp(x, y, len)
* stop at embedded NULs!
^ static int casecmp(CONST chr *, CONST chr *, size_t);
*/
-static int /* 0 for equal, nonzero for unequal */
+static int /* 0 for equal, nonzero for unequal */
casecmp(x, y, len)
- CONST chr *x;
- CONST chr *y;
- size_t len; /* exact length of comparison */
+ CONST chr *x, *y; /* strings to compare */
+ size_t len; /* exact length of comparison */
{
for (; len > 0; len--, x++, y++) {
if ((*x!=*y) && (Tcl_UniCharToLower(*x) != Tcl_UniCharToLower(*y))) {