12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# 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
|
>
>
>
>
>
>
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7 1998/04/14 17:46:28 peterg
## To avoid clashes when creating for more thsan one top level file, adds
## _lower attribute to lower lecel constitutive relationship files.
## .constitutive relationship files only in top level _constitutive
## relationship files.
##
## 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
|
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
|
# Initial revision
#
###############################################################
# The level of the recursion null at top level; _lower at lower levels.
level=$2
crfile=$1_cr$level.r
if [ -f "$crfile" ]; then
echo "Using $crfile"
else
# Inform user
echo "Creating $crfile"
echo "% Constitutive relation file for $1 ($crfile)" > $crfile
echo "% Generated by MTT at `date`" >> $crfile
echo >> $crfile
# 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_lower.r' |\
awk '{
print "in \"" $1 "\";"
}' >> $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 >> $crfile
echo 'END;' >> $crfile
fi
|
|
>
|
|
|
<
|
>
|
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
103
104
105
106
107
108
109
|
# Initial revision
#
###############################################################
# The level of the recursion null at top level; _lower at lower levels.
level=$2
crfile=$1_cr.r
CRFILE=$1_cr.r
if [ -f "$crfile" ]; then
echo "Using $crfile"
else
# Inform user
echo "Creating $crfile"
echo "% Constitutive relation file for $1 ($crfile)" > $crfile
echo "% Generated by MTT at `date`" >> $crfile
echo >> $crfile
# 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" |\
awk '{
print "in \"" $1 "\";"
}' >> $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 >> $crfile
fi
echo 'END;' >> $crfile
fi
# Now invoke the standard error handling.
#mtt_error mtt_error.txt
|