8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Creates tk/tcl menus for xmtt.
# Copyright (c) P.J.Gawthrop, 1998,1999
#MTT blurb
title=`mtt --version`
#Collect all systems (inc dir name)
dirname=`basename $PWD`
systems=`echo *_abg.fig | sed 's/\([a-zA-Z0-9]*\)_abg.fig/\1/g'`
dirname_in_systems=`echo $systems | grep -c $dirname`
if [ "$dirname_in_systems" = "0" ]; then
systems="$systems $dirname"
fi
# Default system
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Creates tk/tcl menus for xmtt.
# Copyright (c) P.J.Gawthrop, 1998,1999
#MTT blurb
title=`mtt --version`
#Collect all systems (inc dir name)
dirname="basename `pwd`"
systems=`echo *_abg.fig | sed 's/\([a-zA-Z0-9]*\)_abg.fig/\1/g'`
dirname_in_systems=`echo $systems | grep -c $dirname`
if [ "$dirname_in_systems" = "0" ]; then
systems="$systems $dirname"
fi
# Default system
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
}'
# Examples menu
cat <<EOF
menu .exam.exam
EOF
strip_comments $MTTPATH/EXAMPLES | examples_txt2tk
# Representations menu
cat<<EOF
menu .rep.rep
menu .repall.repall
EOF
strip_comments $MTTPATH/REPS | reps_txt2tk
|
>
|
>
|
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
}'
# Examples menu
cat <<EOF
menu .exam.exam
EOF
echo '#' Examples menu
strip_comments <$MTTPATH/EXAMPLES | examples_txt2tk
# Representations menu
echo '#' Representations menu
cat<<EOF
menu .rep.rep
menu .repall.repall
EOF
strip_comments <$MTTPATH/REPS | reps_txt2tk
|