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