| 1 | #! /bin/bash |
| 2 | # machten.sh |
| 3 | # This is for MachTen 4.1.4. It might work on other versions and variants |
| 4 | # too. If it doesn't, tell me, and I'll try to fix it -- domo@computer.org |
| 5 | # |
| 6 | # Users of earlier MachTen versions might need a fixed tr from ftp.tenon.com. |
| 7 | # This should be described in the MachTen release notes. |
| 8 | # |
| 9 | # MachTen 2.x has its own hint file. |
| 10 | # |
| 11 | # The original version of this file was put together by Andy Dougherty |
| 12 | # <doughera@lafayette.edu> based on comments from lots of |
| 13 | # folks, especially |
| 14 | # Mark Pease <peasem@primenet.com> |
| 15 | # Martijn Koster <m.koster@webcrawler.com> |
| 16 | # Richard Yeh <rcyeh@cco.caltech.edu> |
| 17 | # |
| 18 | # Deny system's false claims to support mmap() and munmap(); note |
| 19 | # also that Sys V IPC (re)disabled by jhi due to continuing inadequacy |
| 20 | # -- Dominic Dunlop <domo@computer.org> 001111 |
| 21 | # Remove dynamic loading libraries from search; enable SysV IPC with |
| 22 | # MachTen 4.1.4 and above; define SYSTEM_ALIGN_BYTES for old MT versions |
| 23 | # -- Dominic Dunlop <domo@computer.org> 000224 |
| 24 | # Disable shadow password file access: MT 4.1.1 has necessary library |
| 25 | # functions, but not header file (or documentation) |
| 26 | # -- Dominic Dunlop <domo@computer.org> 990804 |
| 27 | # For now, explicitly disable dynamic loading -- MT 4.1.1 has it, |
| 28 | # but these hints do not yet support it. |
| 29 | # Define NOTEDEF_MACHTEN to undo gratuitous Tenon hack to signal.h. |
| 30 | # -- Dominic Dunlop <domo@computer.org> 9800802 |
| 31 | # Completely disable SysV IPC pending more complete support from Tenon |
| 32 | # -- Dominic Dunlop <domo@computer.org> 980712 |
| 33 | # Use vfork and perl's malloc by default |
| 34 | # -- Dominic Dunlop <domo@computer.org> 980630 |
| 35 | # Raise perl's stack size again; cut down reg_infty; document |
| 36 | # -- Dominic Dunlop <domo@computer.org> 980619 |
| 37 | # Use of semctl() can crash system: disable -- Dominic Dunlop 980506 |
| 38 | # Raise stack size further; slight tweaks to accomodate MT 4.1 |
| 39 | # -- Dominic Dunlop <domo@computer.org> 980211 |
| 40 | # Raise perl's stack size -- Dominic Dunlop <domo@tcp.ip.lu> 970922 |
| 41 | # Reinstate sigsetjmp iff version is 4.0.3 or greater; use nm |
| 42 | # (assumes Configure change); prune libswanted -- Dominic Dunlop 970113 |
| 43 | # Warn about test failure due to old Berkeley db -- Dominic Dunlop 970105 |
| 44 | # Do not use perl's malloc; SysV IPC OK -- Neil Cutcliffe, Tenon 961030 |
| 45 | # File::Find's use of link count disabled by Dominic Dunlop 960528 |
| 46 | # Perl's use of sigsetjmp etc. disabled by Dominic Dunlop 960521 |
| 47 | # |
| 48 | # Comments, questions, and improvements welcome! |
| 49 | # |
| 50 | # MachTen 4.1.1's support for shadow password file access is incomplete: |
| 51 | # disable its use completely. |
| 52 | d_getspnam=${d_getspnam:-undef} |
| 53 | |
| 54 | # MachTen 4.1.1 does support dynamic loading, but perl doesn't |
| 55 | # know how to use it yet. |
| 56 | usedl=${usedl:-undef} |
| 57 | |
| 58 | # MachTen 4.1.1 may have an unhelpful hack in /usr/include/signal.h. |
| 59 | # Undo it if so. |
| 60 | if grep NOTDEF_MACHTEN /usr/include/signal.h > /dev/null |
| 61 | then |
| 62 | ccflags="$ccflags -DNOTDEF_MACHTEN" |
| 63 | fi |
| 64 | |
| 65 | # Power MachTen is a real memory system and its standard malloc |
| 66 | # has been optimized for this. Using this malloc instead of Perl's |
| 67 | # malloc may result in significant memory savings. In particular, |
| 68 | # unlike most UNIX memory allocation subsystems, MachTen's free() |
| 69 | # really does return unneeded process data memory to the system. |
| 70 | # However, MachTen's malloc() is woefully slow -- maybe 100 times |
| 71 | # slower than perl's own, so perl's own is usually the better |
| 72 | # choice. In order to use perl's malloc(), the sbrk() system call |
| 73 | # must be simulated using MachTen's malloc(). See malloc.c for |
| 74 | # precise details of how this is achieved. Recent improvements |
| 75 | # to perl's malloc() currently crash MachTen, and so are disabled |
| 76 | # by -DPLAIN_MALLOC and -DNO_FANCY_MALLOC. |
| 77 | usemymalloc=${usemymalloc:-y} |
| 78 | |
| 79 | # Older versions of MachTen malloc() data on a two-byte boundary, which |
| 80 | # works, but slows down operations on long, float and double data. |
| 81 | # Perl's malloc() can compensate if SYSTEM_ALLOC_ALIGNMENT is suitably |
| 82 | # defined. |
| 83 | if expr "$osvers" \< "4.1" >/dev/null |
| 84 | then |
| 85 | system_alloc_alignment=" -DSYSTEM_ALLOC_ALIGNMENT=2" |
| 86 | fi |
| 87 | # Do not wrap the following long line |
| 88 | malloc_cflags='ccflags="$ccflags -DPLAIN_MALLOC -DNO_FANCY_MALLOC -DUSE_PERL_SBRK$system_alloc_alignment"' |
| 89 | |
| 90 | # When MachTen does a fork(), it immediately copies the whole of |
| 91 | # the parent process' data space for the child. This can be |
| 92 | # expensive. Using vfork() where appropriate avoids this cost. |
| 93 | d_vfork=${d_vfork:-define} |
| 94 | |
| 95 | # Specify a high level of optimization (-O3 wouldn't do much more) |
| 96 | optimize=${optimize:--O2 -fomit-frame-pointer} |
| 97 | |
| 98 | # Make symbol table listings les voluminous |
| 99 | nmopts=-gp |
| 100 | |
| 101 | # Set reg_infty -- the maximum allowable number of repeats in regular |
| 102 | # expressions such as /a{1,$max_repeats}/, and the maximum number of |
| 103 | # times /a*/ will match. Setting this too high without having a stack |
| 104 | # large enough to accommodate deep recursion in the regular expression |
| 105 | # engine allows perl to crash your Mac due to stack overrun if it |
| 106 | # encounters a pathological regular expression. The default is a |
| 107 | # compromise between capability and required stack size (see below). |
| 108 | # You may override the default value from the Configure command-line |
| 109 | # like this: |
| 110 | # |
| 111 | # Configure -Dreg_infty=16368 ... |
| 112 | |
| 113 | reg_infty=${reg_infty:-2047} |
| 114 | |
| 115 | # If you want to have many perl processes active simultaneously -- |
| 116 | # processing CGI forms -- for example, you should opt for a small stack. |
| 117 | # For safety, you should set reg_infty no larger than the corresponding |
| 118 | # value given in this table: |
| 119 | # |
| 120 | # Stack size reg_infty value supported |
| 121 | # ---------- ------------------------- |
| 122 | # 128k 2**8-1 (256) |
| 123 | # 256k 2**9-1 (511) |
| 124 | # 512k 2**10-1 (1023) |
| 125 | # 1M 2**11-1 (2047) |
| 126 | # ... |
| 127 | # 16M 2**15-1 (32767) (perl's default value) |
| 128 | |
| 129 | # This script selects a safe stack size based on the value of reg_infty |
| 130 | # specified above. However, you may choose to take a risk and set |
| 131 | # stack size lower: pathological regular expressions are rare in real-world |
| 132 | # programs. But be aware that, if perl does encounter one, it WILL |
| 133 | # crash your system. Do not set stack size lower than 96k unless |
| 134 | # you want perl's installation tests ( make test ) to crash your system. |
| 135 | # |
| 136 | # You may override the default value from the Configure command-line |
| 137 | # by specifying the required size in kilobytes like this: |
| 138 | # |
| 139 | # Configure -Dstack_size=96 |
| 140 | |
| 141 | if [ "X$stack_size" = 'X' ] |
| 142 | then |
| 143 | stack_size=128 |
| 144 | X=`expr $reg_infty / 256` |
| 145 | |
| 146 | while [ $X -gt 0 ] |
| 147 | do |
| 148 | X=`expr $X / 2` |
| 149 | stack_size=`expr $stack_size \* 2` |
| 150 | done |
| 151 | X=`expr $stack_size \* 1024` |
| 152 | fi |
| 153 | |
| 154 | ldflags="$ldflags -Xlstack=$X" |
| 155 | ccflags="$ccflags -DREG_INFTY=$reg_infty" |
| 156 | |
| 157 | # Install in /usr/local by default |
| 158 | prefix='/usr/local' |
| 159 | |
| 160 | # At least on PowerMac, doubles must be aligned on 8 byte boundaries. |
| 161 | # I don't know if this is true for all MachTen systems, or how to |
| 162 | # determine this automatically. |
| 163 | alignbytes=8 |
| 164 | |
| 165 | # 4.0.2 and earlier had a problem with perl's use of sigsetjmp and |
| 166 | # friends. Use setjmp and friends instead. |
| 167 | expr "$osvers" \< "4.0.3" > /dev/null && d_sigsetjmp='undef' |
| 168 | |
| 169 | # System V IPC before MachTen 4.1.4 is incomplete (missing msg function |
| 170 | # prototypes, no ftok()), buggy (semctl(.., .., IPC_STATUS, ..) hangs |
| 171 | # system), and undocumented. Claim it's not there at all before 4.1.4. |
| 172 | if expr "$osvers" \< "4.1.4" >/dev/null |
| 173 | then |
| 174 | d_msg=${d_msg:-undef} |
| 175 | d_sem=${d_sem:-undef} |
| 176 | d_shm=${d_shm:-undef} |
| 177 | fi |
| 178 | |
| 179 | |
| 180 | # As of MachTen 4.1.4 the msg* and shm* are in libc but unimplemented |
| 181 | # (an attempt to use them causes a runtime error) |
| 182 | # XXX Configure probe for really functional msg*() is needed XXX |
| 183 | # XXX Configure probe for really functional shm*() is needed XXX |
| 184 | if test "$d_msg" = ""; then |
| 185 | d_msgget=${d_msgget:-undef} |
| 186 | d_msgctl=${d_msgctl:-undef} |
| 187 | d_msgsnd=${d_msgsnd:-undef} |
| 188 | d_msgrcv=${d_msgrcv:-undef} |
| 189 | case "$d_msgget$d_msgsnd$d_msgctl$d_msgrcv" in |
| 190 | *"undef"*) d_msg="$undef" ;; |
| 191 | esac |
| 192 | fi |
| 193 | if test "$d_shm" = ""; then |
| 194 | d_shmat=${d_shmat:-undef} |
| 195 | d_shmdt=${d_shmdt:-undef} |
| 196 | d_shmget=${d_shmget:-undef} |
| 197 | d_shmctl=${d_shmctl:-undef} |
| 198 | case "$d_shmat$d_shmctl$d_shmdt$d_shmget" in |
| 199 | *"undef"*) d_shm="$undef" ;; |
| 200 | esac |
| 201 | fi |
| 202 | |
| 203 | # MachTen has stubs for mmap and munmap(), but they just result in the |
| 204 | # caller being killed on the grounds of "Bad system call" |
| 205 | d_mmap=${d_mmap:-undef} |
| 206 | d_munmap=${d_munmap:-undef} |
| 207 | |
| 208 | # Get rid of some extra libs which it takes Configure a tediously |
| 209 | # long time never to find on MachTen, or which break perl |
| 210 | set `echo X "$libswanted "|sed -e 's/ net / /' -e 's/ socket / /' \ |
| 211 | -e 's/ inet / /' -e 's/ nsl / /' -e 's/ nm / /' -e 's/ malloc / /' \ |
| 212 | -e 's/ ld / /' -e 's/ sun / /' -e 's/ posix / /' \ |
| 213 | -e 's/ cposix / /' -e 's/ crypt / /' -e 's/ dl / /' -e 's/ dld / /' \ |
| 214 | -e 's/ ucb / /' -e 's/ bsd / /' -e 's/ BSD / /' -e 's/ PW / /'` |
| 215 | shift |
| 216 | libswanted="$*" |
| 217 | |
| 218 | # While link counts on MachTen 4.1's fast file systems work correctly, |
| 219 | # on Macintosh Heirarchical File Systems, (and on HFS+) |
| 220 | # MachTen always reports ony two links to directories, even if they |
| 221 | # contain subdirectories. Consequently, we use this variable to stop |
| 222 | # File::Find using the link count to determine whether there are |
| 223 | # subdirectories to be searched. This will generate a harmless message: |
| 224 | # Hmm...You had some extra variables I don't know about...I'll try to keep 'em. |
| 225 | # Propagating recommended variable dont_use_nlink |
| 226 | dont_use_nlink=define |
| 227 | |
| 228 | cat <<EOM >&4 |
| 229 | |
| 230 | During Configure, you may see the message |
| 231 | |
| 232 | *** WHOA THERE!!! *** |
| 233 | The recommended value for \$d_msg on this machine was "undef"! |
| 234 | Keep the recommended value? [y] |
| 235 | |
| 236 | as well as similar messages concerning \$d_sem and \$d_shm. Select the |
| 237 | default answers: MachTen 4.1 appears to provide System V IPC support, |
| 238 | but it is incomplete and buggy: perl should be built without it. |
| 239 | Similar considerations apply to memory mapping of files, controlled |
| 240 | by \$d_mmap and \$d_munmap. |
| 241 | |
| 242 | Similarly, when you see |
| 243 | |
| 244 | *** WHOA THERE!!! *** |
| 245 | The recommended value for \$d_vfork on this machine was "define"! |
| 246 | Keep the recommended value? [y] |
| 247 | |
| 248 | select the default answer: vfork() works, and avoids expensive data |
| 249 | copying. |
| 250 | |
| 251 | You may also see "WHOA THERE!!!" messages concerning \$d_getspnam. |
| 252 | Select the default answer: MachTen's support for shadow password |
| 253 | file access is incomplete, and should not be used. |
| 254 | |
| 255 | At the end of Configure, you will see a harmless message |
| 256 | |
| 257 | Hmm...You had some extra variables I don't know about...I'll try to keep 'em. |
| 258 | Propagating recommended variable dont_use_nlink |
| 259 | Propagating recommended variable nmopts |
| 260 | Propagating recommended variable malloc_cflags... |
| 261 | Propagating recommended variable reg_infty |
| 262 | Propagating recommended variable system_alloc_alignment |
| 263 | Read the File::Find documentation for more information about dont_use_nlink |
| 264 | |
| 265 | Your perl will be built with a stack size of ${stack_size}k and a regular |
| 266 | expression repeat count limit of $reg_infty. If you want alternative |
| 267 | values, see the file hints/machten.sh for advice on how to change them. |
| 268 | |
| 269 | Tests |
| 270 | io/fs test 4 and |
| 271 | op/stat test 3 |
| 272 | may fail since MachTen may not return a useful nlinks field to stat |
| 273 | on directories. |
| 274 | |
| 275 | EOM |
| 276 | expr "$osvers" \< "4.1" >/dev/null && test -r ./broken-db.msg && \ |
| 277 | . ./broken-db.msg |
| 278 | |
| 279 | unset stack_size X |