GH355: Implement HKDF
[openssl.git] / util / pl / BC-32.pl
1 #!/usr/local/bin/perl
2 # Borland C++ builder 3 and 4 -- Janez Jere <jj@void.si>
3 #
4
5 $ssl=   "ssleay32";
6 $crypto="libeay32";
7
8 $o='\\';
9 $cp='copy';
10 $rm='del';
11 $mv='move /Y';
12
13 # C compiler stuff
14 $cc='bcc32';
15 $lflags="-ap -Tpe -x -Gn ";
16 $mlflags='';
17
18 $out_def="out32";
19 $tmp_def="tmp32";
20 $inc_def="inc32";
21 #enable max error messages, disable most common warnings
22 $cflags="-DWIN32_LEAN_AND_MEAN -q -w-ccc -w-rch -w-pia -w-aus -w-par -w-inl  -c -tWC -tWM -DOPENSSL_SYS_WIN32 -DL_ENDIAN -DDSO_WIN32 -D_stricmp=stricmp -D_strnicmp=strnicmp ";
23 if ($debug)
24 {
25     $cflags.="-Od -y -v -vi- -D_DEBUG";
26     $mlflags.=' ';
27 }
28 else
29 {
30     $cflags.="-O2 -ff -fp";
31 }
32
33 $obj='.obj';
34 $ofile="-o";
35
36 # EXE linking stuff
37 $link="ilink32";
38 $efile="";
39 $exep='.exe';
40 if ($no_sock)
41         { $ex_libs=""; }
42 else    { $ex_libs="cw32mt.lib import32.lib crypt32.lib ws2_32.lib"; }
43
44 # static library stuff
45 $mklib='tlib /P64';
46 $ranlib='';
47 $plib="";
48 $libp=".lib";
49 $shlibp=($shlib)?".dll":".lib";
50 $lfile='';
51
52 $shlib_ex_obj="";
53 $app_ex_obj="c0x32.obj"; 
54
55 $asm=(`nasm -v 2>NUL` ge `nasmw -v 2>NUL`?"nasm":"nasmw")." -f obj -d__omf__";
56 $asm.=" -g" if $debug;
57 $afile='-o';
58
59 $bn_mulw_obj='';
60 $bn_mulw_src='';
61 $des_enc_obj='';
62 $des_enc_src='';
63 $bf_enc_obj='';
64 $bf_enc_src='';
65
66 if (!$no_asm)
67         {
68         $bn_mulw_obj='crypto\bn\asm\bn_win32.obj';
69         $bn_mulw_src='crypto\bn\asm\bn_win32.asm';
70         $des_enc_obj='crypto\des\asm\d_win32.obj crypto\des\asm\y_win32.obj';
71         $des_enc_src='crypto\des\asm\d_win32.asm crypto\des\asm\y_win32.asm';
72         $bf_enc_obj='crypto\bf\asm\b_win32.obj';
73         $bf_enc_src='crypto\bf\asm\b_win32.asm';
74         $cast_enc_obj='crypto\cast\asm\c_win32.obj';
75         $cast_enc_src='crypto\cast\asm\c_win32.asm';
76         $rc4_enc_obj='crypto\rc4\asm\r4_win32.obj';
77         $rc4_enc_src='crypto\rc4\asm\r4_win32.asm';
78         $rc5_enc_obj='crypto\rc5\asm\r5_win32.obj';
79         $rc5_enc_src='crypto\rc5\asm\r5_win32.asm';
80         $md5_asm_obj='crypto\md5\asm\m5_win32.obj';
81         $md5_asm_src='crypto\md5\asm\m5_win32.asm';
82         $sha1_asm_obj='crypto\sha\asm\s1_win32.obj';
83         $sha1_asm_src='crypto\sha\asm\s1_win32.asm';
84         $rmd160_asm_obj='crypto\ripemd\asm\rm_win32.obj';
85         $rmd160_asm_src='crypto\ripemd\asm\rm_win32.asm';
86         $cflags.=" -DBN_ASM -DMD5_ASM -DSHA1_ASM -DRMD160_ASM";
87         }
88
89 if ($shlib)
90         {
91         $mlflags.=" $lflags /dll";
92 #       $cflags =~ s| /MD| /MT|;
93         $lib_cflag=" /GD -D_WINDLL -D_DLL";
94         $out_def="out32dll";
95         $tmp_def="tmp32dll";
96         }
97
98 sub do_rehash_rule {
99     my ($target, $deps) = @_;
100     my $ret = <<"EOF";
101 $target: $deps
102         echo off > $target
103 EOF
104     return $ret
105 }
106 sub do_test_rule {
107     my ($target, $deps, $test_cmd) = @_;
108     my $ret = <<"EOF";
109 $target: $deps force.$target
110         set TOP=.
111         set BIN_D=\$(BIN_D)
112         set TEST_D=\$(TEST_D)
113         set PERL=\$(PERL)
114         \$(PERL) test\\$test_cmd \$(TESTS)
115 force.$target:
116 EOF
117 }
118
119 sub do_lib_rule
120         {
121         local($objs,$target,$name,$shlib)=@_;
122         local($ret,$Name);
123
124         $taget =~ s/\//$o/g if $o ne '/';
125         ($Name=$name) =~ tr/a-z/A-Z/;
126
127 #       $target="\$(LIB_D)$o$target";
128         $ret.="$target: $objs\n";
129         if (!$shlib)
130                 {
131                 $ret.=<<___;
132         -\$(RM) $lfile$target
133         \$(MKLIB) $lfile$target \@&&!
134 +\$(**: = &^
135 +)
136 !
137 ___
138                 }
139         else
140                 {
141                 local($ex)=($target =~ /O_SSL/)?' $(L_CRYPTO)':'';
142                 $ex.=' ws2_32.lib gdi32.lib';
143                 $ret.="\t\$(LINK_CMD) \$(MLFLAGS) $efile$target /def:ms/${Name}.def @<<\n  \$(SHLIB_EX_OBJ) $objs $ex\n<<\n";
144                 }
145         $ret.="\n";
146         return($ret);
147         }
148
149 sub do_link_rule
150         {
151         local($target,$files,$dep_libs,$libs)=@_;
152         local($ret,$_);
153         
154         $file =~ s/\//$o/g if $o ne '/';
155         $n=&bname($target);
156         $ret.="$target: $files $dep_libs\n";
157         $ret.="\t\$(LINK_CMD) \$(LFLAGS) $files \$(APP_EX_OBJ), $target,, $libs\n\n";
158         return($ret);
159         }
160
161 1;