mirror of
https://github.com/wfjm/w11.git
synced 2026-03-01 01:50:01 +00:00
44 lines
1.1 KiB
Bash
Executable File
44 lines
1.1 KiB
Bash
Executable File
#!/bin/bash
|
|
# $Id: gwstart 1369 2023-02-08 18:59:50Z mueller $
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
# Copyright 2016-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
#
|
|
# Revision History:
|
|
# Date Rev Version Comment
|
|
# 2022-12-22 1334 1.2 main Tcl code in tools/gwstart/bin; -w -> -nw
|
|
# 2016-10-03 812 1.1 add -w option
|
|
# 2016-07-23 792 1.0 Initial version
|
|
#
|
|
|
|
optnw=""
|
|
# handle options
|
|
while (( $# > 0 )) ; do
|
|
case $1 in
|
|
-nw) optnw=$1 ; shift 1 ;;
|
|
-*) echo "gwstart-E: invalid option '$1'"; exit 1 ;;
|
|
*) break;;
|
|
esac
|
|
done
|
|
|
|
# complain if no wave file specified
|
|
if (( $# == 0 )) ; then
|
|
echo "Usage: gwstart [opts] ghw-file tcl-commands ..."
|
|
echo " Options:"
|
|
echo " -nw disable Tcl command line input on stdio"
|
|
exit 1
|
|
fi
|
|
|
|
# use -S to start gtkwave without wish
|
|
# use -T to start gtkwave with wish (Note -S plus --wish crash gtkwave 3.3.73)
|
|
if [[ -n "$optnw" ]] ; then
|
|
ghwsopt+=" -S"
|
|
else
|
|
ghwsopt+=" -T"
|
|
fi
|
|
|
|
ghwfile=$1
|
|
shift 1
|
|
|
|
gtkwave $ghwsopt ${RETROBASE}/tools/gwstart/bin/gwinit.tcl $ghwfile -- -- "$@"
|
|
stty sane
|