1 files changed, 0 insertions, 310 deletions
diff --git a/regtest_hsrex.sh b/regtest_hsrex.sh
deleted file mode 100755
index 566a9f3..0000000
--- a/regtest_hsrex.sh
+++ /dev/null
@@ -1,310 +0,0 @@
-#!/bin/sh
-#
-# Copyright (c) 2002, Stooges & Cueless CO., All rights reserved.
-#
-# Module:
-#	@(#)regtest_hsrex.sh	1.0	(Stooges & Clueless)	04/xx/02
-# Purpose:
-#	@(#)Perform regression test to Henry Spencer's RE libary.
-# Author:
-#	Walter Waldo
-# History:
-#	04/xx/02 (ww)		Version 1.0
-#
-#set -x
-
-H=$HOME
-me=`basename $0`
-rgsrc=regtest_hsrex.c
-rgbin=regtest_hsrex
-datsrc=regtest_data.c
-datbin=regtest_data
-CC=gcc
-
-
-cleanup_and_exit()
-{
-	rm -f $rgsrc $rgbin $datsrc $datbin
-	exit 1
-}
-
-
-usage ()
-{
-test X$1 != X && printf "$me: $1\n"
-cat << EOF
-
-$me: Perform regression test to Henry Spencer's RE libary.
-Usage: $me	[-h]
-
-Options:
-
--h		This stuff.
-
-EOF
-test X$1 != X && exit 1 || exit 0
-}
-
-. feedback_defs.sh
-
-while getopts h FLAG; do
-	case $FLAG in
-	h)	usage
-		;;
-	?)	quit "Unknown option"
-		;;
-	esac
-done
-
-
-. regtest_util.sh
-trap "trap '' 0; cleanup_and_exit 1" HUP INT QUIT PIPE TERM
-trap "cleanup_and_exit $?" 0
-
-
-printf "\nTesting Henry Spencer's REs\n\n"
-#-----------------------------------
-# Invocation:
-#	$rgbin  <number_of_groups>  <RE>  <string2scan>
-#
-cat<<-EOF>$rgsrc
-	#include <stdio.h>
-	#include <stdlib.h>
-	#include <string.h>
-	#include "regalone.h"
-	#include "regex.h"
-	#ifdef REGEX_UTF8
-	#	define re_comp	re_ucomp
-	#	define re_exec	re_uexec
-	#endif
-	size_t hexescapes2bin(unsigned char *t, char *src, size_t mxlen)
-	{
-		char	*s, *xs;
-		size_t	len;
-		s = xs = src;
-		len = 0;
-		while ( (s = strstr(s, "\\\x")) )
-		{
-			int	cbin;
-			sscanf(&s[2], "%2x", &cbin);
-			memcpy(&t[len], xs, (size_t ) (s-xs));
-			len += (size_t ) (s-xs);
-			t[len++] = cbin;
-			s += 4;
-			xs = s;
-		}
-		strcpy((char *)&t[len], xs);
-		len += strlen(xs);
-		return len;
-	}
-	int main(int argc, char *argv[])
-	{
-		unsigned char	re[1024*4], dat[1024*8];
-		size_t		relen, datlen;
-		regex_t		cre;
-		regmatch_t	pmatch[100];
-		int		cflags, nmatch, rc;
-		char		buf[1024*2];
-
-		//memset(&cre, '\0', sizeof(cre));
-		nmatch = atoi(argv[1]);
-		relen = hexescapes2bin(re, argv[2], sizeof(re)/sizeof(char));
-		datlen = hexescapes2bin(dat, argv[3], sizeof(dat)/sizeof(char));
-		cflags = REG_ADVANCED | (nmatch ? 0 : REG_NOSUB);
-		rc = re_comp(&cre, re, relen, cflags);
-		if ( rc != REG_OKAY )
-		{
-			regerror(rc, &cre, buf, sizeof(buf));
-			fprintf(stderr, "Compile error. %s\n", buf);
-			return 1;
-		}
-		if ( nmatch >= 0 && cre.re_nsub != nmatch )
-		{
-			fprintf(stderr,
-				"Mismatch on number of group patterns. "
-				"Expected %d, compiled %zu\n",
-				nmatch, cre.re_nsub);
-			return 1;
-		}
-		rc = re_exec(&cre, dat, datlen, NULL, 100, pmatch, 0);
-		if ( rc != REG_OKAY )
-		{
-			regerror(rc, &cre, buf, sizeof(buf));
-			fprintf(stderr, "Execution error. %s\n", buf);
-			return 1;
-		}
-		if ( cre.re_nsub )
-		{
-			int	i;
-
-			buf[0] = '\0';
-			for ( i=1; i<cre.re_nsub+1 && pmatch[i].rm_so>=0; i++ )
-				sprintf(&buf[strlen(buf)], "%s%.*s",
-					i>1 ? ":" : "",
-					(int)(pmatch[i].rm_eo-pmatch[i].rm_so),
-					argv[3]+pmatch[i].rm_so);
-			printf("%s\n", buf);
-		}
-		regfree(&cre);
-		return 0;
-	}
-EOF
-PATH=.:$PATH
-LD_LIBRARY_PATH=.:$LD_LIBRARY_PATH
-export PATH LD_LIBRARY_PATH
-# Either this one
-#$CC -Wall -g -O0 -I. -I$H/inc -L. -lhsrex -o $rgbin $rgsrc			# Test ascii ch
-# Or this one
-$CC -Wall -g -O0 -I. -I$H/inc -L. -lhsurex -DREGEX_UTF8 -o $rgbin $rgsrc	# Test wide ch
-#-----------------------------------
-resp=`$rgbin 0 "clavo" "Pablito clavo un clavito" 2>&1`
-msg="Simple match"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 \
-	"(19|20)\d\d[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])" \
-	"1960-10-12" 2>&1`
-msg="yyyy-mm-dd between 1900-01-01 and 2099-12-31"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 \
-	"(19|20)\d\d[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])" \
-	"El arzobispo 1960-14-12 de Constantinopla" 2>&1`
-msg="yyyy-mm-dd out of 1900-01-01 and 2099-12-31"
-if echo "$resp"|grep "failed to match">/dev/null;
-then f_ok "$msg"; else f_no "$msg" "$resp"; fi
-#-----------------------------------
-resp=`$rgbin 0 "^([1-9]|[1-9][0-9]|[1-9][0-9][0-9])$" "432" 2>&1`
-msg="1..999"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 "^([1-9]|[1-9][0-9]|[1-9][0-9][0-9])$" " 4321" 2>&1`
-msg="Bad 1..999"
-if echo "$resp"|grep "failed to match">/dev/null;
-then f_ok "$msg"; else f_no "$msg" "$resp"; fi
-#-----------------------------------
-resp=`$rgbin 0 "word1\W+(?:\w+\W+){1,3}?word2" \
-		"word1 clavo un clavito word2" 2>&1`
-msg="Quantifier: One to three words between 'word1' and 'word2'"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 "a?a?a?a?a?aaaaaaaaaaaaaaa" \
-		"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 2>&1`
-msg="Pathological: a?^6a^15 against aaaaaaaaaaaaaaaaaa..."
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 "(a|aa)*b" \
-		"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab" 2>&1`
-msg="Pathological: (a|aa)*b against aaaaaaaaaaaaaaaaaa...b"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-cat<<-EOF>$datsrc
-	#include <stdio.h>
-	#include <stdlib.h>
-	#include <ctype.h>
-	#ifdef WIN32
-	#	include <process.h>
-	#	define getpid	_getpid
-	#elif defined(unix) || defined(__unix__)
-	#	include <unistd.h>
-	#else
-	#	error unknown platform
-	#endif
-	char	nums[] = "0123456789";
-	char	alph[] = "abcdefghijklmnopqrstuvwxyz";
-	int main(int argc, char *argv[])
-	{
-		char	dat[16], *arr;
-		int	arrsz, datsz, i;
-
-		if ( isdigit(argv[1][0]) )
-			{ arr = nums; arrsz = sizeof(nums)-1; }
-		else if ( isalpha(argv[1][0]) )
-			{ arr = alph; arrsz = sizeof(alph)-1; }
-		srand(getpid());
-		datsz = rand()%13+1;
-		for ( i=0; i<datsz; i++ ) dat[i] = arr[ rand()%arrsz ];
-		dat[datsz] = '\0';
-		printf("%s\n", dat);
-		return 0;
-	}
-EOF
-$CC -o $datbin $datsrc
-#-----------------------------------
-i=0
-totre="[a-zA-Z]+"
-totdat=`$datbin a`
-while test $i -lt 5; do
-	num=`$datbin 0`
-	alph=`$datbin a`
-	totre=$totre"([0-9]+)[a-zA-Z]+"
-	totdat=$totdat$num$alph
-	test $i -eq 0 && expectedresp=$num || expectedresp=$expectedresp:$num
-	i=`expr $i + 1`
-done
-resp=`$rgbin 5 "$totre" "$totdat" 2>&1`
-msg="5 group patterns taken with bracket ranges"
-test "$resp" = "$expectedresp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-i=0
-totre="[a-zA-Z]+"
-totdat=`$datbin a`
-while test $i -lt 10; do
-	num=`$datbin 0`
-	alph=`$datbin a`
-	totre=$totre"([0-9]+)[a-zA-Z]+"
-	totdat=$totdat$num$alph
-	test $i -eq 0 && expectedresp=$num || expectedresp=$expectedresp:$num
-	i=`expr $i + 1`
-done
-resp=`$rgbin 10 "$totre" "$totdat" 2>&1`
-msg="10 group patterns taken with bracket ranges"
-test "$resp" = "$expectedresp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-i=0
-totre="[a-zA-Z]+"
-totdat=`$datbin a`
-while test $i -lt 99; do
-	num=`$datbin 0`
-	alph=`$datbin a`
-	totre=$totre"([0-9]+)[a-zA-Z]+"
-	totdat=$totdat$num$alph
-	test $i -eq 0 && expectedresp=$num || expectedresp=$expectedresp:$num
-	i=`expr $i + 1`
-done
-resp=`$rgbin 99 "$totre" "$totdat" 2>&1`
-msg="99 group patterns taken with bracket ranges"
-test "$resp" = "$expectedresp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-i=0
-totre="[[:alpha:]]+"
-totdat=`$datbin a`
-while test $i -lt 99; do
-	num=`$datbin 0`
-	alph=`$datbin a`
-	totre=$totre"([[:digit:]]+)[[:alpha:]]+"
-	totdat=$totdat$num$alph
-	test $i -eq 0 && expectedresp=$num || expectedresp=$expectedresp:$num
-	i=`expr $i + 1`
-done
-resp=`$rgbin 99 "$totre" "$totdat" 2>&1`
-msg="99 group patterns taken with character classes"
-test "$resp" = "$expectedresp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 "clavo" "Pablito\00clavo un clavito" 2>&1`
-msg="Binary data"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 0 "cl\xFFavo" "Pablito\x00cl\xFFavo un clavito" 2>&1`
-msg="Binary RE and data"
-test -z "$resp" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-resp=`$rgbin 1 "(?i)(clavo)" "Pablito ClAvO un clavito" 2>&1`
-msg="One group pattern with case-insensitive matching"
-test "$resp" = "ClAvO" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------
-# Will only work if REGEX_UTF8
-resp=`$rgbin 1 '([[:alpha:]]+)' 'абвгд' 2>&1`
-msg="Unicode character class"
-test "$resp" = "абвгд" && f_ok "$msg" || f_no "$msg" "$resp"
-#-----------------------------------