168651Skris#!/usr/local/bin/perl -w 268651Skris 3269686Sjkim# Written by Dr Stephen N Henson (steve@openssl.org). 4269686Sjkim# Licensed under the terms of the OpenSSL license. 5269686Sjkim 668651Skrisuse strict; 768651Skris 868651Skrismy ($i, @arr); 968651Skris 1068651Skris# Set up an array with the type of ASCII characters 1168651Skris# Each set bit represents a character property. 1268651Skris 1368651Skris# RFC2253 character properties 1468651Skrismy $RFC2253_ESC = 1; # Character escaped with \ 1568651Skrismy $ESC_CTRL = 2; # Escaped control character 1668651Skris# These are used with RFC1779 quoting using " 1768651Skrismy $NOESC_QUOTE = 8; # Not escaped if quoted 1868651Skrismy $PSTRING_CHAR = 0x10; # Valid PrintableString character 1968651Skrismy $RFC2253_FIRST_ESC = 0x20; # Escaped with \ if first character 2068651Skrismy $RFC2253_LAST_ESC = 0x40; # Escaped with \ if last character 2168651Skris 2268651Skrisfor($i = 0; $i < 128; $i++) { 2368651Skris # Set the RFC2253 escape characters (control) 2468651Skris $arr[$i] = 0; 2568651Skris if(($i < 32) || ($i > 126)) { 2668651Skris $arr[$i] |= $ESC_CTRL; 2768651Skris } 2868651Skris 2968651Skris # Some PrintableString characters 3068651Skris if( ( ( $i >= ord("a")) && ( $i <= ord("z")) ) 3168651Skris || ( ( $i >= ord("A")) && ( $i <= ord("Z")) ) 3268651Skris || ( ( $i >= ord("0")) && ( $i <= ord("9")) ) ) { 3368651Skris $arr[$i] |= $PSTRING_CHAR; 3468651Skris } 3568651Skris} 3668651Skris 3768651Skris# Now setup the rest 3868651Skris 3968651Skris# Remaining RFC2253 escaped characters 4068651Skris 4168651Skris$arr[ord(" ")] |= $NOESC_QUOTE | $RFC2253_FIRST_ESC | $RFC2253_LAST_ESC; 4268651Skris$arr[ord("#")] |= $NOESC_QUOTE | $RFC2253_FIRST_ESC; 4368651Skris 4468651Skris$arr[ord(",")] |= $NOESC_QUOTE | $RFC2253_ESC; 4568651Skris$arr[ord("+")] |= $NOESC_QUOTE | $RFC2253_ESC; 4668651Skris$arr[ord("\"")] |= $RFC2253_ESC; 4768651Skris$arr[ord("\\")] |= $RFC2253_ESC; 4868651Skris$arr[ord("<")] |= $NOESC_QUOTE | $RFC2253_ESC; 4968651Skris$arr[ord(">")] |= $NOESC_QUOTE | $RFC2253_ESC; 5068651Skris$arr[ord(";")] |= $NOESC_QUOTE | $RFC2253_ESC; 5168651Skris 5268651Skris# Remaining PrintableString characters 5368651Skris 5468651Skris$arr[ord(" ")] |= $PSTRING_CHAR; 5568651Skris$arr[ord("'")] |= $PSTRING_CHAR; 5668651Skris$arr[ord("(")] |= $PSTRING_CHAR; 5768651Skris$arr[ord(")")] |= $PSTRING_CHAR; 5868651Skris$arr[ord("+")] |= $PSTRING_CHAR; 5968651Skris$arr[ord(",")] |= $PSTRING_CHAR; 6068651Skris$arr[ord("-")] |= $PSTRING_CHAR; 6168651Skris$arr[ord(".")] |= $PSTRING_CHAR; 6268651Skris$arr[ord("/")] |= $PSTRING_CHAR; 6368651Skris$arr[ord(":")] |= $PSTRING_CHAR; 6468651Skris$arr[ord("=")] |= $PSTRING_CHAR; 6568651Skris$arr[ord("?")] |= $PSTRING_CHAR; 6668651Skris 6768651Skris# Now generate the C code 6868651Skris 6968651Skrisprint <<EOF; 7068651Skris/* Auto generated with chartype.pl script. 7168651Skris * Mask of various character properties 7268651Skris */ 7368651Skris 7468651Skrisstatic unsigned char char_type[] = { 7568651SkrisEOF 7668651Skris 7768651Skrisfor($i = 0; $i < 128; $i++) { 7868651Skris print("\n") if($i && (($i % 16) == 0)); 7968651Skris printf("%2d", $arr[$i]); 8068651Skris print(",") if ($i != 127); 8168651Skris} 8268651Skrisprint("\n};\n\n"); 8368651Skris 84