michael@0: #!perl
michael@0: # 
michael@0: # This Source Code Form is subject to the terms of the Mozilla Public
michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/.
michael@0: 
michael@0: $copyright = '/* THIS IS A GENERATED FILE */
michael@0: /* This Source Code Form is subject to the terms of the Mozilla Public
michael@0:  * License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0:  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
michael@0: ';
michael@0: 
michael@0: $count = -1;
michael@0: $i = 0;
michael@0: 
michael@0: open(INPUT, "<$ARGV[0]") || die "Can't open $ARGV[0]: $!";
michael@0: 
michael@0: while(<INPUT>) {
michael@0:   s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/;
michael@0:   next if (/^\s*$/);
michael@0: 
michael@0: #  print;
michael@0: 
michael@0:   /^([\S]+)\s+([^"][\S]*|"[^"]*")/;
michael@0:   $name = $1;
michael@0:   $value = $2;
michael@0: 
michael@0:   if( ($name =~ "FUNCTION") && !($name =~ "CK_FUNCTION") ) {
michael@0:     $count++;
michael@0:     $x[$count]{name} = $value;
michael@0:     $i = 0;
michael@0:   } else {
michael@0:     if( $count < 0 ) {
michael@0:       $value =~ s/"//g;
michael@0:       $g{$name} = $value;
michael@0:     } else {
michael@0:       $x[$count]{args}[$i]{type} = $name;
michael@0:       $x[$count]{args}[$i]{name} = $value;
michael@0:       $i++;
michael@0:       $x[$count]{nargs} = $i; # rewritten each time, oh well
michael@0:     }
michael@0:   }
michael@0: }
michael@0: 
michael@0: close INPUT;
michael@0: 
michael@0: # dodump();
michael@0: doprint();
michael@0: 
michael@0: sub dodump {
michael@0:   for( $j = 0; $j <= $count; $j++ ) {
michael@0:     print "CK_RV CK_ENTRY $x[$j]{name}\n";
michael@0:     for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:       print "  $x[$j]{args}[$i]{type} $x[$j]{args}[$i]{name}";
michael@0:       if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:         print "\n";
michael@0:       } else {
michael@0:         print ",\n";
michael@0:       }
michael@0:     }
michael@0:   }
michael@0: }
michael@0: 
michael@0: sub doprint {
michael@0: open(PROTOTYPE, ">nssckg.h") || die "Can't open nssckg.h: $!";
michael@0: open(TYPEDEF, ">nssckft.h") || die "Can't open nssckft.h: $!";
michael@0: open(EPV, ">nssckepv.h") || die "Can't open nssckepv.h: $!";
michael@0: open(API, ">nssck.api") || die "Can't open nssck.api: $!";
michael@0: 
michael@0: select PROTOTYPE;
michael@0: 
michael@0: print $copyright;
michael@0: print <<EOD
michael@0: #ifndef NSSCKG_H
michael@0: #define NSSCKG_H
michael@0: 
michael@0: /*
michael@0:  * nssckg.h
michael@0:  *
michael@0:  * This automatically-generated header file prototypes the Cryptoki
michael@0:  * functions specified by PKCS#11.
michael@0:  */
michael@0: 
michael@0: #ifndef NSSCKT_H
michael@0: #include "nssckt.h"
michael@0: #endif /* NSSCKT_H */
michael@0: 
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: for( $j = 0; $j <= $count; $j++ ) {
michael@0:   print "CK_RV CK_ENTRY $x[$j]{name}\n";
michael@0:   print "(\n";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "  $x[$j]{args}[$i]{type} $x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print "\n";
michael@0:     } else {
michael@0:       print ",\n";
michael@0:     }
michael@0:   }
michael@0:   print ");\n\n";
michael@0: }
michael@0: 
michael@0: print <<EOD
michael@0: #endif /* NSSCKG_H */
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: select TYPEDEF;
michael@0: 
michael@0: print $copyright;
michael@0: print <<EOD
michael@0: #ifndef NSSCKFT_H
michael@0: #define NSSCKFT_H
michael@0: 
michael@0: /*
michael@0:  * nssckft.h
michael@0:  *
michael@0:  * The automatically-generated header file declares a typedef
michael@0:  * each of the Cryptoki functions specified by PKCS#11.
michael@0:  */
michael@0: 
michael@0: #ifndef NSSCKT_H
michael@0: #include "nssckt.h"
michael@0: #endif /* NSSCKT_H */
michael@0: 
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: for( $j = 0; $j <= $count; $j++ ) {
michael@0: #  print "typedef CK_RV (CK_ENTRY *CK_$x[$j]{name})(\n";
michael@0:   print "typedef CK_CALLBACK_FUNCTION(CK_RV, CK_$x[$j]{name})(\n";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "  $x[$j]{args}[$i]{type} $x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print "\n";
michael@0:     } else {
michael@0:       print ",\n";
michael@0:     }
michael@0:   }
michael@0:   print ");\n\n";
michael@0: }
michael@0: 
michael@0: print <<EOD
michael@0: #endif /* NSSCKFT_H */
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: select EPV;
michael@0: 
michael@0: print $copyright;
michael@0: print <<EOD
michael@0: #ifndef NSSCKEPV_H
michael@0: #define NSSCKEPV_H
michael@0: 
michael@0: /*
michael@0:  * nssckepv.h
michael@0:  *
michael@0:  * This automatically-generated header file defines the type
michael@0:  * CK_FUNCTION_LIST specified by PKCS#11.
michael@0:  */
michael@0: 
michael@0: #ifndef NSSCKT_H
michael@0: #include "nssckt.h"
michael@0: #endif /* NSSCKT_H */
michael@0: 
michael@0: #ifndef NSSCKFT_H
michael@0: #include "nssckft.h"
michael@0: #endif /* NSSCKFT_H */
michael@0: 
michael@0: #include "nssckp.h"
michael@0: 
michael@0: struct CK_FUNCTION_LIST {
michael@0:   CK_VERSION version;
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: for( $j = 0; $j <= $count; $j++ ) {
michael@0:   print "  CK_$x[$j]{name} $x[$j]{name};\n";
michael@0: }
michael@0: 
michael@0: print <<EOD
michael@0: };
michael@0: 
michael@0: #include "nsscku.h"
michael@0: 
michael@0: #endif /* NSSCKEPV_H */
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: select API;
michael@0: 
michael@0: print $copyright;
michael@0: print <<EOD
michael@0: 
michael@0: /*
michael@0:  * nssck.api
michael@0:  *
michael@0:  * This automatically-generated file is used to generate a set of
michael@0:  * Cryptoki entry points within the object space of a Module using
michael@0:  * the NSS Cryptoki Framework.
michael@0:  *
michael@0:  * The Module should have a .c file with the following:
michael@0:  *
michael@0:  *  #define MODULE_NAME name
michael@0:  *  #define INSTANCE_NAME instance
michael@0:  *  #include "nssck.api"
michael@0:  *
michael@0:  * where "name" is some module-specific name that can be used to
michael@0:  * disambiguate various modules.  This included file will then
michael@0:  * define the actual Cryptoki routines which pass through to the
michael@0:  * Framework calls.  All routines, except C_GetFunctionList, will
michael@0:  * be prefixed with the name; C_GetFunctionList will be generated
michael@0:  * to return an entry-point vector with these routines.  The
michael@0:  * instance specified should be the basic instance of NSSCKMDInstance.
michael@0:  *
michael@0:  * If, prior to including nssck.api, the .c file also specifies
michael@0:  *
michael@0:  *  #define DECLARE_STRICT_CRYTPOKI_NAMES
michael@0:  *
michael@0:  * Then a set of "stub" routines not prefixed with the name will
michael@0:  * be included.  This would allow the combined module and framework
michael@0:  * to be used in applications which are hard-coded to use the
michael@0:  * PKCS#11 names (instead of going through the EPV).  Please note
michael@0:  * that such applications should be careful resolving symbols when
michael@0:  * more than one PKCS#11 module is loaded.
michael@0:  */
michael@0: 
michael@0: #ifndef MODULE_NAME
michael@0: #error "Error: MODULE_NAME must be defined."
michael@0: #endif /* MODULE_NAME */
michael@0: 
michael@0: #ifndef INSTANCE_NAME
michael@0: #error "Error: INSTANCE_NAME must be defined."
michael@0: #endif /* INSTANCE_NAME */
michael@0: 
michael@0: #ifndef NSSCKT_H
michael@0: #include "nssckt.h"
michael@0: #endif /* NSSCKT_H */
michael@0: 
michael@0: #ifndef NSSCKFWT_H
michael@0: #include "nssckfwt.h"
michael@0: #endif /* NSSCKFWT_H */
michael@0: 
michael@0: #ifndef NSSCKFWC_H
michael@0: #include "nssckfwc.h"
michael@0: #endif /* NSSCKFWC_H */
michael@0: 
michael@0: #ifndef NSSCKEPV_H
michael@0: #include "nssckepv.h"
michael@0: #endif /* NSSCKEPV_H */
michael@0: 
michael@0: #define ADJOIN(x,y) x##y
michael@0: 
michael@0: #define __ADJOIN(x,y) ADJOIN(x,y)
michael@0: 
michael@0: /*
michael@0:  * The anchor.  This object is used to store an "anchor" pointer in
michael@0:  * the Module's object space, so the wrapper functions can relate
michael@0:  * back to this instance.
michael@0:  */
michael@0: 
michael@0: static NSSCKFWInstance *fwInstance = (NSSCKFWInstance *)0;
michael@0: 
michael@0: static CK_RV CK_ENTRY
michael@0: __ADJOIN(MODULE_NAME,C_Initialize)
michael@0: (
michael@0:   CK_VOID_PTR pInitArgs
michael@0: )
michael@0: {
michael@0:   return NSSCKFWC_Initialize(&fwInstance, INSTANCE_NAME, pInitArgs);
michael@0: }
michael@0: 
michael@0: #ifdef DECLARE_STRICT_CRYPTOKI_NAMES
michael@0: CK_RV CK_ENTRY 
michael@0: C_Initialize
michael@0: (
michael@0:   CK_VOID_PTR pInitArgs
michael@0: )
michael@0: {
michael@0:   return __ADJOIN(MODULE_NAME,C_Initialize)(pInitArgs);
michael@0: }
michael@0: #endif /* DECLARE_STRICT_CRYPTOKI_NAMES */
michael@0: 
michael@0: static CK_RV CK_ENTRY
michael@0: __ADJOIN(MODULE_NAME,C_Finalize)
michael@0: (
michael@0:   CK_VOID_PTR pReserved
michael@0: )
michael@0: {
michael@0:   return NSSCKFWC_Finalize(&fwInstance);
michael@0: }
michael@0: 
michael@0: #ifdef DECLARE_STRICT_CRYPTOKI_NAMES
michael@0: CK_RV CK_ENTRY
michael@0: C_Finalize
michael@0: (
michael@0:   CK_VOID_PTR pReserved
michael@0: )
michael@0: {
michael@0:   return __ADJOIN(MODULE_NAME,C_Finalize)(pReserved);
michael@0: }
michael@0: #endif /* DECLARE_STRICT_CRYPTOKI_NAMES */
michael@0: 
michael@0: static CK_RV CK_ENTRY
michael@0: __ADJOIN(MODULE_NAME,C_GetInfo)
michael@0: (
michael@0:   CK_INFO_PTR pInfo
michael@0: )
michael@0: {
michael@0:   return NSSCKFWC_GetInfo(fwInstance, pInfo);
michael@0: }
michael@0: 
michael@0: #ifdef DECLARE_STRICT_CRYPTOKI_NAMES
michael@0: CK_RV CK_ENTRY
michael@0: C_GetInfo
michael@0: (
michael@0:   CK_INFO_PTR pInfo
michael@0: )
michael@0: {
michael@0:   return __ADJOIN(MODULE_NAME,C_GetInfo)(pInfo);
michael@0: }
michael@0: #endif /* DECLARE_STRICT_CRYPTOKI_NAMES */
michael@0: 
michael@0: /*
michael@0:  * C_GetFunctionList is defined at the end.
michael@0:  */
michael@0: 
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: for( $j = 4; $j <= $count; $j++ ) {
michael@0:   print "static CK_RV CK_ENTRY\n";
michael@0:   print "__ADJOIN(MODULE_NAME,$x[$j]{name})\n";
michael@0:   print "(\n";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "  $x[$j]{args}[$i]{type} $x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print "\n";
michael@0:     } else {
michael@0:       print ",\n";
michael@0:     }
michael@0:   }
michael@0:   print ")\n";
michael@0:   print "{\n";
michael@0:   print "  return NSSCKFW$x[$j]{name}(fwInstance, ";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "$x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print ");\n";
michael@0:     } else {
michael@0:       print ", ";
michael@0:     }
michael@0:   }
michael@0:   print "}\n\n";
michael@0: 
michael@0:   print "#ifdef DECLARE_STRICT_CRYPTOKI_NAMES\n";
michael@0:   print "CK_RV CK_ENTRY\n";
michael@0:   print "$x[$j]{name}\n";
michael@0:   print "(\n";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "  $x[$j]{args}[$i]{type} $x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print "\n";
michael@0:     } else {
michael@0:       print ",\n";
michael@0:     }
michael@0:   }
michael@0:   print ")\n";
michael@0:   print "{\n";
michael@0:   print "  return __ADJOIN(MODULE_NAME,$x[$j]{name})(";
michael@0:   for( $i = 0; $i < $x[$j]{nargs}; $i++ ) {
michael@0:     print "$x[$j]{args}[$i]{name}";
michael@0:     if( $i == ($x[$j]{nargs} - 1) ) {
michael@0:       print ");\n";
michael@0:     } else {
michael@0:       print ", ";
michael@0:     }
michael@0:   }
michael@0:   print "}\n";
michael@0:   print "#endif /* DECLARE_STRICT_CRYPTOKI_NAMES */\n\n";
michael@0: }
michael@0: 
michael@0: print <<EOD
michael@0: static CK_RV CK_ENTRY
michael@0: __ADJOIN(MODULE_NAME,C_GetFunctionList)
michael@0: (
michael@0:   CK_FUNCTION_LIST_PTR_PTR ppFunctionList
michael@0: );
michael@0: 
michael@0: static CK_FUNCTION_LIST FunctionList = {
michael@0:   { 2, 1 },
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: for( $j = 0; $j <= $count; $j++ ) {
michael@0:   print "__ADJOIN(MODULE_NAME,$x[$j]{name})";
michael@0:   if( $j < $count ) {
michael@0:     print ",\n";
michael@0:   } else {
michael@0:     print "\n};\n\n";
michael@0:   }
michael@0: }
michael@0: 
michael@0: print <<EOD
michael@0: static CK_RV CK_ENTRY
michael@0: __ADJOIN(MODULE_NAME,C_GetFunctionList)
michael@0: (
michael@0:   CK_FUNCTION_LIST_PTR_PTR ppFunctionList
michael@0: )
michael@0: {
michael@0:   *ppFunctionList = &FunctionList;
michael@0:   return CKR_OK;
michael@0: }
michael@0: 
michael@0: /* This one is always present */
michael@0: CK_RV CK_ENTRY
michael@0: C_GetFunctionList
michael@0: (
michael@0:   CK_FUNCTION_LIST_PTR_PTR ppFunctionList
michael@0: )
michael@0: {
michael@0:   return __ADJOIN(MODULE_NAME,C_GetFunctionList)(ppFunctionList);
michael@0: }
michael@0: 
michael@0: #undef __ADJOIN
michael@0: 
michael@0: EOD
michael@0:     ;
michael@0: 
michael@0: select STDOUT;
michael@0: 
michael@0: }