diff options
Diffstat (limited to 'src/lib/libcrypto/conf/keysets.pl')
-rw-r--r-- | src/lib/libcrypto/conf/keysets.pl | 62 |
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 | ||
16 | foreach (0 .. 127) | 17 | foreach (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 | ||
34 | foreach (0 .. 127) | 36 | foreach (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 | ||
159 | EOF | 165 | EOF |
160 | 166 | ||
161 | print "static unsigned short CONF_type_default[128]={"; | 167 | print "static unsigned short CONF_type_default[256]={"; |
162 | 168 | ||
163 | for ($i=0; $i<128; $i++) | 169 | for ($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 | ||
169 | print "\n\t};\n\n"; | 175 | print "\n\t};\n\n"; |
170 | 176 | ||
171 | print "static unsigned short CONF_type_win32[128]={"; | 177 | print "static unsigned short CONF_type_win32[256]={"; |
172 | 178 | ||
173 | for ($i=0; $i<128; $i++) | 179 | for ($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 | ||
179 | print "\n\t};\n\n"; | 185 | print "\n\t};\n\n"; |