From bb733c2f7b33f120bca60c497a202413d031800c Mon Sep 17 00:00:00 2001 From: pmichaud Date: Tue, 28 Aug 2012 01:12:53 -0500 Subject: Remove obsolete build/ directory. --- build/2010.08-patch.pl | 9 ----- build/buildall.pl | 73 ---------------------------------------- build/patch/2010.08-3a339e.patch | 47 -------------------------- build/skel-template.pl | 58 ------------------------------- 4 files changed, 187 deletions(-) delete mode 100644 build/2010.08-patch.pl delete mode 100644 build/buildall.pl delete mode 100644 build/patch/2010.08-3a339e.patch delete mode 100644 build/skel-template.pl 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 -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 - -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 "; -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': $!"; -} -- cgit v1.1