Overview
Comment:Taken out all subsystem stuff - now done in mtt using
mtt_make_subsystems
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 7c9ccc6cd739d1295e89a7e649f646d85278f3d955001235cdfb8429d25f2d22
User & Date: gawthrop@users.sourceforge.net on 2000-11-30 15:23:16
Other Links: branch diff | manifest | tags
Context
2000-11-30
18:42:16
Sorted out for general use check-in: 62fb44de29 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:23:16
Taken out all subsystem stuff - now done in mtt using
mtt_make_subsystems check-in: 7c9ccc6cd7 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:12:55
Zapped the declaration of subsystem connections - now in individual
.def files check-in: ef56d6df46 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ese2rdae_r from [fb46631ac3] to [18b252a8a0].

︙
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, 1991, 1994, 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.9  2000/09/07 12:18:31  peterg
## Prettified layout of this file
##
## Revision 1.8  2000/09/07 12:07:26  peterg
## *** empty log message ***
##
## Revision 1.7  2000/09/01 13:34:15  peterg
## Exit on option error
##
## Revision 1.6  2000/09/01 13:30:32  peterg
︙
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222















































223
224
225
226
227
228

172
173
174
175
176
177
178















































179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231








-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+









SHUT "$daename";
quit;

EOF

if [ -n "$partition" ]; then
  rm -f mtt_junk
  # Now for the subsystems
  # Find subsystems
  subsystems=`mtt_get_subsystems $1`

  for subsystem in $subsystems; do
    echo Doing $subsystem
    ucname="MTT_"$subsystem"_uc"
  
    Nu=`mtt_getsize -internal $subsystem"_1" u`
    echo Nu $Nu
  
    # Use symbolic algebra to accomplish the transformation
    $SYMBOLIC >$logname  << EOF
  
    %Read the formatting function
    in "$MTTPATH/trans/reduce_matrix.r";
  
    % Definitions
    in "$defname";
  
    % Elementary system equations
    in "$esename";
  
    OFF Echo;
    OFF Nat;
   
    %Create the output file
    OUT "mtt_junk";
    % Connecting inputs
    MTT_Matrix := $ucname $
    MTT_Matrix_name := "$ucname" $
    MTT_Matrix_n := $Nu $
    MTT_Matrix_m := 1$
    Reduce_Matrix()$
  
    shut "mtt_junk";
EOF
    echo >> $1_rdae.r
    echo %Connections for subsystem $subsystem  >> $1_rdae.r
    echo >> $1_rdae.r
  
    cat mtt_junk >> $1_rdae.r
    rm -rf mtt_junk
  done
fi
#if [ -n "$partition" ]; then
#  rm -f mtt_junk
#  # Now for the subsystems
#  # Find subsystems
#  subsystems=`mtt_get_subsystems $1`
#
#  for subsystem in $subsystems; do
#    echo Doing $subsystem
#    ucname="MTT_"$subsystem"_uc"
#  
#    Nu=`mtt_getsize -internal $subsystem u`
#    echo Nu $Nu
#  
#    # Use symbolic algebra to accomplish the transformation
#    $SYMBOLIC >$logname  << EOF
#  
#    %Read the formatting function
#    in "$MTTPATH/trans/reduce_matrix.r";
#  
#    % Definitions
#    in "$defname";
#  
#    % Elementary system equations
#    in "$esename";
#  
#    OFF Echo;
#    OFF Nat;
#   
#    %Create the output file
#    OUT "mtt_junk";
#    % Connecting inputs
#    MTT_Matrix := $ucname $
#    MTT_Matrix_name := "$ucname" $
#    MTT_Matrix_n := $Nu $
#    MTT_Matrix_m := 1$
#    Reduce_Matrix()$
#  
#    shut "mtt_junk";
#EOF
#    echo >> $1_rdae.r
#    echo %Connections for subsystem $subsystem  >> $1_rdae.r
#    echo >> $1_rdae.r
#  
#    cat mtt_junk >> $1_rdae.r
#    rm -rf mtt_junk
#  done
#fi

echo "END;" >> $1_rdae.r

# Now invoke the standard error handling.
mtt_error_r $logname

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]