/usr/share/tcltk/xotcl1.6.7-lib/Script.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 29 30 31 32 33 34 35 36 37 38 39 40 | #$Id: Script.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::script 0.9
package require XOTcl
namespace eval ::xotcl::script {
namespace import ::xotcl::*
@ @File {description {
A small package to instantiate an object, that
represents a script.
}
}
@ Class Script {
description {
An object of type Script becomes automatically the command
line arguments evaluated as "-" method calls during creation, e.g.
<@pre>
Script s -set r 5
</@pre>
and a call with cmd-line "-set v 6" of the script, results in an
object s with two vars set: r to 5, and v to 6.
}
}
Class Script
Script proc create args {
eval lappend args $::argv
eval next $args
}
Script instproc unknown args {
puts stderr "$::argv0: Unknown option ´-$args´ provided"
}
namespace export Script
}
namespace import ::xotcl::script::*
|