/usr/lib/Tclxml3.3/xml-8.0.tcl is in tclxml 3.3~svn11-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | # 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-2009 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.7.2.1 2005/12/28 06:49:51 balls Exp $
package require -exact Tcl 8.0
package require sgml 1.8
package provide xmldefs 3.3
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
}
|