Subversion Repositories DevTools

# -*- mode: perl; tabs: 8; indent-width: 4; show-tabs: yes; -*-

#

# Module name   : PCLINT

# Module type   : Makefile system

# Compiler(s)   : ANSI C

# Environment(s): Gimple C/C++ PCLint

#

# Description:

#   PCLINT toolset support.

#

# Contents:     

#   Generate rules to use Gmiple/PCLINT.

#

# Version   Who     Date        Description

#           APY     21/09/04    Created

#

# $Source: /cvsroot/etm/devl/CFG/TOOLSET/PCLINT,v $

# $Revision: 1.5 $ $Date: 2004/10/20 05:55:54 $ $State: Exp $

# $Author: ayoung $ $Locker:  $

#............................................................................#

use strict;

use warnings;

###############################################################################

#   PCLintInit()

#       Runtime initialisation

#

#   Arguments:

#       none                    No arguments currently defined

#

###############################################################################

PCLintInit();

sub PCLintInit

{

    ToolsetRules( "pclint.rul" );

}

###############################################################################

#   ToolsetARLINT( $name, \@args, \@objs )

#       This subroutine takes the user options and builds the rules

#       required to build the library 'name'.

#

#   Arguments:

#       none                    No arguments currently defined

#

#   Output:

#       [ $(LIBDIR)/name$_lint:   .... ]

#           $(ARLINT)

#

###############################################################################

sub PCLintAR

{

    my ($name, $pArgs, $pObjs, $target, $CSRC, $CXXSRC) = @_;

    my ($io) = ToolsetPrinter::New();

    #.. Lint command

    #

    $io->Prt( "\n\t\$(ARLINT)\n" );             # work horse

    #.. Remove generate files

    #

   ToolsetGenerate( "\$(LIBDIR)/${name}\$(GBE_TYPE).lob" );

    #

    #   Install and package the lint objects

    #

    PCLintInstall( $io, $name, $::LIB_INS{$name} );

    PCLintPackage( $io, $name, $::LIB_PKG{$name} );

    #

    #   UnPackaging command

    #   Since we are manually packaging we need to unpackage too

    #

    PackageLibAddFiles( $name, "\$(OBJDIR)/${name}\$(GBE_TYPE).lob", "RemoveOnly=1");

    $io->Newline();

}

###############################################################################

#   PCLintLD( $name, \@args, \@objs, \@libraries, \@csrc, \@cxxsrc )

#

#       This subroutine takes the user options and builds the rules

#       required to lint the program 'name'.

#

#   Arguments:

#       (none)

#

#   Output:

#       [ $(LIBDIR)/$name_lint:   .... ]

#           $(SHLIBLINT)

#

#       $name_shlnt +=

#       $name_shlnt += ...

#           :

#

###############################################################################

sub PCLintSHLIB

{

    my ($name, $pArgs, $pObjs, $pLibs, $target, $CSRC, $CXXSRC) = @_;

    my ($shlint) = "$name\_shlnt";

    my ($io) = ToolsetPrinter::New();

    #.. Lint command

    #

    $io->Prt( "\n\t\$(SHLIBLINT)\n" );          # work horse

    #.. Remove generate files

    #

    ToolsetGenerate( "\$(LIBDIR)/${name}\$(GBE_TYPE).lob" );

    #

    #   Install and package the lint objects

    #

    PCLintInstall( $io, $name, $::SHLIB_INS{$name} );

    PCLintPackage( $io, $name, $::SHLIB_PKG{$name} );

    PackageShlibAddFiles( $name, "\$(LIBDIR)/${name}\$(GBE_TYPE).lob", "RemoveOnly=1", "Class=lint");

    $io->Newline();

    #.. Lint object list,

    #

    #   Now piece together a variable $(name_shlint) which ends up

    #   in the command file building the lint object list.

    #

    $io->SetTag( "$shlint" );

    $io->Tag( "" );                             # remove undef warning

    $io->LibList( $name, $pLibs, \&PCLintLibRecipe );

    $io->Newline();

}

###############################################################################

#   PCLintLD( $name, \@args, \@objs, \@libraries, \@csrc, \@cxxsrc )

#

#       This subroutine takes the user options and builds the rules

#       required to lint the program 'name'.

#

#   Arguments:

#       (none)

#

#   Output:

#       [ $(BINDIR)/$name_lint:   .... ]

#           $(LDLINT)

#

#       $name_ldlnt +=

#       $name_ldlnt += ...

#           :

#

###############################################################################

sub PCLintLD

{

    my ($name, $pArgs, $pObjs, $pLibs, $target, $CSRC, $CXXSRC) = @_;

    my ($ldlint) = "$name\_ldlnt";

    my ($io) = ToolsetPrinter::New();

    #.. Lint command

    #

    $io->Prt( "\n\t\$(LDLINT)\n\n" );           # work horse

    #.. Lint object list,

    #

    #   Now piece together a variable $(name_ldlint) which ends up 

    #   in the command file building the lint object list.

    #

    $io->SetTag( "$ldlint" );

    $io->Tag( "" );                             # remove undef warning

    $io->LibList( $name, $pLibs, \&PCLintLibRecipe );

    $io->Newline();

}

sub PCLintLibRecipe

{

    my ($io, $target, $lib) = @_;

    $io->Cmd( "@(vlint3,$lib,LINTLIBPATH)" );   # lint resource

}

sub PCLintInstall

{

    my ($io, $name, $iptr) = @_;

    return unless ($iptr );

    my ($dest) = @{$iptr}[0];

    my ($dir) = StripFileExt( $dest );

    #

    #   Installation command

    #

    $io->Prt("\t\$(call InstallFile,$dir/$name\$(GBE_TYPE).lob,\$(LIBDIR)/$name\$(GBE_TYPE).lob,$dir,-w)\n" );

}

sub PCLintPackage

{

    my ($io, $name, $iptr) = @_;

    return unless ($iptr );

    my ($dest) = @{$iptr}[0];

    my ($dir) = StripFileExt( $dest );

    #

    #   Packaging command

    #

    $io->Prt("\t\$(if \$(LINTPACKAGE),\$(call PackageFile,$dir/$name\$(GBE_TYPE).lob,\$(LIBDIR)/$name\$(GBE_TYPE).lob,-w))\n" );

}