Overview
Comment:Changed tmp name to mtt_tmp
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: e9c7c8c8ec3aba44f024a53a1f864da4343a47e0c1ddc2421a2c2498a842f629
User & Date: gawthrop@users.sourceforge.net on 2000-12-01 18:11:13
Other Links: branch diff | manifest | tags
Context
2000-12-01
20:55:01
Added Geraint's fix for zeroing matrices check-in: f028d55876 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:11:13
Changed tmp name to mtt_tmp check-in: e9c7c8c8ec user: gawthrop@users.sourceforge.net tags: origin/master, trunk
18:00:59
Updated figure references check-in: 85b49debb9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/cse2smx_lang from [3c0731a9fc] to [7e3cce71af].

︙︙
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

LOAD GENTRAN;
GENTRANLANG!* := 'Pascal;
ON GENTRANSEG; % Segmentation

OFF GENDECS;  % No declarations
MAXEXPPRINTLEN!* := 80;
TEMPVARNUM!* := 1;
TEMPVARNAME!* := 'mtt_s;
%% '
% Optimise
$optimise


ON GETDECS;    % Create decrarations automatically
DEFTYPE!* := 'REAL; % and default to real








|








111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

LOAD GENTRAN;
GENTRANLANG!* := 'Pascal;
ON GENTRANSEG; % Segmentation

OFF GENDECS;  % No declarations
MAXEXPPRINTLEN!* := 80;
TEMPVARNUM!* := 1;
TEMPVARNAME!* := 'mtt_tmp;
%% '
% Optimise
$optimise


ON GETDECS;    % Create decrarations automatically
DEFTYPE!* := 'REAL; % and default to real
︙︙
186
187
188
189
190
191
192
193
194
195
196
197


198
199
200
201
202
203
204
205

  END;

%Shut the  output according to the language.
 GENTRANSHUT "$1_$rep.body";
EOF

if [ "$lang" = "m" ]; then
  lang_header $noglobals $parameters $1 $rep m 'mttx,mttu,mttt,mttpar' $out > $1_$rep.m

  echo '#====== Start of code ======#' >> $1_$rep.m

  cat $1_$rep.body | mtt_p2m >> $1_$rep.m


fi
 
# Now invoke the standard error handling.
mtt_error_r cse2smx_lang.log












|
|
<
<

>
>









186
187
188
189
190
191
192
193
194


195
196
197
198
199
200
201
202
203
204
205

  END;

%Shut the  output according to the language.
 GENTRANSHUT "$1_$rep.body";
EOF

if [ "$lang" = "m" ]; then
#  lang_header $noglobals $parameters $1 $rep m 'mttx,mttu,mttt,mttpar' $out > $1_$rep.m
  mtt_header $1 $rep m > $1_$rep.m


  cat $1_$rep.body | mtt_p2m >> $1_$rep.m
  echo "## END Code" >> $1_$rep.m
  echo "endfunction" >> $1_$rep.m
fi
 
# Now invoke the standard error handling.
mtt_error_r cse2smx_lang.log

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