3 files changed, 0 insertions, 276 deletions

diff --git a/devel/tcllib/files/patch-mime-tests b/devel/tcllib/files/patch-mime-tests
deleted file mode 100644
index 85ccaa39b176..000000000000
--- a/devel/tcllib/files/patch-mime-tests
+++ /dev/null
@@ -1,46 +0,0 @@
---- modules/mime/mime.test	2006-01-30 20:16:45.000000000 -0800
-+++ modules/mime/mime.test	2006-10-06 19:54:36.000000000 -0700
-@@ -7,7 +7,7 @@
- # Copyright (c) 2000 by Ajuba Solutions
- # All rights reserved.
- #
--# RCS: @(#) $Id: mime.test,v 1.25 2006/01/31 04:16:31 andreas_kupries Exp $
-+# RCS: @(#) $Id: mime.test,v 1.26 2006/10/07 02:54:36 andreas_kupries Exp $
- 
- # -------------------------------------------------------------------------
- 
-@@ -75,14 +75,12 @@
- Content-Type: text/plain\r
- \r
- jack and jill\r
--\r
- --bndry\r
- MIME-Version: 1.0\r
- Content-ID: \[^\n]+\r
- Content-Type: text/plain\r
- \r
- james\r
--\r
- --bndry--\r
- " $msg] [regexp "boundary=\"bndry\"" $msg] [regexp "myparam=\"foo\"" $msg]
- } {1 1 1}
-@@ -146,8 +144,7 @@
- } "msg1 {MIME-Version: 2.0\r
- Content-Type: text/plain\r
- \r
--msg1\r
--}"
-+msg1}"
- 
- test mime-3.5 {Try to parse a MIME message with no newline between headers and data} {
-     set msg2 {MIME-Version: 1.0
-@@ -172,8 +169,7 @@
- } "foo {MIME-Version: 1.0\r
- Content-Type: text/plain\r
- \r
--foo\r
--}"
-+foo}"
- 
- test mime-3.7 {Test mime with a bad email [SF Bug 631314 ]} {
-     catch {
diff --git a/devel/tcllib/files/patch-smtp b/devel/tcllib/files/patch-smtp
deleted file mode 100644
index ddd8231e4160..000000000000
--- a/devel/tcllib/files/patch-smtp
+++ /dev/null
@@ -1,35 +0,0 @@
-Solves the problem described in:
-
-http://sourceforge.net/tracker/index.php?func=detail&aid=827436&group_id=12883&atid=112883
-
---- modules/mime/smtp.tcl	2005/10/07 07:26:40	1.44
-+++ modules/mime/smtp.tcl	2006/11/06 21:21:59	1.45
-@@ -1,7 +1,7 @@
- # smtp.tcl - SMTP client
- #
- # Copyright (c) 1999-2000 Marshall T. Rose
--# Copyright (c) 2003-2005 Pat Thoyts
-+# Copyright (c) 2003-2006 Pat Thoyts
- #
- # See the file "license.terms" for information on usage and redistribution
- # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-@@ -32,7 +32,7 @@
- 
- 
- namespace eval ::smtp {
--    variable version 1.4.2
-+    variable version 1.4.3
-     variable trf 1
-     variable smtp
-     array set smtp { uid 0 }
-@@ -1123,6 +1123,10 @@
- 	    while {[regsub -all -- {([^\r])\n} $result "\\1\r\n" result]} {}
-             regsub -all -- {\n\.}      $result "\n.."   result
- 
-+            # Fix for bug #827436 - mail data must end with CRLF.CRLF
-+            if {[string compare [string index $result end] "\n"] != 0} {
-+                append result "\r\n"
-+            }
-             set state(size) [string length $result]
-             puts -nonewline $state(sd) $result
-             set result ""
diff --git a/devel/tcllib/files/patch-tcl85 b/devel/tcllib/files/patch-tcl85
deleted file mode 100644
index 4765b8660bdb..000000000000
--- a/devel/tcllib/files/patch-tcl85
+++ /dev/null
@@ -1,195 +0,0 @@
---- modules/cmdline/typedCmdline.test.orig	Thu Jun 28 13:56:05 2007
-+++ modules/cmdline/typedCmdline.test	Thu Jun 28 13:57:28 2007
-@@ -115,7 +115,7 @@
- 	catch {unset arg}
- 	set argList {-foo 123}
- 	list [catch {cmdline::typedGetopt argList {a.arg foo.bar b} opt arg} msg] $msg $argList $opt $arg
--    } [list 1 {Illegal option type specification: must be one of alnum|alpha|ascii|control|boolean|digit|double|false|graph|integer|lower|print|punct|space|true|upper|wideinteger|wordchar|xdigit} {-foo 123} {} {}]
-+    } [list 1 {Illegal option type specification: must be one of alnum|alpha|ascii|control|boolean|digit|double|false|graph|integer|list|lower|print|punct|space|true|upper|wideinteger|wordchar|xdigit} {-foo 123} {} {}]
- } else {
-     test typed-cmdline-6.14 {cmdline::typedGetopt, integer options} {
- 	catch {unset opt}
---- modules/grammar_me/me_tcl.test.orig	Thu Jun 28 14:00:22 2007
-+++ modules/grammar_me/me_tcl.test	Thu Jun 28 14:03:49 2007
-@@ -509,7 +509,17 @@
- 	grammar::me::tcl::ict_match_tokclass a b c
-     } -result {wrong # args: should be "grammar::me::tcl::ict_match_tokclass code msg"}
- 
--test mevmtcl-ict_match_tokclass-1.2a {Call with bad code} \
-+if {[::tcltest::testConstraint tcl8.5plus]} {
-+    test mevmtcl-ict_match_tokclass-1.2a {Call with bad code} \
-+	-constraints tcl8.5plus \
-+	-returnCodes error \
-+	-setup {
-+	    grammar::me::tcl::init fake
-+	} -body {
-+	    grammar::me::tcl::ict_match_tokclass gargle foo
-+	} -result {bad class "gargle": must be alnum, alpha, ascii, control, boolean, digit, double, false, graph, integer, list, lower, print, punct, space, true, upper, wideinteger, wordchar, or xdigit}
-+} else {
-+    test mevmtcl-ict_match_tokclass-1.2a {Call with bad code} \
-     -constraints tcl8.5plus \
-     -returnCodes error \
-     -setup {
-@@ -517,6 +527,7 @@
-     } -body {
- 	grammar::me::tcl::ict_match_tokclass gargle foo
-     } -result {bad class "gargle": must be alnum, alpha, ascii, control, boolean, digit, double, false, graph, integer, lower, print, punct, space, true, upper, wideinteger, wordchar, or xdigit}
-+}
- 
- test mevmtcl-ict_match_tokclass-1.2b {Call with bad code} \
-     -constraints {!tcl8.5plus} \
---- modules/math/fuzzy.test	2006/01/24 05:10:01	1.5
-+++ modules/math/fuzzy.test	2006/11/07 20:02:34	1.6
-@@ -168,6 +168,12 @@
-    set tol_le 0
-    set tol_lt 0
- 
-+   #
-+   # Force Tcl8.4 or earlier behaviour in expanding numbers
-+   #
-+   set org_tcl_precision $tcl_precision
-+   set tcl_precision 12
-+
-    for { set i -1000 } { $i <= 1000 } { incr i } {
-       if { $i == 0 } continue
- 
-@@ -192,6 +198,7 @@
-          set equal 0
-       }
-    }
-+   set tcl_precision $org_tcl_precision
-    set equal
- } 0
- 
-
---- modules/snit/snit.test.orig	Thu Jun 28 14:48:15 2007
-+++ modules/snit/snit.test	Thu Jun 28 14:48:17 2007
-@@ -693,7 +693,8 @@
-     dog destroy
- } -result {3}
- 
--test dtypemethod-1.6 {delegating unknown typemethod to existing typecomponent with error} -body {
-+if {[::tcltest::testConstraint tcl8.5plus]} {
-+    test dtypemethod-1.6 {delegating unknown typemethod to existing typecomponent with error} -body {
-     type dog {
-         delegate typemethod * to stringhandler
- 
-@@ -703,9 +704,24 @@
-     }
- 
-     dog foo bar
--} -returnCodes {
-+    } -returnCodes {
-     error
--} -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+    } -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+} else {
-+    test dtypemethod-1.6 {delegating unknown typemethod to existing typecomponent with error} -body {
-+	type dog {
-+    	    delegate typemethod * to stringhandler
-+
-+    	    typeconstructor {
-+        	set stringhandler string
-+    	    }
-+	}
-+
-+	dog foo bar
-+    } -returnCodes {
-+	error
-+    } -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+}
- 
- test dtypemethod-1.7 {can't delegate local typemethod: order 1} -body {
-     type dog {
-@@ -3218,7 +3234,8 @@
-     dog destroy
- } -result {3}
- 
--test dmethod-1.6 {delegating unknown method to existing component with error} -body {
-+if {[::tcltest::testConstraint tcl8.5plus]} {
-+    test dmethod-1.6 {delegating unknown method to existing component with error} -body {
-     type dog {
-         constructor {args} {
-             set stringhandler string
-@@ -3229,11 +3246,29 @@
- 
-     dog create spot
-     spot foo bar
--} -returnCodes {
-+    } -returnCodes {
-     error
--} -cleanup {
-+    } -cleanup {
-+        dog destroy
-+    } -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+} else {
-+    test dmethod-1.6 {delegating unknown method to existing component with error} -body {
-+	type dog {
-+    	    constructor {args} {
-+        	set stringhandler string
-+    	    }
-+
-+            delegate method * to stringhandler
-+	}
-+
-+        dog create spot
-+        spot foo bar
-+    } -returnCodes {
-+	error
-+    } -cleanup {
-     dog destroy
--} -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+    } -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}
-+}
- 
- test dmethod-1.7 {can't delegate local method: order 1} -body {
-     type cat {
-@@ -5784,13 +5819,23 @@
- #-----------------------------------------------------------------------
- # expose statement
- 
--test expose-1.1 {can't expose nothing} -body {
-+if {[::tcltest::testConstraint tcl8.5plus]} {
-+    test expose-1.1 {can't expose nothing} -body {
-     type dog {
- 	expose
-     }
--} -returnCodes {
-+    } -returnCodes {
-+	error
-+    } -result [tcltest::wrongNumArgs expose {component ?as? ?methodname?} 0]
-+} else {
-+    test expose-1.1 {can't expose nothing} -body {
-+	type dog {
-+	    expose
-+	}
-+    } -returnCodes {
-     error
--} -result [tcltest::wrongNumArgs ::snit::Comp.statement.expose {component ?as? ?methodname?} 0]
-+    } -result [tcltest::wrongNumArgs ::snit::Comp.statement.expose {component ?as? ?methodname?} 0]
-+}
- 
- test expose-1.2 {expose a component that's never installed} -body {
-     type dog {
---- modules/struct/sets.test.orig	Thu Jun 28 14:10:46 2007
-+++ modules/struct/sets.test	Thu Jun 28 14:13:24 2007
-@@ -36,10 +36,17 @@
- 
- #----------------------------------------------------------------------
- 
--test set-1.0 {nothing} {
-+if {[::tcltest::testConstraint tcl8.5plus]} {
-+    test set-1.0 {nothing} {
-     catch {setop} msg
-     set msg
--} [tcltest::wrongNumArgs {::struct::set::set} {cmd args} 0]
-+    } [tcltest::wrongNumArgs {setop} {cmd args} 0]
-+} else {
-+    test set-1.0 {nothing} {
-+	catch {setop} msg
-+	set msg
-+    } [tcltest::wrongNumArgs {::struct::set::set} {cmd args} 0]
-+}
- 
- test set-1.1 {bogus} {
-     catch {setop foo} msg