diff options
| -rw-r--r-- | Modules/reopmodule.c | 1053 |
1 files changed, 0 insertions, 1053 deletions
diff --git a/Modules/reopmodule.c b/Modules/reopmodule.c deleted file mode 100644 index 6c671c8..0000000 --- a/Modules/reopmodule.c +++ /dev/null @@ -1,1053 +0,0 @@ -/*********************************************************** -Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, -The Netherlands. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Stichting Mathematisch -Centrum or CWI or Corporation for National Research Initiatives or -CNRI not be used in advertising or publicity pertaining to -distribution of the software without specific, written prior -permission. - -While CWI is the initial source for this software, a modified version -is made available by the Corporation for National Research Initiatives -(CNRI) at the Internet address ftp://ftp.python.org. - -STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH -REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH -CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL -DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR -PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER -TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR -PERFORMANCE OF THIS SOFTWARE. - -******************************************************************/ - -/* $Id$ */ - -/* Regular expression objects */ -/* This uses Tatu Ylonen's copyleft-free reimplementation of - GNU regular expressions */ - -#include "Python.h" - -#include <ctype.h> - -#include "regexpr.h" - -static PyObject *ReopError; /* Exception */ - -#define IGNORECASE 0x01 -#define MULTILINE 0x02 -#define DOTALL 0x04 -#define VERBOSE 0x08 - -#define NORMAL 0 -#define CHARCLASS 1 -#define REPLACEMENT 2 - -#define CHAR 0 -#define MEMORY_REFERENCE 1 -#define SYNTAX 2 -#define NOT_SYNTAX 3 -#define SET 4 -#define WORD_BOUNDARY 5 -#define NOT_WORD_BOUNDARY 6 -#define BEGINNING_OF_BUFFER 7 -#define END_OF_BUFFER 8 - -static PyObject * -makeresult(regs, num_regs) - struct re_registers *regs; - int num_regs; -{ - PyObject *v; - int i; - static PyObject *filler = NULL; - - if (filler == NULL) { - filler = Py_BuildValue("(ii)", -1, -1); - if (filler == NULL) - return NULL; - } - v = PyTuple_New(num_regs); - if (v == NULL) - return NULL; - - for (i = 0; i < num_regs; i++) { - int lo = regs->start[i]; - int hi = regs->end[i]; - PyObject *w; - if (lo == -1 && hi == -1) { - w = filler; - Py_INCREF(w); - } - else - w = Py_BuildValue("(ii)", lo, hi); - if (w == NULL || PyTuple_SetItem(v, i, w) < 0) { - Py_DECREF(v); - return NULL; - } - } - return v; -} - -static PyObject * -reop_match(self, args) - PyObject *self; - PyObject *args; -{ - unsigned char *string; - int fastmaplen, stringlen; - int can_be_null, anchor, i; - int flags, pos, result; - struct re_pattern_buffer bufp; - struct re_registers re_regs; - PyObject *modules = NULL; - PyObject *reopmodule = NULL; - PyObject *reopdict = NULL; - PyObject *casefold = NULL; - - if (!PyArg_Parse(args, "(s#iiis#is#i)", - &(bufp.buffer), &(bufp.allocated), - &(bufp.num_registers), &flags, &can_be_null, - &(bufp.fastmap), &fastmaplen, - &anchor, - &string, &stringlen, - &pos)) - return NULL; - - /* XXX sanity-check the input data */ - bufp.used=bufp.allocated; - if (flags & IGNORECASE) - { - if ((modules = PyImport_GetModuleDict()) == NULL) - return NULL; - - if ((reopmodule = PyDict_GetItemString(modules, - "reop")) == NULL) - return NULL; - - if ((reopdict = PyModule_GetDict(reopmodule)) == NULL) - return NULL; - - if ((casefold = PyDict_GetItemString(reopdict, - "casefold")) == NULL) - return NULL; - - bufp.translate = (unsigned char*)PyString_AsString(casefold); - } - else - bufp.translate=NULL; - bufp.fastmap_accurate=1; - bufp.can_be_null=can_be_null; - bufp.uses_registers=1; - bufp.anchor=anchor; - - for(i=0; i<bufp.num_registers; i++) { - re_regs.start[i]=-1; - re_regs.end[i]=-1; - } - - result = re_match(&bufp, - string, stringlen, pos, - &re_regs); - - if (result < -1) { - /* Failure like stack overflow */ - if (!PyErr_Occurred()) - PyErr_SetString(ReopError, "match failure"); - return NULL; - } - if (result == -1) { - Py_INCREF(Py_None); - return Py_None; - } - return makeresult(&re_regs, bufp.num_registers); -} - -#if 0 -static PyObject * -reop_optimize(self, args) - PyObject *self; - PyObject *args; -{ - unsigned char *buffer; - int buflen; - struct re_pattern_buffer bufp; - - PyObject *opt_code; - - if (!PyArg_Parse(args, "(s#)", &buffer, &buflen)) return NULL; - /* Create a new string for the optimized code */ - opt_code=PyString_FromStringAndSize(buffer, buflen); - if (opt_code!=NULL) - { - bufp.buffer = PyString_AsString(opt_code); - bufp.used=bufp.allocated=buflen; - - } - return opt_code; - -} -#endif - -static PyObject * -reop_search(self, args) - PyObject *self; - PyObject *args; -{ - unsigned char *string; - int fastmaplen, stringlen; - int can_be_null, anchor, i; - int flags, pos, result; - struct re_pattern_buffer bufp; - struct re_registers re_regs; - PyObject *modules = NULL; - PyObject *reopmodule = NULL; - PyObject *reopdict = NULL; - PyObject *casefold = NULL; - - if (!PyArg_Parse(args, "(s#iiis#is#i)", - &(bufp.buffer), &(bufp.allocated), - &(bufp.num_registers), &flags, &can_be_null, - &(bufp.fastmap), &fastmaplen, - &anchor, - &string, &stringlen, - &pos)) - return NULL; - - /* XXX sanity-check the input data */ - bufp.used=bufp.allocated; - if (flags & IGNORECASE) - { - if ((modules = PyImport_GetModuleDict()) == NULL) - return NULL; - - if ((reopmodule = PyDict_GetItemString(modules, - "reop")) == NULL) - return NULL; - - if ((reopdict = PyModule_GetDict(reopmodule)) == NULL) - return NULL; - - if ((casefold = PyDict_GetItemString(reopdict, - "casefold")) == NULL) - return NULL; - - bufp.translate = (unsigned char *)PyString_AsString(casefold); - } - else - bufp.translate=NULL; - bufp.fastmap_accurate=1; - bufp.can_be_null=can_be_null; - bufp.uses_registers=1; - bufp.anchor=anchor; - - for(i = 0; i < bufp.num_registers; i++) { - re_regs.start[i] = -1; - re_regs.end[i] = -1; - } - - result = re_search(&bufp, - string, stringlen, pos, stringlen-pos, - &re_regs); - - if (result < -1) { - /* Failure like stack overflow */ - if (!PyErr_Occurred()) - PyErr_SetString(ReopError, "match failure"); - return NULL; - } - - if (result == -1) { - Py_INCREF(Py_None); - return Py_None; - } - - return makeresult(&re_regs, bufp.num_registers); -} - -static PyObject * -reop_expand_escape(self, args) - PyObject *self; - PyObject *args; -{ - unsigned char c, *pattern; - int index, context=NORMAL, pattern_len; - - if (!PyArg_ParseTuple(args, "s#i|i", &pattern, &pattern_len, &index, - &context)) - return NULL; - if (pattern_len<=index) - { - PyErr_SetString(ReopError, "escape ends too soon"); - return NULL; - } - c=pattern[index]; index++; - switch (c) - { - case('t'): - return Py_BuildValue("ici", CHAR, (char)9, index); - break; - case('n'): - return Py_BuildValue("ici", CHAR, (char)10, index); - break; - case('v'): - return Py_BuildValue("ici", CHAR, (char)11, index); - break; - case('r'): - return Py_BuildValue("ici", CHAR, (char)13, index); - break; - case('f'): - return Py_BuildValue("ici", CHAR, (char)12, index); - break; - case('a'): - return Py_BuildValue("ici", CHAR, (char)7, index); - break; - case('x'): - { - int end, length; - unsigned char *string; - PyObject *v, *result; - - end=index; - while (end<pattern_len && - ( re_syntax_table[ pattern[end] ] & Shexdigit ) ) - end++; - if (end==index) - { - PyErr_SetString(ReopError, "\\x must be followed by hex digits"); - return NULL; - } - length=end-index; - string=malloc(length+4+1); - if (string==NULL) - { - PyErr_SetString(PyExc_MemoryError, "can't allocate memory for \\x string"); - return NULL; - } - /* Create a string containing "\x<hexdigits>", which will be - passed to eval() */ - string[0]=string[length+3]='"'; - string[1]='\\'; - string[length+4]='\0'; - memcpy(string+2, pattern+index-1, length+1); - v=PyRun_String((char *)string, Py_eval_input, - PyEval_GetGlobals(), PyEval_GetLocals()); - free(string); - /* The evaluation raised an exception */ - if (v==NULL) return NULL; - result=Py_BuildValue("iOi", CHAR, v, end); - Py_DECREF(v); - return result; - } - break; - - case('b'): - if (context!=NORMAL) - return Py_BuildValue("ici", CHAR, (char)8, index); - else - { - unsigned char empty_string[1]; - empty_string[0]='\0'; - return Py_BuildValue("isi", WORD_BOUNDARY, empty_string, index); - } - break; - case('B'): - if (context!=NORMAL) - return Py_BuildValue("ici", CHAR, 'B', index); - else - { - unsigned char empty_string[1]; - empty_string[0]='\0'; - return Py_BuildValue("isi", NOT_WORD_BOUNDARY, empty_string, index); - } - break; - case('A'): - if (context!=NORMAL) - return Py_BuildValue("ici", CHAR, 'A', index); - else - { - unsigned char empty_string[1]; - empty_string[0]='\0'; - return Py_BuildValue("isi", BEGINNING_OF_BUFFER, empty_string, index); - } - break; - case('Z'): - if (context!=NORMAL) - return Py_BuildValue("ici", CHAR, 'Z', index); - else - { - unsigned char empty_string[1]; - empty_string[0]='\0'; - return Py_BuildValue("isi", END_OF_BUFFER, empty_string, index); - } - break; - case('E'): case('G'): case('L'): case('Q'): - case('U'): case('l'): case('u'): - { - char message[50]; - sprintf(message, "\\%c is not allowed", c); - PyErr_SetString(ReopError, message); - return NULL; - } - - case ('w'): - if (context==NORMAL) - return Py_BuildValue("iii", SYNTAX, Sword, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 'w', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if (re_syntax_table[i] & Sword) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - case ('W'): - if (context==NORMAL) - return Py_BuildValue("iii", NOT_SYNTAX, Sword, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 'W', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if (! (re_syntax_table[i] & Sword)) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - case ('s'): - if (context==NORMAL) - return Py_BuildValue("iii", SYNTAX, Swhitespace, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 's', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if (re_syntax_table[i] & Swhitespace) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - case ('S'): - if (context==NORMAL) - return Py_BuildValue("iii", NOT_SYNTAX, Swhitespace, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 'S', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if (! (re_syntax_table[i] & Swhitespace) ) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - - case ('d'): - if (context==NORMAL) - return Py_BuildValue("iii", SYNTAX, Sdigit, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 'd', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if (re_syntax_table[i] & Sdigit) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - case ('D'): - if (context==NORMAL) - return Py_BuildValue("iii", NOT_SYNTAX, Sdigit, index); - if (context!=CHARCLASS) - return Py_BuildValue("ici", CHAR, 'D', index); - { - /* context==CHARCLASS */ - unsigned char set[256]; - int i, j; - for(i=j=0; i<256; i++) - if ( !(re_syntax_table[i] & Sdigit) ) - { - set[j++] = i; - } - return Py_BuildValue("is#i", SET, set, j, index); - } - break; - - case('g'): - { - int end, valid, i; - if (context!=REPLACEMENT) - return Py_BuildValue("ici", CHAR, 'g', index); - if (pattern_len<=index) - { - PyErr_SetString(ReopError, "unfinished symbolic reference"); - return NULL; - } - if (pattern[index]!='<') - { - PyErr_SetString(ReopError, "missing < in symbolic reference"); - return NULL; - } - index++; - end=index; - while (end<pattern_len && pattern[end]!='>') - end++; - if (end==pattern_len) - { - PyErr_SetString(ReopError, "unfinished symbolic reference"); - return NULL; - } - valid=1; - if (index==end /* Zero-length name */ - || !(re_syntax_table[pattern[index]] & Sword) /* First char. not alphanumeric */ - || (re_syntax_table[pattern[index]] & Sdigit) ) /* First char. a digit */ - valid=0; - - for(i=index+1; i<end; i++) - { - if (!(re_syntax_table[pattern[i]] & Sword) ) - valid=0; - } - if (!valid) - { - /* XXX should include the text of the reference */ - PyErr_SetString(ReopError, "illegal symbolic reference"); - return NULL; - } - - return Py_BuildValue("is#i", MEMORY_REFERENCE, - pattern+index, end-index, - end+1); - } - break; - - case('0'): - { - /* \0 always indicates an octal escape, so we consume up to 3 - characters, as long as they're all octal digits */ - int octval=0, i; - index--; - for(i=index; - i<=index+2 && i<pattern_len - && (re_syntax_table[ pattern[i] ] & Soctaldigit ); - i++) - { - octval = octval * 8 + pattern[i] - '0'; - } - if (octval>255) - { - PyErr_SetString(ReopError, "octal value out of range"); - return NULL; - } - return Py_BuildValue("ici", CHAR, (unsigned char)octval, i); - } - break; - case('1'): case('2'): case('3'): case('4'): - case('5'): case('6'): case('7'): case('8'): - case('9'): - { - /* Handle \?, where ? is from 1 through 9 */ - int value=0; - index--; - /* If it's at least a two-digit reference, like \34, it might - either be a 3-digit octal escape (\123) or a 2-digit - decimal memory reference (\34) */ - - if ( (index+1) <pattern_len && - (re_syntax_table[ pattern[index+1] ] & Sdigit) ) - { - if ( (index+2) <pattern_len && - (re_syntax_table[ pattern[index+2] ] & Soctaldigit) && - (re_syntax_table[ pattern[index+1] ] & Soctaldigit) && - (re_syntax_table[ pattern[index ] ] & Soctaldigit) - ) - { - /* 3 octal digits */ - value= 8*8*(pattern[index ]-'0') + - 8*(pattern[index+1]-'0') + - (pattern[index+2]-'0'); - if (value>255) - { - PyErr_SetString(ReopError, "octal value out of range"); - return NULL; - } - return Py_BuildValue("ici", CHAR, (unsigned char)value, index+3); - } - else - { - /* 2-digit form, so it's a memory reference */ - if (context==CHARCLASS) - { - PyErr_SetString(ReopError, - "cannot reference a register from inside a character class"); - return NULL; - } - value= 10*(pattern[index ]-'0') + - (pattern[index+1]-'0'); - if (value<1 || RE_NREGS<=value) - { - PyErr_SetString(ReopError, "memory reference out of range"); - return NULL; - } - return Py_BuildValue("iii", MEMORY_REFERENCE, - value, index+2); - } - } - else - { - /* Single-digit form, like \2, so it's a memory reference */ - if (context==CHARCLASS) - { - PyErr_SetString(ReopError, - "cannot reference a register from inside a character class"); - return NULL; - } - return Py_BuildValue("iii", MEMORY_REFERENCE, - pattern[index]-'0', index+1); - } - } - break; - - default: - return Py_BuildValue("ici", CHAR, c, index); - break; - } -} - -static PyObject * -reop__expand(self, args) - PyObject *self; - PyObject *args; -{ - PyObject *results, *match_obj; - PyObject *repl_obj, *newstring; - unsigned char *repl; - int size, total_len, i, start, pos; - - if (!PyArg_ParseTuple(args, "OS", &match_obj, &repl_obj)) - return NULL; - - repl=(unsigned char *)PyString_AsString(repl_obj); - size=PyString_Size(repl_obj); - results=PyList_New(0); - if (results==NULL) return NULL; - for(start=total_len=i=0; i<size; i++) - { - if (repl[i]=='\\') - { - PyObject *args, *t, *value; - int escape_type; - - if (start!=i) - { - PyList_Append(results, - PyString_FromStringAndSize((char *)repl+start, i-start)); - total_len += i-start; - } - i++; - args=Py_BuildValue("Oii", repl_obj, i, REPLACEMENT); - t=reop_expand_escape(NULL, args); - Py_DECREF(args); - if (t==NULL) - { - /* reop_expand_escape triggered an exception of some sort, - so just return */ - Py_DECREF(results); - return NULL; - } - value=PyTuple_GetItem(t, 1); - escape_type=PyInt_AsLong(PyTuple_GetItem(t, 0)); - switch (escape_type) - { - case (CHAR): - PyList_Append(results, value); - total_len += PyString_Size(value); - break; - case(MEMORY_REFERENCE): - { - PyObject *r, *tuple, *result; - r=PyObject_GetAttrString(match_obj, "group"); - tuple=PyTuple_New(1); - Py_INCREF(value); - PyTuple_SetItem(tuple, 0, value); - result=PyEval_CallObject(r, tuple); - Py_DECREF(r); Py_DECREF(tuple); - if (result==NULL) - { - /* The group() method trigged an exception of some sort */ - Py_DECREF(results); - return NULL; - } - if (result==Py_None) - { - char message[50]; - sprintf(message, - "group %li did not contribute to the match", - PyInt_AsLong(value)); - PyErr_SetString(ReopError, - message); - Py_DECREF(result); - Py_DECREF(t); - Py_DECREF(results); - return NULL; - } - /* xxx typecheck that it's a string! */ - PyList_Append(results, result); - total_len += PyString_Size(result); - Py_DECREF(result); - } - break; - default: - Py_DECREF(t); - Py_DECREF(results); - PyErr_SetString(ReopError, - "bad escape in replacement"); - return NULL; - } - i=start=PyInt_AsLong(PyTuple_GetItem(t, 2)); - i--; /* Decrement now, because the 'for' loop will increment it */ - Py_DECREF(t); - } - } /* endif repl[i]!='\\' */ - - if (start!=i) - { - PyList_Append(results, PyString_FromStringAndSize((char *)repl+start, i-start)); - total_len += i-start; - } - - /* Whew! Now we've constructed a list containing various pieces of - strings that will make up our final result. So, iterate over - the list concatenating them. A new string measuring total_len - bytes is allocated and filled in. */ - - newstring=PyString_FromStringAndSize(NULL, total_len); - if (newstring==NULL) - { - Py_DECREF(results); - return NULL; - } - - repl=(unsigned char *)PyString_AsString(newstring); - for (pos=i=0; i<PyList_Size(results); i++) - { - PyObject *item=PyList_GetItem(results, i); - memcpy(repl+pos, PyString_AsString(item), PyString_Size(item) ); - pos += PyString_Size(item); - } - Py_DECREF(results); - return newstring; -} - - -#if 0 -/* Functions originally in the regsub module. - Added June 1, 1997. - */ - -/* A cache of previously used patterns is maintained. Notice that if - you change the reop syntax flag, entries in the cache are - invalidated. - XXX Solution: use (syntax flag, pattern) as keys? Clear the cache - every so often, or once it gets past a certain size? -*/ - -static PyObject *cache_dict=NULL; - -/* Accept an object; if it's a reop pattern, Py_INCREF it and return - it. If it's a string, a reop object is compiled and cached. -*/ - -static reopobject * -cached_compile(pattern) - PyObject *pattern; -{ - reopobject *p2; - - if (!PyString_Check(pattern)) - { - /* It's not a string, so assume it's a compiled reop object */ - /* XXX check that! */ - Py_INCREF(pattern); - return (reopobject*)pattern; - } - if (cache_dict==NULL) - { - cache_dict=PyDict_New(); - if (cache_dict==NULL) - { - return (reopobject*)NULL; - } - } - - /* See if the pattern has already been cached; if so, return that - reop object */ - p2=(reopobject*)PyDict_GetItem(cache_dict, pattern); - if (p2) - { - Py_INCREF(p2); - return (reopobject*)p2; - } - - /* Compile the pattern and cache it */ - p2=(reopobject*)newreopobject(pattern, NULL, pattern, NULL); - if (!p2) return p2; - PyDict_SetItem(cache_dict, pattern, (PyObject*)p2); - return p2; -} - - -static PyObject * -internal_split(args, retain) - PyObject *args; - int retain; -{ - PyObject *newlist, *s; - reopobject *pattern; - int maxsplit=0, count=0, length, next=0, result; - int match_end=0; /* match_start is defined below */ - unsigned char *start; - - if (!PyArg_ParseTuple(args, "s#Oi", &start, &length, &pattern, - &maxsplit)) - { - PyErr_Clear(); - if (!PyArg_ParseTuple(args, "s#O", &start, &length, &pattern)) - return NULL; - } - pattern=cached_compile((PyObject *)pattern); - if (!pattern) return NULL; - - newlist=PyList_New(0); - if (!newlist) return NULL; - - do - { - result = re_search(&pattern->re_patbuf, - start, length, next, length-next, - &pattern->re_regs); - if (result < -1) - { /* Erk... an error happened during the reop search */ - Py_DECREF(newlist); - PyErr_SetString(ReopError, "match failure"); - return NULL; - } - if (next<=result) - { - int match_start=pattern->re_regs.start[0]; - int oldmatch_end=match_end; - match_end=pattern->re_regs.end[0]; - - if (match_start==match_end) - { /* A zero-length match; increment to the next position */ - next=result+1; - match_end=oldmatch_end; - continue; - } - - /* Append the string up to the start of the match */ - s=PyString_FromStringAndSize(start+oldmatch_end, match_start-oldmatch_end); - if (!s) - { - Py_DECREF(newlist); - return NULL; - } - PyList_Append(newlist, s); - Py_DECREF(s); - - if (retain) - { - /* Append a string containing whatever matched */ - s=PyString_FromStringAndSize(start+match_start, match_end-match_start); - if (!s) - { - Py_DECREF(newlist); - return NULL; - } - PyList_Append(newlist, s); - Py_DECREF(s); - } - /* Update the pointer, and increment the count of splits */ - next=match_end; count++; - } - } while (result!=-1 && !(maxsplit && maxsplit==count) && - next<length); - s=PyString_FromStringAndSize(start+match_end, length-match_end); - if (!s) - { - Py_DECREF(newlist); - return NULL; - } - PyList_Append(newlist, s); - Py_DECREF(s); - Py_DECREF(pattern); - return newlist; -} - -static PyObject * -reop_split(self, args) - PyObject *self; - PyObject *args; -{ - return internal_split(args, 0); -} - -static PyObject * -reop_splitx(self, args) - PyObject *self; - PyObject *args; -{ - return internal_split(args, 1); -} -#endif - -static struct PyMethodDef reop_global_methods[] = { - {"match", reop_match, 0}, - {"search", reop_search, 0}, - {"expand_escape", reop_expand_escape, 1}, - {"_expand", reop__expand, 1}, -#if 0 - {"_optimize", reop_optimize, 0}, - {"split", reop_split, 0}, - {"splitx", reop_splitx, 0}, -#endif - {NULL, NULL} /* sentinel */ -}; - -void -initreop() -{ - PyObject *m, *d, *k, *v, *o; - int i; - unsigned char *s; - unsigned char j[2]; - - re_compile_initialize(); - - m = Py_InitModule("reop", reop_global_methods); - d = PyModule_GetDict(m); - - /* Initialize reop.error exception */ - v = ReopError = PyErr_NewException("reop.error", NULL, NULL); - if (v == NULL || PyDict_SetItemString(d, "error", v) != 0) - goto finally; - - /* Initialize reop.casefold constant */ - if (!(v = PyString_FromStringAndSize((char *)NULL, 256))) - goto finally; - - if (!(s = (unsigned char *)PyString_AsString(v))) - goto finally; - - for (i = 0; i < 256; i++) { - if (isupper(i)) - s[i] = tolower(i); - else - s[i] = i; - } - - if (PyDict_SetItemString(d, "casefold", v) < 0) - goto finally; - Py_DECREF(v); - - /* Initialize the syntax table */ - - o = PyDict_New(); - if (o == NULL) - goto finally; - - j[1] = '\0'; - for (i = 0; i < 256; i++) - { - j[0] = i; - k = PyString_FromStringAndSize((char *)j, 1); - if (k == NULL) - goto finally; - v = PyInt_FromLong(re_syntax_table[i]); - if (v == NULL) - goto finally; - if (PyDict_SetItem(o, k, v) < 0) - goto finally; - Py_DECREF(k); - Py_DECREF(v); - } - - if (PyDict_SetItemString(d, "syntax_table", o) < 0) - goto finally; - Py_DECREF(o); - - v = PyInt_FromLong(Sword); - if (v == NULL) - goto finally; - - if (PyDict_SetItemString(d, "word", v) < 0) - goto finally; - Py_DECREF(v); - - v = PyInt_FromLong(Swhitespace); - if (v == NULL) - goto finally; - - if (PyDict_SetItemString(d, "whitespace", v) < 0) - goto finally; - Py_DECREF(v); - - v = PyInt_FromLong(Sdigit); - if (v == NULL) - goto finally; - - if (PyDict_SetItemString(d, "digit", v) < 0) - goto finally; - Py_DECREF(v); - - PyDict_SetItemString(d, "NORMAL", PyInt_FromLong(NORMAL)); - PyDict_SetItemString(d, "CHARCLASS", PyInt_FromLong(CHARCLASS)); - PyDict_SetItemString(d, "REPLACEMENT", PyInt_FromLong(REPLACEMENT)); - - PyDict_SetItemString(d, "CHAR", PyInt_FromLong(CHAR)); - PyDict_SetItemString(d, "MEMORY_REFERENCE", PyInt_FromLong(MEMORY_REFERENCE)); - PyDict_SetItemString(d, "SYNTAX", PyInt_FromLong(SYNTAX)); - PyDict_SetItemString(d, "NOT_SYNTAX", PyInt_FromLong(NOT_SYNTAX)); - PyDict_SetItemString(d, "SET", PyInt_FromLong(SET)); - PyDict_SetItemString(d, "WORD_BOUNDARY", PyInt_FromLong(WORD_BOUNDARY)); - PyDict_SetItemString(d, "NOT_WORD_BOUNDARY", PyInt_FromLong(NOT_WORD_BOUNDARY)); - PyDict_SetItemString(d, "BEGINNING_OF_BUFFER", PyInt_FromLong(BEGINNING_OF_BUFFER)); - PyDict_SetItemString(d, "END_OF_BUFFER", PyInt_FromLong(END_OF_BUFFER)); - - if (!PyErr_Occurred()) - return; - - finally: - /* Nothing */; -} - |