From b53dc43769f42d6c8a40ca8b70786e1a08c50626 Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Fri, 10 Apr 1998 20:38:41 +0000
Subject: Delete this obsolete module.

---
 Modules/reopmodule.c | 1053 --------------------------------------------------
 1 file changed, 1053 deletions(-)
 delete mode 100644 Modules/reopmodule.c

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 */;
-}
-
-- 
cgit v0.12