Security-57336.1.9.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
deleted file mode 100644 (file)
index 0cbe03f..0000000
--- a/Security/libsecurity_keychain/lib/generateErrStrings.pl
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/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);