source: svn/newcon3bcm2_21bu/nexus/build/tools/common/nexus_struct_check.pl

#!/usr/bin/perl
#     (c)2003-2011 Broadcom Corporation
#
#  This program is the proprietary software of Broadcom Corporation and/or its licensors,
#  and may only be used, duplicated, modified or distributed pursuant to the terms and
#  conditions of a separate, written license agreement executed between you and Broadcom
#  (an "Authorized License").  Except as set forth in an Authorized License, Broadcom grants
#  no license (express or implied), right to use, or waiver of any kind with respect to the
#  Software, and Broadcom expressly reserves all rights in and to the Software and all
#  intellectual property rights therein.  IF YOU HAVE NO AUTHORIZED LICENSE, THEN YOU
#  HAVE NO RIGHT TO USE THIS SOFTWARE IN ANY WAY, AND SHOULD IMMEDIATELY
#  NOTIFY BROADCOM AND DISCONTINUE ALL USE OF THE SOFTWARE.
#
#  Except as expressly set forth in the Authorized License,
#
#  1.     This program, including its structure, sequence and organization, constitutes the valuable trade
#  secrets of Broadcom, and you shall use all reasonable efforts to protect the confidentiality thereof,
#  and to use this information only in connection with your use of Broadcom integrated circuit products.
#
#  2.     TO THE MAXIMUM EXTENT PERMITTED BY LAW, THE SOFTWARE IS PROVIDED "AS IS"
#  AND WITH ALL FAULTS AND BROADCOM MAKES NO PROMISES, REPRESENTATIONS OR
#  WARRANTIES, EITHER EXPRESS, IMPLIED, STATUTORY, OR OTHERWISE, WITH RESPECT TO
#  THE SOFTWARE.  BROADCOM SPECIFICALLY DISCLAIMS ANY AND ALL IMPLIED WARRANTIES
#  OF TITLE, MERCHANTABILITY, NONINFRINGEMENT, FITNESS FOR A PARTICULAR PURPOSE,
#  LACK OF VIRUSES, ACCURACY OR COMPLETENESS, QUIET ENJOYMENT, QUIET POSSESSION
#  OR CORRESPONDENCE TO DESCRIPTION. YOU ASSUME THE ENTIRE RISK ARISING OUT OF
#  USE OR PERFORMANCE OF THE SOFTWARE.
#
#  3.     TO THE MAXIMUM EXTENT PERMITTED BY LAW, IN NO EVENT SHALL BROADCOM OR ITS
#  LICENSORS BE LIABLE FOR (i) CONSEQUENTIAL, INCIDENTAL, SPECIAL, INDIRECT, OR
#  EXEMPLARY DAMAGES WHATSOEVER ARISING OUT OF OR IN ANY WAY RELATING TO YOUR
#  USE OF OR INABILITY TO USE THE SOFTWARE EVEN IF BROADCOM HAS BEEN ADVISED OF
#  THE POSSIBILITY OF SUCH DAMAGES; OR (ii) ANY AMOUNT IN EXCESS OF THE AMOUNT
#  ACTUALLY PAID FOR THE SOFTWARE ITSELF OR U.S. $1, WHICHEVER IS GREATER. THESE
#  LIMITATIONS SHALL APPLY NOTWITHSTANDING ANY FAILURE OF ESSENTIAL PURPOSE OF
#  ANY LIMITED REMEDY.
#
# $brcm_Workfile: nexus_struct_check.pl $
# $brcm_Revision: 1 $
# $brcm_Date: 9/14/11 11:26a $
#
# File Description:
#
# Revision History:
#
# $brcm_Log: /nexus/build/tools/common/nexus_struct_check.pl $
# 
# 1   9/14/11 11:26a erickson
# SWDEPRECATED-2425: add tool
# 
#############################################################################
use strict;
use lib '../build/tools/common';
use bapi_parse_c;

# usage:
#
# place nexus_struct_check in nexus/examples
# cd nexus/examples
# ls -d ../modules/*/7405/include >output.txt
# edit output.txt and remove modules you don't want to scan
# cd examples
# DIRS=`cat output.txt`
# FILES=`for i in $DIRS; do ls $i/*.h; done`
# perl nexus_struct_check.pl $FILES >test.c
# make test
# run "nexus test" on the settop


print "/* nexus struct check */\n";
print "#include <stdio.h>\n";
my $file;
if ($#ARGV == -1) {
    print "Usage: nexus_struct_check.pl file1.h file2.h ...\n";
    exit;
}
for $file (@ARGV) {
    my ($include_file) = $file =~ /\/([\w_]+\.h)$/;
    print "#include \"$include_file\"\n";
}
print "int main(void) {\n";
for $file (@ARGV) {
    if ($file =~ /\.h$/) {
        my $structs = bapi_parse_c::parse_struct $file;
        my $struct;
        for $struct (keys %$structs) {
            print "  printf(\"$struct = %d\\n\", sizeof($struct));\n";
        }
    }
}
print "  return 0;\n";
print "}\n";