Overview
| Comment: | Geraint's broken number patch applied |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
6a40005962c5fc7c591c5d70cd0a3d0c |
| User & Date: | gawthrop@users.sourceforge.net on 2001-02-03 13:54:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2001-02-03
| ||
| 14:00:01 | Geraint's temp. variable patch applied check-in: f70a014035 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:54:02 | Geraint's broken number patch applied check-in: 6a40005962 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:40:45 | Added explicit MTTNu check-in: 2dc4650985 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/cse2smx_lang from [7e3cce71af] to [cb9652010b].
| ︙ | ︙ | |||
184 185 186 187 188 189 190 191 192 193 194 |
GENTRAN mttax(i) ::=: mttAAx_i;
END;
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
| > > > > | | 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 |
GENTRAN mttax(i) ::=: mttAAx_i;
END;
END;
%Shut the output according to the language.
GENTRANSHUT "$1_$rep.body";
EOF
fix_broken_numbers ( ) {
sed -e "/[0-9.]$/ N" -e "s/\([0-9.]\)[\n\t\ ]*\([0-9]\)/\1\2/g"
}
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 | fix_broken_numbers | 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
|