10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 2000/10/14 09:26:48 peterg
## Initial revision
##
## Revision 1.1 2000/10/11 09:08:20 peterg
## Initial revision
##
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 2000/10/14 09:32:50 peterg
## struc version only does state and input
##
## Revision 1.1 2000/10/14 09:26:48 peterg
## Initial revision
##
## Revision 1.1 2000/10/11 09:08:20 peterg
## Initial revision
##
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;
*)
echo Language $language not supported - sorry; exit 1
esac
case $what in
struc)
strip_comments < $sys"_"$what".txt" | awk '{if (($1=="state")||($1=="input"))
print $4;
}' >mtt_names
;;
sympar)
strip_comments < $sys"_"$what".txt" | awk '{print $1}' >mtt_names
;;
*)
echo Argument 2 must be struc or sympar
esac
# Start
cat<<EOF
$first
EOF
#Write out the variables
awk '{
i++;
var[i] = tolower($1);
}
END{
n = i;
for (i=1; i<n; i++){
printf("%s%s",var[i], delim);
|
|
|
|
|
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
;;
*)
echo Language $language not supported - sorry; exit 1
esac
case $what in
struc)
strip_comments < $sys"_"$what".txt" | gawk '{if (($1=="state")||($1=="input"))
print $4;
}' >mtt_names
;;
sympar)
strip_comments < $sys"_"$what".txt" | gawk '{print $1}' >mtt_names
;;
*)
echo Argument 2 must be struc or sympar
esac
# Start
cat<<EOF
$first
EOF
#Write out the variables
gawk '{
i++;
var[i] = tolower($1);
}
END{
n = i;
for (i=1; i<n; i++){
printf("%s%s",var[i], delim);
|