From 7bcc6d98fb5c3bda2787ae085ef3ff3dbb65ae42 Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Wed, 5 Feb 2003 17:41:33 +0000 Subject: Replace regular expression package with Henry Spencer's latest version (extracted from Tcl 8.4.1 release, as Henry still hasn't got round to making it a separate library). This solves a performance problem for multibyte, as well as upgrading our regexp support to match recent Tcl and nearly match recent Perl. --- src/backend/regex/retest.c | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 src/backend/regex/retest.c (limited to 'src/backend/regex/retest.c') diff --git a/src/backend/regex/retest.c b/src/backend/regex/retest.c deleted file mode 100644 index ca5d6c5394a..00000000000 --- a/src/backend/regex/retest.c +++ /dev/null @@ -1,44 +0,0 @@ -/* - * a simple regexp debug program - * - * $Header: /cvsroot/pgsql/src/backend/regex/Attic/retest.c,v 1.5 2002/06/11 15:41:37 thomas Exp $ - */ - -#include "postgres.h" -#include "regex/regex.h" - -int -main() -{ - int sts; - regex_t re; - char buf[1024]; - char *p; - - printf("type in regexp string: "); - if (!fgets(buf, sizeof(buf), stdin)) - exit(0); - p = strchr(buf, '\n'); - if (p) - *p = '\0'; - - sts = pg_regcomp(&re, buf, 1); - printf("regcomp: parses \"%s\" and returns %d\n", buf, sts); - for (;;) - { - printf("type in target string: "); - if (!fgets(buf, sizeof(buf), stdin)) - exit(0); - p = strchr(buf, '\n'); - if (p) - *p = '\0'; - - sts = pg_regexec(&re, buf, 0, 0, 0); - printf("regexec: returns %d\n", sts); - } -} - -void -elog(int lev, const char *fmt,...) -{ -} -- cgit v1.2.3