Remove obsolete build/ directory.

4 files changed, 0 insertions, 187 deletions

diff --git a/build/2010.08-patch.pl b/build/2010.08-patch.pl
deleted file mode 100644
index 4e623cd..0000000
--- a/build/2010.08-patch.pl
+++ /dev/null
@@ -1,9 +0,0 @@
-#! perl
-
-## Star patches to be applied to the 2010.08 release
-
-my $DISTDIR = $ENV{'DISTDIR'};
-
-system("cp build/patch/2010.08-3a339e.patch $DISTDIR/build");
-system("cd $DISTDIR/rakudo; patch -p1 <../build/2010.08-3a339e.patch");
-
diff --git a/build/buildall.pl b/build/buildall.pl
deleted file mode 100644
index 55dc9c6..0000000
--- a/build/buildall.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-use File::Spec;
-use File::Copy;
-
-my $inst_path = File::Spec->rel2abs(shift(@ARGV) || 'build');
-print "Installing to '$inst_path'\n";
-if ($inst_path =~ /\s/) {
-    warn "Path names with whitspace are known to cause trouble\n"
-        . "You would be on the safer side without them - set with $^X $0 'inst_path'\n";
-}
-
-chdir('rakudo') or die "Can't chdir to rakudo: $!";
-print "Building parrot and Rakudo...\n";
-system($^X, 'Configure.pl', '--gen-parrot', "--gen-parrot-prefix=$inst_path") == 0
-    or die "Can't run $^x Configure.pl ($?): $!";
-
-my %config = read_parrot_config();
-my $make = $config{make};
-
-system($make, 'install') == 0
-    or die "Can't run 'make install' for Rakudo: ($?): $!";
-
-chdir('..') or die "Can't chdir back to .., something's seriously wrong!\n";
-
-print "Rakudo build was successful. \\o/\n";
-
-my $path_var_sep = $^O =~ /mswin32/i ? ';' : ':';
-$ENV{PATH} = join '', "$inst_path/bin", $path_var_sep, $ENV{PATH};
-
-my $res = qx/perl6 -e 'say "sanity";'/;
-chomp $res;
-if ($res ne 'sanity') {
-    die "Sanity check for running Rakudo Perl 6 failed. Got '$res', Expected: 'sanity'\n"
-        . "Aborting.\n";
-}
-
-print "Things look good so far, executing a very simple Perl 6 program worked!\n";
-
-
-copy('ufo/ufo', "$inst_path/bin/") or die "Can't copy ufo/ufo to $inst_path/bin: $!";
-print "We now have alien technology that lets us install more modules...\n";
-
-$ENV{PLS_NO_FETCH} = 1;
-
-use Cwd;
-my $proto_lib = getcwd() . '/proto/lib';
-$ENV{PERL6LIB} = $proto_lib;
-chdir 'proto' or die "Can't chdir to 'proto': $!";
-# TODO: find a better way to determine which modules to install in this step.
-# Likely derive from @modules or so.
-for (qw(zavolaj xml-writer svg svg-plot Math-RungeKutta Math-Model)) {
-    print "Installing $_...\n";
-    system('perl6', 'proof-of-concept', $_) == 0
-        or die "Can't run poc $_ ($?): $!";
-
-}
-
-
-sub read_parrot_config {
-    my %config = ();
-    if (open my $CFG, "parrot/config_lib.pir") {
-        while (<$CFG>) {
-            if (/P0\["(.*?)"], "(.*?)"/) { $config{$1} = $2 }
-        }
-        close $CFG;
-    }
-    %config;
-}
-
-
diff --git a/build/patch/2010.08-3a339e.patch b/build/patch/2010.08-3a339e.patch
deleted file mode 100644
index 0995bb4..0000000
--- a/build/patch/2010.08-3a339e.patch
+++ /dev/null
@@ -1,47 +0,0 @@
-commit 3a339ee8ab3a72867fe914ec9c689e1f5a890645
-Author: tcurtis <tyler.l.curtis@gmail.com>
-Date:   Tue Aug 24 15:52:28 2010 -0500
-
-    Switch objectref_pmc.template to auto_attrs.
-    
-    Fixes a nasty memory leak that would leak at least 3 scalars per block.
-    Now a simple 'while 1 { }' loop seems not to leak anymore.
-    
-    Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
-
-diff --git a/src/pmc/objectref_pmc.template b/src/pmc/objectref_pmc.template
-index d0a8daa..cafc1d2 100644
---- a/src/pmc/objectref_pmc.template
-+++ b/src/pmc/objectref_pmc.template
-@@ -19,7 +19,7 @@ Forwards all but some methods to the held PMC.
- #include "parrot/parrot.h"
- static STRING *OBJECTREF_str;
- 
--pmclass ObjectRef dynpmc group perl6_group manual_attrs {
-+pmclass ObjectRef dynpmc group perl6_group auto_attrs {
-     ATTR PMC *value;
- 
-     void class_init() {
-@@ -36,10 +36,6 @@ pmclass ObjectRef dynpmc group perl6_group manual_attrs {
-     VTABLE void init_pmc(PMC *value) {
-         /* Need custom mark and destroy. */
-         PObj_custom_mark_SET(SELF);
--        PObj_custom_destroy_SET(SELF);
--
--        /* Create underlying structure. */
--        PMC_data(SELF) = mem_allocate_zeroed_typed(Parrot_ObjectRef_attributes);
- 
-         /* Initialize with an undef PMC if no value. */
-         if (PMC_IS_NULL(value))
-@@ -56,11 +52,6 @@ pmclass ObjectRef dynpmc group perl6_group manual_attrs {
-         }
-     }
- 
--    VTABLE void destroy() {
--        mem_sys_free(PMC_data(SELF));
--        PMC_data(SELF) = NULL;
--    }
--
-     VTABLE PMC * get_pmc() {
-         PMC * value;
-         GET_ATTR_value(INTERP, SELF, value);
diff --git a/build/skel-template.pl b/build/skel-template.pl
deleted file mode 100644
index 0e355fe..0000000
--- a/build/skel-template.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-# grabs some variables (containing versions) from Makefile,
-# and then copies files from template-skel over to the
-# dist folder, replacing occurrences of those variables
-# in the process.
-
-use strict;
-use warnings;
-
-my $destination = shift(@ARGV) || die "Usage: $0 <destination>";
-unless (-d $destination) {
-    die "Destination '$destination' should be a directory, but is not";
-}
-
-my %look_for = (PARROT_VER => 1,  RAKUDO_VER => 1,  NQP_VER => 1);
-my %vars;
-
-open my $fh, '<', 'Makefile'
-    or die "Cannot open Makefile for reading: $!";
-
-while (<$fh>) {
-    chomp;
-    if (/^(\w+)\s*=\s*(\S*)/ && $look_for{$1}) {
-        delete $look_for{$1};
-        $vars{$1} = $2;
-        last unless %look_for;
-    }
-}
-close $fh;
-if (%look_for) {
-    die "Couldn't find a definition for the following variable(s) in Makfile\n"
-        . join(', ', keys %look_for) . "\n";
-}
-
-my $subst_re = join '|', map quotemeta, keys %vars;
-$subst_re = qr{\<($subst_re)\>};
-
-# XXX recursive traversal + templating NYI, one level is enough for a start
-
-for my $file (glob 'template-skel/*') {
-    my $dest = $file;
-    $dest =~ s{^template-skel/}{$destination/};
-    process_file($file, $dest);
-}
-
-sub process_file {
-    my ($source, $dest) = @_;
-    print "Processing '$source' into '$dest'\n";
-    open my $in, '<', $source
-        or die "Cannot open '$source' for reading: $!";
-    open my $out, '>', $dest
-        or die "Cannot open '$dest' for writing: $!";
-    while (<$in>) {
-        s/$subst_re/$vars{$1}/g;
-        print { $out } $_  or die "Cannot write to '$dest': $!";
-    }
-    close $in;
-    close $out or die "Cannot close '$dest': $!";
-}