Artifact afe19321de19668d9ef1d4f626aaf445e5a7d34a3ab950525dc0756efdff6811:

• Executable file mtt/bin/trans/ese_r2txt.pl — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 320) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/ese_r2txt.pl — part of check-in [fd75fa927a] at 2004-09-07 20:34:39 on branch origin/master — Reformats elementary system equations. (user: geraint@users.sourceforge.net, size: 320) [annotate] [blame] [check-ins using]

#! /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
}