home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
UnsquMod
< prev
next >
Wrap
Text File
|
1998-07-14
|
440b
|
25 lines
#!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];