Subversion Repositories DevTools

Rev

Rev 5709 | 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 Electronics Ltd. 1996-2004
4 
#
5 
# File:         PLATFORM/GENERIC
6 
#
7 
# Contents:     Minimul support for packages that are machine independent
8 
#
9 
# Revision History:
10 
#   02-Sep-04   DDP     Created
11 
#
12 
###############################################################################
13 
#
14 
 
15 
GENERICInit();
16 
 
17 
###############################################################################
18 
#
19 
sub GENERICInit
20 
{
21 
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
22 
    my( $product );
23 
 
24 
#.. Parse arguments
25 
#
26 
    Debug( "GENERIC(@args)\n" );
27 
 
28 
    foreach $_ ( @args ) {
29 
        if (/^--product=(.*)/) {
30 
            $product = $1;
31 
        } else {
32 
            Message( "GENERIC: unknown option $_ -- ignored\n" );
33 
        }
34 
    }
35 
 
36 
#... Toolset
37 
#
38 
    Toolset( '*', "GENERIC" );
39 
    return 1;
40 
}
41