/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/regcustom.h
ViewVC logotype

Contents of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/regcustom.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 67 - (show annotations) (download)
Mon Oct 31 00:57:34 2016 UTC (6 years, 6 months ago) by dashley
File MIME type: text/plain
File size: 4130 byte(s)
Header and footer cleanup.
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 */

Properties

Name Value
svn:keywords Header

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25