| 1 | #! /bin/sh |
| 2 | # hints/os2.sh |
| 3 | # This file reflects the tireless work of |
| 4 | # Ilya Zakharevich <ilya@math.ohio-state.edu> |
| 5 | # |
| 6 | # Trimmed and comments added by |
| 7 | # Andy Dougherty <doughera@lafcol.lafayette.edu> |
| 8 | # Exactly what is required beyond a standard OS/2 installation? |
| 9 | # (see in README.os2) |
| 10 | |
| 11 | # Note that symbol extraction code gives wrong answers (sometimes?) on |
| 12 | # gethostent and setsid. |
| 13 | |
| 14 | # Optimization (GNU make 3.74 cannot be loaded :-(): |
| 15 | emxload -m 30 sh.exe ls.exe tr.exe id.exe sed.exe # make.exe |
| 16 | emxload -m 30 grep.exe egrep.exe fgrep.exe cat.exe rm.exe mv.exe cp.exe |
| 17 | emxload -m 30 uniq.exe basename.exe sort.exe awk.exe echo.exe |
| 18 | |
| 19 | path_sep=\; |
| 20 | |
| 21 | if test -f $sh.exe; then sh=$sh.exe; fi |
| 22 | |
| 23 | startsh="#!$sh" |
| 24 | cc='gcc' |
| 25 | |
| 26 | # Make denser object files and DLL |
| 27 | case "X$optimize" in |
| 28 | X) |
| 29 | optimize="-O2 -fomit-frame-pointer -malign-loops=2 -malign-jumps=2 -malign-functions=2 -s" |
| 30 | ld_dll_optimize="-s" |
| 31 | ;; |
| 32 | esac |
| 33 | |
| 34 | # Get some standard things (indented to avoid putting in config.sh): |
| 35 | oifs="$IFS" |
| 36 | IFS=" ;" |
| 37 | set $MANPATH |
| 38 | tryman="$@" |
| 39 | set $LIBRARY_PATH |
| 40 | libemx="$@" |
| 41 | set $C_INCLUDE_PATH |
| 42 | usrinc="$@" |
| 43 | IFS="$oifs" |
| 44 | tryman="`./UU/loc . /man $tryman`" |
| 45 | tryman="`echo $tryman | tr '\\\' '/'`" |
| 46 | |
| 47 | # indented to avoid having it *two* times at start |
| 48 | libemx="`./UU/loc os2.a /emx/lib $libemx`" |
| 49 | |
| 50 | usrinc="`./UU/loc stdlib.h /emx/include $usrinc`" |
| 51 | usrinc="`dirname $usrinc | tr '\\\' '/'`" |
| 52 | libemx="`dirname $libemx | tr '\\\' '/'`" |
| 53 | |
| 54 | if test -d $tryman/man1; then |
| 55 | sysman="$tryman/man1" |
| 56 | else |
| 57 | sysman="`./UU/loc . /man/man1 c:/man/man1 c:/usr/man/man1 d:/man/man1 d:/usr/man/man1 e:/man/man1 e:/usr/man/man1 f:/man/man1 f:/usr/man/man1 g:/man/man1 g:/usr/man/man1 /usr/man/man1`" |
| 58 | fi |
| 59 | |
| 60 | emxpath="`dirname $libemx`" |
| 61 | if test ! -d "$emxpath"; then |
| 62 | emxpath="`./UU/loc . /emx c:/emx d:/emx e:/emx f:/emx g:/emx h:/emx /emx`" |
| 63 | fi |
| 64 | |
| 65 | if test ! -d "$libemx"; then |
| 66 | libemx="$emxpath/lib" |
| 67 | fi |
| 68 | if test ! -d "$libemx"; then |
| 69 | if test -d "$LIBRARY_PATH"; then |
| 70 | libemx="$LIBRARY_PATH" |
| 71 | else |
| 72 | libemx="`./UU/loc . X c:/emx/lib d:/emx/lib e:/emx/lib f:/emx/lib g:/emx/lib h:/emx/lib /emx/lib`" |
| 73 | fi |
| 74 | fi |
| 75 | |
| 76 | if test ! -d "$usrinc"; then |
| 77 | if test -d "$emxpath/include"; then |
| 78 | usrinc="$emxpath/include" |
| 79 | else |
| 80 | if test -d "$C_INCLUDE_PATH"; then |
| 81 | usrinc="$C_INCLUDE_PATH" |
| 82 | else |
| 83 | usrinc="`./UU/loc . X c:/emx/include d:/emx/include e:/emx/include f:/emx/include g:/emx/include h:/emx/include /emx/include`" |
| 84 | fi |
| 85 | fi |
| 86 | fi |
| 87 | |
| 88 | rsx="`./UU/loc rsx.exe undef $pth`" |
| 89 | |
| 90 | if test "$libemx" = "X"; then echo "Cannot find C library!" >&2; fi |
| 91 | |
| 92 | # Acute backslashitis: |
| 93 | libpth="`echo \"$LIBRARY_PATH\" | tr ';\\\' ' /'`" |
| 94 | libpth="$libpth $libemx/mt $libemx" |
| 95 | |
| 96 | set `emxrev -f emxlibcm` |
| 97 | emxcrtrev=$5 |
| 98 | |
| 99 | so='dll' |
| 100 | |
| 101 | # Additional definitions: |
| 102 | |
| 103 | firstmakefile='GNUmakefile' |
| 104 | exe_ext='.exe' |
| 105 | |
| 106 | # We provide it |
| 107 | i_dlfcn='define' |
| 108 | |
| 109 | aout_d_shrplib='undef' |
| 110 | aout_useshrplib='false' |
| 111 | aout_obj_ext='.o' |
| 112 | aout_lib_ext='.a' |
| 113 | aout_ar='ar' |
| 114 | aout_plibext='.a' |
| 115 | aout_lddlflags="-Zdll $ld_dll_optimize" |
| 116 | # Cannot have 32000K stack: get SYS0170 ?! |
| 117 | if [ $emxcrtrev -ge 50 ]; then |
| 118 | aout_ldflags='-Zexe -Zsmall-conv -Zstack 16000' |
| 119 | else |
| 120 | aout_ldflags='-Zexe -Zstack 16000' |
| 121 | fi |
| 122 | |
| 123 | # To get into config.sh: |
| 124 | aout_ldflags="$aout_ldflags" |
| 125 | |
| 126 | aout_d_fork='define' |
| 127 | aout_ccflags='-DPERL_CORE -DDOSISH -DPERL_IS_AOUT -DOS2=2 -DEMBED -I.' |
| 128 | aout_cppflags='-DPERL_CORE -DDOSISH -DPERL_IS_AOUT -DOS2=2 -DEMBED -I.' |
| 129 | aout_use_clib='c' |
| 130 | aout_usedl='undef' |
| 131 | aout_archobjs="os2.o dl_os2.o" |
| 132 | |
| 133 | # variable which have different values for aout compile |
| 134 | used_aout='d_shrplib useshrplib plibext lib_ext obj_ext ar plibext d_fork lddlflags ldflags ccflags use_clib usedl archobjs cppflags' |
| 135 | |
| 136 | if [ "$emxaout" != "" ]; then |
| 137 | d_shrplib="$aout_d_shrplib" |
| 138 | useshrplib="$aout_useshrplib" |
| 139 | obj_ext="$aout_obj_ext" |
| 140 | lib_ext="$aout_lib_ext" |
| 141 | ar="$aout_ar" |
| 142 | plibext="$aout_plibext" |
| 143 | if [ $emxcrtrev -lt 50 ]; then |
| 144 | d_fork="$aout_d_fork" |
| 145 | fi |
| 146 | lddlflags="$aout_lddlflags" |
| 147 | ldflags="$aout_ldflags" |
| 148 | ccflags="$aout_ccflags" |
| 149 | cppflags="$aout_cppflags" |
| 150 | use_clib="$aout_use_clib" |
| 151 | usedl="$aout_usedl" |
| 152 | else |
| 153 | d_shrplib='define' |
| 154 | useshrplib='true' |
| 155 | obj_ext='.obj' |
| 156 | lib_ext='.lib' |
| 157 | ar='emxomfar' |
| 158 | plibext='.lib' |
| 159 | if [ $emxcrtrev -ge 50 ]; then |
| 160 | d_fork='define' |
| 161 | else |
| 162 | d_fork='undef' |
| 163 | fi |
| 164 | lddlflags="-Zdll -Zomf -Zmt -Zcrtdll $ld_dll_optimize" |
| 165 | # Recursive regmatch may eat 2.5M of stack alone. |
| 166 | ldflags='-Zexe -Zomf -Zmt -Zcrtdll -Zstack 32000' |
| 167 | if [ $emxcrtrev -ge 50 ]; then |
| 168 | ccflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I.' |
| 169 | else |
| 170 | ccflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -DEMX_BAD_SBRK' |
| 171 | fi |
| 172 | use_clib='c_import' |
| 173 | usedl='define' |
| 174 | fi |
| 175 | |
| 176 | # indented to miss config.sh |
| 177 | _ar="$ar" |
| 178 | |
| 179 | # To get into config.sh (should start at the beginning of line) |
| 180 | # or you can put it into config.over. |
| 181 | plibext="$plibext" |
| 182 | # plibext is not needed anymore. Just directly set $libperl. |
| 183 | libperl="libperl${plibext}" |
| 184 | |
| 185 | #libc="/emx/lib/st/c_import$lib_ext" |
| 186 | libc="$libemx/mt/$use_clib$lib_ext" |
| 187 | |
| 188 | if test -r "$libemx/c_alias$lib_ext"; then |
| 189 | libnames="$libemx/c_alias$lib_ext" |
| 190 | fi |
| 191 | # otherwise puts -lc ??? |
| 192 | |
| 193 | # [Maybe we should just remove c from $libswanted ?] |
| 194 | |
| 195 | # Test would pick up wrong rand, so we hardwire the value for random() |
| 196 | libs='-lsocket -lm -lbsd' |
| 197 | randbits=31 |
| 198 | archobjs="os2$obj_ext dl_os2$obj_ext" |
| 199 | |
| 200 | # Run files without extension with sh: |
| 201 | EXECSHELL=sh |
| 202 | |
| 203 | cccdlflags='-Zdll' |
| 204 | dlsrc='dl_dlopen.xs' |
| 205 | ld='gcc' |
| 206 | |
| 207 | #cppflags='-DDOSISH -DOS2=2 -DEMBED -I.' |
| 208 | |
| 209 | # for speedup: (some patches to ungetc are also needed): |
| 210 | # Note that without this guy tests 8 and 10 of io/tell.t fail, with it 11 fails |
| 211 | |
| 212 | stdstdunder=`echo "#include <stdio.h>" | cpp | egrep -c "char +\* +_ptr"` |
| 213 | d_stdstdio='define' |
| 214 | d_stdiobase='define' |
| 215 | d_stdio_ptr_lval='define' |
| 216 | d_stdio_cnt_lval='define' |
| 217 | |
| 218 | if test "$stdstdunder" = 0; then |
| 219 | stdio_ptr='((fp)->ptr)' |
| 220 | stdio_cnt='((fp)->rcount)' |
| 221 | stdio_base='((fp)->buffer)' |
| 222 | stdio_bufsiz='((fp)->rcount + (fp)->ptr - (fp)->buffer)' |
| 223 | ccflags="$ccflags -DMYTTYNAME" |
| 224 | myttyname='define' |
| 225 | else |
| 226 | stdio_ptr='((fp)->_ptr)' |
| 227 | stdio_cnt='((fp)->_rcount)' |
| 228 | stdio_base='((fp)->_buffer)' |
| 229 | stdio_bufsiz='((fp)->_rcount + (fp)->_ptr - (fp)->_buffer)' |
| 230 | fi |
| 231 | |
| 232 | # to put into config.sh |
| 233 | myttyname="$myttyname" |
| 234 | |
| 235 | # To have manpages installed |
| 236 | nroff='nroff.cmd' |
| 237 | # above will be overwritten otherwise, indented to avoid config.sh |
| 238 | _nroff='nroff.cmd' |
| 239 | |
| 240 | # should be handled automatically by Configure now. |
| 241 | ln='cp' |
| 242 | # Will be rewritten otherwise, indented to not put in config.sh |
| 243 | _ln='cp' |
| 244 | lns='cp' |
| 245 | |
| 246 | nm_opt='-p' |
| 247 | |
| 248 | ####### We define these functions ourselves |
| 249 | |
| 250 | d_getprior='define' |
| 251 | d_setprior='define' |
| 252 | |
| 253 | # The next two are commented. pdksh handles #!, extproc gives no path part. |
| 254 | # sharpbang='extproc ' |
| 255 | # shsharp='false' |
| 256 | |
| 257 | # Commented: |
| 258 | #startsh='extproc ksh\\n#! sh' |
| 259 | |
| 260 | # Copy pod: |
| 261 | |
| 262 | cp ./README.os2 ./pod/perlos2.pod |
| 263 | |
| 264 | # This script UU/usethreads.cbu will get 'called-back' by Configure |
| 265 | # after it has prompted the user for whether to use threads. |
| 266 | cat > UU/usethreads.cbu <<'EOCBU' |
| 267 | case "$usethreads" in |
| 268 | $define|true|[yY]*) |
| 269 | ccflags="-Zmt $ccflags" |
| 270 | cppflags="-Zmt $cppflags" # Do we really need to set this? |
| 271 | aout_ccflags="-DUSE_THREADS $aout_ccflags" |
| 272 | aout_cppflags="-DUSE_THREADS $aout_cppflags" |
| 273 | aout_lddlflags="-Zmt $aout_lddlflags" |
| 274 | aout_ldflags="-Zmt $aout_ldflags" |
| 275 | ;; |
| 276 | esac |
| 277 | EOCBU |
| 278 | |
| 279 | # Now install the external modules. We are in the ./hints directory. |
| 280 | |
| 281 | cd ./os2/OS2 |
| 282 | |
| 283 | if ! test -d ../../ext/OS2 ; then |
| 284 | mkdir ../../ext/OS2 |
| 285 | fi |
| 286 | |
| 287 | cp -rfu * ../../ext/OS2/ |
| 288 | |
| 289 | # Install tests: |
| 290 | |
| 291 | for xxx in * ; do |
| 292 | if $test -d $xxx/t; then |
| 293 | cp -uf $xxx/t/*.t ../../t/lib |
| 294 | else |
| 295 | if $test -d $xxx; then |
| 296 | cd $xxx |
| 297 | for yyy in * ; do |
| 298 | if $test -d $yyy/t; then |
| 299 | cp -uf $yyy/t/*.t ../../t/lib |
| 300 | fi |
| 301 | done |
| 302 | cd .. |
| 303 | fi |
| 304 | fi |
| 305 | done |
| 306 | |
| 307 | # Now go back |
| 308 | cd ../.. |