10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
+
+
+
|
# Copyright (c) P.J.Gawthrop 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 1998/05/18 08:35:19 peterg
## Surround arguments to tr with ""
##
## Revision 1.9 1998/03/26 08:23:02 peterg
## Use mixed case Topic for *) part of case sttement
##
## Revision 1.8 1998/03/22 21:13:17 peterg
## Fixed bug in above
##
## Revision 1.7 1998/03/22 20:21:11 peterg
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
+
-
+
-
+
-
+
-
-
+
+
+
+
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
|
echo ' mtt help <component_or_example_or_CR_name>'
exit
fi
ext='_[cl]*.*[mt]'
summary='[%#]SUMMARY'
description='[%#]DESCRIPTION'
alias='[%#]ALIAS'
case $topic in
components)
key=$summary
find_path=$MTT_COMPONENTS
name='*_*.*'
name=''
sort='sort -u'
blurb="Components";;
crs)
key=$summary
find_path=$MTT_CRS
name='*.cr'
sort='sort -u'
blurb="Constitutive Relationships";;
examples)
key=$summary
find_path=$MTT_EXAMPLES
name='*_lbl.txt'
name=''
all='all'
sort='sort -u'
blurb="Examples";;
representations)
key=$summary
find_path=$MTTPATH/mtt
name='mtt'
all='all'
sort='sort -u'
blurb="Representations";;
*)
key="\"$summary|$description\""
key="$summary|$description|$alias"
find_path=$MTT_LIB
name=$Topic$ext
all=''
name=$Topic
all='all'
sort='cat'
blurb=$Topic;;
esac
subtopic=$2
if [ "$subtopic" = "" ]; then
subtopic='.'
fi;
echo $blurb
mtt_find $find_path "$name" "egrep -i $key.*$subtopic" $all|\
sed "s/$summary[ ]*/ /" |\
mtt_find $find_path "$name" |\
awk '{print "cat " $1 "/" $2}' | sh |\
egrep $key |\
sed "s/$summary[ ]*//" |\
sed "s/$description[ ]*/ /" |\
sed "s/$alias[ ]*/ Alias: /" |\
sed "s!$find_path/!!" |\
$sort
|