U/modified/Cppsym.U

   1 ?RCS: $Id: Cppsym.U,v 3.0.1.5 1995/05/12 11:59:11 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: Cppsym.U,v $
  12 ?RCS: Revision 3.0.1.5  1995/05/12  11:59:11  ram
  13 ?RCS: patch54: split awk command onto two lines for older awks (ADO)
  14 ?RCS:
  15 ?RCS: Revision 3.0.1.4  1995/01/11  14:55:57  ram
  16 ?RCS: patch45: new cc vs. cpp symbol checking suggested by JHI
  17 ?RCS: patch45: added more cpp symbols (JHI)
  18 ?RCS:
  19 ?RCS: Revision 3.0.1.3  1994/10/29  15:51:32  ram
  20 ?RCS: patch36: added ?F: line for metalint file checking
  21 ?RCS: patch36: new symbols ardent and titan (ADO)
  22 ?RCS:
  23 ?RCS: Revision 3.0.1.2  1994/06/20  06:53:32  ram
  24 ?RCS: patch30: extended cpp symbol lookup list (JHI)
  25 ?RCS: patch30: renamed attrlist symbol into al for brevity
  26 ?RCS:
  27 ?RCS: Revision 3.0.1.1  1993/12/15  08:14:14  ram
  28 ?RCS: patch15: added new cpp symbols __bsdi__ and BSD_NET2
  29 ?RCS:
  30 ?RCS: Revision 3.0  1993/08/18  12:04:50  ram
  31 ?RCS: Baseline for dist 3.0 netwide release.
  32 ?RCS:
  33 ?X: This unit produces a shell script called Cppsym, which can be used to
  34 ?X: determine whether any in a list of symbols is defined by the C compilation
  35 ?X: chain (C preprocessor symbols plus C compiler native ones).
  36 ?X: It can determine the status of any symbol, though the symbols in $al
  37 ?X: are more easily determined.  If you want to add to $al you can do
  38 ?X: it in Myinit.U.
  39 ?MAKE:Cppsym ccsymbols cppsymbols cppccsymbols: run \
  40         eunicefix Guess awk cat tr sed sort rm rm_try startsh osname \
  41         +cc +gccversion test comm uniq echo Options trnl \
  42         optimize ccflags ldflags libs cpp_stuff
  43 ?MAKE:  -pick add $@ %<
  44 ?T:also symbols i postprocess_cc_v tHdrH
  45 ?X:
  46 ?X: The symbol list is in alpha order for ease of maintenance...
  47 ?X:
  48 ?X: Lots of new symbols (mostly rummaged from gcc), courtesy of
  49 ?X: Jarkko Hietaniemi <jhi@snakemail.hut.fi> -- RAM, 06/06/94
  50 ?X:
  51 ?S:ccsymbols:
  52 ?S:     The variable contains the symbols defined by the C compiler alone.
  53 ?S:     The symbols defined by cpp or by cc when it calls cpp are not in
  54 ?S:     this list, see cppsymbols and cppccsymbols.
  55 ?S:     The list is a space-separated list of symbol=value tokens.
  56 ?S:.
  57 ?S:cppsymbols:
  58 ?S:     The variable contains the symbols defined by the C preprocessor
  59 ?S:     alone.  The symbols defined by cc or by cc when it calls cpp are
  60 ?S:     not in this list, see ccsymbols and cppccsymbols.
  61 ?S:     The list is a space-separated list of symbol=value tokens.
  62 ?S:.
  63 ?S:cppccsymbols:
  64 ?S:     The variable contains the symbols defined by the C compiler
  65 ?S:     when it calls cpp.  The symbols defined by the cc alone or cpp
  66 ?S:     alone are not in this list, see ccsymbols and cppsymbols.
  67 ?S:     The list is a space-separated list of symbol=value tokens.
  68 ?S:.
  69 ?F:./Cppsym
  70 ?F:!Cppsym.true
  71 ?F:!ccsym.com
  72 ?F:!ccsym.cpp
  73 ?F:!ccsym.own
  74 ?X: fake LINT hints
  75 ?LINT:change cc
  76 ?LINT:change optimize
  77 ?LINT:change ccflags
  78 ?LINT:change ldflags
  79 ?LINT:change libs
  80 ?LINT:extern s
  81 ?LINT:change s
  82 ?LINT:extern s__
  83 ?LINT:change s__
  84 echo " "
  85 $echo "Guessing which symbols your C compiler and preprocessor define..." >&4
  86 ?X: If your symbol is mixed case, just add it as-is.
  87 ?X: All symbols will be transformed to both all-lower and all-upper.
  88 ?X: Also drop any leading/trailing underscores, the scan will try all those.
  89 $cat <<'EOSH' > Cppsym.know
  90 a29k ABI64 aegis AES_SOURCE AIX AIX32 AIX370
  91 AIX41 AIX42 AIX43 AIX_SOURCE aixpc ALL_SOURCE
  92 alliant alpha am29000 AM29000 AMD64 amd64 amiga AMIGAOS AMIX
  93 ansi ANSI_C_SOURCE apollo ardent ARM32 atarist att386 att3b
  94 BeOS BIG_ENDIAN BIT_MSF bsd BSD bsd43 bsd4_2 bsd4_3 BSD4_3 bsd4_4
  95 BSD_4_3 BSD_4_4 BSD_NET2 BSD_TIME BSD_TYPES BSDCOMPAT bsdi
  96 bull c cadmus clipper CMU COFF COMPILER_VERSION
  97 concurrent convex cpu cray CRAY CRAYMPP ctix CX_UX
  98 CYGWIN DECC DGUX DGUX_SOURCE DJGPP dmert DOLPHIN DPX2 DSO
  99 Dynix DynixPTX ELF encore EPI EXTENSIONS FAVOR_BSD
 100 FILE_OFFSET_BITS FreeBSD GCC_NEW_VARARGS gcos gcx gimpel
 101 GLIBC GLIBC_MINOR
 102 GNU_SOURCE GNUC GNUC_MINOR GNU_LIBRARY GO32 gould GOULD_PN
 103 H3050R H3050RX hbullx20 hcx host_mips
 104 hp200 hp300 hp700 HP700 hp800 hp9000
 105 hp9000s200 hp9000s300 hp9000s400 hp9000s500
 106 hp9000s700 hp9000s800 hp9k8 hp_osf hppa hpux HPUX_SOURCE
 107 i186 i286 i386 i486 i586 i686 i8086 i80960 i860 I960
 108 IA64 iAPX286 ibm ibm032 ibmesa IBMR2 ibmrt ILP32 ILP64
 109 INLINE_INTRINSICS INTRINSICS INT64 interdata is68k ksr1
 110 LANGUAGE_C LARGE_FILE_API LARGEFILE64_SOURCE
 111 LARGEFILE_SOURCE LFS64_LARGEFILE LFS_LARGEFILE
 112 Linux LITTLE_ENDIAN LONG64 LONG_DOUBLE LONG_LONG
 113 LONGDOUBLE LONGLONG LP64 luna luna88k Lynx
 114 M68000 m68k m88100 m88k M88KBCS_TARGET M_COFF
 115 M_I186 M_I286 M_I386 M_I8086 M_I86 M_I86SM M_SYS3
 116 M_SYS5 M_SYSIII M_SYSV M_UNIX M_XENIX MACH machine MachTen
 117 MATH_HAS_NO_SIDE_EFFECTS
 118 mc300 mc500 mc68000 mc68010 mc68020 mc68030 mc68040
 119 mc68060 mc68k mc68k32 mc700 mc88000 mc88100 merlin
 120 mert MiNT mips MIPS_FPSET MIPS_ISA MIPS_SIM MIPS_SZINT
 121 MIPS_SZLONG MIPS_SZPTR MIPSEB MIPSEL MODERN_C motorola
 122 mpeix MSDOS MTXINU MULTIMAX mvs MVS n16 ncl_el ncl_mr
 123 NetBSD news1500 news1700 news1800 news1900 news3700
 124 news700 news800 news900 NeXT NLS nonstopux ns16000 ns32000
 125 ns32016 ns32332 ns32k nsc32000
 126 OCS88 OEMVS OpenBSD os OS2 OS390 osf OSF1 OSF_SOURCE
 127 pa_risc PA_RISC1_1 PA_RISC2_0 PARAGON parisc
 128 pc532 pdp11 PGC PIC plexus PORTAR posix
 129 POSIX1B_SOURCE POSIX2_SOURCE POSIX4_SOURCE
 130 POSIX_C_SOURCE POSIX_SOURCE POWER
 131 PROTOTYPES PWB pyr QNX R3000 REENTRANT RES Rhapsody RISC6000
 132 riscix riscos RT S390 SA110 scs SCO sequent sgi SGI_SOURCE SH3 sinix
 133 SIZE_INT SIZE_LONG SIZE_PTR SOCKET_SOURCE SOCKETS_SOURCE
 134 sony sony_news sonyrisc sparc sparclite spectrum
 135 stardent stdc STDC_EXT stratos sun sun3 sun386
 136 Sun386i svr3 svr4 SVR4_2 SVR4_SOURCE svr5
 137 SX system SYSTYPE_BSD SYSTYPE_BSD43 SYSTYPE_BSD44
 138 SYSTYPE_SVR4 SYSTYPE_SVR5 SYSTYPE_SYSV SYSV SYSV3 SYSV4 SYSV5
 139 sysV68 sysV88 Tek4132 Tek4300 titan
 140 TM3200 TM5400 TM5600
 141 tower tower32 tower32_200 tower32_600 tower32_700
 142 tower32_800 tower32_850 tss
 143 u370 u3b u3b2 u3b20 u3b200 u3b20d u3b5
 144 ultrix UMAXV UnicomPBB UnicomPBD UNICOS UNICOSMK
 145 unix UNIX95 UNIX99 unixpc unos
 146 USE_BSD USE_FILE_OFFSET64 USE_GNU USE_ISOC9X USE_LARGEFILE USE_LARGEFILE64
 147 USE_MISC USE_POSIX USE_POSIX199309 USE_POSIX199506 USE_POSIX2
 148 USE_REENTRANT USE_SVID USE_UNIX98 USE_XOPEN USE_XOPEN_EXTENDED
 149 USGr4 USGr4_2
 150 Utek UTek UTS UWIN uxpm uxps vax venix VMESA vms x86_64 xenix Xenix286
 151 XOPEN_SOURCE XOPEN_SOURCE_EXTENDED XPG2 XPG2_EXTENDED
 152 XPG3 XPG3_EXTENDED XPG4 XPG4_EXTENDED
 153 z8000
 154 EOSH
 155 # Maybe put other stuff here too.
 156 cat <<EOSH >>Cppsym.know
 157 $osname
 158 EOSH
 159 ./tr '[a-z]' '[A-Z]' < Cppsym.know > Cppsym.a
 160 ./tr '[A-Z]' '[a-z]' < Cppsym.know > Cppsym.b
 161 $cat Cppsym.know > Cppsym.c
 162 $cat Cppsym.a Cppsym.b Cppsym.c | $tr ' ' $trnl | $sort | $uniq > Cppsym.know
 163 $rm -f Cppsym.a Cppsym.b Cppsym.c
 164 cat <<EOSH > Cppsym
 165 $startsh
 166 if $test \$# -gt 0; then
 167     echo \$* | $tr " " "$trnl" | ./Cppsym.try > Cppsym.got
 168     if $test -s Cppsym.got; then
 169         $rm -f Cppsym.got
 170         exit 0
 171     fi
 172     $rm -f Cppsym.got
 173     exit 1
 174 else
 175     $tr " " "$trnl" | ./Cppsym.try
 176     exit 0
 177 fi
 178 EOSH
 179 chmod +x Cppsym
 180 $eunicefix Cppsym
 181 ?X: The below awk script will die a horrible death if
 182 ?X: some of the tested symbols are not long ints.
 183 ?X: Also, we do not make difference between just defined and defined zero.
 184 cat <<EOSH > Cppsym.try
 185 $startsh
 186 cat <<'EOCP' > try.c
 187 #include <stdio.h>
 188 #if cpp_stuff == 1
 189 #define STRINGIFY(a)    "a"
 190 #endif
 191 #if cpp_stuff == 42
 192 #define StGiFy(a)  #a
 193 #define STRINGIFY(a)    StGiFy(a)
 194 #endif
 195 #if $cpp_stuff != 1 && $cpp_stuff != 42
 196 #   include "Bletch: How does this C preprocessor stringify macros?"
 197 #endif
 198 int main() {
 199 EOCP
 200 ?X: The length($1) command guards against possible empty entries.
 201 ?X: The awk snippet is know to give heartburn to UNICOS/mk awk.
 202 $awk \\
 203 EOSH
 204 cat <<'EOSH' >> Cppsym.try
 205 'length($1) > 0 {
 206     printf "#ifdef %s\nprintf(\"%s=%%s\\n\", STRINGIFY(%s));\n#endif\n", $1, $1, $1
 207     printf "#ifdef _%s\nprintf(\"_%s=%%s\\n\", STRINGIFY(_%s));\n#endif\n", $1, $1, $1
 208     printf "#ifdef __%s\nprintf(\"__%s=%%s\\n\", STRINGIFY(__%s));\n#endif\n", $1, $1, $1
 209     printf "#ifdef __%s__\nprintf(\"__%s__=%%s\\n\", STRINGIFY(__%s__));\n#endif\n", $1, $1, $1
 210 }'       >> try.c
 211 echo 'return 0;}' >> try.c
 212 EOSH
 213 cat <<EOSH >> Cppsym.try
 214 ccflags="$ccflags"
 215 case "$osname-$gccversion" in
 216 irix-) ccflags="\$ccflags -woff 1178" ;;
 217 os2-*) ccflags="\$ccflags -Zlinker /PM:VIO" ;;
 218 esac
 219 $cc -o try -Dcpp_stuff=$cpp_stuff $optimize \$ccflags $ldflags try.c $libs && $run ./try | $sed 's/ /\\\\ /g'
 220 EOSH
 221 chmod +x Cppsym.try
 222 $eunicefix Cppsym.try
 223 ./Cppsym < Cppsym.know > Cppsym.true
 224 : Add in any linux cpp "predefined macros":
 225 case "$osname::$gccversion" in
 226   *linux*::*.*)
 227     tHdrH=_tmpHdr
 228     rm -f $tHdrH'.h' $tHdrH
 229     touch $tHdrH'.h'
 230     if cpp -dM $tHdrH'.h' > $tHdrH'_cppsym.h' && [ -s $tHdrH'_cppsym.h' ]; then
 231        sed 's/#define[\ \  ]*//;s/[\ \     ].*$//' <$tHdrH'_cppsym.h' >$tHdrH'_cppsym.real'
 232        if [ -s $tHdrH'_cppsym.real' ]; then
 233           cat $tHdrH'_cppsym.real' Cppsym.know | sort | uniq | ./Cppsym | sort | uniq > Cppsym.true
 234        fi
 235     fi
 236     rm -f $tHdrH'.h' $tHdrH'_cppsym.h' $tHdrH'_cppsym.real'
 237   ;;
 238 esac
 239 : now check the C compiler for additional symbols
 240 ?X: suggested by Jarkko Hietaniemi <jhi@snakemail.hut.fi>, thanks!
 241 postprocess_cc_v=''
 242 case "$osname" in
 243 aix) postprocess_cc_v="|$tr , ' '" ;;
 244 esac
 245 $cat >ccsym <<EOS
 246 $startsh
 247 $cat >tmp.c <<EOF
 248 extern int foo;
 249 EOF
 250 for i in \`$cc -v -c tmp.c 2>&1 $postprocess_cc_v\`
 251 do
 252         case "\$i" in
 253         -D*) echo "\$i" | $sed 's/^-D//';;
 254         -A*) $test "$gccversion" && echo "\$i" | $sed 's/^-A//' | $sed 's/\(.*\)(\(.*\))/\1=\2/';;
 255         esac
 256 done
 257 $rm_try
 258 EOS
 259 postprocess_cc_v=''
 260 chmod +x ccsym
 261 $eunicefix ccsym
 262 ./ccsym > ccsym1.raw
 263 ?X: AIX complains if $uniq is passed an empty file.  ($sort apparently
 264 ?X: doesn't care.)  --AD  14 July 1998
 265 if $test -s ccsym1.raw; then
 266        $sort ccsym1.raw | $uniq >ccsym.raw
 267 else
 268        mv ccsym1.raw ccsym.raw
 269 fi
 270
 271 ?X: canonicalize symbols for easier sort/uniq/comm usage: append =1 if no = sign
 272 ?X: the awk script must be on two lines for older awk programs, sigh! -- ADO
 273 $awk '/\=/ { print $0; next }
 274         { print $0"=1" }' ccsym.raw >ccsym.list
 275 $comm -13 Cppsym.true ccsym.list >ccsym.own
 276 $comm -12 Cppsym.true ccsym.list >ccsym.com
 277 $comm -23 Cppsym.true ccsym.list >ccsym.cpp
 278 also=''
 279 if $test -z ccsym.raw; then
 280         echo "Your C compiler doesn't seem to define any symbols!" >&4
 281         echo " "
 282         echo "However, your C preprocessor defines the following symbols:"
 283         $cat Cppsym.true
 284         ccsymbols=''
 285         cppsymbols=`$cat Cppsym.true`
 286         cppsymbols=`echo $cppsymbols`
 287         cppccsymbols="$cppsymbols"
 288 else
 289         if $test -s ccsym.com; then
 290                 echo "Your C compiler and pre-processor define these symbols:"
 291                 $sed -e 's/\(..*\)=.*/\1/' ccsym.com
 292                 also='also '
 293                 symbols='ones'
 294                 cppccsymbols=`$cat ccsym.com`
 295                 cppccsymbols=`echo $cppccsymbols`
 296                 $test "$silent" || sleep 1
 297         fi
 298         if $test -s ccsym.cpp; then
 299                 $test "$also" && echo " "
 300                 echo "Your C pre-processor ${also}defines the following symbols:"
 301                 $sed -e 's/\(..*\)=.*/\1/' ccsym.cpp
 302                 also='further '
 303                 cppsymbols=`$cat ccsym.cpp`
 304                 cppsymbols=`echo $cppsymbols`
 305                 $test "$silent" || sleep 1
 306         fi
 307         if $test -s ccsym.own; then
 308                 $test "$also" && echo " "
 309                 echo "Your C compiler ${also}defines the following cpp symbols:"
 310                 $sed -e 's/\(..*\)=1/\1/' ccsym.own
 311                 $sed -e 's/\(..*\)=.*/\1/' ccsym.own | $uniq >>Cppsym.true
 312                 ccsymbols=`$cat ccsym.own`
 313                 ccsymbols=`echo $ccsymbols`
 314                 $test "$silent" || sleep 1
 315         fi
 316 fi
 317