Security-57031.1.35.tar.gz

[apple/security.git] / Security / libsecurity_keychain / lib / generateErrStrings.pl

diff --git a/Security/libsecurity_keychain/lib/generateErrStrings.pl b/Security/libsecurity_keychain/lib/generateErrStrings.pl
new file mode 100644 (file)
index 0000000..0cbe03f
--- /dev/null
+++ b/Security/libsecurity_keychain/lib/generateErrStrings.pl
@@ -0,0 +1,98 @@
+#!/usr/bin/perl
+#
+# Copyright (c) 2003-2004,2011,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@
+#
+# generatorX.pl - create error strings files from the Security header files
+#
+# Usage:
+#      perl generatorX.pl input-directory output-directory <files>
+#
+#      Currently supported files are SecBase.h, SecureTransport.h and Authorization.h
+#
+#      perl generatorX.pl `pwd` `pwd` SecBase2.h SecureTransport2.h Authorization.h
+#
+#      Input will be like:
+#
+#              errSSLProtocol                          = -9800,        /* SSL protocol error */
+#              errSSLNegotiation                       = -9801,        /* Cipher Suite negotiation failure */
+#
+#      Output should be like (in Unicode):
+#
+#              /* errSSLProtocol */
+#              "-9800" = "SSL protocol error";
+#
+#              /* errSSLNegotiation */
+#              "-9801" = "Cipher Suite negotiation failure";
+#
+# Note that the list of errors must be numerically unique across all input files, or the strings file
+# will be invalid.Comments that span multiple lines will be ignored, as will lines with no comment. C++
+# style comments are not supported.
+#
+
+use Encode;
+
+$SOURCEDIR=$ARGV[0];                           # directory with error headers
+$TARGETDIR=$ARGV[1];                           # where to put the output file
+@INPUTFILES=@ARGV[2 .. 9999];                  # list of input files
+
+$TABLES="$TARGETDIR/SecErrorMessages.strings"; # error strings 
+
+$tabs = "\t\t\t";      # argument indentation (noncritical)
+$warning = "This file was automatically generated. Do not edit on penalty of futility!";
+
+#
+# Parse error headers and build array of all relevant lines
+#
+
+open(ERR, "cat " . join(" ", @INPUTFILES) . "|") or die "Cannot open error header files";
+$/=undef;      # big gulp mode
+$_ = <ERR>;
+@errorlines = m{(?:^\s*)(err[Sec|Authorization|SSL]\w+)(?:\s*=\s*)(-?\d+)(?:\s*,?\s*)(?:/\*\s*)(.*)(?:\*/)(?:$\s*)}gm;
+close(ERR);
+
+$nFull = $#errorlines / 3;
+
+#
+# Now we will generate the error name tables.
+#
+open(OUT, ">$TABLES") or die "Cannot write $TABLES: $^E";
+
+# Print warning comment
+$msg = "//\n// Security error code tables.\n// $warning\n//\n";
+
+# Print the error messages
+while ($errx = shift @errorlines)
+{
+    $value = shift @errorlines;        # or die;
+    $str = shift @errorlines;  # or die;
+    $str =~ s/\s*$//;          # drop trailing white space
+    if ( $value != 0)                  # can't output duplicate error codes
+    {
+        $msg = $msg . "\n/* $errx */\n\"$value\" = \"$str\";\n";
+    }
+};
+$msg = $msg . "\n";
+$output = encode("UTF-16", $msg,  Encode::FB_PERLQQ);
+print OUT "$output";
+
+close(OUT);
+select(STDOUT);