Netware patch submitted by Verdon Walker" <VWalker@novell.com> in PR
[openssl.git] / util / pl / netware.pl
1 # Metrowerks Codewarrior for NetWare
2 #
3
4 # The import files and other misc imports needed to link
5 @misc_imports = ("GetProcessSwitchCount", "RunningProcess",  
6                  "GetSuperHighResolutionTimer");
7 if ($LIBC)
8 {
9    @import_files = ("libc.imp");
10    @module_files = ("libc");
11 }
12 else
13 {
14    # clib build
15    @import_files = ("clib.imp");
16    @module_files = ("clib");
17    push(@misc_imports, "_rt_modu64%16", "_rt_divu64%16");
18 }
19 if (!$BSDSOCK)
20 {
21    push(@import_files, "ws2nlm.imp");
22 }
23                  
24
25 # The "IMPORTS" environment variable must be set and point to the location
26 # where import files (*.imp) can be found.
27 # Example:  set IMPORTS=c:\ndk\nwsdk\imports
28 $import_path = $ENV{"IMPORTS"} || die ("IMPORTS environment variable not set\n");
29
30
31 # The "PRELUDE" environment variable must be set and point to the location
32 # and name of the prelude source to link with ( nwpre.obj is recommended ).
33 # Example: set PRELUDE=c:\codewar\novell support\metrowerks support\libraries\runtime\nwpre.obj
34 $prelude = $ENV{"PRELUDE"} || die ("PRELUDE environment variable not set\n");
35
36 #$ssl=   "ssleay32";
37 #$crypto="libeay32";
38
39 $o='\\\\';
40 $cp='copy >nul:';
41 $rm='del';
42
43 # C compiler
44 $cc="mwccnlm";
45
46 # Linker
47 $link="mwldnlm";
48
49 # librarian
50 $mklib="mwldnlm";
51
52 # assembler 
53 if ($nw_nasm) 
54 {
55    $asm="nasmw -s -f coff";
56    $afile="-o ";
57    $asm.=" -g" if $debug;
58 }
59 elsif ($nw_mwasm) 
60 {
61    $asm="mwasmnlm -maxerrors 20";
62    $afile="-o ";
63    $asm.=" -g" if $debug;
64 }
65 elsif ($nw_masm)
66 {
67 # masm assembly settings - it should be possible to use masm but haven't 
68 # got it working.
69 # $asm='ml /Cp /coff /c /Cx';
70 # $asm.=" /Zi" if $debug;
71 # $afile='/Fo';
72    die("Support for masm assembler not yet functional\n");
73 }
74 else 
75 {
76    $asm="";
77    $afile="";
78 }
79
80
81
82 # compile flags
83 #
84 # NOTES: Several c files in the crypto subdirectory include headers from
85 #        their local directories.  Metrowerks wouldn't find these h files
86 #        without adding individual include directives as compile flags
87 #        or modifying the c files.  Instead of adding individual include
88 #        paths for each subdirectory a recursive include directive
89 #        is used ( -ir crypto ).
90 #
91 #        A similar issue exists for the engines and apps subdirectories.
92 #
93 #        Turned off the "possible" warnings ( -w nopossible ).  Metrowerks
94 #        complained a lot about various stuff.  May want to turn back
95 #        on for further development.
96 $cflags="-ir crypto -ir engines -ir apps -msgstyle gcc -align 4 -processor pentium \\
97          -char unsigned -w on -w nolargeargs -w nopossible -w nounusedarg \\
98          -w noimplicitconv -relax_pointers -nosyspath -DL_ENDIAN \\
99          -DOPENSSL_SYSNAME_NETWARE -U_WIN32 -maxerrors 20 ";
100
101 # link flags
102 $lflags="-msgstyle gcc -zerobss -stacksize 32768 -nostdlib -sym internal ";
103
104
105 # additional flags based upon debug | non-debug
106 if ($debug)
107 {
108    $cflags.=" -opt off -g -sym internal -DDEBUG";
109 }
110 else
111 {
112 # CodeWarrior compiler has a problem with optimizations for floating
113 # points - no optimizations until further investigation
114 #   $cflags.=" -opt all";
115 }
116
117 # If LibC build add in NKS_LIBC define and set the entry/exit
118 # routines - The default entry/exit routines are for CLib and don't exist
119 # in LibC
120 if ($LIBC)
121 {
122    $cflags.=" -DNETWARE_LIBC";
123    $lflags.=" -entry _LibCPrelude -exit _LibCPostlude -flags pseudopreemption";
124 }
125 else
126 {
127    $cflags.=" -DNETWARE_CLIB";
128    $lflags.=" -entry _Prelude -exit _Stop";
129 }
130
131 # If BSD Socket support is requested, set a define for the compiler
132 if ($BSDSOCK)
133 {
134    $cflags.=" -DNETWARE_BSDSOCK";
135 }
136
137
138 # linking stuff
139 # for the output directories use the mk1mf.pl values with "_nw" appended
140 if ($shlib)
141 {
142    if ($LIBC)
143    {
144       $out_def.="_nw_libc_nlm";
145       $tmp_def.="_nw_libc_nlm";
146       $inc_def.="_nw_libc_nlm";
147    }
148    else  # NETWARE_CLIB
149    {
150       $out_def.="_nw_clib_nlm";
151       $tmp_def.="_nw_clib_nlm";
152       $inc_def.="_nw_clib_nlm";
153    }
154 }
155 else
156 {
157    $libp=".lib";
158    $shlibp=".lib";
159    $lib_flags="-nodefaults -type library";
160    if ($LIBC)
161    {
162       $out_def.="_nw_libc";
163       $tmp_def.="_nw_libc";
164       $inc_def.="_nw_libc";
165    }
166    else  # NETWARE_CLIB 
167    {
168       $out_def.="_nw_clib";
169       $tmp_def.="_nw_clib";
170       $inc_def.="_nw_clib";
171    }
172 }
173
174 # used by mk1mf.pl
175 $obj='.obj';
176 $ofile='-o ';
177 $efile='';
178 $exep='.nlm';
179 $ex_libs='';
180
181 if (!$no_asm)
182 {
183    $bn_asm_obj="crypto${o}bn${o}asm${o}bn-nw.obj";
184    $bn_asm_src="crypto${o}bn${o}asm${o}bn-nw.asm";
185    $des_enc_obj="crypto${o}des${o}asm${o}d-nw.obj crypto${o}des${o}asm${o}y-nw.obj";
186    $des_enc_src="crypto${o}des${o}asm${o}d-nw.asm crypto${o}des${o}asm${o}y-nw.asm";
187    $bf_enc_obj="crypto${o}bf${o}asm${o}b-nw.obj";
188    $bf_enc_src="crypto${o}bf${o}asm${o}b-nw.asm";
189    $cast_enc_obj="crypto${o}cast${o}asm${o}c-nw.obj";
190    $cast_enc_src="crypto${o}cast${o}asm${o}c-nw.asm";
191    $rc4_enc_obj="crypto${o}rc4${o}asm${o}r4-nw.obj";
192    $rc4_enc_src="crypto${o}rc4${o}asm${o}r4-nw.asm";
193    $rc5_enc_obj="crypto${o}rc5${o}asm${o}r5-nw.obj";
194    $rc5_enc_src="crypto${o}rc5${o}asm${o}r5-nw.asm";
195    $md5_asm_obj="crypto${o}md5${o}asm${o}m5-nw.obj";
196    $md5_asm_src="crypto${o}md5${o}asm${o}m5-nw.asm";
197    $sha1_asm_obj="crypto${o}sha${o}asm${o}s1-nw.obj";
198    $sha1_asm_src="crypto${o}sha${o}asm${o}s1-nw.asm";
199    $rmd160_asm_obj="crypto${o}ripemd${o}asm${o}rm-nw.obj";
200    $rmd160_asm_src="crypto${o}ripemd${o}asm${o}rm-nw.asm";
201    $cflags.=" -DBN_ASM -DMD5_ASM -DSHA1_ASM -DRMD160_ASM";
202 }
203 else
204 {
205    $bn_asm_obj='';
206    $bn_asm_src='';
207    $des_enc_obj='';
208    $des_enc_src='';
209    $bf_enc_obj='';
210    $bf_enc_src='';
211    $cast_enc_obj='';
212    $cast_enc_src='';
213    $rc4_enc_obj='';
214    $rc4_enc_src='';
215    $rc5_enc_obj='';
216    $rc5_enc_src='';
217    $md5_asm_obj='';
218    $md5_asm_src='';
219    $sha1_asm_obj='';
220    $sha1_asm_src='';
221    $rmd160_asm_obj='';
222    $rmd160_asm_src='';
223 }
224
225 # create the *.def linker command files in \openssl\netware\ directory
226 sub do_def_file
227 {
228    # strip off the leading path
229    my($target) = bname(@_);
230    my($def_file);
231    my($mod_file);
232    my($i);
233
234    if ($target =~ /(.*).nlm/)
235    {
236       $target = $1;
237    }
238
239    # special case for openssl - the mk1mf.pl defines E_EXE = openssl
240    if ($target =~ /E_EXE/)
241    {
242       $target = "openssl";
243    }
244
245    # Note: originally tried to use full path ( \openssl\netware\$target.def )
246    # Metrowerks linker choked on this with an assertion failure. bug???
247    #
248    $def_file = "netware\\$target.def";
249
250    open(DEF_OUT, ">$def_file") || die("unable to open file $def_file\n");
251
252    print( DEF_OUT "# command file generated by netware.pl for Metrowerks build\n" );
253    print( DEF_OUT "#\n");
254    print( DEF_OUT "DESCRIPTION \"$target\"\n");
255    
256    foreach $i (@misc_imports)
257    {
258       print( DEF_OUT "IMPORT $i\n");
259    }
260    
261    foreach $i (@import_files)
262    {
263       print( DEF_OUT "IMPORT \@$import_path\\$i\n");
264    }
265    
266    foreach $i (@module_files)
267    {
268       print( DEF_OUT "MODULE $i\n");
269    }
270
271    close(DEF_OUT);
272    return($def_file);
273 }
274
275 sub do_lib_rule
276 {
277    my($objs,$target,$name,$shlib)=@_;
278    my($ret);
279
280    $ret.="$target: $objs\n";
281    if (!$shlib)
282    {
283       $ret.="\t\@echo Building Lib: $name\n";
284       $ret.="\t\$(MKLIB) $lib_flags -o $target $objs\n";
285       $ret.="\t\@echo .\n"
286    }
287    else
288    {
289       die( "Building as NLM not currently supported!" );
290    }
291
292    $ret.="\n";
293    return($ret);
294 }
295
296 sub do_link_rule
297 {
298    my($target,$files,$dep_libs,$libs)=@_;
299    my($ret);
300    my($def_file);
301
302    $def_file = do_def_file($target);
303
304    # special case for openssl - the mk1mf.pl defines E_EXE = openssl
305
306    # NOTE:  When building the test nlms no screen name is given
307    #  which causes the console screen to be used.  By using the console
308    #  screen there is no "<press any key to continue>" message which
309    #  requires user interaction.  The test script ( tests.pl ) needs to be
310    #  able to run the tests without requiring user interaction.
311    #
312    #  However, the sample program "openssl.nlm" is used by the tests and is
313    #  a interactive sample so a screen is desired when not be run by the
314    #  tests.  To solve the problem, two versions of the program are built:
315    #    openssl2 - no screen used by tests
316    #    openssl - default screen - use for normal interactive modes
317    #
318    if ($target =~ /E_EXE/)
319    {
320       my($target2) = $target;
321
322       $target2 =~ s/\(E_EXE\)/\(E_EXE\)2/;
323
324       $ret.="$target: $files $dep_libs\n";
325
326          # openssl
327       $ret.="\t\$(LINK) \$(LFLAGS) -screenname openssl -commandfile $def_file $files \"$prelude\" $libs -o $target\n";
328          # openssl2
329       $ret.="\t\$(LINK) \$(LFLAGS) -commandfile $def_file $files \"$prelude\" $libs -o $target2\n";
330    }
331    else
332    {
333       $ret.="$target: $files $dep_libs\n";
334       $ret.="\t\$(LINK) \$(LFLAGS) -commandfile $def_file $files \"$prelude\" $libs -o $target\n";
335    }
336
337    $ret.="\n";
338    return($ret);
339 }
340
341 1;