U/modified/Guess.U

   1 ?RCS: $Id: Guess.U,v 3.0.1.5 1995/07/25 13:37:14 ram Exp $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 3.0.
  10 ?RCS:
  11 ?RCS: $Log: Guess.U,v $
  12 ?RCS: Revision 3.0.1.5  1995/07/25  13:37:14  ram
  13 ?RCS: patch56: now knows about OS/2 platforms
  14 ?RCS:
  15 ?RCS: Revision 3.0.1.4  1994/10/29  15:53:55  ram
  16 ?RCS: patch36: added ?F: line for metalint file checking
  17 ?RCS: patch36: call ./xenix explicitely instead of relying on PATH
  18 ?RCS:
  19 ?RCS: Revision 3.0.1.3  1993/12/15  08:14:35  ram
  20 ?RCS: patch15: variable d_bsd was not always set properly
  21 ?RCS:
  22 ?RCS: Revision 3.0.1.2  1993/08/30  08:57:14  ram
  23 ?RCS: patch8: fixed comment which wrongly attributed the usrinc symbol
  24 ?RCS: patch8: no more ugly messages when no /usr/include/ctype.h
  25 ?RCS:
  26 ?RCS: Revision 3.0.1.1  1993/08/27  14:37:37  ram
  27 ?RCS: patch7: added support for OSF/1 machines
  28 ?RCS:
  29 ?RCS: Revision 3.0  1993/08/18  12:04:57  ram
  30 ?RCS: Baseline for dist 3.0 netwide release.
  31 ?RCS:
  32 ?X:
  33 ?X: This unit hazards some guesses as to what the general nature of the system
  34 ?X: is.  The information it collects here is used primarily to establish default
  35 ?X: answers to other questions.
  36 ?X:
  37 ?MAKE:Guess d_eunice d_xenix d_bsd: cat test echo n c contains \
  38         rm Loc eunicefix tr
  39 ?MAKE:  -pick add $@ %<
  40 ?S:d_eunice:
  41 ?S:     This variable conditionally defines the symbols EUNICE and VAX, which
  42 ?S:     alerts the C program that it must deal with ideosyncracies of VMS.
  43 ?S:.
  44 ?S:d_xenix:
  45 ?S:     This variable conditionally defines the symbol XENIX, which alerts
  46 ?S:     the C program that it runs under Xenix.
  47 ?S:.
  48 ?S:d_bsd:
  49 ?S:     This symbol conditionally defines the symbol BSD when running on a
  50 ?S:     BSD system.
  51 ?S:.
  52 ?C:EUNICE:
  53 ?C:     This symbol, if defined, indicates that the program is being compiled
  54 ?C:     under the EUNICE package under VMS.  The program will need to handle
  55 ?C:     things like files that don't go away the first time you unlink them,
  56 ?C:     due to version numbering.  It will also need to compensate for lack
  57 ?C:     of a respectable link() command.
  58 ?C:.
  59 ?X: Should we define VMS here?  Is Eunice actually used anymore?
  60 ?X:?C:VMS:
  61 ?X:?C:  This symbol, if defined, indicates that the program is running under
  62 ?X:?C:  VMS.  It is currently only set in conjunction with the EUNICE symbol.
  63 ?X:?C:.
  64 ?C:XENIX:
  65 ?C:     This symbol, if defined, indicates thet the program is running under
  66 ?C:     Xenix (at least 3.0 ?).
  67 ?C:.
  68 ?X:  We don't use BSD in the perl source.  It's too vague, and already
  69 ?X:  defined in some header files anyway (e.g. NetBSD).  This just gives
  70 ?X:  us a spurious redefinition error upon compilation.
  71 ?X:     --Andy Dougherty  Feb 11, 1998
  72 ?X: ?C:BSD:
  73 ?X: ?C: This symbol, if defined, indicates that the program is running under
  74 ?X: ?C: a BSD system.
  75 ?X: ?C:.
  76 ?H:#$d_eunice EUNICE            /**/
  77 ?X:?H:#$d_eunice VMS            /**/
  78 ?H:#$d_xenix XENIX              /**/
  79 ?X: ?H:#$d_bsd BSD              /**/
  80 ?H:.
  81 ?F:./bsd ./usg ./v7 ./osf1 ./eunice ./xenix ./venix ./os2
  82 ?T:xxx
  83 : make some quick guesses about what we are up against
  84 echo " "
  85 $echo $n "Hmm...  $c"
  86 echo exit 1 >bsd
  87 echo exit 1 >usg
  88 echo exit 1 >v7
  89 echo exit 1 >osf1
  90 echo exit 1 >eunice
  91 echo exit 1 >xenix
  92 echo exit 1 >venix
  93 echo exit 1 >os2
  94 d_bsd="$undef"
  95 ?X:
  96 ?X: Do not use 'usrinc', or we get a circular dependency. because
  97 ?X: usrinc is defined in usrinc.U, which relies on us...
  98 ?X:
  99 $cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
 100 if test -f /osf_boot || $contains 'OSF/1' /usr/include/ctype.h >/dev/null 2>&1
 101 then
 102         echo "Looks kind of like an OSF/1 system, but we'll see..."
 103         echo exit 0 >osf1
 104 elif test `echo abc | $tr a-z A-Z` = Abc ; then
 105         xxx=`./loc addbib blurfl $pth`
 106         if $test -f $xxx; then
 107         echo "Looks kind of like a USG system with BSD features, but we'll see..."
 108                 echo exit 0 >bsd
 109                 echo exit 0 >usg
 110         else
 111                 if $contains SIGTSTP foo >/dev/null 2>&1 ; then
 112                         echo "Looks kind of like an extended USG system, but we'll see..."
 113                 else
 114                         echo "Looks kind of like a USG system, but we'll see..."
 115                 fi
 116                 echo exit 0 >usg
 117         fi
 118 elif $contains SIGTSTP foo >/dev/null 2>&1 ; then
 119         echo "Looks kind of like a BSD system, but we'll see..."
 120         d_bsd="$define"
 121         echo exit 0 >bsd
 122 else
 123         echo "Looks kind of like a Version 7 system, but we'll see..."
 124         echo exit 0 >v7
 125 fi
 126 case "$eunicefix" in
 127 *unixtovms*)
 128         $cat <<'EOI'
 129 There is, however, a strange, musty smell in the air that reminds me of
 130 something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
 131 EOI
 132         echo exit 0 >eunice
 133         d_eunice="$define"
 134 : it so happens the Eunice I know will not run shell scripts in Unix format
 135         ;;
 136 *)
 137         echo " "
 138         echo "Congratulations.  You aren't running Eunice."
 139         d_eunice="$undef"
 140         ;;
 141 esac
 142 : Detect OS2.  The p_ variable is set above in the Head.U unit.
 143 : Note that this also -- wrongly -- detects e.g. dos-djgpp, which also uses
 144 : semicolon as a patch separator
 145 case "$p_" in
 146 :) ;;
 147 *)
 148         $cat <<'EOI'
 149 I have the feeling something is not exactly right, however...don't tell me...
 150 lemme think...does HAL ring a bell?...no, of course, you're only running OS/2!
 151 (Or you may be running DOS with DJGPP.)
 152 EOI
 153         echo exit 0 >os2
 154         ;;
 155 esac
 156 if test -f /xenix; then
 157         echo "Actually, this looks more like a XENIX system..."
 158         echo exit 0 >xenix
 159         d_xenix="$define"
 160 else
 161         echo " "
 162         echo "It's not Xenix..."
 163         d_xenix="$undef"
 164 fi
 165 chmod +x xenix
 166 $eunicefix xenix
 167 if test -f /venix; then
 168         echo "Actually, this looks more like a VENIX system..."
 169         echo exit 0 >venix
 170 else
 171         echo " "
 172         if ./xenix; then
 173                 : null
 174         else
 175                 echo "Nor is it Venix..."
 176         fi
 177 fi
 178 chmod +x bsd usg v7 osf1 eunice xenix venix os2
 179 $eunicefix bsd usg v7 osf1 eunice xenix venix os2
 180 $rm -f foo
 181