3c6eecd9ca1933c7b6f8fe94b4fdb544b93c3ea2
[openssl.git] / crypto / conf / keysets.pl
1 #! /usr/bin/env perl
2 # Copyright 1995-2019 The OpenSSL Project Authors. All Rights Reserved.
3 #
4 # Licensed under the Apache License 2.0 (the "License").  You may not use
5 # this file except in compliance with the License.  You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
8
9 use strict;
10 use warnings;
11
12 my $NUMBER      = 0x0001;
13 my $UPPER       = 0x0002;
14 my $LOWER       = 0x0004;
15 my $UNDER       = 0x0100;
16 my $PUNCTUATION = 0x0200;
17 my $WS          = 0x0010;
18 my $ESC         = 0x0020;
19 my $QUOTE       = 0x0040;
20 my $DQUOTE      = 0x0400;
21 my $COMMENT     = 0x0080;
22 my $FCOMMENT    = 0x0800;
23 my $EOF         = 0x0008;
24 my @V_def;
25 my @V_w32;
26
27 my $v;
28 my $c;
29 foreach (0 .. 127) {
30     $c = sprintf("%c", $_);
31     $v = 0;
32     $v |= $NUMBER      if $c =~ /[0-9]/;
33     $v |= $UPPER       if $c =~ /[A-Z]/;
34     $v |= $LOWER       if $c =~ /[a-z]/;
35     $v |= $UNDER       if $c =~ /_/;
36     $v |= $PUNCTUATION if $c =~ /[!\.%&\*\+,\/;\?\@\^\~\|-]/;
37     $v |= $WS          if $c =~ /[ \t\r\n]/;
38     $v |= $ESC         if $c =~ /\\/;
39     $v |= $QUOTE       if $c =~ /['`"]/;         # for emacs: "`'
40     $v |= $COMMENT     if $c =~ /\#/;
41     $v |= $EOF         if $c =~ /\0/;
42     push(@V_def, $v);
43
44     $v = 0;
45     $v |= $NUMBER      if $c =~ /[0-9]/;
46     $v |= $UPPER       if $c =~ /[A-Z]/;
47     $v |= $LOWER       if $c =~ /[a-z]/;
48     $v |= $UNDER       if $c =~ /_/;
49     $v |= $PUNCTUATION if $c =~ /[!\.%&\*\+,\/;\?\@\^\~\|-]/;
50     $v |= $WS          if $c =~ /[ \t\r\n]/;
51     $v |= $DQUOTE      if $c =~ /["]/;           # for emacs: "
52     $v |= $FCOMMENT    if $c =~ /;/;
53     $v |= $EOF         if $c =~ /\0/;
54     push(@V_w32, $v);
55 }
56
57 # Output year depends on the year of the script.
58 my $YEAR = [localtime([stat($0)]->[9])]->[5] + 1900;
59
60 print <<"EOF";
61 /*
62  * WARNING: do not edit!
63  * Generated by crypto/conf/keysets.pl
64  *
65  * Copyright 1995-$YEAR The OpenSSL Project Authors. All Rights Reserved.
66  * Licensed under the Apache License 2.0 (the "License").  You may not use
67  * this file except in compliance with the License.  You can obtain a copy
68  * in the file LICENSE in the source distribution or at
69  * https://www.openssl.org/source/license.html
70  */
71
72 #define CONF_NUMBER       $NUMBER
73 #define CONF_UPPER        $UPPER
74 #define CONF_LOWER        $LOWER
75 #define CONF_UNDER        $UNDER
76 #define CONF_PUNCT        $PUNCTUATION
77 #define CONF_WS           $WS
78 #define CONF_ESC          $ESC
79 #define CONF_QUOTE        $QUOTE
80 #define CONF_DQUOTE       $DQUOTE
81 #define CONF_COMMENT      $COMMENT
82 #define CONF_FCOMMENT     $FCOMMENT
83 #define CONF_EOF          $EOF
84 #define CONF_ALPHA        (CONF_UPPER|CONF_LOWER)
85 #define CONF_ALNUM        (CONF_ALPHA|CONF_NUMBER|CONF_UNDER)
86 #define CONF_ALNUM_PUNCT  (CONF_ALPHA|CONF_NUMBER|CONF_UNDER|CONF_PUNCT)
87
88
89 #define IS_COMMENT(conf,c)     is_keytype(conf, c, CONF_COMMENT)
90 #define IS_FCOMMENT(conf,c)    is_keytype(conf, c, CONF_FCOMMENT)
91 #define IS_EOF(conf,c)         is_keytype(conf, c, CONF_EOF)
92 #define IS_ESC(conf,c)         is_keytype(conf, c, CONF_ESC)
93 #define IS_NUMBER(conf,c)      is_keytype(conf, c, CONF_NUMBER)
94 #define IS_WS(conf,c)          is_keytype(conf, c, CONF_WS)
95 #define IS_ALNUM(conf,c)       is_keytype(conf, c, CONF_ALNUM)
96 #define IS_ALNUM_PUNCT(conf,c) is_keytype(conf, c, CONF_ALNUM_PUNCT)
97 #define IS_QUOTE(conf,c)       is_keytype(conf, c, CONF_QUOTE)
98 #define IS_DQUOTE(conf,c)      is_keytype(conf, c, CONF_DQUOTE)
99
100 EOF
101
102 my $i;
103
104 print "static const unsigned short CONF_type_default[128] = {";
105 for ($i = 0; $i < 128; $i++) {
106     print "\n   " if ($i % 8) == 0;
107     printf " 0x%04X,", $V_def[$i];
108 }
109 print "\n};\n\n";
110
111 print "#ifndef OPENSSL_NO_DEPRECATED_3_0\n";
112 print "static const unsigned short CONF_type_win32[128] = {";
113 for ($i = 0; $i < 128; $i++) {
114     print "\n   " if ($i % 8) == 0;
115     printf " 0x%04X,", $V_w32[$i];
116 }
117 print "\n};\n";
118 print "#endif\n";