Fixed hmac for larger blocksizes algorithms
[libgcrypt.git] / w32-dll / build-def
1 #!/usr/bin/perl -w
2 # Run this to generate the .def file for the libgcrypt W32 DLL
3 #
4 # Copyright (C) 2001, 2002 Free Software Foundation, Inc.
5 #
6 # This file is free software; as a special exception the author gives
7 # unlimited permission to copy and/or distribute it, with or without
8 # modifications, as long as this notice is preserved.
9 #
10 # This program is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
12 # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
14 DO NOT USE 
15
16
17 $gcrypt_h = "../src/gcrypt.h";
18 $i = 1;
19 $header_passed = 0;
20
21 open( FD, $gcrypt_h ) || die "$gcrypt_h: $!";
22 @filebuf = <FD>;
23 close( FD );
24
25 open( FD, ">libgcrypt.deffoooo" ) || die "$!";
26 print FD "EXPORTS\n";
27 foreach $in( @filebuf ) {
28     if( $in =~ m/GCRYPT_VERSION/ ) {
29         $header_passed = 1;
30     }
31     if( $header_passed == 1 && $in !~ m/\#define/ && $in !~ m/\t/ 
32         && $in !~ m/\*\// ) {
33         if( $in =~ m/gcry_/ && $' =~ m/\(/ ) {
34             print FD "\tgcry_$` \@$i\n";
35             $i++;
36         }
37     }
38 }
39 close( FD );