From e7b48539447198b4bde186ec4da8490e283ebcec Mon Sep 17 00:00:00 2001 From: Daveo Date: Fri, 19 Jan 2001 15:41:46 +0000 Subject: [PATCH] --- build/mklevel.pl | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 build/mklevel.pl diff --git a/build/mklevel.pl b/build/mklevel.pl new file mode 100644 index 000000000..249bb929d --- /dev/null +++ b/build/mklevel.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 <