From 3c69617195caced6d7f79e9aaf79ff1cd6a34cf5 Mon Sep 17 00:00:00 2001 From: Daveo Date: Mon, 26 Feb 2001 21:06:59 +0000 Subject: [PATCH] --- build/mkactor.pl | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 build/mkactor.pl diff --git a/build/mkactor.pl b/build/mkactor.pl new file mode 100644 index 000000000..8156a854b --- /dev/null +++ b/build/mkactor.pl @@ -0,0 +1,36 @@ +$OutFile=shift(@ARGV); +$InStr=shift(@ARGV); + +@Tmp=split('_',$InStr); +$Chapter=shift(@Tmp); +$Level=shift(@Tmp); +$LevelDir =$Chapter/\$Level; + +# printf("I got\n0: $OutFile\n1: $InStrn\n"); +# printf("Chapter = $Chapter\n"); +# printf("Level = $Level\n"); +# printf("LevelDir = $LevelDir\n"); + +$OutFile=">$OutFile"; +open(OutFile) || die "Can't create makefile $OutFile; $!"; +print OutFile <