#!/bin/sh
# \
LD_LIBRARY_PATH=$XCRYSDEN_TOPDIR/external/lib; export LD_LIBRARY_PATH
# this line restarts tclsh \
exec $XCRYSDEN_TOPDIR/bin/xctclsh $0 "$@"

# return name of the file without the extension
set filename [split $argv .]
set nfield   [llength $filename]
if { $nfield > 1 } { 
    set filename [lrange $filename 0 [expr $nfield - 2]] 
}
regsub -all { } $filename \. filename
puts stdout $filename
flush stdout
exit 0
