]> matita.cs.unibo.it Git - helm.git/blob - helm/hxsp/make.pl
* various bug fix related to the environment returned when a match
[helm.git] / helm / hxsp / make.pl
1 #!/usr/bin/perl
2 open(MAIN, ">","./hxsp.pl")|| die "Can't open ./hxsp.pl : $!";
3 my $pd = "./splitted/";
4 my @pieces = ("0.init.p.pl","1.globvars.p.pl","2.start.p.pl",
5               "3.daemon.p.pl","4.hash.p.pl","5.libxslt.p.pl",
6               "6.commands.p.pl","7.qsparse.p.pl",
7               "8.strrep.p.pl","9.load.p.pl");
8
9 foreach $p (@pieces)
10 {
11    open(P, "$pd$p") || die "Can't open $pd$p : $!";
12    while(my $line = <P>) { print MAIN $line; }
13    close P;
14    print MAIN "\n";
15 }
16
17 close MAIN;