diff options
author | cvs2svn <admin@example.com> | 2000-10-25 15:23:17 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 2000-10-25 15:23:17 +0000 |
commit | 690af28bdf827ab9c81648f507eb492c9076d5d3 (patch) | |
tree | 1ced1775de07c13c2a5a1d9e3bde843578ac541d /src/lib/libcrypto/conf/keysets.pl | |
parent | 463e714935b9651a5eb2c08fcf3f8844fc6b653d (diff) | |
download | openbsd-OPENBSD_2_8.tar.gz openbsd-OPENBSD_2_8.tar.bz2 openbsd-OPENBSD_2_8.zip |
This commit was manufactured by cvs2git to create branch 'OPENBSD_2_8'.OPENBSD_2_8
Diffstat (limited to 'src/lib/libcrypto/conf/keysets.pl')
-rw-r--r-- | src/lib/libcrypto/conf/keysets.pl | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/src/lib/libcrypto/conf/keysets.pl b/src/lib/libcrypto/conf/keysets.pl deleted file mode 100644 index 1aed0c80c4..0000000000 --- a/src/lib/libcrypto/conf/keysets.pl +++ /dev/null | |||
@@ -1,61 +0,0 @@ | |||
1 | #!/usr/local/bin/perl | ||
2 | |||
3 | $NUMBER=0x01; | ||
4 | $UPPER=0x02; | ||
5 | $LOWER=0x04; | ||
6 | $EOF=0x08; | ||
7 | $WS=0x10; | ||
8 | $ESC=0x20; | ||
9 | $QUOTE=0x40; | ||
10 | $COMMENT=0x80; | ||
11 | $UNDER=0x100; | ||
12 | |||
13 | foreach (0 .. 127) | ||
14 | { | ||
15 | $v=0; | ||
16 | $c=sprintf("%c",$_); | ||
17 | $v|=$NUMBER if ($c =~ /[0-9]/); | ||
18 | $v|=$UPPER if ($c =~ /[A-Z]/); | ||
19 | $v|=$LOWER if ($c =~ /[a-z]/); | ||
20 | $v|=$UNDER if ($c =~ /_/); | ||
21 | $v|=$WS if ($c =~ / \t\r\n/); | ||
22 | $v|=$ESC if ($c =~ /\\/); | ||
23 | $v|=$QUOTE if ($c =~ /['`"]/); | ||
24 | $v|=$COMMENT if ($c =~ /\#/); | ||
25 | $v|=$EOF if ($c =~ /\0/); | ||
26 | |||
27 | push(@V,$v); | ||
28 | } | ||
29 | |||
30 | print <<"EOF"; | ||
31 | #define CONF_NUMBER $NUMBER | ||
32 | #define CONF_UPPER $UPPER | ||
33 | #define CONF_LOWER $LOWER | ||
34 | #define CONF_EOF $EOF | ||
35 | #define CONF_WS $WS | ||
36 | #define CONF_ESC $ESC | ||
37 | #define CONF_QUOTE $QUOTE | ||
38 | #define CONF_COMMENT $COMMENT | ||
39 | #define CONF_ALPHA (CONF_UPPER|CONF_LOWER) | ||
40 | #define CONF_ALPHA_NUMERIC (CONF_ALPHA|CONF_NUMBER|CONF_UNDER) | ||
41 | #define CONF_UNDER $UNDER | ||
42 | |||
43 | #define IS_COMMENT(a) (CONF_COMMENT&(CONF_type[(a)&0x7f])) | ||
44 | #define IS_EOF(a) ((a) == '\\0') | ||
45 | #define IS_ESC(a) ((a) == '\\\\') | ||
46 | #define IS_NUMER(a) (CONF_type[(a)&0x7f]&CONF_NUMBER) | ||
47 | #define IS_WS(a) (CONF_type[(a)&0x7f]&CONF_WS) | ||
48 | #define IS_ALPHA_NUMERIC(a) (CONF_type[(a)&0x7f]&CONF_ALPHA_NUMERIC) | ||
49 | #define IS_QUOTE(a) (CONF_type[(a)&0x7f]&CONF_QUOTE) | ||
50 | |||
51 | EOF | ||
52 | |||
53 | print "static unsigned short CONF_type[128]={"; | ||
54 | |||
55 | for ($i=0; $i<128; $i++) | ||
56 | { | ||
57 | print "\n\t" if ($i % 8) == 0; | ||
58 | printf "0x%03X,",$V[$i]; | ||
59 | } | ||
60 | |||
61 | print "\n\t};\n"; | ||