hints/aix_4.sh

   1 # hints/aix.sh
   2 #
   3 # Split off from aix.sh on 04 Feb 2004 by H.Merijn Brand
   4 #
   5 # AIX 4.1 hints thanks to Christopher Chan-Nui <channui@austin.ibm.com>.
   6 # AIX 4.1 pthreading by Christopher Chan-Nui <channui@austin.ibm.com> and
   7 #         Jarkko Hietaniemi <jhi@iki.fi>.
   8 # AIX 4.3.x LP64 build by Steven Hirsch <hirschs@btv.ibm.com>
   9 # Merged on Mon Feb  6 10:22:35 EST 1995 by
  10 #   Andy Dougherty  <doughera@lafayette.edu>
  11
  12 # Contact dfavor@corridor.com for any of the following:
  13 #
  14 #    - AIX 43x and above support
  15 #    - gcc + threads support
  16 #    - socks support
  17 #
  18 # Apr 99 changes:
  19 #
  20 #    - use nm in AIX 43x and above
  21 #    - gcc + threads now builds
  22 #    [(added support for socks) Jul 99 SOCKS support rewritten]
  23 #
  24 # Notes:
  25 #
  26 #    - shared libperl support is tricky. if ever libperl.a ends up
  27 #      in /usr/local/lib/* it can override any subsequent builds of
  28 #      that same perl release. to make sure you know where the shared
  29 #      libperl.a is coming from do a 'dump -Hv perl' and check all the
  30 #      library search paths in the loader header.
  31 #
  32 #      it would be nice to warn the user if a libperl.a exists that is
  33 #      going to override the current build, but that would be complex.
  34 #
  35 #      better yet, a solid fix for this situation should be developed.
  36 #
  37
  38 # Configure finds setrgid and setruid, but they're useless.  The man
  39 # pages state:
  40 #    setrgid: The EPERM error code is always returned.
  41 #    setruid: The EPERM error code is always returned. Processes cannot
  42 #             reset only their real user IDs.
  43 d_setrgid='undef'
  44 d_setruid='undef'
  45
  46 alignbytes=8
  47
  48 case "$usemymalloc" in
  49     '')  usemymalloc='n' ;;
  50     esac
  51
  52 # Intuiting the existence of system calls under AIX is difficult,
  53 # at best; the safest technique is to find them empirically.
  54
  55 # AIX 4.3.* and above default to letting Configure test if nm
  56 # extraction will work.
  57 case "$osvers" in
  58     4.1.*|4.2.*)
  59         case "$usenm" in
  60             '') usenm='undef' ;;
  61             esac
  62         case "$usenativedlopen" in
  63             '') usenativedlopen='false' ;;
  64             esac
  65         ;;
  66     *)
  67         case "$usenativedlopen" in
  68             '') usenativedlopen='true' ;;
  69             esac
  70         ;;
  71     esac
  72
  73 so="a"
  74 # AIX itself uses .o (libc.o) but we prefer compatibility
  75 # with the rest of the world and with rest of the scripting
  76 # languages (Tcl, Python) and related systems (SWIG).
  77 # Stephanie Beals <bealzy@us.ibm.com>
  78 dlext="so"
  79
  80 # Take possible hint from the environment.  If 32-bit is set in the
  81 # environment, we can override it later.  If set for 64, the
  82 # 'sizeof' test sees a native 64-bit architecture and never looks back.
  83 case "$OBJECT_MODE" in
  84     32)
  85         cat >&4 <<EOF
  86
  87 You have OBJECT_MODE=32 set in the environment.
  88 I take this as a hint you do not want to
  89 build for a 64-bit address space. You will be
  90 given the opportunity to change this later.
  91 EOF
  92         ;;
  93     64)
  94         cat >&4 <<EOF
  95
  96 You have OBJECT_MODE=64 set in the environment.
  97 This forces a full 64-bit build.  If that is
  98 not what you intended, please terminate this
  99 program, unset it and restart.
 100 EOF
 101         ;;
 102     *)  ;;
 103     esac
 104
 105 # uname -m output is too specific and not appropriate here
 106 case "$archname" in
 107     '') archname="$osname" ;;
 108     esac
 109
 110 cc=${cc:-cc}
 111 ccflags="$ccflags -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE"
 112 case "$cc" in
 113     *gcc*) ;;
 114     *) ccflags="$ccflags -qmaxmem=-1 -qnoansialias"
 115        usemallocwrap='n' ;;
 116     esac
 117 nm_opt='-B'
 118
 119 # These functions don't work like Perl expects them to.
 120 d_setregid='undef'
 121 d_setreuid='undef'
 122
 123 # Changes for dynamic linking by Wayne Scott <wscott@ichips.intel.com>
 124 #
 125 # Tell perl which symbols to export for dynamic linking.
 126 cccdlflags='none'       # All AIX code is position independent
 127    cc_type=xlc          # do not export to config.sh
 128 case "$cc" in
 129     *gcc*)
 130         cc_type=gcc
 131         ccdlflags='-Xlinker'
 132         if [ "X$gccversion" = "X" ]; then
 133             # Done too late in Configure if hinted
 134             gccversion=`$cc --version | sed 's/.*(GCC) *//'`
 135             fi
 136         ;;
 137
 138     *)  ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -v '\.msg\.[A-Za-z_]*\.' | head -1 | awk '{print $1,$2}'`
 139         case "$ccversion" in
 140             '') ccversion=`lslpp -L | grep 'IBM C and C++ Compilers LUM$'`
 141                 ;;
 142
 143             *.*.*.*.*.*.*)              # Ahhrgg, more than one C compiler installed
 144                 first_cc_path=`which ${cc:-cc}`
 145                 case "$first_cc_path" in
 146                     *vac*)
 147                         cc_type=vac ;;
 148                     /usr/bin/cc)                # Check the symlink
 149                         if [ -h $first_cc_path ] ; then
 150                             ls -l $first_cc_path > reflect
 151                             if grep -i vac reflect >/dev/null 2>&1 ; then
 152                                 cc_type=vac
 153                                 fi
 154                             rm -f reflect
 155                             fi
 156                         ;;
 157                     esac
 158                 ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -i $cc_type | head -1`
 159                 ;;
 160
 161             vac*.*.*.*)
 162                 cc_type=vac
 163                 ;;
 164             esac
 165         ccversion=`echo "$ccversion" | awk '{print $2}'`
 166
 167         case "$ccversion" in
 168             3.6.6.0)
 169                 optimize='none'
 170                 ;;
 171
 172             4.4.0.0|4.4.0.1|4.4.0.2)
 173                 cat >&4 <<EOF
 174 ***
 175 *** This C compiler ($ccversion) is outdated.
 176 ***
 177 *** Please upgrade to at least 4.4.0.3.
 178 ***
 179 EOF
 180                 ;;
 181
 182             5.0.0.0)
 183                 cat >&4 <<EOF
 184 ***
 185 *** This C compiler ($ccversion) is known to have too many optimizer
 186 *** bugs to compile a working Perl.
 187 ***
 188 *** Consider upgrading your C compiler, or getting the GNU cc (gcc).
 189 ***
 190 *** Cannot continue, aborting.
 191 EOF
 192                 exit 1
 193                 ;;
 194
 195             5.0.1.0)
 196                 cat >&4 <<EOF
 197 ***
 198 *** This C compiler ($ccversion) is known to have optimizer problems
 199 *** when compiling regcomp.c.
 200 ***
 201 *** Disabling optimization for that file but consider upgrading
 202 *** your C compiler.
 203 ***
 204 EOF
 205 regcomp_cflags='optimize='
 206                 ;;
 207             esac
 208     esac
 209 # the required -bE:$installarchlib/CORE/perl.exp is added by
 210 # libperl.U (Configure) later.
 211
 212 # The first 3 options would not be needed if dynamic libs. could be linked
 213 # with the compiler instead of ld.
 214 # -bI:$(PERL_INC)/perl.exp  Read the exported symbols from the perl binary
 215 # -bE:$(BASEEXT).exp        Export these symbols.  This file contains only one
 216 #                           symbol: boot_$(EXP)  can it be auto-generated?
 217 lddlflags="$lddlflags -bhalt:4 -bM:SRE -bI:\$(PERL_INC)/perl.exp -bE:\$(BASEEXT).exp -bnoentry -lc"
 218
 219 case "$use64bitall" in
 220     $define|true|[yY]*) use64bitint="$define" ;;
 221     esac
 222
 223 case "$usemorebits" in
 224     $define|true|[yY]*) use64bitint="$define"; uselongdouble="$define" ;;
 225     esac
 226
 227 case $cc_type in
 228     vac|xlc)
 229         case "$uselongdouble" in
 230             $define|true|[yY]*)
 231                 ccflags="$ccflags -qlongdouble"
 232                 libswanted="c128 $libswanted"
 233                 lddlflags=`echo "$lddlflags " | sed -e 's/ -lc / -lc128 -lc /'`
 234                 ;;
 235             esac
 236     esac
 237
 238 case "$cc" in
 239     *gcc*) ;;
 240     cc*|xlc*) # cc should've been set by line 116 or so if empty.
 241         if test ! -x /usr/bin/$cc -a -x /usr/vac/bin/$cc; then
 242             case ":$PATH:" in
 243                 *:/usr/vac/bin:*) ;;
 244                 *)  if test ! -x /QOpenSys/usr/bin/$cc; then
 245                         # The /QOpenSys/usr/bin/$cc saves us if we are
 246                         # building natively in OS/400 PASE.
 247                         cat >&4 <<EOF
 248
 249 ***
 250 *** You either implicitly or explicitly specified an IBM C compiler,
 251 *** but you do not seem to have one in /usr/bin, but you seem to have
 252 *** the VAC installed in /usr/vac, but you do not have the /usr/vac/bin
 253 *** in your PATH.  I suggest adding that and retrying Configure.
 254 ***
 255 EOF
 256                         exit 1
 257                         fi
 258                         ;;
 259                 esac
 260             fi
 261         ;;
 262     esac
 263
 264 case "$ldlibpthname" in
 265     '') ldlibpthname=LIBPATH ;;
 266     esac
 267
 268 # AIX 4.2 (using latest patchlevels on 20001130) has a broken bind
 269 # library (getprotobyname and getprotobynumber are outversioned by
 270 # the same calls in libc, at least for xlc version 3...
 271 case "`oslevel`" in
 272     4.2.1.*)
 273         case "$ccversion" in    # Don't know if needed for gcc
 274             3.1.4.*|5.0.2.*)    # libswanted "bind ... c ..." => "... c bind ..."
 275                 set `echo X "$libswanted "| sed -e 's/ bind\( .*\) \([cC]\) / \1 \2 bind /'`
 276                 shift
 277                 libswanted="$*"
 278                 ;;
 279             esac
 280         ;;
 281     esac
 282
 283 # This script UU/usethreads.cbu will get 'called-back' by Configure
 284 # after it has prompted the user for whether to use threads.
 285 cat > UU/usethreads.cbu <<'EOCBU'
 286 case "$usethreads" in
 287     $define|true|[yY]*)
 288         d_drand48_r='undef'
 289         d_endgrent_r='undef'
 290         d_endpwent_r='undef'
 291         d_getgrent_r='undef'
 292         d_getpwent_r='undef'
 293         d_random_r='undef'
 294         d_setgrent_r='undef'
 295         d_setpwent_r='undef'
 296         d_srand48_r='undef'
 297         d_strerror_r='undef'
 298
 299         ccflags="$ccflags -DNEED_PTHREAD_INIT"
 300         case "$cc" in
 301             *gcc*)
 302                 ccflags="-D_THREAD_SAFE $ccflags"
 303                 ;;
 304             cc_r) ;;
 305             cc|xl[cC]|xl[cC]_r)
 306                 echo >&4 "Switching cc to cc_r because of POSIX threads."
 307                 # xlc_r has been known to produce buggy code in AIX 4.3.2.
 308                 # (e.g. pragma/overload core dumps)      Let's suspect xlC_r, too.
 309                 # --jhi@iki.fi
 310                 cc=cc_r
 311
 312                 case "`oslevel`" in
 313                     4.2.1.*) i_crypt='undef' ;;
 314                     esac
 315                 ;;
 316             '')
 317                 cc=cc_r
 318                 ;;
 319             *)
 320                 cat >&4 <<EOM
 321 *** For pthreads you should use the AIX C compiler cc_r.
 322 *** (now your compiler was set to '$cc')
 323 *** Cannot continue, aborting.
 324 EOM
 325                 exit 1
 326                 ;;
 327             esac
 328
 329         # c_rify libswanted.
 330         set `echo X "$libswanted "| sed -e 's/ \([cC]\) / \1_r /g'`
 331         shift
 332         libswanted="$*"
 333         # c_rify lddlflags.
 334         set `echo X "$lddlflags "| sed -e 's/ \(-l[cC]\) / \1_r /g'`
 335         shift
 336         lddlflags="$*"
 337
 338         # Insert pthreads to libswanted, before any libc or libC.
 339         set `echo X "$libswanted "| sed -e 's/ \([cC]_r\) / pthreads \1 /'`
 340         shift
 341         libswanted="$*"
 342         # Insert pthreads to lddlflags, before any libc or libC.
 343         set `echo X "$lddlflags " | sed -e 's/ \(-l[cC]_r\) / -lpthreads \1 /'`
 344         shift
 345         lddlflags="$*"
 346         ;;
 347     esac
 348 EOCBU
 349
 350 # This script UU/uselargefiles.cbu will get 'called-back' by Configure
 351 # after it has prompted the user for whether to use large files.
 352 cat > UU/uselargefiles.cbu <<'EOCBU'
 353 case "$uselargefiles" in
 354     ''|$define|true|[yY]*)
 355         # Configure should take care of use64bitint and use64bitall being
 356         # defined before uselargefiles.cbu is consulted.
 357         if test X"$use64bitint:$quadtype" = X"$define:long" -o X"$use64bitall" = Xdefine; then
 358 # Keep these at the left margin.
 359 ccflags_uselargefiles="`getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"
 360 ldflags_uselargefiles="`getconf XBS5_LP64_OFF64_LDFLAGS 2>/dev/null`"
 361         else
 362 # Keep these at the left margin.
 363 ccflags_uselargefiles="`getconf XBS5_ILP32_OFFBIG_CFLAGS 2>/dev/null`"
 364 ldflags_uselargefiles="`getconf XBS5_ILP32_OFFBIG_LDFLAGS 2>/dev/null`"
 365             fi
 366
 367         # _Somehow_ in AIX 4.3.1.0 the above getconf call manages to
 368         # insert(?) *something* to $ldflags so that later (in Configure) evaluating
 369         # $ldflags causes a newline after the '-b64' (the result of the getconf).
 370         # (nothing strange shows up in $ldflags even in hexdump;
 371         #  so it may be something (a bug) in the shell, instead?)
 372         # Try it out: just uncomment the below line and rerun Configure:
 373 # echo >&4 "AIX 4.3.1.0 $ldflags_uselargefiles mystery" ; exit 1
 374         # Just don't ask me how AIX does it, I spent hours wondering.
 375         # Therefore the line re-evaluating ldflags_uselargefiles: it seems to fix
 376         # the whatever it was that AIX managed to break. --jhi
 377         ldflags_uselargefiles="`echo $ldflags_uselargefiles`"
 378         if test X"$use64bitint:$quadtype" = X"$define:long" -o X"$use64bitall" = Xdefine; then
 379 # Keep this at the left margin.
 380 libswanted_uselargefiles="`getconf XBS5_LP64_OFF64_LIBS 2>/dev/null|sed -e 's@^-l@@' -e 's@ -l@ @g`"
 381         else
 382 # Keep this at the left margin.
 383 libswanted_uselargefiles="`getconf XBS5_ILP32_OFFBIG_LIBS 2>/dev/null|sed -e 's@^-l@@' -e 's@ -l@ @g`"
 384             fi
 385
 386         case "$ccflags_uselargefiles$ldflags_uselargefiles$libs_uselargefiles" in
 387             '') ;;
 388             *)  ccflags="$ccflags $ccflags_uselargefiles"
 389                 ldflags="$ldflags $ldflags_uselargefiles"
 390                 libswanted="$libswanted $libswanted_uselargefiles"
 391                 ;;
 392             esac
 393
 394         case "$gccversion" in
 395             '') ;;
 396             *)  # Remove xlc-specific -qflags.
 397                 ccflags="`echo $ccflags | sed -e 's@ -q[^ ]*@ @g' -e 's@^-q[^ ]* @@g'`"
 398                 ldflags="`echo $ldflags | sed -e 's@ -q[^ ]*@ @g' -e 's@^-q[^ ]* @@g'`"
 399                 # Move xlc-specific -bflags.
 400                 ccflags="`echo $ccflags | sed -e 's@ -b@ -Wl,-b@g'`"
 401                 ldflags="`echo ' '$ldflags | sed -e 's@ -b@ -Wl,-b@g'`"
 402                 lddlflags="`echo ' '$lddlflags | sed -e 's@ -b@ -Wl,-b@g'`"
 403                 ld='gcc'
 404                 echo >&4 "(using ccflags   $ccflags)"
 405                 echo >&4 "(using ldflags   $ldflags)"
 406                 echo >&4 "(using lddlflags $lddlflags)"
 407                 ;;
 408             esac
 409         ;;
 410     esac
 411 EOCBU
 412
 413 # This script UU/use64bitint.cbu will get 'called-back' by Configure
 414 # after it has prompted the user for whether to use 64 bit integers.
 415 cat > UU/use64bitint.cbu <<'EOCBU'
 416 case "$use64bitint" in
 417     $define|true|[yY]*)
 418         case "`oslevel`" in
 419             4.[012].*)
 420                 cat >&4 <<EOM
 421 AIX `oslevel` does not support 64-bit interfaces.
 422 You should upgrade to at least AIX 4.3.
 423 EOM
 424                 exit 1
 425                 ;;
 426             esac
 427         ;;
 428     esac
 429 EOCBU
 430
 431 cat > UU/use64bitall.cbu <<'EOCBU'
 432 # This script UU/use64bitall.cbu will get 'called-back' by Configure
 433 # after it has prompted the user for whether to be maximally 64-bitty.
 434 case "$use64bitall" in
 435     $define|true|[yY]*)
 436         case "`oslevel`" in
 437             4.[012].*)
 438                 cat >&4 <<EOM
 439 AIX `oslevel` does not support 64-bit interfaces.
 440 You should upgrade to at least AIX 4.3.
 441 EOM
 442                 exit 1
 443                 ;;
 444             esac
 445         echo " "
 446         echo "Checking the CPU width of your hardware..." >&4
 447         $cat >size.c <<EOCP
 448 #include <stdio.h>
 449 #include <sys/systemcfg.h>
 450 int main (void)
 451 {
 452     printf ("%d\n", _system_configuration.width);
 453     return (0);
 454     }
 455 EOCP
 456         set size
 457         if eval $compile_ok; then
 458             qacpuwidth=`./size`
 459             echo "You are running on $qacpuwidth bit hardware."
 460         else
 461             dflt="32"
 462             echo " "
 463             echo "(I can't seem to compile the test program.  Guessing...)"
 464             rp="What is the width of your CPU (in bits)?"
 465             . ./myread
 466             qacpuwidth="$ans"
 467             fi
 468         $rm -f size.c size
 469         case "$qacpuwidth" in
 470             32*)
 471                 cat >&4 <<EOM
 472 Bzzzt! At present, you can only perform a
 473 full 64-bit build on a 64-bit machine.
 474 EOM
 475                 exit 1
 476                 ;;
 477             esac
 478
 479         qacflags="`getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"
 480         qaldflags="`getconf XBS5_LP64_OFF64_LDFLAGS 2>/dev/null`"
 481         # See jhi's comments above regarding this re-eval.  I've
 482         # seen similar weirdness in the form of:
 483         #
 484         # 1506-173 (W) Option lm is not valid.  Enter xlc for list of valid options.
 485         #
 486         # error messages from 'cc -E' invocation. Again, the offending
 487         # string is simply not detectable by any means.  Since it doesn't
 488         # do any harm, I didn't pursue it. -- sh
 489         qaldflags="`echo $qaldflags`"
 490         qalibs="`getconf XBS5_LP64_OFF64_LIBS 2>/dev/null|sed -e 's@^-l@@' -e 's@ -l@ @g`"
 491         # -q32 and -b32 may have been set by uselargefiles or user.
 492         # Remove them.
 493         ccflags="`echo $ccflags | sed -e 's@-q32@@'`"
 494         ldflags="`echo $ldflags | sed -e 's@-b32@@'`"
 495         # Tell archiver to use large format.  Unless we remove 'ar'
 496         # from 'trylist', the Configure script will just reset it to 'ar'
 497         # immediately prior to writing config.sh.  This took me hours
 498         # to figure out.
 499         trylist="`echo $trylist | sed -e 's@^ar @@' -e 's@ ar @ @g' -e 's@ ar$@@'`"
 500         ar="ar -X64"
 501         nm_opt="-X64 $nm_opt"
 502         # Note: Placing the 'qacflags' variable into the 'ldflags' string
 503         # is NOT a typo.  ldflags is passed to the C compiler for final
 504         # linking, and it wants -q64 (-b64 is for ld only!).
 505         case "$qacflags$qaldflags$qalibs" in
 506             '') ;;
 507             *)  ccflags="$ccflags $qacflags"
 508                 ldflags="$ldflags $qacflags"
 509                 lddlflags="$qaldflags $lddlflags"
 510                 libswanted="$libswanted $qalibs"
 511                 ;;
 512             esac
 513         case "$ccflags" in
 514             *-DUSE_64_BIT_ALL*) ;;
 515             *) ccflags="$ccflags -DUSE_64_BIT_ALL";;
 516             esac
 517         case "$archname64" in
 518             ''|64*) archname64=64all ;;
 519             esac
 520         longsize="8"
 521         qacflags=''
 522         qaldflags=''
 523         qalibs=''
 524         qacpuwidth=''
 525         ;;
 526     esac
 527 EOCBU
 528
 529 if test $usenativedlopen = 'true' ; then
 530     ccflags="$ccflags -DUSE_NATIVE_DLOPEN"
 531     case "$cc" in
 532         *gcc*) ldflags="$ldflags -Wl,-brtl" ;;
 533         *)     ldflags="$ldflags -brtl" ;;
 534         esac
 535 else
 536     case `oslevel` in
 537         4.2.*)  ;;      # libC_r has broke gettimeofday
 538         *)  # If the C++ libraries, libC and libC_r, are available we will
 539             # prefer them over the vanilla libc, because the libC contain
 540             # loadAndInit() and terminateAndUnload() which work correctly
 541             # with C++ statics while libc load() and unload() do not. See
 542             # ext/DynaLoader/dl_aix.xs. The C-to-C_r switch is done by
 543             # usethreads.cbu, if needed.
 544             if test -f /lib/libC.a -a X"`$cc -v 2>&1 | grep gcc`" = X; then
 545                 # Cify libswanted.
 546                 set `echo X "$libswanted "| sed -e 's/ c / C c /'`
 547                 shift
 548                 libswanted="$*"
 549                 # Cify lddlflags.
 550                 set `echo X "$lddlflags "| sed -e 's/ -lc / -lC -lc /'`
 551                 shift
 552                 lddlflags="$*"
 553                 fi
 554         esac
 555     fi
 556
 557 case "$PASE" in
 558     define)
 559         case "$prefix" in
 560             '') prefix=/QOpenSys/perl ;;
 561             esac
 562         cat >&4 <<EOF
 563
 564 ***
 565 *** You seem to be compiling in AIX for the OS/400 PASE environment.
 566 *** I'm not going to use the AIX bind, nsl, and possible util libraries, then.
 567 *** I'm also not going to install perl as /usr/bin/perl.
 568 *** Perl will be installed under $prefix.
 569 *** For instructions how to install this build from AIX to PASE,
 570 *** see the file README.os400.  Accept the "aix" for the question
 571 *** about "Operating system name".
 572 ***
 573 EOF
 574         set `echo " $libswanted " | sed -e 's@ bind @ @' -e 's@ nsl @ @' -e 's@ util @ @'`
 575         shift
 576         libswanted="$*"
 577         installusrbinperl="$undef"
 578
 579         # V5R1 doesn't have this (V5R2 does), without knowing
 580         # which one we have it's safer to be pessimistic.
 581         # Cwd will work fine even without fchdir(), but if
 582         # V5R1 tries to use code compiled assuming fchdir(),
 583         # lots of grief will issue forth from Cwd.
 584         case "$d_fchdir" in
 585             '') d_fchdir="$undef" ;;
 586             esac
 587         ;;
 588     esac
 589
 590 # EOF