Overview
Comment:Another go at removing ends nicely
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: d383e3be7f9903772b39d39664d405d872bd452eff6823a7c0a00a69f90a8e50
User & Date: gawthrop@users.sourceforge.net on 2000-08-29 09:57:45
Other Links: branch diff | manifest | tags
Context
2000-08-29
09:59:47
Version 4.5 -- includes code optimisation using the "Scope" package in reduce check-in: b59c26ffb5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:57:45
Another go at removing ends nicely check-in: d383e3be7f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:31:30
Changed begin and end stripping to include trailing space check-in: 3a867e2989 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/mtt_p2m from [23c6336384] to [1a32a9e3a2].

1


2
3
4



5
6
7
8
9
10
11
1
2
3
4


5
6
7
8
9
10
11
12
13
14

+
+

-
-
+
+
+







#! /bin/sh
## Chages the Pascal output from gentran to octave form
# Copyright (C) 2000 by Peter J. Gawthrop

sed 's/begin / /' |\
sed 's/end / /' |\
sed 's/begin$//' |\
sed 's/end$//' |\
sed 's/end;$/;/' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\
sed 's/\*\*/\^/g' |\
sed 's/mtt\([a-z]*\)\([0-9]\)\([0-9]*\)/mtt\1(\2\3)/g' |\
awk '{
  sub(/^[\ ]*/, "", $0)
  sub(/\$$/, ";", $0)


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