mirror of https://gitlab.com/QEF/q-e.git
90 lines
2.3 KiB
Bash
Executable File
90 lines
2.3 KiB
Bash
Executable File
#!/bin/sh
|
|
# ----------------------------------------------------------------------
|
|
# PROGRAM: guib
|
|
# USAGE: guib module-file
|
|
# PURPOSE: tries to be a simple GUI based on module definition file
|
|
# ----------------------------------------------------------------------
|
|
# Anton Kokalj
|
|
# Jozef Stefan Institute, Ljubljana, Slovenia
|
|
# INFM DEMOCRITOS National Simulation Center, Trieste, Italy
|
|
# Email: Tone.Kokalj@ijs.si
|
|
# ======================================================================
|
|
# Copyright (c) 2002,2003 Anton Kokalj
|
|
# ======================================================================
|
|
#
|
|
#
|
|
# This file is distributed under the terms of the GNU General Public
|
|
# License. See the file `COPYING' in the root directory of the present
|
|
# distribution, or http://www.gnu.org/copyleft/gpl.txt .
|
|
#
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
# NONINFRINGEMENT. IN NO EVENT SHALL ANTON KOKALJ BE LIABLE FOR ANY
|
|
# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
#
|
|
|
|
if test "x`type readlink`" = "x"; then
|
|
# no readlink cmd; make a function-substitute
|
|
readlink() {
|
|
echo `ls -l $1 | awk '{print $NF}'`
|
|
}
|
|
fi
|
|
|
|
pathname() {
|
|
file=`type -p $1`
|
|
if test $? -gt 0; then
|
|
file=`which $1`
|
|
if test $? -gt 0; then
|
|
# give-up
|
|
file=$1
|
|
fi
|
|
fi
|
|
echo $file
|
|
}
|
|
|
|
pathdir() {
|
|
file=`pathname $1`
|
|
|
|
while test -h $file; do
|
|
file=`readlink $file`
|
|
done
|
|
|
|
dir=`dirname $file`
|
|
( cd $dir; pwd )
|
|
}
|
|
|
|
if test -z "$GUIB" ; then
|
|
# try to guess the GUIB value
|
|
export GUIB=`pathdir $0`
|
|
fi
|
|
|
|
|
|
if test $# -eq 1 ; then
|
|
if test \( "$1" = "-v" \) -o \( "$1" = "--version" \) ; then
|
|
version=`cat $GUIB/VERSION`
|
|
echo $version
|
|
exit 0
|
|
fi
|
|
else
|
|
echo "
|
|
Usage: $0 GUIB-definition-file
|
|
"
|
|
exit 1
|
|
fi
|
|
|
|
if test -d $GUIB/bin ; then
|
|
echo "
|
|
GUIB: using the \"$GUIB/itkwish\" interpreter
|
|
"
|
|
$GUIB/bin/itkwish $GUIB/guib.tcl $@
|
|
else
|
|
echo "
|
|
GUIB: using the system default \"tclsh\" interpreter
|
|
"
|
|
tclsh $GUIB/guib.tcl $@
|
|
fi
|