config/init/miniparrot.pm

   1 # Copyright (C) 2001-2006, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/init/miniparrot.pm - Miniparrot configuration
   7
   8 =head1 DESCRIPTION
   9
  10 Modifies settings to match miniparrot (ANSI C Parrot)'s needs.  This step
  11 primarily overwrites a lot of settings in the Configure database to disable
  12 JIT and match ANSI characteristics.
  13
  14 Centralizing these settings will (hopefully) allow for an eventual move away
  15 from using Configure at all for miniparrot builds.
  16
  17 =cut
  18
  19 package init::miniparrot;
  20
  21 use strict;
  22 use warnings;
  23
  24 use base qw(Parrot::Configure::Step);
  25
  26 sub _init {
  27     my $self = shift;
  28     my %data;
  29     $data{description} = q{Tweaking settings for miniparrot};
  30     $data{result}      = q{};
  31     return \%data;
  32 }
  33
  34 sub runstep {
  35     my ( $self, $conf ) = @_;
  36
  37     unless ( $conf->options->get('miniparrot') ) {
  38         $self->set_result('skipped');
  39         return 1;
  40     }
  41
  42     $conf->data->set(
  43         miniparrot         => 1,
  44         DEVEL              => $conf->data->get('DEVEL') . '-miniparrot',
  45         TEMP_cg_h          => '',
  46         TEMP_cg_c          => '',
  47         TEMP_cg_o          => '',
  48         TEMP_cg_r          => '',
  49         cg_flag            => '',
  50         archname           => 'miniparrot',
  51         cpuarch            => 'unknown',
  52         osname             => 'ANSI',
  53         jitarchname        => 'nojit',
  54         jitcpuarch         => 'i386',
  55         jitcpu             => 'I386',
  56         jitosname          => 'nojit',
  57         jitcapable         => 0,
  58         execcapable        => 0,
  59         cc_hasjit          => '',
  60         TEMP_jit_o         => '',
  61         TEMP_exec_h        => '',
  62         TEMP_exec_o        => '',
  63         TEMP_atomic_o      => '',
  64         asmfun_o           => '',
  65         has___sighandler_t => undef,
  66         has_sigatomic_t    => undef,
  67         has_sigaction      => undef,
  68         has_setitimer      => undef,
  69
  70         # we can't guarantee anything about pointer alignment under ANSI C89.
  71         # so we will have to check every byte.
  72         ptr_alignment => 1
  73     );
  74
  75     #Allow ANSI headers only
  76     foreach (
  77         qw(assert complex ctype errno locale math setjmp signal stdarg
  78         stdio stdlib string time)
  79         )
  80     {
  81         $conf->data->set( "i_$_" => 1 );
  82     }
  83
  84     return 1;
  85 }
  86
  87 1;
  88
  89 # Local Variables:
  90 #   mode: cperl
  91 #   cperl-indent-level: 4
  92 #   fill-column: 100
  93 # End:
  94 # vim: expandtab shiftwidth=4: