diff options
author | Ulf Möller <ulf@openssl.org> | 1999-05-07 22:55:27 +0000 |
---|---|---|
committer | Ulf Möller <ulf@openssl.org> | 1999-05-07 22:55:27 +0000 |
commit | 7d5d27b9a3edf37e6752a961b0da969b6813fa75 (patch) | |
tree | 5f7a6007d694e8e45360b722118f1897484b76dd /util | |
parent | 12d7d32f24a3fb1ea804cfeebdbbcb91308150bd (diff) |
Generate DLLs with Mingw32.
Diffstat (limited to 'util')
-rwxr-xr-x | util/mkdef.pl | 16 | ||||
-rw-r--r-- | util/pl/Mingw32.pl | 5 | ||||
-rw-r--r-- | util/pl/Mingw32f.pl | 2 |
3 files changed, 13 insertions, 10 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index 230644130b..d3263b6408 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -109,13 +109,13 @@ if($do_crypto == 1) { } } else { - - &print_def_file(*STDOUT,"SSLEAY",*ssl_list,@ssl_func) + my $err = 0; + $err += &print_def_file(*STDOUT,"SSLEAY",*ssl_list,@ssl_func) if $do_ssl == 1; - &print_def_file(*STDOUT,"LIBEAY",*crypto_list,@crypto_func) + $err += &print_def_file(*STDOUT,"LIBEAY",*crypto_list,@crypto_func) if $do_crypto == 1; - + exit($err); } @@ -290,6 +290,7 @@ sub print_def_file { (*OUT,my $name,*nums,@functions)=@_; my $n =1; + my $nodef=0; if ($W32) { $name.="32"; } @@ -329,14 +330,17 @@ EOF foreach $func (@functions) { if (!defined($nums{$func})) { - printf STDERR "$func does not have a number assigned\n" - if(!$do_update); + if(!$do_update) { + printf STDERR "$func does not have a number assigned\n"; + $nodef = 1; + } } else { $n=$nums{$func}; printf OUT " %s%-40s@%d\n",($W32)?"":"_",$func,$n; } } printf OUT "\n"; + return ($nodef); } sub load_numbers diff --git a/util/pl/Mingw32.pl b/util/pl/Mingw32.pl index f99b015aba..a47a961c27 100644 --- a/util/pl/Mingw32.pl +++ b/util/pl/Mingw32.pl @@ -1,12 +1,11 @@ #!/usr/local/bin/perl # -# unix.pl - the standard unix makefile stuff. +# Mingw32.pl -- Mingw32 with GNU cp (Mingw32f.pl uses DOS tools) # -# Need the Cygwin32 file utilities $o='/'; $cp='cp'; -$rm='rm'; +$rm='del'; # use 'rm -f' if using GNU file utilities $mkdir='gmkdir'; # gcc wouldn't accept backslashes in paths diff --git a/util/pl/Mingw32f.pl b/util/pl/Mingw32f.pl index d523d70153..8d8ad96f91 100644 --- a/util/pl/Mingw32f.pl +++ b/util/pl/Mingw32f.pl @@ -1,6 +1,6 @@ #!/usr/local/bin/perl # -# unix.pl - the standard unix makefile stuff. +# Mingw32f.pl -- copy files; Mingw32.pl is needed to do the compiling. # $o='\\'; |