/usr/share/tcltk/xotcl1.6.7-xml/printVisitor.xotcl is in xotcl 1.6.7-2.
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 | # $Id: printVisitor.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::xml::printVisitor 0.9
package require xotcl::xml::parser
package require XOTcl
namespace eval ::xotcl::xml::printVisitor {
namespace import ::xotcl::*
##############################################################################
#
# Small debugging visitor that just uses node's print method to print the
# node tree
#
##############################################################################
Class PrintVisitor -superclass NodeTreeVisitor -parameter parser
PrintVisitor instproc visit objName {
puts [$objName print]
}
PrintVisitor instproc interpretNodeTree node {
$node accept [self]
}
namespace export PrintVisitor
}
namespace import ::xotcl::xml::printVisitor::*
|