mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
e54001d58b
This commit fixes various minor typos, punctuation errors and corrects the capitalization of many names.
299 lines
8 KiB
C
299 lines
8 KiB
C
/***********************************************************************
|
|
* *
|
|
* This software is part of the ast package *
|
|
* Copyright (c) 1985-2011 AT&T Intellectual Property *
|
|
* Copyright (c) 2020-2021 Contributors to ksh 93u+m *
|
|
* and is licensed under the *
|
|
* Eclipse Public License, Version 1.0 *
|
|
* by AT&T Intellectual Property *
|
|
* *
|
|
* A copy of the License is available at *
|
|
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
* *
|
|
* Information and Software Systems Research *
|
|
* AT&T Research *
|
|
* Florham Park NJ *
|
|
* *
|
|
* Glenn Fowler <gsf@research.att.com> *
|
|
* David Korn <dgk@research.att.com> *
|
|
* Phong Vo <kpv@research.att.com> *
|
|
* *
|
|
***********************************************************************/
|
|
#pragma prototyped
|
|
/*
|
|
* RE character class support
|
|
*/
|
|
|
|
#include "reglib.h"
|
|
|
|
struct Ctype_s; typedef struct Ctype_s Ctype_t;
|
|
|
|
struct Ctype_s
|
|
{
|
|
const char* name;
|
|
size_t size;
|
|
regclass_t ctype;
|
|
Ctype_t* next;
|
|
#if _lib_wctype
|
|
wctype_t wtype;
|
|
#endif
|
|
};
|
|
|
|
static Ctype_t* ctypes;
|
|
|
|
/*
|
|
* this stuff gets around pre-POSIX.1 failure to define isblank,
|
|
* and the fact that ctype functions are macros
|
|
* and any local extensions that may not even have functions or macros
|
|
*/
|
|
|
|
#if _need_iswblank
|
|
|
|
int
|
|
_reg_iswblank(wint_t wc)
|
|
{
|
|
static int initialized;
|
|
static wctype_t wt;
|
|
|
|
if (!initialized)
|
|
{
|
|
initialized = 1;
|
|
wt = wctype("blank");
|
|
}
|
|
return iswctype(wc, wt);
|
|
}
|
|
|
|
#endif
|
|
|
|
static int Isalnum(int c) { return iswalnum(c); }
|
|
static int Isalpha(int c) { return iswalpha(c); }
|
|
static int Isblank(int c) { return iswblank(c); }
|
|
static int Iscntrl(int c) { return iswcntrl(c); }
|
|
static int Isdigit(int c) { return iswdigit(c); }
|
|
static int Notdigit(int c) { return !iswdigit(c); }
|
|
static int Isgraph(int c) { return iswgraph(c); }
|
|
static int Islower(int c) { return iswlower(c); }
|
|
static int Isprint(int c) { return iswprint(c); }
|
|
static int Ispunct(int c) { return iswpunct(c); }
|
|
static int Isspace(int c) { return iswspace(c); }
|
|
static int Notspace(int c) { return !iswspace(c); }
|
|
static int Isupper(int c) { return iswupper(c); }
|
|
static int Isword(int c) { return iswalnum(c) || c == '_'; }
|
|
static int Notword(int c) { return !iswalnum(c) && c != '_'; }
|
|
static int Isxdigit(int c) { return iswxdigit(c);}
|
|
|
|
#if _lib_wctype
|
|
|
|
static int Is_wc_1(int);
|
|
static int Is_wc_2(int);
|
|
static int Is_wc_3(int);
|
|
static int Is_wc_4(int);
|
|
static int Is_wc_5(int);
|
|
static int Is_wc_6(int);
|
|
static int Is_wc_7(int);
|
|
static int Is_wc_8(int);
|
|
static int Is_wc_9(int);
|
|
static int Is_wc_10(int);
|
|
static int Is_wc_11(int);
|
|
static int Is_wc_12(int);
|
|
static int Is_wc_13(int);
|
|
static int Is_wc_14(int);
|
|
static int Is_wc_15(int);
|
|
static int Is_wc_16(int);
|
|
|
|
#endif
|
|
|
|
#define SZ(s) s,(sizeof(s)-1)
|
|
|
|
static Ctype_t ctype[] =
|
|
{
|
|
{ SZ("alnum"), Isalnum },
|
|
{ SZ("alpha"), Isalpha },
|
|
{ SZ("blank"), Isblank },
|
|
{ SZ("cntrl"), Iscntrl },
|
|
{ SZ("digit"), Isdigit },
|
|
{ SZ("graph"), Isgraph },
|
|
{ SZ("lower"), Islower },
|
|
{ SZ("print"), Isprint },
|
|
{ SZ("punct"), Ispunct },
|
|
{ SZ("space"), Isspace },
|
|
{ SZ("upper"), Isupper },
|
|
{ SZ("word"), Isword },
|
|
{ SZ("xdigit"),Isxdigit},
|
|
|
|
#define CTYPES 13
|
|
|
|
#if _lib_wctype
|
|
{ 0, 0, Is_wc_1 },
|
|
{ 0, 0, Is_wc_2 },
|
|
{ 0, 0, Is_wc_3 },
|
|
{ 0, 0, Is_wc_4 },
|
|
{ 0, 0, Is_wc_5 },
|
|
{ 0, 0, Is_wc_6 },
|
|
{ 0, 0, Is_wc_7 },
|
|
{ 0, 0, Is_wc_8 },
|
|
{ 0, 0, Is_wc_9 },
|
|
{ 0, 0, Is_wc_10 },
|
|
{ 0, 0, Is_wc_11 },
|
|
{ 0, 0, Is_wc_12 },
|
|
{ 0, 0, Is_wc_13 },
|
|
{ 0, 0, Is_wc_14 },
|
|
{ 0, 0, Is_wc_15 },
|
|
{ 0, 0, Is_wc_16 },
|
|
|
|
#define WTYPES 16
|
|
|
|
#else
|
|
|
|
#define WTYPES 0
|
|
|
|
#endif
|
|
};
|
|
|
|
#if _lib_wctype
|
|
|
|
static int Is_wc_1(int c) { return iswctype(c, ctype[CTYPES+0].wtype); }
|
|
static int Is_wc_2(int c) { return iswctype(c, ctype[CTYPES+1].wtype); }
|
|
static int Is_wc_3(int c) { return iswctype(c, ctype[CTYPES+2].wtype); }
|
|
static int Is_wc_4(int c) { return iswctype(c, ctype[CTYPES+3].wtype); }
|
|
static int Is_wc_5(int c) { return iswctype(c, ctype[CTYPES+4].wtype); }
|
|
static int Is_wc_6(int c) { return iswctype(c, ctype[CTYPES+5].wtype); }
|
|
static int Is_wc_7(int c) { return iswctype(c, ctype[CTYPES+6].wtype); }
|
|
static int Is_wc_8(int c) { return iswctype(c, ctype[CTYPES+7].wtype); }
|
|
static int Is_wc_9(int c) { return iswctype(c, ctype[CTYPES+8].wtype); }
|
|
static int Is_wc_10(int c) { return iswctype(c, ctype[CTYPES+9].wtype); }
|
|
static int Is_wc_11(int c) { return iswctype(c, ctype[CTYPES+10].wtype); }
|
|
static int Is_wc_12(int c) { return iswctype(c, ctype[CTYPES+11].wtype); }
|
|
static int Is_wc_13(int c) { return iswctype(c, ctype[CTYPES+12].wtype); }
|
|
static int Is_wc_14(int c) { return iswctype(c, ctype[CTYPES+13].wtype); }
|
|
static int Is_wc_15(int c) { return iswctype(c, ctype[CTYPES+14].wtype); }
|
|
static int Is_wc_16(int c) { return iswctype(c, ctype[CTYPES+15].wtype); }
|
|
|
|
#endif
|
|
|
|
/*
|
|
* return pointer to ctype function for :class:] in s
|
|
* s points to the first char after the initial [
|
|
* dynamic wctype classes are locale-specific
|
|
* dynamic entry locale is punned in Ctype_t.next
|
|
* the search does a lazy (one entry at a time) flush on locale mismatch
|
|
* if e!=0 it points to next char in s
|
|
* 0 returned on error
|
|
*/
|
|
|
|
regclass_t
|
|
regclass(const char* s, char** e)
|
|
{
|
|
register Ctype_t* cp;
|
|
register int c;
|
|
register size_t n;
|
|
register const char* t;
|
|
Ctype_t* lc;
|
|
Ctype_t* xp;
|
|
Ctype_t* zp;
|
|
|
|
if (!(c = *s++))
|
|
return 0;
|
|
for (t = s; *t && (*t != c || *(t + 1) != ']'); t++);
|
|
if (*t != c || !(n = t - s))
|
|
return 0;
|
|
for (cp = ctypes; cp; cp = cp->next)
|
|
if (n == cp->size && strneq(s, cp->name, n))
|
|
goto found;
|
|
xp = zp = 0;
|
|
lc = (Ctype_t*)setlocale(LC_CTYPE, NiL);
|
|
for (cp = ctype; cp < &ctype[elementsof(ctype)]; cp++)
|
|
{
|
|
#if _lib_wctype
|
|
if (!zp)
|
|
{
|
|
if (!cp->size)
|
|
zp = cp;
|
|
else if (!xp && cp->next && cp->next != lc)
|
|
xp = cp;
|
|
}
|
|
#endif
|
|
if (n == cp->size && strneq(s, cp->name, n) && (!cp->next || cp->next == lc))
|
|
goto found;
|
|
}
|
|
#if _lib_wctype
|
|
if (!(cp = zp))
|
|
{
|
|
if (!(cp = xp))
|
|
return 0;
|
|
cp->size = 0;
|
|
if (!streq(cp->name, s))
|
|
{
|
|
free((char*)cp->name);
|
|
cp->name = 0;
|
|
}
|
|
}
|
|
if (!cp->name)
|
|
{
|
|
if (!(cp->name = (const char*)memdup(s, n + 1)))
|
|
return 0;
|
|
*((char*)cp->name + n) = 0;
|
|
}
|
|
/* mvs.390 needs the (char*) cast -- barf */
|
|
if (!(cp->wtype = wctype((char*)cp->name)))
|
|
{
|
|
free((char*)cp->name);
|
|
cp->name = 0;
|
|
return 0;
|
|
}
|
|
cp->size = n;
|
|
cp->next = lc;
|
|
#endif
|
|
found:
|
|
if (e)
|
|
*e = (char*)t + 2;
|
|
return cp->ctype;
|
|
}
|
|
|
|
/*
|
|
* associate the ctype function fun with name
|
|
*/
|
|
|
|
int
|
|
regaddclass(const char* name, regclass_t fun)
|
|
{
|
|
register Ctype_t* cp;
|
|
register Ctype_t* np;
|
|
register size_t n;
|
|
|
|
n = strlen(name);
|
|
for (cp = ctypes; cp; cp = cp->next)
|
|
if (cp->size == n && strneq(name, cp->name, n))
|
|
{
|
|
cp->ctype = fun;
|
|
return 0;
|
|
}
|
|
if (!(np = newof(0, Ctype_t, 1, n + 1)))
|
|
return REG_ESPACE;
|
|
np->size = n;
|
|
np->name = strcpy((char*)(np + 1), name);
|
|
np->ctype = fun;
|
|
np->next = ctypes;
|
|
ctypes = np;
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* return pointer to ctype function for token
|
|
*/
|
|
|
|
regclass_t
|
|
classfun(int type)
|
|
{
|
|
switch (type)
|
|
{
|
|
case T_ALNUM: return Isword;
|
|
case T_ALNUM_NOT: return Notword;
|
|
case T_DIGIT: return Isdigit;
|
|
case T_DIGIT_NOT: return Notdigit;
|
|
case T_SPACE: return Isspace;
|
|
case T_SPACE_NOT: return Notspace;
|
|
}
|
|
return 0;
|
|
}
|