home *** CD-ROM | disk | FTP | other *** search
- #!perl -w
- # Version 0.01
- use RISCOS::Module 'rm_unsqueeze';
- use RISCOS::Filespec;
- use RISCOS::File 'settype';
- use strict;
-
- die "Syntax $0: <from> <to>\n" unless @ARGV == 2;
-
- undef $/;
-
- open MOD, "<$ARGV[0]" or die "Couldn't open $ARGV[0]: $!";
-
- my $raw = <MOD>; # Sluuuuurp!
-
- my $cooked = rm_unsqueeze $raw;
-
- die unless $cooked;
-
- open MOD, ">$ARGV[1]" or die "Couldn't open '$ARGV[1]': $!";
-
- print MOD $cooked;
-
- settype 'Module', $ARGV[1];
-