summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/conf/keysets.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/conf/keysets.pl')
-rw-r--r--src/lib/libcrypto/conf/keysets.pl62
1 files changed, 34 insertions, 28 deletions
diff --git a/src/lib/libcrypto/conf/keysets.pl b/src/lib/libcrypto/conf/keysets.pl
index 56669e76ac..50ed67fa52 100644
--- a/src/lib/libcrypto/conf/keysets.pl
+++ b/src/lib/libcrypto/conf/keysets.pl
@@ -12,8 +12,9 @@ $DQUOTE=0x400;
12$COMMENT=0x80; 12$COMMENT=0x80;
13$FCOMMENT=0x800; 13$FCOMMENT=0x800;
14$EOF=0x08; 14$EOF=0x08;
15$HIGHBIT=0x1000;
15 16
16foreach (0 .. 127) 17foreach (0 .. 255)
17 { 18 {
18 $v=0; 19 $v=0;
19 $c=sprintf("%c",$_); 20 $c=sprintf("%c",$_);
@@ -27,11 +28,12 @@ foreach (0 .. 127)
27 $v|=$QUOTE if ($c =~ /['`"]/); # for emacs: "`'}/) 28 $v|=$QUOTE if ($c =~ /['`"]/); # for emacs: "`'}/)
28 $v|=$COMMENT if ($c =~ /\#/); 29 $v|=$COMMENT if ($c =~ /\#/);
29 $v|=$EOF if ($c =~ /\0/); 30 $v|=$EOF if ($c =~ /\0/);
31 $v|=$HIGHBIT if ($c =~/[\x80-\xff]/);
30 32
31 push(@V_def,$v); 33 push(@V_def,$v);
32 } 34 }
33 35
34foreach (0 .. 127) 36foreach (0 .. 255)
35 { 37 {
36 $v=0; 38 $v=0;
37 $c=sprintf("%c",$_); 39 $c=sprintf("%c",$_);
@@ -44,6 +46,7 @@ foreach (0 .. 127)
44 $v|=$DQUOTE if ($c =~ /["]/); # for emacs: "}/) 46 $v|=$DQUOTE if ($c =~ /["]/); # for emacs: "}/)
45 $v|=$FCOMMENT if ($c =~ /;/); 47 $v|=$FCOMMENT if ($c =~ /;/);
46 $v|=$EOF if ($c =~ /\0/); 48 $v|=$EOF if ($c =~ /\0/);
49 $v|=$HIGHBIT if ($c =~/[\x80-\xff]/);
47 50
48 push(@V_w32,$v); 51 push(@V_w32,$v);
49 } 52 }
@@ -122,6 +125,7 @@ print <<"EOF";
122#define CONF_COMMENT $COMMENT 125#define CONF_COMMENT $COMMENT
123#define CONF_FCOMMENT $FCOMMENT 126#define CONF_FCOMMENT $FCOMMENT
124#define CONF_EOF $EOF 127#define CONF_EOF $EOF
128#define CONF_HIGHBIT $HIGHBIT
125#define CONF_ALPHA (CONF_UPPER|CONF_LOWER) 129#define CONF_ALPHA (CONF_UPPER|CONF_LOWER)
126#define CONF_ALPHA_NUMERIC (CONF_ALPHA|CONF_NUMBER|CONF_UNDER) 130#define CONF_ALPHA_NUMERIC (CONF_ALPHA|CONF_NUMBER|CONF_UNDER)
127#define CONF_ALPHA_NUMERIC_PUNCT (CONF_ALPHA|CONF_NUMBER|CONF_UNDER| \\ 131#define CONF_ALPHA_NUMERIC_PUNCT (CONF_ALPHA|CONF_NUMBER|CONF_UNDER| \\
@@ -129,51 +133,53 @@ print <<"EOF";
129 133
130#define KEYTYPES(c) ((unsigned short *)((c)->meth_data)) 134#define KEYTYPES(c) ((unsigned short *)((c)->meth_data))
131#ifndef CHARSET_EBCDIC 135#ifndef CHARSET_EBCDIC
132#define IS_COMMENT(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_COMMENT) 136#define IS_COMMENT(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_COMMENT)
133#define IS_FCOMMENT(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_FCOMMENT) 137#define IS_FCOMMENT(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_FCOMMENT)
134#define IS_EOF(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_EOF) 138#define IS_EOF(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_EOF)
135#define IS_ESC(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_ESC) 139#define IS_ESC(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_ESC)
136#define IS_NUMBER(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_NUMBER) 140#define IS_NUMBER(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_NUMBER)
137#define IS_WS(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_WS) 141#define IS_WS(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_WS)
138#define IS_ALPHA_NUMERIC(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_ALPHA_NUMERIC) 142#define IS_ALPHA_NUMERIC(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_ALPHA_NUMERIC)
139#define IS_ALPHA_NUMERIC_PUNCT(c,a) \\ 143#define IS_ALPHA_NUMERIC_PUNCT(c,a) \\
140 (KEYTYPES(c)[(a)&0x7f]&CONF_ALPHA_NUMERIC_PUNCT) 144 (KEYTYPES(c)[(a)&0xff]&CONF_ALPHA_NUMERIC_PUNCT)
141#define IS_QUOTE(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_QUOTE) 145#define IS_QUOTE(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_QUOTE)
142#define IS_DQUOTE(c,a) (KEYTYPES(c)[(a)&0x7f]&CONF_DQUOTE) 146#define IS_DQUOTE(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_DQUOTE)
147#define IS_HIGHBIT(c,a) (KEYTYPES(c)[(a)&0xff]&CONF_HIGHBIT)
143 148
144#else /*CHARSET_EBCDIC*/ 149#else /*CHARSET_EBCDIC*/
145 150
146#define IS_COMMENT(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_COMMENT) 151#define IS_COMMENT(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_COMMENT)
147#define IS_FCOMMENT(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_FCOMMENT) 152#define IS_FCOMMENT(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_FCOMMENT)
148#define IS_EOF(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_EOF) 153#define IS_EOF(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_EOF)
149#define IS_ESC(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_ESC) 154#define IS_ESC(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_ESC)
150#define IS_NUMBER(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_NUMBER) 155#define IS_NUMBER(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_NUMBER)
151#define IS_WS(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_WS) 156#define IS_WS(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_WS)
152#define IS_ALPHA_NUMERIC(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_ALPHA_NUMERIC) 157#define IS_ALPHA_NUMERIC(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_ALPHA_NUMERIC)
153#define IS_ALPHA_NUMERIC_PUNCT(c,a) \\ 158#define IS_ALPHA_NUMERIC_PUNCT(c,a) \\
154 (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_ALPHA_NUMERIC_PUNCT) 159 (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_ALPHA_NUMERIC_PUNCT)
155#define IS_QUOTE(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_QUOTE) 160#define IS_QUOTE(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_QUOTE)
156#define IS_DQUOTE(c,a) (KEYTYPES(c)[os_toascii[a]&0x7f]&CONF_DQUOTE) 161#define IS_DQUOTE(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_DQUOTE)
162#define IS_HIGHBIT(c,a) (KEYTYPES(c)[os_toascii[a]&0xff]&CONF_HIGHBIT)
157#endif /*CHARSET_EBCDIC*/ 163#endif /*CHARSET_EBCDIC*/
158 164
159EOF 165EOF
160 166
161print "static unsigned short CONF_type_default[128]={"; 167print "static unsigned short CONF_type_default[256]={";
162 168
163for ($i=0; $i<128; $i++) 169for ($i=0; $i<256; $i++)
164 { 170 {
165 print "\n\t" if ($i % 8) == 0; 171 print "\n\t" if ($i % 8) == 0;
166 printf "0x%03X,",$V_def[$i]; 172 printf "0x%04X,",$V_def[$i];
167 } 173 }
168 174
169print "\n\t};\n\n"; 175print "\n\t};\n\n";
170 176
171print "static unsigned short CONF_type_win32[128]={"; 177print "static unsigned short CONF_type_win32[256]={";
172 178
173for ($i=0; $i<128; $i++) 179for ($i=0; $i<256; $i++)
174 { 180 {
175 print "\n\t" if ($i % 8) == 0; 181 print "\n\t" if ($i % 8) == 0;
176 printf "0x%03X,",$V_w32[$i]; 182 printf "0x%04X,",$V_w32[$i];
177 } 183 }
178 184
179print "\n\t};\n\n"; 185print "\n\t};\n\n";