# machten.sh # This is for MachTen 4.0.3. It might work on other versions and variants too. # # Users of earlier MachTen versions might need a fixed tr from ftp.tenon.com. # This should be described in the MachTen release notes. # # MachTen 2.x has its own hint file. # # This file has been put together by Andy Dougherty # based on comments from lots of # folks, especially # Mark Pease # Martijn Koster # Richard Yeh # # Completely disable SysV IPC pending more complete support from Tenon # -- Dominic Dunlop 980712 # Use vfork and perl's malloc by default # -- Dominic Dunlop 980630 # Raise perl's stack size again; cut down reg_infty; document # -- Dominic Dunlop 980619 # Use of semctl() can crash system: disable -- Dominic Dunlop 980506 # Raise stack size further; slight tweaks to accomodate MT 4.1 # -- Dominic Dunlop 980211 # Raise perl's stack size -- Dominic Dunlop 970922 # Reinstate sigsetjmp iff version is 4.0.3 or greater; use nm # (assumes Configure change); prune libswanted -- Dominic Dunlop 970113 # Warn about test failure due to old Berkeley db -- Dominic Dunlop 970105 # Do not use perl's malloc; SysV IPC OK -- Neil Cutcliffe, Tenon 961030 # File::Find's use of link count disabled by Dominic Dunlop 960528 # Perl's use of sigsetjmp etc. disabled by Dominic Dunlop 960521 # # Comments, questions, and improvements welcome! # # MachTen 4.X does support dynamic loading, but perl doesn't # know how to use it yet. # Power MachTen is a real memory system and its standard malloc # has been optimized for this. Using this malloc instead of Perl's # malloc may result in significant memory savings. In particular, # unlike most UNIX memory allocation subsystems, MachTen's free() # really does return unneeded process data memory to the system. # However, MachTen's malloc() is woefully slow -- maybe 100 times # slower than perl's own, so perl's own is usually the better # choice. In order to use perl's malloc(), the sbrk() system call # must be simulated using MachTen's malloc(). See malloc.c for # precise details of how this is achieved. Recent improvements # to perl's malloc() currently crash MachTen, and so are disabled # by -DPLAIN_MALLOC and -DNO_FANCY_MALLOC. usemymalloc=${usemymalloc:-y} # Do not wrap the following long line malloc_cflags='ccflags="$ccflags -DPLAIN_MALLOC -DNO_FANCY_MALLOC -DUSE_PERL_SBRK"' # Note that an empty malloc_cflags appears in config.sh if perl's # malloc() is not used. his is harmless. case "$usemymalloc" in n) unset malloc_cflags;; *) ccflags="$ccflags -DHIDEMYMALLOC" esac # When MachTen does a fork(), it immediately copies the whole of # the parent process' data space for the child. This can be # expensive. Using vfork() where appropriate avoids this cost. d_vfork=${d_vfork:-define} # Specify a high level of optimization (-O3 wouldn't do much more) optimize=${optimize:--O2 -fomit-frame-pointer} # Make symbol table listings les voluminous nmopts=-gp # Set reg_infty -- the maximum allowable number of repeats in regular # expressions such as /a{1,$max_repeats}/, and the maximum number of # times /a*/ will match. Setting this too high without having a stack # large enough to accommodate deep recursion in the regular expression # engine allows perl to crash your Mac due to stack overrun if it # encounters a pathological regular expression. The default is a # compromise between capability and required stack size (see below). # You may override the default value from the Configure command-line # like this: # # Configure -Dreg_infty=16368 ... reg_infty=${reg_infty:-2047} # If you want to have many perl processes active simultaneously -- # processing CGI forms -- for example, you should opt for a small stack. # For safety, you should set reg_infty no larger than the corresponding # value given in this table: # # Stack size reg_infty value supported # ---------- ------------------------- # 128k 2**8-1 (256) # 256k 2**9-1 (511) # 512k 2**10-1 (1023) # 1M 2**11-1 (2047) # ... # 16M 2**15-1 (32767) (perl's default value) # This script selects a safe stack size based on the value of reg_infty # specified above. However, you may choose to take a risk and set # stack size lower: pathological regular expressions are rare in real-world # programs. But be aware that, if perl does encounter one, it WILL # crash your system. Do not set stack size lower than 96k unless # you want perl's installation tests ( make test ) to crash your system. # # You may override the default value from the Configure command-line # by specifying the required size in kilobytes like this: # # Configure -Dstack_size=96 if [ "X$stack_size" = 'X' ] then stack_size=128 X=`expr $reg_infty / 256` while [ $X -gt 0 ] do X=`expr $X / 2` stack_size=`expr $stack_size \* 2` done X=`expr $stack_size \* 1024` fi ldflags="$ldflags -Xlstack=$X" ccflags="$ccflags -DREG_INFTY=$reg_infty" # Install in /usr/local by default prefix='/usr/local' # At least on PowerMac, doubles must be aligned on 8 byte boundaries. # I don't know if this is true for all MachTen systems, or how to # determine this automatically. alignbytes=8 # 4.0.2 and earlier had a problem with perl's use of sigsetjmp and # friends. Use setjmp and friends instead. expr "$osvers" \< "4.0.3" > /dev/null && d_sigsetjmp='undef' # System V IPC support in MachTen 4.1 is incomplete (missing msg function # prototypes, no ftok()), buggy (semctl(.., .., IPC_STATUS, ..) hangs # system), and undocumented. Claim it's not there until things improve. d_msg=${d_msg:-undef} d_sem=${d_sem:-undef} d_shm=${d_shm:-undef} # Get rid of some extra libs which it takes Configure a tediously # long time never to find on MachTen set `echo X "$libswanted "|sed -e 's/ net / /' -e 's/ socket / /' \ -e 's/ inet / /' -e 's/ nsl / /' -e 's/ nm / /' -e 's/ malloc / /' \ -e 's/ ld / /' -e 's/ sun / /' -e 's/ posix / /' \ -e 's/ cposix / /' -e 's/ crypt / /' \ -e 's/ ucb / /' -e 's/ bsd / /' -e 's/ BSD / /' -e 's/ PW / /'` shift libswanted="$*" # While link counts on MachTen 4.1's fast file systems work correctly, # on Macintosh Heirarchical File Systems, (and on HFS+) # MachTen always reports ony two links to directories, even if they # contain subdirectories. Consequently, we use this variable to stop # File::Find using the link count to determine whether there are # subdirectories to be searched. This will generate a harmless message: # Hmm...You had some extra variables I don't know about...I'll try to keep 'em. # Propagating recommended variable dont_use_nlink dont_use_nlink=define cat <&4 During Configure, you may see the message *** WHOA THERE!!! *** The recommended value for \$d_msg on this machine was "undef"! Keep the recommended value? [y] as well as similar messages concerning \$d_sem and \$d_shm. Select the default answers: MachTen 4.1 appears to provide System V IPC support, but it is incomplete and buggy: perl should be built without it. Similarly, when you see *** WHOA THERE!!! *** The recommended value for \$d_vfork on this machine was "define"! Keep the recommended value? [y] select the default answer: vfork() works, and avoids expensive data copying. At the end of Configure, you will see a harmless message Hmm...You had some extra variables I don't know about...I'll try to keep 'em. Propagating recommended variable dont_use_nlink Propagating recommended variable nmopts Propagating recommended variable malloc_cflags... Propagating recommended variable reg_infty Read the File::Find documentation for more information about dont_use_nlink Your perl will be built with a stack size of ${stack_size}k and a regular expression repeat count limit of $reg_infty. If you want alternative values, see the file hints/machten.sh for advice on how to change them. Tests io/fs test 4 and op/stat test 3 may fail since MachTen may not return a useful nlinks field to stat on directories. EOM expr "$osvers" \< "4.1" >/dev/null && test -r ./broken-db.msg && \ . ./broken-db.msg unset stack_size X