/usr/share/doc/libplplot12/examples/tcl/mktclIndex is in plplot-tcl-dev 5.10.0+dfsg2-0.1ubuntu2.
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 26 27 28 29 30 31 32 33 34 35 | #!/bin/sh
#--------------------------------*- Tcl -*------------------------------------#
# $Id: mktclIndex 12427 2013-07-17 12:50:49Z arjenmarkus $
# Maurice LeBrun
# Dec 21 2000
#-----------------------------------------------------------------------------#
# @> Tcl script to create a TclIndex file. Imports Itcl so it will pick up
# @> incr tcl class definitions, but only if they are fully qualified (i.e.
# @> itcl::class), due to a bug in the incr tcl autoloading extension.
#-----------------------------------------------------------------------------#
#\
exec tclsh "$0" ${1+"$@"}
# If itcl is configured in, -itcl flag will be present.
set HAVE_ITCL 0
if {$argc > 0} {
foreach arg $argv {
if {$arg == "-itcl"} {set HAVE_ITCL 1}
}
}
# Catch errors in case there are no tcl files, although this shouldn't happen
if { [catch {
if { $HAVE_ITCL && ![catch {package require Itcl}] } {
# Include all itcl, itk files.
auto_mkindex . *.tcl *.itcl *.itk *.ith *.itm
} else {
# Just include tcl files
auto_mkindex . *.tcl
}
} msg] } {
puts "An error occurred, generating the tclIndex file: $msg"
}
exit
|