1 files changed, 0 insertions, 92 deletions
diff --git a/tclxml/tclxml-tcl/xml-8.0.tcl b/tclxml/tclxml-tcl/xml-8.0.tcl
deleted file mode 100755
index db28423..0000000
--- a/tclxml/tclxml-tcl/xml-8.0.tcl
+++ /dev/null
@@ -1,92 +0,0 @@
-# xml-8.0.tcl --
-#
-#	This file provides generic XML services for all implementations.
-#	This file supports Tcl 8.0 regular expressions.
-#
-#	See xmlparse.tcl for the Tcl implementation of a XML parser.
-#
-# Copyright (c) 2005 by Explain.
-# http://www.explain.com.au/
-# Copyright (c) 1998-2004 Zveno Pty Ltd
-# http://www.zveno.com/
-# 
-# See the file "LICENSE" in this distribution for information on usage and
-# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# $Id: xml-8.0.tcl,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $
-
-package require -exact Tcl 8.0
-
-package require sgml 1.8
-
-package provide xmldefs 3.2
-
-namespace eval xml {
-
-    # Convenience routine
-    proc cl x {
-	return "\[$x\]"
-    }
-
-    # Define various regular expressions
-
-    # Characters
-    variable Char $::sgml::Char
-
-    # white space
-    variable Wsp " \t\r\n"
-    variable noWsp [cl ^$Wsp]
-
-    # Various XML names and tokens
-
-    variable NameChar $::sgml::NameChar
-    variable Name $::sgml::Name
-    variable Names $::sgml::Names
-    variable Nmtoken $::sgml::Nmtoken
-    variable Nmtokens $::sgml::Nmtokens
-
-    # The definition of the Namespace URI for XML Namespaces themselves.
-    # The prefix 'xml' is automatically bound to this URI.
-    variable xmlnsNS http://www.w3.org/XML/1998/namespace
-
-    # Tokenising expressions
-
-    variable tokExpr <(/?)([cl ^$Wsp>/]+)([cl $Wsp]*[cl ^>]*)>
-    variable substExpr "\}\n{\\2} {\\1} {\\3} \{"
-
-    # table of predefined entities
-
-    variable EntityPredef
-    array set EntityPredef {
-	lt <   gt >   amp &   quot \"   apos '
-    }
-
-}
-
-###
-###	General utility procedures
-###
-
-# xml::noop --
-#
-# A do-nothing proc
-
-proc xml::noop args {}
-
-### Following procedures are based on html_library
-
-# xml::zapWhite --
-#
-#	Convert multiple white space into a single space.
-#
-# Arguments:
-#	data	plain text
-#
-# Results:
-#	As above
-
-proc xml::zapWhite data {
-    regsub -all "\[ \t\r\n\]+" $data { } data
-    return $data
-}
-