First version of hxsp (new version of UWOBO implemented in Perl by

[helm.git] / helm / hxsp / make.pl

diff --git a/helm/hxsp/make.pl b/helm/hxsp/make.pl
new file mode 100644 (file)
index 0000000..ecd3a28
--- /dev/null
+++ b/helm/hxsp/make.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+open(MAIN, ">","./hxsp.pl")|| die "Can't open ./hxsp.pl : $!";
+my $pd = "./splitted/";
+my @pieces = ("0.init.p.pl","1.globvars.p.pl","2.start.p.pl",
+              "3.daemon.p.pl","4.hash.p.pl","5.libxslt.p.pl",
+              "6.commands.p.pl","7.qsparse.p.pl",
+              "8.strrep.p.pl","9.load.p.pl");
+
+foreach $p (@pieces)
+{
+   open(P, "$pd$p") || die "Can't open $pd$p : $!";
+   while(my $line = <P>) { print MAIN $line; }
+   close P;
+   print MAIN "\n";
+}
+
+close MAIN;