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

Annotation of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclregexp.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (hide annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (7 years, 5 months ago) by dashley
Original Path: projs/trunk/shared_source/tcl_base/tclregexp.h
File MIME type: text/plain
File size: 2107 byte(s)
Move shared source code to commonize.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclregexp.h,v 1.1.1.1 2001/06/13 04:45:39 dtashley Exp $ */
2    
3     /*
4     * tclRegexp.h --
5     *
6     * This file contains definitions used internally by Henry
7     * Spencer's regular expression code.
8     *
9     * Copyright (c) 1998 by Sun Microsystems, Inc.
10     * Copyright (c) 1998-1999 by Scriptics Corporation.
11     *
12     * See the file "license.terms" for information on usage and redistribution
13     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14     *
15     * RCS: @(#) $Id: tclregexp.h,v 1.1.1.1 2001/06/13 04:45:39 dtashley Exp $
16     */
17    
18     #ifndef _TCLREGEXP
19     #define _TCLREGEXP
20    
21     #include "regex.h"
22    
23     #ifdef BUILD_tcl
24     # undef TCL_STORAGE_CLASS
25     # define TCL_STORAGE_CLASS DLLEXPORT
26     #endif
27    
28     /*
29     * The TclRegexp structure encapsulates a compiled regex_t,
30     * the flags that were used to compile it, and an array of pointers
31     * that are used to indicate subexpressions after a call to Tcl_RegExpExec.
32     * Note that the string and objPtr are mutually exclusive. These values
33     * are needed by Tcl_RegExpRange in order to return pointers into the
34     * original string.
35     */
36    
37     typedef struct TclRegexp {
38     int flags; /* Regexp compile flags. */
39     regex_t re; /* Compiled re, includes number of
40     * subexpressions. */
41     CONST char *string; /* Last string passed to Tcl_RegExpExec. */
42     Tcl_Obj *objPtr; /* Last object passed to Tcl_RegExpExecObj. */
43     regmatch_t *matches; /* Array of indices into the Tcl_UniChar
44     * representation of the last string matched
45     * with this regexp to indicate the location
46     * of subexpressions. */
47     rm_detail_t details; /* Detailed information on match (currently
48     * used only for REG_EXPECT). */
49     int refCount; /* Count of number of references to this
50     * compiled regexp. */
51     } TclRegexp;
52    
53     #endif /* _TCLREGEXP */
54    
55    
56    
57     /* $History: tclregexp.h $
58     *
59     * ***************** Version 1 *****************
60     * User: Dtashley Date: 1/02/01 Time: 1:04a
61     * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
62     * Initial check-in.
63     */
64    
65     /* End of TCLREGEXP.H */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25