12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 1998/04/14 13:54:15 peterg
## Uses the _sub.sh rep to recursively generate and include sub systems.
##
## Revision 1.5 1998/03/09 13:36:00 peterg
## Cosmetic change
##
## Revision 1.4 1998/03/06 15:54:41 peterg
## Put message bcak in in simpler form
##
## Revision 1.3 1998/03/06 15:51:06 peterg
|
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
47
48
49
50
51
52
53
54
55
56
57
58
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
|
+
+
+
+
+
-
-
+
+
-
+
-
-
+
+
-
+
-
-
-
+
+
+
-
+
-
+
+
+
-
+
-
+
+
|
# already).
#
# Revision 1.1 1997/04/09 09:08:12 peterg
# Initial revision
#
###############################################################
# The level of the recursion null at top level; _lower at lower levels.
level=$2
crfile=$1_cr$level.r
if [ -f "$1_cr.r" ]; then
echo "Using $1_cr.r"
if [ -f "$crfile" ]; then
echo "Using $crfile"
else
# Inform user
echo "Creating $1_cr.r"
echo "Creating $crfile"
echo "% Constitutive relation file for $1 ($1_cr.r)" > $1_cr.r
echo "% Generated by MTT at `date`" >> $1_cr.r
echo "% Constitutive relation file for $1 ($crfile)" > $crfile
echo "% Generated by MTT at `date`" >> $crfile
echo >> $1_cr.r
echo >> $crfile
# Recursively create subsystem CR files
sh $1_sub.sh 'cr_txt2r ' ''
# Recursively create subsystem CR files -- at lower level
sh $1_sub.sh 'cr_txt2r ' ' _lower'
# Include subsystem CR files
sh $1_sub.sh 'echo ' '_cr.r' |\
sh $1_sub.sh 'echo ' '_cr_lower.r' |\
awk '{
print "in \"" $1 "\";"
}' >> $1_cr.r
}' >> $crfile
if [ -z "$level" ]; then
# Copy .cr files
awk '{
if (NF>0) {
print "mtt -q -u crcopy " $1;
}
}' $1_cr.txt | sh
# Include the .cr files
awk '{
if (NF>0) {
print "in \"" $1 ".cr\";"
}
}' $1_cr.txt >> $1_cr.r
}' $1_cr.txt >> $crfile
echo 'END;' >> $1_cr.r
echo 'END;' >> $crfile
fi
fi
# Now invoke the standard error handling.
#mtt_error mtt_error.txt
|