Subversion Repositories DevTools

# -*- mode: perl; indent-width: 4; -*-
###############################################################################
# Copyright (c) ERG Electronics Ltd. 1996-2004
# 
# File:         PLATFORM/GENERIC
#
# Contents:     Minimul support for packages that are machine independent
#
# Revision History:
#   02-Sep-04   DDP     Created
#
###############################################################################
#

GENERICInit();

###############################################################################
#
sub GENERICInit
{
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
    my( $product );

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

    foreach $_ ( @args ) {
        if (/^--product=(.*)/) {
            $product = $1;
        } else {
            Message( "GENERIC: unknown option $_ -- ignored\n" );
        }
    }

#... Toolset
#
    Toolset( '*', "GENERIC" );
    return 1;
}