mirror of
				https://github.com/Mbed-TLS/mbedtls.git
				synced 2025-10-30 10:45:34 +03:00 
			
		
		
		
	This commit was generated using the following script:
# ========================
#!/bin/sh
# Find scripts
find -path './.git' -prune -o '(' -name '*.gdb' -o -name '*.pl' -o -name '*.py' -o -name '*.sh' ')' -print | xargs sed -i '
# Remove Mbed TLS declaration if it occurs before the copyright line
1,/Copyright.*Arm/I {
  /This file is part of/,$ {
    /Copyright.*Arm/I! d
  }
}
# Convert non-standard header in scripts/abi_check.py to the format used in the other scripts
/"""/,/"""/ {
  # Cut copyright declaration
  /Copyright.*Arm/I {
    h
    N
    d
  }
  # Paste copyright declaration
  /"""/ {
    x
    /./ {
      s/^/# /    # Add #
      x          # Replace orignal buffer with Copyright declaration
      p          # Print original buffer, insert newline
      i\
      s/.*//     # Clear original buffer
    }
    x
  }
}
/Copyright.*Arm/I {
  # Print copyright declaration
  p
  # Read the two lines immediately following the copyright declaration
  N
  N
  # Insert Apache header if it is missing
  /SPDX/! {
    i\
# SPDX-License-Identifier: Apache-2.0\
#\
# Licensed under the Apache License, Version 2.0 (the "License"); you may\
# not use this file except in compliance with the License.\
# You may obtain a copy of the License at\
#\
# http://www.apache.org/licenses/LICENSE-2.0\
#\
# Unless required by applicable law or agreed to in writing, software\
# distributed under the License is distributed on an "AS IS" BASIS, WITHOUT\
# WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\
# See the License for the specific language governing permissions and\
# limitations under the License.
    # Insert Mbed TLS declaration if it is missing
    /This file is part of/! i\
#\
# This file is part of Mbed TLS (https://tls.mbed.org)
  }
  # Clear copyright declaration from buffer
  D
}
'
# ========================
Signed-off-by: Bence Szépkúti <bence.szepkuti@arm.com>
		
	
		
			
				
	
	
		
			56 lines
		
	
	
		
			1.6 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			56 lines
		
	
	
		
			1.6 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
| #!/usr/bin/env perl
 | |
| #
 | |
| # Copyright (C) 2015-2019, Arm Limited, All Rights Reserved
 | |
| # SPDX-License-Identifier: Apache-2.0
 | |
| #
 | |
| # Licensed under the Apache License, Version 2.0 (the "License"); you may
 | |
| # not use this file except in compliance with the License.
 | |
| # You may obtain a copy of the License at
 | |
| #
 | |
| # http://www.apache.org/licenses/LICENSE-2.0
 | |
| #
 | |
| # Unless required by applicable law or agreed to in writing, software
 | |
| # distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
 | |
| # WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 | |
| # See the License for the specific language governing permissions and
 | |
| # limitations under the License.
 | |
| #
 | |
| # This file is part of Mbed TLS (https://tls.mbed.org)
 | |
| 
 | |
| use warnings;
 | |
| use strict;
 | |
| 
 | |
| use utf8;
 | |
| use open qw(:std utf8);
 | |
| 
 | |
| -d 'include/mbedtls' or die "$0: must be run from root\n";
 | |
| 
 | |
| @ARGV = grep { ! /compat-1\.3\.h/ } <include/mbedtls/*.h>;
 | |
| push @ARGV, "3rdparty/everest/include/everest/everest.h";
 | |
| push @ARGV, "3rdparty/everest/include/everest/x25519.h";
 | |
| 
 | |
| 
 | |
| my @consts;
 | |
| my $state = 'out';
 | |
| while (<>)
 | |
| {
 | |
|     if( $state eq 'out' and /^(typedef )?enum \{/ ) {
 | |
|         $state = 'in';
 | |
|     } elsif( $state eq 'out' and /^(typedef )?enum/ ) {
 | |
|         $state = 'start';
 | |
|     } elsif( $state eq 'start' and /{/ ) {
 | |
|         $state = 'in';
 | |
|     } elsif( $state eq 'in' and /}/ ) {
 | |
|         $state = 'out';
 | |
|     } elsif( $state eq 'in' and not /^#/) {
 | |
|         s/=.*//; s!/\*.*!!; s/,.*//; s/\s+//g; chomp;
 | |
|         push @consts, $_ if $_;
 | |
|     }
 | |
| }
 | |
| 
 | |
| open my $fh, '>', 'enum-consts' or die;
 | |
| print $fh "$_\n" for sort @consts;
 | |
| close $fh or die;
 | |
| 
 | |
| printf "%8d enum-consts\n", scalar @consts;
 |