OS2-EMX.pl revision 127128
1#!/usr/local/bin/perl 2# 3# OS2-EMX.pl - for EMX GCC on OS/2 4# 5 6$o='/'; 7$cp='cp'; 8$rm='rm -f'; 9 10$preamble = "SHELL=sh\n"; 11 12# C compiler stuff 13 14$cc='gcc'; 15$cflags="-DL_ENDIAN -O3 -fomit-frame-pointer -m486 -Zmtd -Wall "; 16$cflags.="-Zomf " if $shlib; 17$shl_cflag="-Zdll"; 18 19if ($debug) { 20 $cflags.="-g "; 21} 22 23$obj=$shlib ? '.obj' : '.o'; 24$ofile='-o '; 25 26# EXE linking stuff 27$link='${CC}'; 28$lflags='${CFLAGS} -Zbsd-signals -s'; 29$efile='-o '; 30$exep='.exe'; 31$ex_libs="-lsocket"; 32 33# static library stuff 34$mklib='ar r'; 35$mlflags=''; 36$ranlib="ar s"; 37$plib=''; 38$libp=$shlib ? ".lib" : ".a"; 39$shlibp=$shlib ? ".dll" : ".a"; 40$lfile=''; 41 42$asm=$shlib ? 'as -Zomf' : 'as'; 43$afile='-o '; 44$bn_asm_obj=""; 45$bn_asm_src=""; 46$des_enc_obj=""; 47$des_enc_src=""; 48$bf_enc_obj=""; 49$bf_enc_src=""; 50 51if (!$no_asm) 52 { 53 $bn_asm_obj="crypto/bn/asm/bn-os2$obj crypto/bn/asm/co-os2$obj"; 54 $bn_asm_src="crypto/bn/asm/bn-os2.asm crypto/bn/asm/co-os2.asm"; 55 $des_enc_obj="crypto/des/asm/d-os2$obj crypto/des/asm/y-os2$obj"; 56 $des_enc_src="crypto/des/asm/d-os2.asm crypto/des/asm/y-os2.asm"; 57 $bf_enc_obj="crypto/bf/asm/b-os2$obj"; 58 $bf_enc_src="crypto/bf/asm/b-os2.asm"; 59 $cast_enc_obj="crypto/cast/asm/c-os2$obj"; 60 $cast_enc_src="crypto/cast/asm/c-os2.asm"; 61 $rc4_enc_obj="crypto/rc4/asm/r4-os2$obj"; 62 $rc4_enc_src="crypto/rc4/asm/r4-os2.asm"; 63 $rc5_enc_obj="crypto/rc5/asm/r5-os2$obj"; 64 $rc5_enc_src="crypto/rc5/asm/r5-os2.asm"; 65 $md5_asm_obj="crypto/md5/asm/m5-os2$obj"; 66 $md5_asm_src="crypto/md5/asm/m5-os2.asm"; 67 $sha1_asm_obj="crypto/sha/asm/s1-os2$obj"; 68 $sha1_asm_src="crypto/sha/asm/s1-os2.asm"; 69 $rmd160_asm_obj="crypto/ripemd/asm/rm-os2$obj"; 70 $rmd160_asm_src="crypto/ripemd/asm/rm-os2.asm"; 71 } 72 73if ($shlib) 74 { 75 $mlflags.=" $lflags -Zdll"; 76 $lib_cflag=" -D_DLL"; 77 $out_def="out_dll"; 78 $tmp_def="tmp_dll"; 79 } 80 81sub do_lib_rule 82 { 83 local($obj,$target,$name,$shlib)=@_; 84 local($ret,$_,$Name); 85 86 $target =~ s/\//$o/g if $o ne '/'; 87 $target="$target"; 88 ($Name=$name) =~ tr/a-z/A-Z/; 89 90 $ret.="$target: \$(${Name}OBJ)\n"; 91 if (!$shlib) 92 { 93 $ret.="\t\$(RM) $target\n"; 94 $ret.="\t\$(MKLIB) $target \$(${Name}OBJ)\n"; 95 $ret.="\t\$(RANLIB) $target\n\n"; 96 } 97 else 98 { 99 local($ex)=($target =~ /O_SSL/)?' $(L_CRYPTO)':''; 100 $ex.=' -lsocket'; 101 $ret.="\t\$(LINK) \$(SHLIB_CFLAGS) \$(MLFLAGS) $efile$target \$(SHLIB_EX_OBJ) \$(${Name}OBJ) $ex os2/${Name}.def\n"; 102 $ret.="\temximp -o $out_def/$name.a os2/${Name}.def\n"; 103 $ret.="\temximp -o $out_def/$name.lib os2/${Name}.def\n\n"; 104 } 105 } 106 107sub do_link_rule 108 { 109 local($target,$files,$dep_libs,$libs)=@_; 110 local($ret,$_); 111 112 $file =~ s/\//$o/g if $o ne '/'; 113 $n=&bname($target); 114 $ret.="$target: $files $dep_libs\n"; 115 $ret.="\t\$(LINK) ${efile}$target \$(CFLAG) \$(LFLAGS) $files $libs\n\n"; 116 return($ret); 117 } 118 1191; 120