diff options
author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
---|---|---|
committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
tree | 4464880c571602d54f6ae114729bf62a89518057 /vendor/x11iraf/obm/Tcl/tclRegexp.h | |
download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz |
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'vendor/x11iraf/obm/Tcl/tclRegexp.h')
-rw-r--r-- | vendor/x11iraf/obm/Tcl/tclRegexp.h | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/vendor/x11iraf/obm/Tcl/tclRegexp.h b/vendor/x11iraf/obm/Tcl/tclRegexp.h new file mode 100644 index 00000000..c3460006 --- /dev/null +++ b/vendor/x11iraf/obm/Tcl/tclRegexp.h @@ -0,0 +1,30 @@ +/* + * Definitions etc. for regexp(3) routines. + * + * Caveat: this is V8 regexp(3) [actually, a reimplementation thereof], + * not the System V one. + */ + +#ifndef _TCL +#include "tcl.h" +#endif +#ifndef _REGEXP +#define _REGEXP 1 + +#define NSUBEXP 10 +typedef struct regexp { + char *startp[NSUBEXP]; + char *endp[NSUBEXP]; + char regstart; /* Internal use only. */ + char reganch; /* Internal use only. */ + char *regmust; /* Internal use only. */ + int regmlen; /* Internal use only. */ + char program[1]; /* Unwarranted chumminess with compiler. */ +} regexp; + +extern regexp *TclRegComp _ANSI_ARGS_((char *exp)); +extern int TclRegExec _ANSI_ARGS_((regexp *prog, char *string, char *start)); +extern void TclRegSub _ANSI_ARGS_((regexp *prog, char *source, char *dest)); +extern void TclRegError _ANSI_ARGS_((char *msg)); + +#endif /* REGEXP */ |