aboutsummaryrefslogtreecommitdiff
path: root/gcc-1.40/fixincludes-V4
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-1.40/fixincludes-V4')
-rw-r--r--gcc-1.40/fixincludes-V4261
1 files changed, 261 insertions, 0 deletions
diff --git a/gcc-1.40/fixincludes-V4 b/gcc-1.40/fixincludes-V4
new file mode 100644
index 0000000..8138582
--- /dev/null
+++ b/gcc-1.40/fixincludes-V4
@@ -0,0 +1,261 @@
+#! /bin/sh
+# Install modified versions of certain ANSI-incompatible system header files
+# which are fixed to work correctly with ANSI C
+# and placed in a directory that GNU C will search.
+# This works properly on a Sun in system version 3.4;
+# for other versions, you had better check.
+
+# Directory in which to store the results.
+LIB=${LIB-/usr/local/lib/gcc-include}
+
+# Make sure it exists.
+if [ ! -d $LIB ]; then
+ mkdir $LIB || exit 1
+fi
+
+# Determine whether this system has symbolic links.
+if ln -s X $LIB/ShouldNotExist 2>/dev/null; then
+ rm -f $LIB/ShouldNotExist
+ LINKS=true
+else
+ LINKS=false
+fi
+
+echo 'Making directories:'
+cd /usr/include
+if $LINKS; then
+ files=`ls -LR | sed -n s/:$//p`
+else
+ files=`find . -type d -print | sed '/^.$/d'`
+fi
+for file in $files; do
+ rm -rf $LIB/$file
+ if [ ! -d $LIB/$file ]
+ then mkdir $LIB/$file
+ fi
+done
+
+# treetops gets an alternating list
+# of old directories to copy
+# and the new directories to copy to.
+treetops="/usr/include ${LIB}"
+
+if $LINKS; then
+ echo 'Making internal symbolic directory links'
+ for file in $files; do
+ dest=`ls -ld $file | sed -n 's/.*-> //p'`
+ if [ "$dest" ]; then
+ cwd=`pwd`
+ # In case $dest is relative, get to $file's dir first.
+ cd /usr/include
+ cd `echo ./$file | sed -n 's&[^/]*$&&p'`
+ # Check that the target directory exists.
+ # Redirections changed to avoid bug in sh on Ultrix.
+ (cd $dest) > /dev/null 2>&1
+ if [ $? = 0 ]; then
+ cd $dest
+ # X gets the dir that the link actually leads to.
+ x=`pwd`
+ # If link leads back into /usr/include,
+ # make a similar link here.
+ if expr $x : '/usr/include/.*' > /dev/null; then
+ # Y gets the actual target dir name, relative to /usr/include.
+ y=`echo $x | sed -n 's&/usr/include/&&p'`
+ echo $file '->' $y ': Making link'
+ rm -fr ${LIB}/$file > /dev/null 2>&1
+ ln -s ${LIB}/$y ${LIB}/$file > /dev/null 2>&1
+ else
+ # If the link is to outside /usr/include,
+ # treat this directory as if it actually contained the files.
+# This line used to have $dest instead of $x.
+# $dest seemed to be wrong for links found in subdirectories
+# of /usr/include. Does this change break anything?
+ treetops="$treetops $x ${LIB}/$file"
+ fi
+ fi
+ cd $cwd
+ fi
+ done
+fi
+
+set - $treetops
+while [ $# != 0 ]; do
+ # $1 is an old directory to copy, and $2 is the new directory to copy to.
+ echo "Finding header files in $1:"
+ cd /usr/include
+ cd $1
+ files=`find . -name '*.h' -type f -print`
+ echo 'Checking header files:'
+ for file in $files; do
+ if egrep '[ ]_IO[A-Z]*\(|#define._IO|CTRL|#machine|#lint' $file > /dev/null; then
+ echo Fixing $file
+ if [ -r $file ]; then
+ cp $file $2/$file >/dev/null 2>&1 \
+ || echo "Can't copy $file"
+ chmod +w $2/$file
+ sed -e '
+ :loop
+ /\\$/ N
+ /\\$/ b loop
+ /[ ]_IO[A-Z]*[ ]*(/ s/(\(.\),/('\''\1'\'',/
+ /#define._IO/ s/'\''x'\''/x/g
+ /[^A-Z]CTRL[ ]*(/ s/\([^'\'']\))/'\''\1'\'')/
+ /#define.CTRL/ s/'\''c'\''/c/g
+ /#define._CTRL/ s/'\''c'\''/c/g
+ /^[ ]*#[ ]*if/ s/#machine/defined/g
+ /^[ ]*#[ ]*elif/ s/#machine/defined/g
+ /^[ ]*#[ ]*if/ s/#lint *(on)/defined(lint)/g
+ /^[ ]*#[ ]*elif/ s/#lint *(on)/defined(lint)/g
+ ' $2/$file > $2/$file.sed
+ mv $2/$file.sed $2/$file
+ if cmp $file $2/$file >/dev/null 2>&1; then
+ echo Deleting $2/$file\; no fixes were needed.
+ rm $2/$file
+ fi
+ fi
+ fi
+ done
+ shift; shift
+done
+
+cd /usr/include
+
+# Fix one other error in this file: a mismatched quote not inside a C comment.
+file=sundev/vuid_event.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ cp $file ${LIB}/$file >/dev/null 2>&1 \
+ || echo "Can't copy $file"
+ chmod +w ${LIB}/$file
+ fi
+fi
+
+if [ -r ${LIB}/$file ]; then
+ echo Fixing $file comment
+ ex ${LIB}/$file <<EOF
+ g/doesn't/s/doesn't/does not/
+ wq
+EOF
+ if cmp $file ${LIB}/$file >/dev/null 2>&1; then
+ echo Deleting ${LIB}/$file\; no fixes were needed.
+ rm ${LIB}/$file
+ fi
+fi
+
+# Fix an error in this file: a missing semi-colon at the end of the statsswtch
+# structure definition.
+file=rpcsvc/rstat.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ cp $file ${LIB}/$file >/dev/null 2>&1 \
+ || echo "Can't copy $file"
+ chmod +w ${LIB}/$file
+ fi
+fi
+
+if [ -r ${LIB}/$file ]; then
+ echo Fixing $file, definition of statsswtch
+ ex ${LIB}/$file <<EOF
+ g/boottime$/s//&;/
+ wq
+EOF
+ if cmp $file $2/$file >/dev/null 2>&1; then
+ echo Deleting $2/$file\; no fixes were needed.
+ rm $2/$file
+ fi
+fi
+
+# Deal with yet another challenge, this in X11/Xmu.h
+file=X11/Xmu.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ mkdir ${LIB}/X11 2>&-
+ cp $file ${LIB}/$file >/dev/null 2>&1 \
+ || echo "Can't copy $file"
+ chmod +w ${LIB}/$file
+ fi
+fi
+
+if [ -r ${LIB}/$file ]; then
+ echo Fixing $file sprintf declaration
+ ex ${LIB}/$file <<EOF
+ /^extern char \* sprintf();$/c
+#ifndef __STDC__
+extern char * sprintf();
+#endif /* !defined __STDC__ */
+.
+ wq
+EOF
+ if cmp $file ${LIB}/$file >/dev/null 2>&1; then
+ echo Deleting ${LIB}/$file\; no fixes were needed.
+ rm ${LIB}/$file
+ fi
+fi
+
+# Check for missing ';' in struct
+
+file=netinet/ip.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ mkdir ${LIB}/netinet 2>&-
+ sed -e '/^struct/,/^};/s/}$/};/' $file > ${LIB}/$file
+ cmp $file ${LIB}/$file >&- && rm -f ${LIB}/$file
+ fi
+fi
+
+# Fix the CAT macro in memvar.h.
+
+file=pixrect/memvar.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ mkdir ${LIB}/pixrect 2>&-
+ sed -e '/^#define.CAT(a,b)/ s/IDENT(a)b/a##b/g' $file > ${LIB}/$file
+ cmp $file ${LIB}/$file >&- && rm -f ${LIB}/$file
+ fi
+fi
+
+# Check for yet more missing ';' in struct (in SunOS 4.0.x)
+
+file=rpcsvc/rusers.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ mkdir ${LIB}/rpcsvc 2>&-
+ sed -e '/^struct/,/^};/s/_cnt$/_cnt;/' $file > ${LIB}/$file
+ cmp $file ${LIB}/$file >&- && rm -f ${LIB}/$file
+ fi
+fi
+
+# Check for yet more missing ';' in struct (in SunOS 4.0.x)
+
+file=rpcsvc/rusers.h
+if [ -r $file ]; then
+ if [ ! -r ${LIB}/$file ]; then
+ mkdir ${LIB}/rpcsvc 2>&-
+ sed -e '/^struct/,/^};/s/_cnt$/_cnt;/' $file > ${LIB}/$file
+ cmp $file ${LIB}/$file >&- && rm -f ${LIB}/$file
+ fi
+fi
+
+echo 'Removing unneeded directories:'
+cd $LIB
+files=`find . -type d -print | sort -r`
+for file in $files; do
+ rmdir $LIB/$file > /dev/null 2>&1
+done
+
+if $LINKS; then
+ echo 'Making internal symbolic non-directory links'
+ cd /usr/include
+ files=`find . -type l -print`
+ for file in $files; do
+ dest=`ls -ld $file | sed -n 's/.*-> //p'`
+ if expr "$dest" : '[^/].*' > /dev/null; then
+ target=${LIB}/`echo file | sed "s|[^/]*\$|$dest|"`
+ if [ -f $target ]; then
+ ln -s $dest ${LIB}/$file >/dev/null 2>&1
+ fi
+ fi
+ done
+fi
+
+exit 0
generated by cgit v1.2.3 (git 2.46.0) at 2026-06-03 22:48:59 +0000