idriskalp
108 lines
3.6 KiB
Bash
Executable File
108 lines
3.6 KiB
Bash
Executable File
#!/bin/sh
|
|
# gfilt: Unix shell script driver for gcc / STL Error Decryptor
|
|
#
|
|
# Leor Zolman leor@bdsoft.com
|
|
# BD Software www.bdsoft.com
|
|
# Updated: 1/30/2008
|
|
#
|
|
# Installation: Place this file and gSTLFilt.pl somewhere in your PATH
|
|
# (Make sure Perl is also in your PATH)
|
|
#
|
|
# Usage: gfilt [mixture of compiler and Decryptor options] file(s)
|
|
#
|
|
# Purpose: Serve as a substitute for the g++ compiler driver, in-
|
|
# corporating STLFilt functionality transparently.
|
|
# Distinguishes compiler options/args from Decryptor options,
|
|
# makes sure all recognized Decryptor options are passed on
|
|
# the Decryptor script command line while other options/
|
|
# args are passed on the compiler command line.
|
|
# Filter all compiler output, and send results to stdout.
|
|
#
|
|
# (Note: stdout and stderr output streams from the compiler
|
|
# are combined by this process, so the two can no longer be
|
|
# individually redirected afterwards. If this is an issue
|
|
# for anyone, please let me know.)
|
|
#
|
|
# Exit status: The status code returned by the compiler
|
|
#
|
|
# Contents of the environment variable GFILTOPTS are passed as
|
|
# options to the STLFILT script (see the setting of DOPTS below.)
|
|
#
|
|
# 01/30/08 - Gets gSTLFilt.pl from same dir as this script
|
|
# Expanded the usage message a bit
|
|
# 06/29/05 - added more explanatory comments, fixed COPTS handling
|
|
# 02/16/05 - fixed multi-line case statement to work for freeBSD
|
|
# 12/17/04 - Added recognition of several script options that
|
|
# were missing from the case: with, meta, nullarg
|
|
# Added more comments.
|
|
# 02/21/03 - Exit status is now status of compilation
|
|
#
|
|
# Note: If packaged in a ZIP file, this file uses CR-LF line termination.
|
|
# If packaged in a .tar file, it'll have Unix-style termination.
|
|
#########################################################################
|
|
# Configuration section:
|
|
|
|
COMPILER=c++ # Your g++ compiler command
|
|
STLFILT="`dirname $0`/gSTLFilt.pl" # Assumes gSTLFilt.pl is in same dir as gfilt
|
|
|
|
# default options to Decryptor script:
|
|
DOPTS="/hdr:m /cand:s /iter:L ${GFILTOPTS:-}"
|
|
PAGER=less # pager of choice, or leave blank for no paging
|
|
COPTS= # compiler options
|
|
|
|
# End of configuration section
|
|
#########################################################################
|
|
|
|
|
|
if $COMPILER --version | grep " 3\." >/dev/null # if gcc 3.x...
|
|
then
|
|
COPTS="-fmessage-length=0 $COPTS" # ...this option is needed.
|
|
fi
|
|
|
|
if [ $# -eq 0 ]; then
|
|
echo "gfilt: wrapper for gcc/c++ compiler with STL Error Decryptor"
|
|
echo "usage: $0 [all-options] [compiler-arguments]"
|
|
echo " [NOTE: compiler and decryptor options may be mixed]"
|
|
exit 0
|
|
fi
|
|
|
|
|
|
|
|
GCC_ARGS=
|
|
DECRYPTOR_ARGS=
|
|
|
|
for arg
|
|
do
|
|
case $arg in
|
|
[-/]iter:* | [-/]cand:* | [/-]hdr:* | \
|
|
[-/]with:* | [-/]path:* | [/-]showback:* | \
|
|
[/-]width:* | [-/]lognative | [-/]banner:* | [-/]nullarg:* | \
|
|
[-/]break:* | [-/]cbreak:* | [-/]closewrap:* | [-/]meta | [-/]meta:*)
|
|
DECRYPTOR_ARGS="$DECRYPTOR_ARGS $arg";;
|
|
*)
|
|
GCC_ARGS="$GCC_ARGS $arg";;
|
|
esac
|
|
done
|
|
|
|
|
|
#
|
|
# Note that there are several options the Perl script accepts.
|
|
# see the comments at the top of gSTLFilt.pl for details.
|
|
#
|
|
|
|
TMPFILE=/tmp/gfilt$$.tmp
|
|
touch $TMPFILE
|
|
trap "rm $TMPFILE; exit 1" 1 2 3 15
|
|
|
|
$COMPILER $COPTS $GCC_ARGS >$TMPFILE 2>&1
|
|
STATUS=$?
|
|
|
|
if [ "$PAGER" != "" ]; then
|
|
perl $STLFILT $DOPTS $DECRYPTOR_ARGS < $TMPFILE | $PAGER
|
|
else
|
|
perl $STLFILT $DOPTS $DECRYPTOR_ARGS < $TMPFILE
|
|
fi
|
|
|
|
rm $TMPFILE
|
|
exit $STATUS
|