|
/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/regcustom.h,v 1.1.1.1 2001/06/13 04:31:35 dtashley Exp $ */ |
|
|
|
|
|
/* |
|
|
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. |
|
|
* |
|
|
* Development of this software was funded, in part, by Cray Research Inc., |
|
|
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics |
|
|
* Corporation, none of whom are responsible for the results. The author |
|
|
* thanks all of them. |
|
|
* |
|
|
* Redistribution and use in source and binary forms -- with or without |
|
|
* modification -- are permitted for any purpose, provided that |
|
|
* redistributions in source form retain this entire copyright notice and |
|
|
* indicate the origin and nature of any modifications. |
|
|
* |
|
|
* I'd appreciate being given credit for this package in the documentation |
|
|
* of software which uses it, but that is not a requirement. |
|
|
* |
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, |
|
|
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY |
|
|
* AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL |
|
|
* HENRY SPENCER BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |
|
|
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
|
|
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; |
|
|
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
|
|
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
|
|
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF |
|
|
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
|
*/ |
|
|
|
|
|
/* headers if any */ |
|
|
#include "tclInt.h" |
|
|
|
|
|
/* overrides for regguts.h definitions, if any */ |
|
|
#define FUNCPTR(name, args) (*name) _ANSI_ARGS_(args) |
|
|
#define MALLOC(n) ckalloc(n) |
|
|
#define FREE(p) ckfree(VS(p)) |
|
|
#define REALLOC(p,n) ckrealloc(VS(p),n) |
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
* Do not insert extras between the "begin" and "end" lines -- this |
|
|
* chunk is automatically extracted to be fitted into regex.h. |
|
|
*/ |
|
|
/* --- begin --- */ |
|
|
/* ensure certain things don't sneak in from system headers */ |
|
|
#ifdef __REG_WIDE_T |
|
|
#undef __REG_WIDE_T |
|
|
#endif |
|
|
#ifdef __REG_WIDE_COMPILE |
|
|
#undef __REG_WIDE_COMPILE |
|
|
#endif |
|
|
#ifdef __REG_WIDE_EXEC |
|
|
#undef __REG_WIDE_EXEC |
|
|
#endif |
|
|
#ifdef __REG_REGOFF_T |
|
|
#undef __REG_REGOFF_T |
|
|
#endif |
|
|
#ifdef __REG_VOID_T |
|
|
#undef __REG_VOID_T |
|
|
#endif |
|
|
#ifdef __REG_CONST |
|
|
#undef __REG_CONST |
|
|
#endif |
|
|
#ifdef __REG_NOFRONT |
|
|
#undef __REG_NOFRONT |
|
|
#endif |
|
|
#ifdef __REG_NOCHAR |
|
|
#undef __REG_NOCHAR |
|
|
#endif |
|
|
/* interface types */ |
|
|
#define __REG_WIDE_T Tcl_UniChar |
|
|
#define __REG_REGOFF_T long /* not really right, but good enough... */ |
|
|
#define __REG_VOID_T VOID |
|
|
#define __REG_CONST CONST |
|
|
/* names and declarations */ |
|
|
#define __REG_WIDE_COMPILE TclReComp |
|
|
#define __REG_WIDE_EXEC TclReExec |
|
|
#define __REG_NOFRONT /* don't want regcomp() and regexec() */ |
|
|
#define __REG_NOCHAR /* or the char versions */ |
|
|
#define regfree TclReFree |
|
|
#define regerror TclReError |
|
|
/* --- end --- */ |
|
|
|
|
|
|
|
|
|
|
|
/* internal character type and related */ |
|
|
typedef Tcl_UniChar chr; /* the type itself */ |
|
|
typedef int pchr; /* what it promotes to */ |
|
|
typedef unsigned uchr; /* unsigned type that will hold a chr */ |
|
|
typedef int celt; /* type to hold chr, MCCE number, or NOCELT */ |
|
|
#define NOCELT (-1) /* celt value which is not valid chr or MCCE */ |
|
|
#define CHR(c) (UCHAR(c)) /* turn char literal into chr literal */ |
|
|
#define DIGITVAL(c) ((c)-'0') /* turn chr digit into its value */ |
|
|
#define CHRBITS 16 /* bits in a chr; must not use sizeof */ |
|
|
#define CHR_MIN 0x0000 /* smallest and largest chr; the value */ |
|
|
#define CHR_MAX 0xffff /* CHR_MAX-CHR_MIN+1 should fit in uchr */ |
|
|
|
|
|
/* functions operating on chr */ |
|
|
#define iscalnum(x) Tcl_UniCharIsAlnum(x) |
|
|
#define iscalpha(x) Tcl_UniCharIsAlpha(x) |
|
|
#define iscdigit(x) Tcl_UniCharIsDigit(x) |
|
|
#define iscspace(x) Tcl_UniCharIsSpace(x) |
|
|
|
|
|
/* name the external functions */ |
|
|
#define compile TclReComp |
|
|
#define exec TclReExec |
|
|
|
|
|
/* enable/disable debugging code (by whether REG_DEBUG is defined or not) */ |
|
|
#if 0 /* no debug unless requested by makefile */ |
|
|
#define REG_DEBUG /* */ |
|
|
#endif |
|
|
|
|
|
/* and pick up the standard header */ |
|
|
#include "regex.h" |
|
|
|
|
|
/* $History: regcustom.h $ |
|
|
* |
|
|
* ***************** Version 1 ***************** |
|
|
* User: Dtashley Date: 1/02/01 Time: 12:08a |
|
|
* Created in $/IjuScripter, IjuConsole/Source/Tcl Base |
|
|
* Initial check-in. |
|
|
*/ |
|
|
|
|
|
/* End of REGCUSTOM.H */ |
|
1 |
|
/* $Header$ */ |
2 |
|
/* |
3 |
|
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. |
4 |
|
* |
5 |
|
* Development of this software was funded, in part, by Cray Research Inc., |
6 |
|
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics |
7 |
|
* Corporation, none of whom are responsible for the results. The author |
8 |
|
* thanks all of them. |
9 |
|
* |
10 |
|
* Redistribution and use in source and binary forms -- with or without |
11 |
|
* modification -- are permitted for any purpose, provided that |
12 |
|
* redistributions in source form retain this entire copyright notice and |
13 |
|
* indicate the origin and nature of any modifications. |
14 |
|
* |
15 |
|
* I'd appreciate being given credit for this package in the documentation |
16 |
|
* of software which uses it, but that is not a requirement. |
17 |
|
* |
18 |
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, |
19 |
|
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY |
20 |
|
* AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL |
21 |
|
* HENRY SPENCER BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |
22 |
|
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
23 |
|
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; |
24 |
|
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
25 |
|
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
26 |
|
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF |
27 |
|
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
28 |
|
*/ |
29 |
|
|
30 |
|
/* headers if any */ |
31 |
|
#include "tclInt.h" |
32 |
|
|
33 |
|
/* overrides for regguts.h definitions, if any */ |
34 |
|
#define FUNCPTR(name, args) (*name) _ANSI_ARGS_(args) |
35 |
|
#define MALLOC(n) ckalloc(n) |
36 |
|
#define FREE(p) ckfree(VS(p)) |
37 |
|
#define REALLOC(p,n) ckrealloc(VS(p),n) |
38 |
|
|
39 |
|
|
40 |
|
|
41 |
|
/* |
42 |
|
* Do not insert extras between the "begin" and "end" lines -- this |
43 |
|
* chunk is automatically extracted to be fitted into regex.h. |
44 |
|
*/ |
45 |
|
/* --- begin --- */ |
46 |
|
/* ensure certain things don't sneak in from system headers */ |
47 |
|
#ifdef __REG_WIDE_T |
48 |
|
#undef __REG_WIDE_T |
49 |
|
#endif |
50 |
|
#ifdef __REG_WIDE_COMPILE |
51 |
|
#undef __REG_WIDE_COMPILE |
52 |
|
#endif |
53 |
|
#ifdef __REG_WIDE_EXEC |
54 |
|
#undef __REG_WIDE_EXEC |
55 |
|
#endif |
56 |
|
#ifdef __REG_REGOFF_T |
57 |
|
#undef __REG_REGOFF_T |
58 |
|
#endif |
59 |
|
#ifdef __REG_VOID_T |
60 |
|
#undef __REG_VOID_T |
61 |
|
#endif |
62 |
|
#ifdef __REG_CONST |
63 |
|
#undef __REG_CONST |
64 |
|
#endif |
65 |
|
#ifdef __REG_NOFRONT |
66 |
|
#undef __REG_NOFRONT |
67 |
|
#endif |
68 |
|
#ifdef __REG_NOCHAR |
69 |
|
#undef __REG_NOCHAR |
70 |
|
#endif |
71 |
|
/* interface types */ |
72 |
|
#define __REG_WIDE_T Tcl_UniChar |
73 |
|
#define __REG_REGOFF_T long /* not really right, but good enough... */ |
74 |
|
#define __REG_VOID_T VOID |
75 |
|
#define __REG_CONST CONST |
76 |
|
/* names and declarations */ |
77 |
|
#define __REG_WIDE_COMPILE TclReComp |
78 |
|
#define __REG_WIDE_EXEC TclReExec |
79 |
|
#define __REG_NOFRONT /* don't want regcomp() and regexec() */ |
80 |
|
#define __REG_NOCHAR /* or the char versions */ |
81 |
|
#define regfree TclReFree |
82 |
|
#define regerror TclReError |
83 |
|
/* --- end --- */ |
84 |
|
|
85 |
|
|
86 |
|
|
87 |
|
/* internal character type and related */ |
88 |
|
typedef Tcl_UniChar chr; /* the type itself */ |
89 |
|
typedef int pchr; /* what it promotes to */ |
90 |
|
typedef unsigned uchr; /* unsigned type that will hold a chr */ |
91 |
|
typedef int celt; /* type to hold chr, MCCE number, or NOCELT */ |
92 |
|
#define NOCELT (-1) /* celt value which is not valid chr or MCCE */ |
93 |
|
#define CHR(c) (UCHAR(c)) /* turn char literal into chr literal */ |
94 |
|
#define DIGITVAL(c) ((c)-'0') /* turn chr digit into its value */ |
95 |
|
#define CHRBITS 16 /* bits in a chr; must not use sizeof */ |
96 |
|
#define CHR_MIN 0x0000 /* smallest and largest chr; the value */ |
97 |
|
#define CHR_MAX 0xffff /* CHR_MAX-CHR_MIN+1 should fit in uchr */ |
98 |
|
|
99 |
|
/* functions operating on chr */ |
100 |
|
#define iscalnum(x) Tcl_UniCharIsAlnum(x) |
101 |
|
#define iscalpha(x) Tcl_UniCharIsAlpha(x) |
102 |
|
#define iscdigit(x) Tcl_UniCharIsDigit(x) |
103 |
|
#define iscspace(x) Tcl_UniCharIsSpace(x) |
104 |
|
|
105 |
|
/* name the external functions */ |
106 |
|
#define compile TclReComp |
107 |
|
#define exec TclReExec |
108 |
|
|
109 |
|
/* enable/disable debugging code (by whether REG_DEBUG is defined or not) */ |
110 |
|
#if 0 /* no debug unless requested by makefile */ |
111 |
|
#define REG_DEBUG /* */ |
112 |
|
#endif |
113 |
|
|
114 |
|
/* and pick up the standard header */ |
115 |
|
#include "regex.h" |
116 |
|
|
117 |
|
/* End of regcustom.h */ |