Keychain/generateErrStrings.pl

   1 #!/usr/bin/perl
   2 #
   3 # generatorX.pl - create error strings files from the Security header files
   4 #
   5 # John Hurley, Summer 2003. Based on generator.pl, Perry The Cynic, Fall 1999.
   6 #
   7 # Usage:
   8 #       perl generatorX.pl input-directory output-directory <files>
   9 #
  10 #       Currently supported files are SecBase.h, SecureTransport.h and Authorization.h
  11 #
  12 #       perl generatorX.pl `pwd` `pwd` SecBase2.h SecureTransport2.h Authorization.h
  13 #
  14 #       Input will be like:
  15 #
  16 #               errSSLProtocol                          = -9800,        /* SSL protocol error */
  17 #               errSSLNegotiation                       = -9801,        /* Cipher Suite negotiation failure */
  18 #
  19 #       Output should be like (in Unicode):
  20 #
  21 #               /* errSSLProtocol */
  22 #               "-9800" = "SSL protocol error";
  23 #
  24 #               /* errSSLNegotiation */
  25 #               "-9801" = "Cipher Suite negotiation failure";
  26 #
  27 # Note that the list of errors must be numerically unique across all input files, or the strings file
  28 # will be invalid.Comments that span multiple lines will be ignored, as will lines with no comment. C++
  29 # style comments are not supported.
  30 #
  31
  32 use Encode;
  33
  34 $SOURCEDIR=$ARGV[0];                            # directory with error headers
  35 $TARGETDIR=$ARGV[1];                            # where to put the output file
  36 @INPUTFILES=@ARGV[2 .. 9999];                   # list of input files
  37
  38 $TABLES="$TARGETDIR/SecErrorMessages.strings";  # error strings
  39
  40 $tabs = "\t\t\t";       # argument indentation (noncritical)
  41 $warning = "This file was automatically generated. Do not edit on penalty of futility!";
  42
  43 #
  44 # Parse error headers and build array of all relevant lines
  45 #
  46
  47 open(ERR, "cat " . join(" ", @INPUTFILES) . "|") or die "Cannot open error header files";
  48 $/=undef;       # still gulping
  49 $_ = <ERR>;
  50 @errorlines = m{(?:^\s*)(err[Sec|Authorization|SSL]\w+)(?:\s*=\s*)(-?\d+)(?:\s*,?\s*)(?:/\*\s*)(.*)(?:\*/)(?:$\s*)}gm;
  51 close(ERR);
  52
  53 $nFull = $#errorlines / 3;
  54
  55 #
  56 # Now we will generate the error name tables.
  57 #
  58
  59 open(OUT, ">$TABLES") or die "Cannot write $TABLES: $^E";
  60 select OUT;
  61
  62 # Print warning comment
  63 $msg = "//\n// Security error code tables.\n// $warning\n//\n";
  64
  65 # Print the error messages
  66 while ($errx = shift @errorlines)
  67 {
  68     $value = shift @errorlines; # or die;
  69     $str = shift @errorlines;   # or die;
  70     $str =~ s/\s*$//;           # drop trailing white space
  71     if ( $value != 0)           # can't output duplicate error codes
  72     {
  73         $msg = $msg . "\n/* $errx */\n\"$value\" = \"$str\";\n";
  74     }
  75 };
  76 $msg = $msg . "\n";
  77 $output = encode("UTF-16", $msg,  Encode::FB_PERLQQ);
  78 print "$output";
  79
  80 close(OUT);
  81 select(STDOUT);
  82
  83 #print "$nFull errors available to error translation functions.\n";