--- /dev/null
+#!/usr/bin/perl
+#
+# Copyright (c) 2001-2004,2011-2012,2014 Apple Inc. All Rights Reserved.
+#
+# @APPLE_LICENSE_HEADER_START@
+#
+# This file contains Original Code and/or Modifications of Original Code
+# as defined in and that are subject to the Apple Public Source License
+# Version 2.0 (the 'License'). You may not use this file except in
+# compliance with the License. Please obtain a copy of the License at
+# http://www.opensource.apple.com/apsl/ and read it before using this
+# file.
+#
+# The Original Code and all software distributed under the License are
+# distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
+# EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
+# INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
+# Please see the License for the specific language governing rights and
+# limitations under the License.
+#
+# @APPLE_LICENSE_HEADER_END@
+#
+# generator.pl - derive various and sundry C++ code from the CDSA header files
+#
+# Usage:
+# perl generator.pl input-directory config-file output-directory
+#
+# 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");
+@OIDS_H=("oidscert.h", "oidscrl.h");
+@OIDS_H2=("oidsattr.h", "oidsalg.h");
+
+$SOURCEDIR=$ARGV[0]; # directory with inputs
+$APICFG=$ARGV[1]; # configuration file
+$TARGETDIR=$ARGV[2]; # directory for outputs
+
+
+$TRANSITION="$TARGETDIR/transition.gen"; # C++ code for transition layer
+$TABLES="$TARGETDIR/funcnames.gen"; # function name tables
+$REPORT="$TARGETDIR/generator.rpt"; # report file
+$EXPORTS="$TARGETDIR/cssmexports.gen"; # Exports file
+
+$tabs = "\t\t\t"; # argument indentation (noncritical)
+$warning = "This file was automatically generated. Do not edit on penalty of futility!";
+
+
+#
+# Parse API headers and extract function names and argument lists
+#
+# Jim Muprhy I added [^;]* to the end of the %formals variable to
+# allow for deprecation macros.
+#
+$/=undef; # big gulp mode
+foreach $_ (@API_H) {
+ open(API_H, "$SOURCEDIR/$_") or die "Cannot open $SOURCEDIR/$_: $^E";
+ $_ = <API_H>; # glglgl... aaaaah
+ %formals = /CSSM_RETURN CSSMAPI\s*([A-Za-z_]+)\s+\(([^)]*)\)[^;]*;/gs;
+ while (($name, $args) = each %formals) {
+ $args =~ s/^.*[ *]([A-Za-z_]+,?)$/$tabs$1/gm; # remove type declarators
+ $args =~ s/^$tabs//o; # chop intial tabs # so now we have...
+ $actuals{$name} = $args; # ...an actual argument list
+ };
+};
+close(API_H);
+
+
+#
+# Slurp SPI headers into memory for future use
+#
+$/=undef; # slurp files
+while (($key, $file) = each %SPI_H) {
+ open(SPI_H, "$SOURCEDIR/$file") or die "Cannot open $SOURCEDIR/$file: $^E";
+ $spi{$key} = <SPI_H>;
+};
+close(SPI_H);
+
+
+#
+# Open and read the configuration file
+#
+$/=undef; # gulp yet again
+open(APICFG, $APICFG) or die "Cannot open $APICFG: $^E";
+$_=<APICFG>;
+close(APICFG);
+%config = /^\s*(\w+)\s+(.*)$/gm;
+
+
+#
+# Now we will generate the API transition layer.
+# The idea here is that for each function in the API, we try to
+# figure out what type of plugin it belongs to, and then look up
+# its evil twin in that type's header. If that works, we generate
+# a function for the transition, taking care of various oddities
+# and endities in the process.
+#
+open(OUT, ">$TRANSITION") or die "Cannot write $TRANSITION: $^E";
+select OUT;
+open(REPORT, ">$REPORT") or die "Cannot write $REPORT: $^E";
+
+sub ignored {
+ my ($reason) = @_;
+ $ignored++;
+ print REPORT "$name $reason\n";
+};
+
+print "//
+// $warning
+//";
+
+for $name (sort keys %formals) {
+ $config = $config{$name};
+ do { ignored "has custom implementation"; next; } if $config =~ /custom/;
+
+ ($barename) = $name =~ /^CSSM.*_([A-Za-z]+$)/;
+ die "Can't fathom SPI name for $name" unless $barename;
+ $actuals = $actuals{$name};
+
+ # key off the type code in the first argument: CSSM_type_HANDLE
+ ($type, $handle) = $formals{$name} =~ /CSSM_([A-Z_]+)_HANDLE\s+([A-Za-z0-9_]+)/;
+ $type = "CSP" if $type eq "CC"; # CSP methods may have CC (context) handles
+ $type = "DL" if $type eq "DL_DB"; # DL methods may have DL_DB handles
+ $type = "KR" if $type eq "KRSP"; # KR methods have KRSP handles
+ $Type = $type . "Attachment";
+ do { ignored "has no module type"; next; } unless defined $SPI_H{$type};
+
+ # $prefix will hold code to be generated before the actual call
+ $prefix = "";
+
+ # match the SPI; take care of the Privilege variants of some calls
+ ($args) = $spi{$type} =~ /CSSM_RETURN \(CSSM${type}I \*$barename\)\s+\(([^)]*)\)[^;]*;/s
+ or $barename =~ s/P$// && # second chance for FooBarP() API functions
+ (($args) = $spi{$type} =~ /CSSM_RETURN \(CSSM${type}I \*$barename\)\s+\(([^)]*)\)[^;]*;/s)
+ or do { ignored "not in $SPI_H{$type}"; next; };
+
+ # take care of CSP calls taking context handles
+ $handletype = $type;
+ $type eq "CSP" && $actuals =~ /CCHandle/ && do {
+ $actuals =~ s/CCHandle/context.CSPHandle, CCHandle/;
+ $args =~ /CSSM_CONTEXT/ &&
+ $actuals =~ s/CCHandle/CCHandle, &context/;
+ $handletype = "CC";
+ };
+
+ # add the default privilege argument to non-P functions taking privileges
+ $args =~ /CSSM_PRIVILEGE/ && ! ($name =~ /P$/) && # add privilege argument (last)
+ ($actuals .= ",\n${tabs}attachment.module.cssm.getPrivilege()");
+
+ # finally translate DLDBHandles into their DL component
+ $handle =~ s/DLDBHandle/DLDBHandle.DLHandle/;
+
+ # payoff time
+ print "
+CSSM_RETURN CSSMAPI
+$name ($formals{$name})
+{
+ BEGIN_API";
+ if ($handletype eq "CC") {
+ print "
+ HandleContext &context = enterContext($handle);
+ CSPAttachment &attachment = context.attachment;";
+ } else {
+ print "
+ $Type &attachment = enterAttachment<$Type>($handle);";
+ };
+ print "
+ TransitLock _(attachment);
+ ${prefix}return attachment.downcalls.$barename($actuals);
+ END_API($type)
+}
+";
+ $written++;
+};
+close(OUT);
+select(STDOUT);
+
+
+#
+# Now peruse the SPI headers for a list of function names
+# and build in-memory translation tables for runtime.
+#
+open(OUT, ">$TABLES") or die "Cannot write $TABLES: $^E";
+select OUT;
+
+print "//
+// Standard plugin name tables
+// $warning
+//
+";
+while (($name, $_) = each %spi) {
+ print "extern const char *const ${name}NameTable[] = {";
+ s/^.*struct cssm_spi.*{(.*)} CSSM_SPI.*$/$1/s
+ or die "bad format in $SPI_H{$name}";
+ s/CSSM_RETURN \(CSSM[A-Z]*I \*([A-Za-z_]+)\)\s+\([^)]+\)[^;]*;/\t"$1",/g;
+ print;
+ print "};\n\n";
+};
+close(OUT);
+select(STDOUT);
+
+#
+# Finally, generate linker export file to avoid leaking internal symbols
+#
+open(OUT, ">$EXPORTS") or die "Cannot write $EXPORTS: $^E";
+select(OUT);
+
+# entry point names (functions)
+for $name (keys %formals) {
+ $symbols{$name} = 1;
+};
+
+# OID-related data symbols
+$/=undef;
+foreach $_ (@OIDS_H) {
+ open(OIDS_H, "$SOURCEDIR/$_") or die "Cannot open $SOURCEDIR/$_: $^E";
+ $_ = <OIDS_H>; # glglgl... aaaaah
+ s/\/\*.*\*\///gm; # remove comments
+
+ foreach $name (/\s+(CSSMOID_[A-Za-z0-9_]+)/gs) {
+ $symbols{$name} = 1;
+ };
+};
+close(OIDS_H);
+
+foreach $_ (@OIDS_H2) {
+ open(OIDS_H2, "$SOURCEDIR/../../libsecurity_asn1/lib/$_") or die "Cannot open $SOURCEDIR/$_: $^E";
+ $_ = <OIDS_H2>; # glglgl... aaaaah
+ s/\/\*.*\*\///gm; # remove comments
+
+ foreach $name (/\s+(CSSMOID_[A-Za-z0-9_]+)/gs) {
+ $symbols{$name} = 1;
+ };
+};
+close(OIDS_H2);
+
+foreach $name (keys %symbols) {
+ print "_$name\n";
+};
+
+close(OUT);
+select(STDOUT);
+
+
+close(EXPORTS);
+close(REPORT);
+print "$written API functions generated; $ignored ignored (see $REPORT)\n";
projects / apple / security.git / blobdiff