Overview
| Comment: | Reformats elementary system equations. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
fd75fa927a91d99745a3970ef7055096 |
| User & Date: | geraint@users.sourceforge.net on 2004-09-07 20:34:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-09-07
| ||
| 20:36:32 | Renamed ese_r2make.pl -> ese_txt2make.pl check-in: c0a0abfada user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 20:34:39 | Reformats elementary system equations. check-in: fd75fa927a user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 18:25:50 | Writes messages to logfile instead of stdout if debug is enabled. check-in: 29839ea8b9 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/ese_r2txt.pl version [afe19321de].
> > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
#! /usr/bin/perl -w
use strict;
$/ = ';'; # statements are terminated by ;
while (<STDIN>) {
chomp;
s/%.*\n//g; # strip comments (% to end of line)
s/(\s)*//g; # strip whitespace
s/^END$//; # strip junk
next if /^(\s)*$/; # skip blank lines
printf ("%s\n", $_); # print what remains
}
|