/usr/share/xcrysden/util/ptable is in xcrysden-data 1.5.60-1build3.
This file is owned by root:root, with mode 0o755.
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 | #!/bin/sh
# \
#this line restarts wish \
exec wish "$0" "$@" > /dev/null
set script [info script]
while { [file type $script] eq "link" } {
set script [file readlink $script]
}
set dir [file dirname [file normalize $script]]
#
# INITIALIZATION
#
set system(PWD) [pwd]
set system(TOPDIR) [file normalize [file join $dir ..]]
if { [info exists env(XCRYSDEN_SCRATCH)] } {
set system(SCRDIR) $env(XCRYSDEN_SCRATCH)
} else {
set system(SCRDIR) /tmp
}
source $system(TOPDIR)/Tcl/xcInitLib.tcl
set ptable(ptable_script) 1
ptable .
|