Index: mttroot/mtt/bin/trans/mtt_txt2m ================================================================== --- mttroot/mtt/bin/trans/mtt_txt2m +++ mttroot/mtt/bin/trans/mtt_txt2m @@ -13,10 +13,13 @@ # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # %% Version control history # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # %% $Id$ # %% $Log$ +# %% Revision 1.1 2000/05/11 10:55:57 peterg +# %% Initial revision +# %% # %% Revision 1.19 2000/02/11 13:35:16 peterg # %% Added the new MTTpar generation # %% # %% Revision 1.18 1999/11/14 22:22:17 peterg # %% Removed checks for implicit - now done at command-line level. @@ -98,16 +101,11 @@ echo Creating $1_$2.m #Create the $2 file complete with headers. case $representation in simpar) - echo "% Script file $1_$2.m" > $1_$2.m - echo "%% $2 file ($1_$2.m)" >> $1_$2.m - echo "%% Generated by MTT at `date`" >> $1_$2.m - echo '% Dummy globals' >> $1_$2.m - echo 'global ...' >> $1_$2.m - echo 'mtt_dummy_global;' >> $1_$2.m + lang_header -noglobals $1 simpar m '' mttsimpar > $1_simpar.m ;; numpar) lang_header $1 numpar m '' MTTpar > $1_numpar.m ;; *) @@ -129,18 +127,18 @@ N=split($1,a,"="); if (N==2) { LHS = a[1]; RHS = a[2]; gsub(quote, doublequote, RHS); - sub(/^[ ]*LAST/, "mttLAST", LHS); - sub(/^[ ]*DT/, "mttDT", LHS); - sub(/^[ ]*STEPFACTOR/, "mttSTEPFACTOR", LHS); - sub(/^[ ]*METHOD/, "mttMETHOD", LHS); - sub(/^[ ]*WMIN/, "mttWMIN", LHS); - sub(/^[ ]*WMAX/, "mttWMAX", LHS); - sub(/^[ ]*WSTEPS/, "mttWSTEPS", LHS); - sub(/^[ ]*INPUT/, "mttinput", LHS); + sub(/^[ ]*LAST/, "MTTsimpar.LAST", LHS); + sub(/^[ ]*DT/, "MTTsimpar.DT", LHS); + sub(/^[ ]*STEPFACTOR/, "MTTsimpar.STEPFACTOR", LHS); + sub(/^[ ]*METHOD/, "MTTsimpar.METHOD", LHS); + sub(/^[ ]*WMIN/, "MTTsimpar.WMIN", LHS); + sub(/^[ ]*WMAX/, "MTTsimpar.WMAX", LHS); + sub(/^[ ]*WSTEPS/, "MTTsimpar.WSTEPS", LHS); + sub(/^[ ]*INPUT/, "MTTsimpar.input", LHS); LHS = tolower(LHS); RHS = tolower(RHS); sub(/["]*euler["]*/, 1, RHS); sub(/["]*implicit["]*/, 2, RHS); statement = sprintf("%s= %s",LHS,RHS);