--- /dev/null
+#!/usr/bin/perl
+#
+# generator.pl - auto-generate code for the CSSM plugin interfaces
+#
+# Usage:
+# perl generator.pl input-directory h-output-dir c-output-dir
+#
+# Perry The Cynic, Fall 1999.
+#
+@API_H=("cssmapi.h");
+%SPI_H=("AC" => "cssmaci.h", "CSP" => "cssmcspi.h", "DL" => "cssmdli.h",
+ "CL" => "cssmcli.h", "TP" => "cssmtpi.h");
+
+$SOURCEPATH=$ARGV[0]; # where all the input files are
+$APICFG=$ARGV[1]; # configuration file
+$HTARGETDIR=$ARGV[2]; # where the generated headers go
+$CTARGETDIR=$ARGV[3]; # where the generated sources go
+
+
+$tabs = "\t\t\t"; # argument indentation (noncritical)
+$warning = "This file was automatically generated. Do not edit on penalty of futility!";
+
+
+#
+# Open and read the configuration file
+#
+$/=undef; # gulp file
+open(APICFG, $APICFG) or die "Cannot open $APICFG: $^E";
+$_=<APICFG>;
+close(APICFG);
+%optionals = /^\s*optional\s+(\w+:\w+)\s+(.*)$/gm;
+
+
+#
+# Pre-arranged arrays for processing below
+#
+%noDataReturnError = ( CL => "CSSMERR_CL_NO_FIELD_VALUES",
+ DL => "CSSMERR_DL_ENDOFDATA" );
+
+
+#
+# process one SPI at a time
+#
+while (($type, $header) = each %SPI_H) {
+ my(%functions, %methods, %actuals);
+ ($typelower = $type) =~ tr/A-Z/a-z/; # lowercase version of type
+
+ # start in on the $type header file
+ for my $sourcedir (split (/:/, $SOURCEPATH)) {
+ open(SPI, "$sourcedir/$header") and last;
+ }
+ SPI or die "cannot find $header in $SOURCEPATH: $^E";
+ $/=undef; # big gulp mode
+ $_ = <SPI>; # aaaaah...
+ close(SPI); # done
+ # throw away leading and trailing crud (only interested in SPI structure)
+ s/^.*struct cssm_spi.*{(.*)} CSSM_SPI.*$/$1/s
+ or die "bad format in $SPI_H{$name}";
+
+ # break up into functions (you'd do that HOW in YOUR language? :-)
+ @functions = /CSSM_RETURN \(CSSM${type}I \*([A-Za-z_]+)\)\s+\(([^)]+)\);/g;
+ %functions = @functions;
+
+ $MOREHEADERS="";
+ $MOREHEADERS .= "#include <security_cdsa_utilities/context.h>\n" if /CSSM_CONTEXT/;
+ $MOREHEADERS .= "#include <security_cdsa_utilities/cssmacl.h>\n" if /CSSM_(ACL|ACCESS)/;
+ $MOREHEADERS .= "#include <security_cdsa_utilities/cssmdb.h>\n" if /CSSM_QUERY/;
+
+ # break function arguments into many forms:
+ # functions => formal SPI arguments
+ # methods => formal C++ method arguments
+ # actuals => actual expression forms for transition layer use
+ # and (by the way) massage them into a more palatable form...
+ $nFunctions = 0;
+ while (($function, $_) = each %functions) {
+ #
+ # Turn CSSM SPI formal into method formal
+ #
+ $returntype{$function} = "void";
+ $prefix{$function} = "";
+ $postfix{$function} = ";";
+ # reshape initial argument (the module handle, more or less)
+ s/^CSSM_${type}_HANDLE ${type}Handle(,\s*\n\s*|$)//s; # remove own handle (-> this)
+ s/^CSSM_DL_DB_HANDLE DLDBHandle/CSSM_DB_HANDLE DBHandle/s; # DL_DB handle -> DB handle
+ s/CSSM_HANDLE_PTR ResultsHandle(,?)\n//m # turn ptr-to-resultshandle into fn result
+ and do {
+ $returntype{$function} = "CSSM_HANDLE";
+ $prefix{$function} = "if ((Required(ResultsHandle) = ";
+ $postfix{$function} = ") == CSSM_INVALID_HANDLE)\n return $noDataReturnError{$type};";
+ };
+ if ($function =~ /GetNext/) { # *GetNext* returns a bool
+ $returntype{$function} = "bool";
+ $prefix{$function} = "if (!";
+ $postfix{$function} = ")\n return $noDataReturnError{$type};";
+ }
+ # reshape subsequent arguments
+ s/([su]int32) \*(\w+,?)/$1 \&$2/gm; # int * -> int & (output integer)
+ s/(CSSM_\w+_PTR) \*(\w+,?)/$1 \&$2/gm; # _PTR * -> _PTR &
+ s/(CSSM_\w+)_PTR (\w+)/$1 \*$2/gm; # XYZ_PTR -> XYZ * (explicit)
+ s/(const )?CSSM_DATA \*(\w+)Bufs/$1CssmData $2Bufs\[\]/gm; # c DATA *Bufs (plural)
+ s/(const )?CSSM_(DATA|OID) \*/$1CssmData \&/gm; # c DATA * -> c Data &
+ s/(const )?CSSM_FIELD \*(\w+)Fields/$1CSSM_FIELD $2Fields\[\]/gm; # c FIELD *Fields (plural)
+ s/(const )?CSSM_FIELD \*CrlTemplate/$1CSSM_FIELD CrlTemplate\[\]/gm; # c FIELD *CrlTemplate
+ s/const CSSM_CONTEXT \*/const Context \&/gm; # c CSSM_CONTEXT * -> c Context &
+ s/(const )?CSSM_ACCESS_CREDENTIALS \*/$1AccessCredentials \&/gm; # ditto
+ s/(const )?CSSM_QUERY_SIZE_DATA \*/$1QuerySizeData \&/gm; # ditto
+ s/(const )?CSSM_CSP_OPERATIONAL_STATISTICS \*/$1CSPOperationalStatistics \&/gm; # ditto
+ s/(const )?CSSM_(WRAP_)?KEY \*/$1CssmKey \&/gm; # CSSM[WRAP]KEY * -> CssmKey &
+ s/const CSSM_QUERY \*/const CssmQuery \&/gm; # c QUERY * -> c Query &
+ s/(const )?(CSSM_[A-Z_]+) \*/$1$2 \&/gm; # c CSSM_ANY * -> c CSSM_ANY &
+ $methods{$function} = $_;
+
+ #
+ # Now turn the method formal into the transition invocation actuals
+ #
+ s/^CSSM_DB_HANDLE \w+(,?)/DLDBHandle.DBHandle$1/s; # matching change to DL_DB handles
+ s/(const )?([A-Z][a-z]\w+) &(\w+)(,?)/$2::required($3)$4/gm; # BIG_ * -> Small_ &
+ s/(const )?CssmData (\w+)Bufs\[\](,?)/\&\&CssmData::required($2Bufs)$3/gm; # c DATA *DataBufs
+ s/(const )?CSSM_FIELD (\w+)Fields\[\](,?)/$2Fields$3/gm; # c CSSM_FIELD *Fields
+ s/(const )?CSSM_FIELD CrlTemplate\[\](,?)/CrlTemplate$2/gm; # c CSSM_FIELD *CrlTemplate
+ # now remove formal arguments and clean up
+ s/^.* \&\&(\w+,?)/$tabs\&$1/gm; # && escape (to keep real &)
+ s/^.* \&(\w+)(,?)/${tabs}Required($1)$2/gm; # dereference for ref transition
+ s/^.* \**(\w+,?)/$tabs$1/gm; # otherwise, plain actual argument
+ s/^$tabs//;
+ $actuals{$function} = $_;
+
+ #
+ # Fix optional arguments
+ #
+ foreach $opt (split " ", $optionals{"$type:$function"}) {
+ $methods{$function} =~ s/\&$opt\b/\*$opt/; # turn refs back into pointers
+ $actuals{$function} =~ s/::required\($opt\)/::optional($opt)/; # optional specific
+ $actuals{$function} =~ s/Required\($opt\)/$opt/; # optional generic
+ };
+ $nFunctions++;
+ };
+
+ #
+ # Prepare to write header and source files
+ #
+ open(H, ">$HTARGETDIR/${type}abstractsession.h") or die "cannot write ${type}abstractsession.h: $^E";
+ open(C, ">$CTARGETDIR/${type}abstractsession.cpp") or die "cannot write ${type}abstractsession.cpp: $^E";
+
+ #
+ # Create header file
+ #
+ print H <<HDRHEAD;
+//
+// $type plugin transition layer.
+// $warning
+//
+#ifndef _H_${type}ABSTRACTSESSION
+#define _H_${type}ABSTRACTSESSION
+
+#include <security_cdsa_plugin/pluginsession.h>
+#include <security_cdsa_utilities/cssmdata.h>
+$MOREHEADERS
+
+namespace Security {
+
+
+//
+// A pure abstract class to define the ${type} module interface
+//
+class ${type}AbstractPluginSession {
+public:
+ virtual ~${type}AbstractPluginSession();
+HDRHEAD
+
+ $functionCount = 0;
+ while (($function, $arglist) = each %methods) {
+ # generate method declaration
+ print H " virtual $returntype{$function} $function($arglist) = 0;\n";
+ $functionCount++;
+ };
+ print H <<HDREND;
+};
+
+} // end namespace Security
+
+#endif //_H_${type}ABSTRACTSESSION
+HDREND
+
+ #
+ # Create source file
+ #
+ print C <<BODY;
+//
+// $type plugin transition layer.
+// $warning
+//
+#include <security_cdsa_plugin/${type}session.h>
+#include <security_cdsa_plugin/cssmplugin.h>
+#include <security_cdsa_utilities/cssmbridge.h>
+#include <Security/cssm${typelower}i.h>
+
+
+${type}AbstractPluginSession::~${type}AbstractPluginSession()
+{ /* virtual */ }
+
+BODY
+
+ # write transition layer functions
+ while (($function, $arglist) = each %functions) {
+ $lookupHandle = "${type}Handle";
+ $lookupHandle = "DLDBHandle.DLHandle" if $arglist =~ /DL_DB_HANDLE/;
+ print C <<SHIM;
+static CSSM_RETURN CSSM${type}I cssm_$function($arglist)
+{
+ BEGIN_API
+ ${prefix{$function}}findSession<${type}PluginSession>($lookupHandle).$function($actuals{$function})${postfix{$function}}
+ END_API($type)
+}
+
+SHIM
+ };
+
+ # generate dispatch table - in the right order, please
+ print C "\nstatic const CSSM_SPI_${type}_FUNCS ${type}FunctionStruct = {\n";
+ while ($function = shift @functions) {
+ print C " cssm_$function,\n";
+ shift @functions; # skip over arglist part
+ };
+ print C "};\n\n";
+
+ print C <<END;
+static CSSM_MODULE_FUNCS ${type}FunctionTable = {
+ CSSM_SERVICE_$type, // service type
+ $functionCount, // number of functions
+ (const CSSM_PROC_ADDR *)&${type}FunctionStruct
+};
+
+CSSM_MODULE_FUNCS_PTR ${type}PluginSession::construct()
+{
+ return &${type}FunctionTable;
+}
+END
+
+ #
+ # Done with this type
+ #
+ close(H);
+ close(C);
+
+ print "$nFunctions functions generated for $type SPI transition layer.\n";
+};
projects / apple / security.git / blobdiff