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: |
19a58b6986063e9a673bf787bbf7d12f |
| 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: 202e9ae482 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 20:34:39 | Reformats elementary system equations. check-in: 19a58b6986 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: 3f67ca4c4c 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
}
|