/usr/bin/taud is in tau-racy 2.17.3.1.dfsg-4.2.
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | #!/bin/sh
# The backslash on the next line will cause tcl,
# but not sh or csh to ignore the next line \
exec wish $0 ${1:+"$@"}
#*********************************************************************#
#* TAU/pC++/Sage++ Copyright (C) 1994 *#
#* Jerry Manic Saftware *#
#* Indiana University University of Oregon University of Rennes *#
#*********************************************************************#
# --------------------------------------------------- #
# TAU tools wrapper: #
# common setup script for all TAU tools #
# #
# Bernd Mohr Mar 10, 95 #
# --------------------------------------------------- #
# -- set common global variables
if [info exists env(TAUROOT)] {
set TAUROOT $env(TAUROOT)
} elseif [file readable /usr/lib/tau] {
set TAUROOT /usr/lib/tau
} elseif [file readable ./TAUROOT] {
set in [open "./TAUROOT" "r"]
gets $in TAUROOT
close $in
} else {
puts stderr "ERROR: cannot determine TAUROOT"
exit
}
set myself taud
set TAUDIR $TAUROOT/tools
set BINDIR $TAUROOT/x86_64/bin
set REMSH rsh
set jstools_library $TAUROOT/extern/jstools-tk4.0v4.0/lib
set auto_path [linsert $auto_path 0 $jstools_library]
# -- Setup paths for jstools and tkman
set tkman(path) /usr/local/bin/tkman
set tkman(version) 1.7
set tkman(interp_name) [file tail $tkman(path)]
set tkman(win) .man
# -- include common header files
source "$TAUDIR/inc/utils.tcl"
source "$TAUDIR/inc/globalsel.tcl"
source "$TAUDIR/inc/languages.tcl"
source "$TAUDIR/inc/bdbm_utils.tcl"
source "$TAUDIR/inc/pm_interface.tcl"
# -- Define the toolset for TAU
set TOOLSET {cosy fancy spiffy cagey classy racy speedy}
# -- get toplevel window out of way
wm withdraw .
# -- include "real" program
setMyname $myself
source "$TAUDIR/src/$myself.tcl"
# -- setup common bindings
bind all Q exit
set tool_ready 1
|