home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / tclxml2.0 / xml-8.0.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  2.6 KB  |  105 lines
  1. # xml-8.0.tcl --
  2. #
  3. #    This file provides generic XML services for all implementations.
  4. #    This file supports Tcl 8.0 regular expressions.
  5. #
  6. #    See xmlparse.tcl for the Tcl implementation of a XML parser.
  7. #
  8. # Copyright (c) 1998,1999 Zveno Pty Ltd
  9. # http://www.zveno.com/
  10. # 
  11. # Zveno makes this software and all associated data and documentation
  12. # ('Software') available free of charge for any purpose.
  13. # Copies may be made of this Software but all of this notice must be included
  14. # on any copy.
  15. # 
  16. # The Software was developed for research purposes and Zveno does not warrant
  17. # that it is error free or fit for any purpose.  Zveno disclaims any
  18. # liability for all claims, expenses, losses, damages and costs any user may
  19. # incur as a result of using, copying or modifying the Software.
  20. #
  21. # Copyright (c) 1997 Australian National University (ANU).
  22. # 
  23. # ANU makes this software and all associated data and documentation
  24. # ('Software') available free of charge for any purpose. You may make copies
  25. # of the Software but you must include all of this notice on any copy.
  26. # 
  27. # The Software was developed for research purposes and ANU does not warrant
  28. # that it is error free or fit for any purpose.  ANU disclaims any
  29. # liability for all claims, expenses, losses, damages and costs any user may
  30. # incur as a result of using, copying or modifying the Software.
  31. #
  32. # $Id: xml-8.0.tcl,v 1.3 2000/07/12 12:43:59 steve Exp $
  33.  
  34. package require -exact Tcl 8.0
  35.  
  36. package require sgml 1.8
  37.  
  38. package provide xmldefs 1.10
  39.  
  40. namespace eval xml {
  41.  
  42.     # Convenience routine
  43.     proc cl x {
  44.     return "\[$x\]"
  45.     }
  46.  
  47.     # Define various regular expressions
  48.  
  49.     # Characters
  50.     variable Char $::sgml::Char
  51.  
  52.     # white space
  53.     variable Wsp " \t\r\n"
  54.     variable noWsp [cl ^$Wsp]
  55.  
  56.     # Various XML names and tokens
  57.  
  58.     variable NameChar $::sgml::NameChar
  59.     variable Name $::sgml::Name
  60.     variable Names $::sgml::Names
  61.     variable Nmtoken $::sgml::Nmtoken
  62.     variable Nmtokens $::sgml::Nmtokens
  63.  
  64.     # Tokenising expressions
  65.  
  66.     variable tokExpr <(/?)([cl ^$Wsp>/]+)([cl $Wsp]*[cl ^>]*)>
  67.     variable substExpr "\}\n{\\2} {\\1} {\\3} \{"
  68.  
  69.     # table of predefined entities
  70.  
  71.     variable EntityPredef
  72.     array set EntityPredef {
  73.     lt <   gt >   amp &   quot \"   apos '
  74.     }
  75.  
  76. }
  77.  
  78. ###
  79. ###    General utility procedures
  80. ###
  81.  
  82. # xml::noop --
  83. #
  84. # A do-nothing proc
  85.  
  86. proc xml::noop args {}
  87.  
  88. ### Following procedures are based on html_library
  89.  
  90. # xml::zapWhite --
  91. #
  92. #    Convert multiple white space into a single space.
  93. #
  94. # Arguments:
  95. #    data    plain text
  96. #
  97. # Results:
  98. #    As above
  99.  
  100. proc xml::zapWhite data {
  101.     regsub -all "\[ \t\r\n\]+" $data { } data
  102.     return $data
  103. }
  104.  
  105.