move regexp to lib

next cl will update names and add to build

R=rsc
DELTA=1876  (938 added, 938 deleted, 0 changed)
OCL=17149
CL=17166

1 files changed, 0 insertions, 160 deletions

diff --git a/usr/r/regexp/main.go b/usr/r/regexp/main.go
deleted file mode 100644
index c89f9b557..000000000
--- a/usr/r/regexp/main.go
+++ /dev/null
@@ -1,160 +0,0 @@
-// Copyright 2009 The Go Authors. All rights reserved.
-// Use of this source code is governed by a BSD-style
-// license that can be found in the LICENSE file.
-
-package main
-
-import (
-	"os";
-	"regexp";
-)
-
-var good_re = []string{
-	``,
-	`.`,
-	`^.$`,
-	`a`,
-	`a*`,
-	`a+`,
-	`a?`,
-	`a|b`,
-	`a*|b*`,
-	`(a*|b)(c*|d)`,
-	`[a-z]`,
-	`[a-abc-c\-\]\[]`,
-	`[a-z]+`,
-	`[]`,
-	`[abc]`,
-	`[^1234]`,
-}
-
-// TODO: nice to do this with a map but we don't have an iterator
-type StringError struct {
-	re	string;
-	err	*os.Error;
-}
-var bad_re = []StringError{
-	StringError{ `*`,	 	regexp.ErrBareClosure },	
-	StringError{ `(abc`,	regexp.ErrUnmatchedLpar },	
-	StringError{ `abc)`,	regexp.ErrUnmatchedRpar },	
-	StringError{ `x[a-z`,	regexp.ErrUnmatchedLbkt },	
-	StringError{ `abc]`,	regexp.ErrUnmatchedRbkt },	
-	StringError{ `[z-a]`,	regexp.ErrBadRange },	
-	StringError{ `abc\`,	regexp.ErrExtraneousBackslash },	
-	StringError{ `a**`,	regexp.ErrBadClosure },	
-	StringError{ `a*+`,	regexp.ErrBadClosure },	
-	StringError{ `a??`,	regexp.ErrBadClosure },	
-	StringError{ `*`,	 	regexp.ErrBareClosure },	
-	StringError{ `\x`,	regexp.ErrBadBackslash },
-}
-
-type Vec [20]int;
-
-type Tester struct {
-	re	string;
-	text	string;
-	match	Vec;
-}
-
-const END = -1000
-
-var matches = []Tester {
-	Tester{ ``,	"",	Vec{0,0, END} },
-	Tester{ `a`,	"a",	Vec{0,1, END} },
-	Tester{ `b`,	"abc",	Vec{1,2, END} },
-	Tester{ `.`,	"a",	Vec{0,1, END} },
-	Tester{ `.*`,	"abcdef",	Vec{0,6, END} },
-	Tester{ `^abcd$`,	"abcd",	Vec{0,4, END} },
-	Tester{ `^bcd'`,	"abcdef",	Vec{END} },
-	Tester{ `^abcd$`,	"abcde",	Vec{END} },
-	Tester{ `a+`,	"baaab",	Vec{1,4, END} },
-	Tester{ `a*`,	"baaab",	Vec{0,0, END} },
-	Tester{ `[a-z]+`,	"abcd",	Vec{0,4, END} },
-	Tester{ `[^a-z]+`,	"ab1234cd",	Vec{2,6, END} },
-	Tester{ `[a\-\]z]+`,	"az]-bcz",	Vec{0,4, END} },
-	Tester{ `[日本語]+`,	"日本語日本語",	Vec{0,18, END} },
-	Tester{ `()`,	"",	Vec{0,0, 0,0, END} },
-	Tester{ `(a)`,	"a",	Vec{0,1, 0,1, END} },
-	Tester{ `(.)(.)`,	"日a",	Vec{0,4, 0,3, 3,4, END} },
-	Tester{ `(.*)`,	"",	Vec{0,0, 0,0, END} },
-	Tester{ `(.*)`,	"abcd",	Vec{0,4, 0,4, END} },
-	Tester{ `(..)(..)`,	"abcd",	Vec{0,4, 0,2, 2,4, END} },
-	Tester{ `(([^xyz]*)(d))`,	"abcd",	Vec{0,4, 0,4, 0,3, 3,4, END} },
-	Tester{ `((a|b|c)*(d))`,	"abcd",	Vec{0,4, 0,4, 2,3, 3,4, END} },
-	Tester{ `(((a|b|c)*)(d))`,	"abcd",	Vec{0,4, 0,4, 0,3, 2,3, 3,4, END} },
-	Tester{ `a*(|(b))c*`,	"aacc",	Vec{0,4, 2,2, -1,-1, END} },
-}
-
-func Compile(expr string, error *os.Error) regexp.Regexp {
-	re, err := regexp.Compile(expr);
-	if err != error {
-		print("compiling `", expr, "`; unexpected error: ", err.String(), "\n");
-		sys.exit(1);
-	}
-	return re
-}
-
-func MarkedLen(m *[] int) int {
-	if m == nil {
-		return 0
-	}
-	var i int;
-	for i = 0; i < len(m) && m[i] != END; i = i+2 {
-	}
-	return i
-}
-
-func PrintVec(m *[] int) {
-	l := MarkedLen(m);
-	if l == 0 {
-		print("<no match>");
-	} else {
-		for i := 0; i < l && m[i] != END; i = i+2 {
-			print(m[i], ",", m[i+1], " ")
-		}
-	}
-}
-
-func Equal(m1, m2 *[]int) bool {
-	l := MarkedLen(m1);
-	if l != MarkedLen(m2) {
-		return false
-	}
-	for i := 0; i < l; i++ {
-		if m1[i] != m2[i] {
-			return false
-		}
-	}
-	return true
-}
-
-func Match(expr string, str string, match *[]int) {
-	re := Compile(expr, nil);
-	m := re.Execute(str);
-	if !Equal(m, match) {
-		print("failure on `", expr, "` matching `", str, "`:\n");
-		PrintVec(m);
-		print("\nshould be:\n");
-		PrintVec(match);
-		print("\n");
-		sys.exit(1);
-	}
-}
-
-func main() {
-	//regexp.debug = true;
-	if sys.argc() > 1 {
-		Compile(sys.argv(1), nil);
-		sys.exit(0);
-	}
-	for i := 0; i < len(good_re); i++ {
-		Compile(good_re[i], nil);
-	}
-	for i := 0; i < len(bad_re); i++ {
-		Compile(bad_re[i].re, bad_re[i].err)
-	}
-	for i := 0; i < len(matches); i++ {
-		t := &matches[i];
-		Match(t.re, t.text, &t.match)
-	}
-}