Artifact afe19321de19668d9ef1d4f626aaf445e5a7d34a3ab950525dc0756efdff6811:


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


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