cvs commit: parrot/config/gen/makefiles root.in

[josh]

cvsuser     02/10/31 19:32:51

  Modified:    config/gen/makefiles root.in
  Added:       tools/dev rebuild_miniparrot.pl
  Log:
  Added ability to build a real miniparrot.  Whee.
  
  Revision  Changes    Path
  1.1                  parrot/tools/dev/rebuild_miniparrot.pl
  
  Index: rebuild_miniparrot.pl
  ===================================================================
  #!/usr/bin/perl
  
  # build a new miniparrot distribution in the "miniparrot" directory, along
  # with its build scripts.
  #
  # This script assumes that it will run on a unix box.. it's not particularly
  # necessary to be portable, since this only has to be run when packaging 
  # a release, or during development.
  
  use strict;
  no  strict 'refs';
  use Config;
  use Getopt::Long;
  use File::Copy;
  use File::Basename;
  use File::Path;
  use File::Find;
  
  my ($action, $executable);
  GetOptions("action=s"     => \$action,
             "executable=s" => \$executable);
  
  if ($action) {
      &{$action}();
  } else {
      print "** $0: reconfiguring parrot for miniparrot build\n";
      run_command("perl Configure.pl --miniparrot");
      
      print "** $0: initiating parrot prebuild\n";
      run_command("make miniparrot-prebuild");
  }
  
  print "\n\n";
  exit(0);
  
  ###########################################################################
  
  sub prebuild_classes {
      my @src;
      
      foreach my $obj (@ARGV) {
          my $src = $obj;
          $src =~ s/classes\/(.*)\.o/$1\.c/g;   
  
        push @src, $src;
      }
      
      run_command("cd classes; make @src");
  }
  
  sub clean {
      print "** $0: removing files in miniparrot directory\n";
      find(sub {
             return if ($File::Find::dir =~ /CVS/);
             unlink($_) if (-f $_);
           }, 'miniparrot');
  }
  
  
  sub copy_src_from_obj {
      print "** $0: copying object source files to miniparrot directory\n";
  
      foreach my $obj (@ARGV) {
          my $src = $obj;
          $src =~ s/\.o/\.c/g;
          copy_file($src, "miniparrot/$src");
      }
  }
  
  sub copy_src {
      print "** $0: copying source files to miniparrot directory\n";
  
      foreach my $file (@ARGV) {
          copy_file($file, "miniparrot/$file");
      }
  }
  
  sub write_buildscripts {
      my @compiled_files;
      foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        push @compiled_files, [ $src, $obj ];
      }
  
      print "** $0: writing parrot build scripts\n";
  
      ## GCC ##
      
      open(F, ">miniparrot/build_gcc.sh") ||
          die "Unable to write miniparrot/build_gcc.sh: $!\n";
      print F "#!/bin/sh\n";
      print F "\nset -x -e\n";
      foreach (@compiled_files) {
        print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[1]\n";
      }
      my @obj_files = map { $_->[1] } @compiled_files;
      print F "gcc -lm -o parrot " . (join ' ', @obj_files) . "\n";
      close(F);
  }
  
  
  ############################################################################
  sub run_command {
      my ($command) = @_;
    
      print "- $command\n";
      system($command);
    
      if ($? >> 8) {
          die "Error " . ($? >>8). " running $command\n";
      }
  }
  
  sub copy_file {
      my ($from, $to) = @_;
  
      my $directory = dirname($to);
  
      if (! -d $directory) {
          print "- mkpath $directory\n";
          mkpath($directory);
      }
  
      print "- copy $from => $to\n";
      copy($from, $to);
  
  }
  
  
  
  1.52      +18 -1     parrot/config/gen/makefiles/root.in
  
  Index: root.in
  ===================================================================
  RCS file: /cvs/public/parrot/config/gen/makefiles/root.in,v
  retrieving revision 1.51
  retrieving revision 1.52
  diff -u -w -r1.51 -r1.52
  --- root.in   1 Nov 2002 03:19:37 -0000       1.51
  +++ root.in   1 Nov 2002 03:32:51 -0000       1.52
  @@ -55,7 +55,7 @@
   
   GEN_SOURCES = core_ops.c core_ops_prederef.c fingerprint.c
   
  -GEN_MODULES = lib/Parrot/Jit.pm lib/Parrot/OpLib/core.pm
  +GEN_MODULES = lib/Parrot/OpLib/core.pm
   
   FLUID_FILES = $(GEN_OPSFILES) $(GEN_HEADERS) $(GEN_SOURCES) $(GEN_MODULES)
   
  @@ -594,3 +594,20 @@
        $(LINT) ${cc_inc} ${cc_hasjit} "-Iclasses" $(LINTFLAGS2) `echo $(O_FILES) | 
sed 's/\.o/\.c/g'`
        $(LINT) ${cc_inc} $(LINTFLAGS2) test_main.c
   
  +
  +###############################################################################
  +#
  +# miniparrot targets:
  +#
  +###############################################################################
  +
  +miniparrot-prebuild : $(GEN_CONFIGS) $(FLUID_FILES)
  +     @tools/dev/rebuild_miniparrot.pl --action=clean
  +     @tools/dev/rebuild_miniparrot.pl --action=prebuild_classes $(CLASS_O_FILES)
  +     @tools/dev/rebuild_miniparrot.pl --action=copy_src $(GEN_CONFIGS) 
$(FLUID_FILES) $(ALL_H_FILES)
  +     @tools/dev/rebuild_miniparrot.pl --action=copy_src classes/*.h test_main.c 
$(INC)/debug.h
  +     @tools/dev/rebuild_miniparrot.pl --action=copy_src_from_obj $(O_FILES)
  +     @tools/dev/rebuild_miniparrot.pl --action=write_buildscripts 
--executable=parrot $(O_FILES) test_main.o
  +
  +miniparrot-update :
  +     tools/dev/rebuild_miniparrot.pl