Subversion Repositories DevTools

# -*- mode: perl; indent-width: 4; -*-
###############################################################################
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
# 
# File:         PLATFORM/eosm68k
#
# Contents:     EOS support
#
# Revision History:
#   19/08/99  APY   Created
###############################################################################
#

Eosm68kInit();

###############################################################################
#.  EOS 68x00 platform runtime configuration
#
#   Arguments:
#       --Mri[=version]         MRI compiler (default Mri=43)
#       --Gcc                   GCC (example only)
#
###############################################################################
sub Eosm68kInit
{
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
    my( $mri, $gcc );

#.. Parse arguments
#
    Debug( "eosm68k(@args)\n" );

    $mri = 0; $gcc = 0;
    foreach $_ ( @args ) {
        if (/^--Mri$/) {                        # MRI compiler (default)
        } elsif (/^--Mri=(.*)/) {               # MRI specific
            $mri = "$1";

        } elsif (/^--Gcc$/) {                   # GCC compiler
            $gcc = 1;

        } else {
            Message( "eosm68k: unknown option $_ -- ignored\n" );
        }
    }

#... Toolset
#
    if ($gcc) { 
        Toolset( '*', "gcc68k" );        
    } else {
        if ($mri) {
            Toolset( '*', "mri68k", "--Version=$mri" );
        } else {
            Toolset( '*', "mri68k" );
        }
    }

#... Generic EOS platform
#
    PlatformDefines( "eosm68k.def" );           # Standard m68k defines
    PlatformRequire( "eos" );                   # EOS definitions
}