2 # VCw16lib.pl - the file for Visual C++ 1.52b for windows, static libraries
25 $op="/G2 /f- /Ocgnotb2";
27 $base_lflags.=" /FARCALL /NOLOGO /NOD /SEG:1024 /ONERROR:NOEXE /NOE /PACKC:60000";
28 if ($win16) { $base_lflags.=" /PACKD:60000"; }
30 $cflags="/ALw /Gx- /Gt256 /Gf $op /W3 /WX -DL_ENDIAN /nologo";
32 $lflags="$base_lflags /STACK:20000";
36 $cflags.=" -DOPENSSL_SYSNAME_WIN16";
37 $app_cflag="/Gw /FPi87";
39 $lib_cflag.=" -D_WINDLL -D_DLL" if $shlib;
40 $lib_cflag.=" -DWIN16TTY" if !$shlib;
41 $lflags.=" /ALIGN:256";
42 $ex_libs.="oldnames llibcewq libw";
49 $ex_libs.="oldnames.lib llibce.lib";
54 $mlflags="$base_lflags";
55 $libs="oldnames ldllcew libw";
64 $app_ex_obj="setargv.obj";
73 $ex_libs.=$no_sock?"":" winsock";
75 # static library stuff
76 $mklib='lib /PAGESIZE:1024';
80 $shlibp=($shlib)?".dll":".lib";
97 $bn_asm_obj='crypto\bn\asm\x86w32.obj';
98 $bn_asm_src='crypto\bn\asm\x86w32.asm';
102 $bn_asm_obj='crypto\bn\asm\x86w16.obj';
103 $bn_asm_src='crypto\bn\asm\x86w16.asm';
109 local($objs,$target,$name,$shlib)=@_;
112 $taget =~ s/\//$o/g if $o ne '/';
113 ($Name=$name) =~ tr/a-z/A-Z/;
115 # $target="\$(LIB_D)$o$target";
116 $ret.="$target: $objs\n";
117 # $ret.="\t\$(RM) \$(O_$Name)\n";
119 # Due to a pathetic line length limit, I unwrap the args.
120 local($lib_names)="";
121 local($dll_names)=" \$(SHLIB_EX_OBJ) +\n";
122 ($obj)= ($objs =~ /\((.*)\)/);
123 foreach $_ (sort split(/\s+/,$Vars{$obj}))
125 $lib_names.="+$_ &\n";
126 $dll_names.=" $_ +\n";
131 $ret.="\tdel $target\n";
132 $ret.="\t\$(MKLIB) @<<\n$target\ny\n$lib_names\n\n<<\n";
136 local($ex)=($target =~ /O_SSL/)?'$(L_CRYPTO)':"";
138 $ret.="\t\$(LINK) \$(MLFLAGS) @<<\n";
140 $ret.="\n $target\n\n $ex $libs\nms$o${name}.def;\n<<\n";
141 ($out_lib=$target) =~ s/O_/L_/;
142 $ret.="\timplib /noignorecase /nowep $out_lib $target\n";
150 local($target,$files,$dep_libs,$libs)=@_;
151 local($ret,$f,$_,@f);
153 $file =~ s/\//$o/g if $o ne '/';
155 $ret.="$target: $files $dep_libs\n";
156 $ret.=" \$(LINK) \$(LFLAGS) @<<\n";
158 # Due to a pathetic line length limit, I have to unwrap the args.
159 if ($files =~ /\(([^)]*)\)$/)
161 @a=('$(APP_EX_OBJ)');
162 push(@a,sort split(/\s+/,$Vars{$1}));
167 { $ret.=" \$(APP_EX_OBJ) $files"; }
168 $ret.="\n $target\n\n $libs\n\n<<\n\n";