source: svn/newcon3bcm2_21bu/BSEAV/api/build/nexus/bapi_thunks.pm

#!/usr/bin/perl
#############################################################################
#
#               Copyright (c) 2007, Broadcom Corporation.
#               All rights reserved.
#               Confidential Property of Broadcom Corporation.
#
#  THIS SOFTWARE MAY ONLY BE USED SUBJECT TO AN EXECUTED SOFTWARE LICENSE
#  AGREEMENT  BETWEEN THE USER AND BROADCOM.  YOU HAVE NO RIGHT TO USE OR
#  EXPLOIT THIS MATERIAL EXCEPT SUBJECT TO THE TERMS OF SUCH AN AGREEMENT.
#
# $brcm_Workfile: bapi_thunks.pm $
# $brcm_Revision: 1 $
# $brcm_Date: 7/9/07 1:30p $
#
# File Description:
#
# Revision History:
#
# $brcm_Log: /BSEAV/api/build/proxy/bapi_thunks.pm $
# 
# 1   7/9/07 1:30p erickson
# PR32377: autogen the thunk layer
# 
#
#############################################################################
use strict;
use bapi_callbacks;

package bapi_thunks;

sub build_thunks
{
        my ($filename, @funcs) = @_;
        my $func;
        open FILE, ">$filename";

        print FILE "/*********************************\n";
        print FILE "*\n";
        print FILE "* This file is autogenerated. Rebuild with BSEAV/api/build/proxy/autogen.\n";
        print FILE "*\n";
        print FILE "* This file acquires b_lock for every function call into the Settop API. The actual impl of each function is remapped to _impl.\n";
        print FILE "*\n";
        print FILE "*********************************/\n";
        print FILE "#define BSETTOP_NO_API_THUNKS\n";
        print FILE "#include \"bsettop_impl.h\"\n\n";

        # generate prototypes for all the _impl functions
        for $func (@funcs) {
                # NOTE: If there's an exception and a function does not belong in the thunk layer, add it here.

                my $impl = $func->{PROTOTYPE};
                $impl =~ s/$func->{FUNCNAME}/$func->{FUNCNAME}_impl/;
                print FILE "$impl;\n";
        }
        
        # generate the actual thunk layer functions which call the impl functions
        for $func (@funcs) {
                my $params = $func->{PARAMS};
                my $param;
                
                # NOTE: If there's an exception and a function does not belong in the thunk layer, add it here.

                print FILE "$func->{PROTOTYPE}\n\{\n";
                if ($func->{RETTYPE} eq "void") {
                        print FILE "  b_lock();\n";
                        print FILE "  $func->{FUNCNAME}_impl(";
                }
                else {
                        print FILE "  $func->{RETTYPE} result;\n";
                        print FILE "  b_lock();\n";
                        print FILE "  result = $func->{FUNCNAME}_impl(";
                }
                for $param (@$params) {
                        print FILE "$param->{NAME}";
                        if ($param != $params->[-1]) 
                        {
                                print FILE ", ";
                        }
                }
                print FILE ");\n";
                print FILE "  b_unlock();\n";
                if ($func->{RETTYPE} eq "void") {
                        print FILE "  return;\n";
                }
                else {
                        print FILE "  return result;\n";
                }
                print FILE "}\n\n";
        }
        close FILE;
}

sub build_remapping
{
        my ($filename, @funcs) = @_;
        my $func;
        open FILE, ">$filename";

        print FILE "/*********************************\n";
        print FILE "*\n";
        print FILE "* This file is autogenerated. Rebuild with BSEAV/api/build/proxy/autogen.\n";
        print FILE "*\n";
        print FILE "* This file remaps every public Settop API function to _impl. This allows the Settop API to call its own public API without reacquiring b_lock.\n";
        print FILE "*\n";
        print FILE "*********************************/\n";

        for $func (@funcs) {
                # NOTE: If there's an exception and a function does not belong in the thunk layer, add it here.
                print FILE "#define $func->{FUNCNAME} $func->{FUNCNAME}_impl\n";
        }
        print FILE "\n";
        close FILE;
}


sub build_kernel_export
{
        my ($filename, @funcs) = @_;
        my $func;
        open FILE, ">$filename";

        print FILE "/*********************************\n";
        print FILE "*\n";
        print FILE "* This file is autogenerated. Rebuild with BSEAV/api/build/proxy/autogen.\n";
        print FILE "*\n";
        print FILE "*********************************/\n";
        print FILE "#include \"bsettop.h\"\n";
        print FILE "#include <linux/config.h>\n";
        print FILE "#include <linux/module.h>\n";

        for $func (@funcs) {
                # NOTE: If there's an exception and a function does not belong in the thunk layer, add it here.
                print FILE "EXPORT_SYMBOL($func->{FUNCNAME});\n";
        }
        print FILE "\n";
        close FILE;
}

1;