contrib/perl5/hints/os2.sh

   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
 308 # Now go back
 309 cd ../..