Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
227 dpurdie 1 
# -*- mode: perl; indent-width: 4; -*-
2 
###############################################################################
3 
# Copyright (c) ERG Transit Systems. 1996-2004
4 
#
5 
# File:         PLATFORM/eosm68k
6 
#
7 
# Contents:     EOS support
8 
#
9 
# Revision History:
10 
#   19/08/99  APY   Created
11 
###############################################################################
12 
#
13 
 
14 
Eosm68kInit();
15 
 
16 
###############################################################################
17 
#.  EOS 68x00 platform runtime configuration
18 
#
19 
#   Arguments:
20 
#       --Mri[=version]         MRI compiler (default Mri=43)
21 
#       --Gcc                   GCC (example only)
22 
#
23 
###############################################################################
24 
sub Eosm68kInit
25 
{
26 
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
27 
    my( $mri, $gcc );
28 
 
29 
#.. Parse arguments
30 
#
31 
    Debug( "eosm68k(@args)\n" );
32 
 
33 
    $mri = 0; $gcc = 0;
34 
    foreach $_ ( @args ) {
35 
        if (/^--Mri$/) {                        # MRI compiler (default)
36 
        } elsif (/^--Mri=(.*)/) {               # MRI specific
37 
            $mri = "$1";
38 
 
39 
        } elsif (/^--Gcc$/) {                   # GCC compiler
40 
            $gcc = 1;
41 
 
42 
        } else {
43 
            Message( "eosm68k: unknown option $_ -- ignored\n" );
44 
        }
45 
    }
46 
 
47 
#... Toolset
48 
#
49 
    if ($gcc) {
50 
        Toolset( '*', "gcc68k" );
51 
    } else {
52 
        if ($mri) {
53 
            Toolset( '*', "mri68k", "--Version=$mri" );
54 
        } else {
55 
            Toolset( '*', "mri68k" );
56 
        }
57 
    }
58 
 
59 
#... Generic EOS platform
60 
#
61 
    PlatformDefines( "eosm68k.def" );           # Standard m68k defines
62 
    PlatformRequire( "eos" );                   # EOS definitions
63 
}