1 #!/usr/local/bin/perl -w 2 3 # Written by Dr Stephen N Henson (steve (at] openssl.org) for the OpenSSL project 4 # 2000. 5 # 6 # ==================================================================== 7 # Copyright (c) 2000 The OpenSSL Project. All rights reserved. 8 # 9 # Redistribution and use in source and binary forms, with or without 10 # modification, are permitted provided that the following conditions 11 # are met: 12 # 13 # 1. Redistributions of source code must retain the above copyright 14 # notice, this list of conditions and the following disclaimer. 15 # 16 # 2. Redistributions in binary form must reproduce the above copyright 17 # notice, this list of conditions and the following disclaimer in 18 # the documentation and/or other materials provided with the 19 # distribution. 20 # 21 # 3. All advertising materials mentioning features or use of this 22 # software must display the following acknowledgment: 23 # "This product includes software developed by the OpenSSL Project 24 # for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" 25 # 26 # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 27 # endorse or promote products derived from this software without 28 # prior written permission. For written permission, please contact 29 # licensing (at] OpenSSL.org. 30 # 31 # 5. Products derived from this software may not be called "OpenSSL" 32 # nor may "OpenSSL" appear in their names without prior written 33 # permission of the OpenSSL Project. 34 # 35 # 6. Redistributions of any form whatsoever must retain the following 36 # acknowledgment: 37 # "This product includes software developed by the OpenSSL Project 38 # for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" 39 # 40 # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 41 # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 42 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 43 # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 44 # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 45 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 46 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 47 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 49 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 50 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 51 # OF THE POSSIBILITY OF SUCH DAMAGE. 52 # ==================================================================== 53 # 54 # This product includes cryptographic software written by Eric Young 55 # (eay (at] cryptsoft.com). This product includes software written by Tim 56 # Hudson (tjh (at] cryptsoft.com). 57 58 use strict; 59 60 my ($i, @arr); 61 62 # Set up an array with the type of ASCII characters 63 # Each set bit represents a character property. 64 65 # RFC2253 character properties 66 my $RFC2253_ESC = 1; # Character escaped with \ 67 my $ESC_CTRL = 2; # Escaped control character 68 # These are used with RFC1779 quoting using " 69 my $NOESC_QUOTE = 8; # Not escaped if quoted 70 my $PSTRING_CHAR = 0x10; # Valid PrintableString character 71 my $RFC2253_FIRST_ESC = 0x20; # Escaped with \ if first character 72 my $RFC2253_LAST_ESC = 0x40; # Escaped with \ if last character 73 74 for($i = 0; $i < 128; $i++) { 75 # Set the RFC2253 escape characters (control) 76 $arr[$i] = 0; 77 if(($i < 32) || ($i > 126)) { 78 $arr[$i] |= $ESC_CTRL; 79 } 80 81 # Some PrintableString characters 82 if( ( ( $i >= ord("a")) && ( $i <= ord("z")) ) 83 || ( ( $i >= ord("A")) && ( $i <= ord("Z")) ) 84 || ( ( $i >= ord("0")) && ( $i <= ord("9")) ) ) { 85 $arr[$i] |= $PSTRING_CHAR; 86 } 87 } 88 89 # Now setup the rest 90 91 # Remaining RFC2253 escaped characters 92 93 $arr[ord(" ")] |= $NOESC_QUOTE | $RFC2253_FIRST_ESC | $RFC2253_LAST_ESC; 94 $arr[ord("#")] |= $NOESC_QUOTE | $RFC2253_FIRST_ESC; 95 96 $arr[ord(",")] |= $NOESC_QUOTE | $RFC2253_ESC; 97 $arr[ord("+")] |= $NOESC_QUOTE | $RFC2253_ESC; 98 $arr[ord("\"")] |= $RFC2253_ESC; 99 $arr[ord("\\")] |= $RFC2253_ESC; 100 $arr[ord("<")] |= $NOESC_QUOTE | $RFC2253_ESC; 101 $arr[ord(">")] |= $NOESC_QUOTE | $RFC2253_ESC; 102 $arr[ord(";")] |= $NOESC_QUOTE | $RFC2253_ESC; 103 104 # Remaining PrintableString characters 105 106 $arr[ord(" ")] |= $PSTRING_CHAR; 107 $arr[ord("'")] |= $PSTRING_CHAR; 108 $arr[ord("(")] |= $PSTRING_CHAR; 109 $arr[ord(")")] |= $PSTRING_CHAR; 110 $arr[ord("+")] |= $PSTRING_CHAR; 111 $arr[ord(",")] |= $PSTRING_CHAR; 112 $arr[ord("-")] |= $PSTRING_CHAR; 113 $arr[ord(".")] |= $PSTRING_CHAR; 114 $arr[ord("/")] |= $PSTRING_CHAR; 115 $arr[ord(":")] |= $PSTRING_CHAR; 116 $arr[ord("=")] |= $PSTRING_CHAR; 117 $arr[ord("?")] |= $PSTRING_CHAR; 118 119 # Now generate the C code 120 121 print <<EOF; 122 /* Auto generated with chartype.pl script. 123 * Mask of various character properties 124 */ 125 126 static const unsigned char char_type[] = { 127 EOF 128 129 for($i = 0; $i < 128; $i++) { 130 print("\n") if($i && (($i % 16) == 0)); 131 printf("%2d", $arr[$i]); 132 print(",") if ($i != 127); 133 } 134 print("\n};\n\n"); 135 136
