#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Changes some REXX-Syntax to PERL.
# Used only once to generate uml2html from raw2ent.rexx

die "Usage: $0 filename\n"       unless($ARGV[0]);

open(IN_FILE,"<$ARGV[0]") || die "Cannot open $ARGV[0] for input\n";
while(<IN_FILE>){
   $_ =~ s/when c=\'/\$_ =~ s\//;
   $_ =~ s/\' then c=\'/\/\\/;
   $_ =~ s/\;\'/\\\;\/\;/;
      print($_);
   }

close IN;