mirror of git://gcc.gnu.org/git/gcc.git
New shell scripts to ease dealing with Netlib f2c vis-a-vis g77 libg2c
From-SVN: r29346
This commit is contained in:
Craig Burley
Craig Burley
parent
07095a8b8f
commit
697f6b2ff5
|
|
@ -1,3 +1,7 @@
|
||||||
|
1999-09-11 Craig Burley <craig@jcb-sc.com>
|
||||||
|
|
||||||
|
* convert_to_f2c, convert_to_g2c, download_f2c: New file.
|
||||||
|
|
||||||
1999-08-16 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at>
|
1999-08-16 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at>
|
||||||
|
|
||||||
* gcc_update: New file.
|
* gcc_update: New file.
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,48 @@
|
||||||
|
#!/bin/sh
|
||||||
|
#
|
||||||
|
# convert_to_f2c [g2c-dir]
|
||||||
|
#
|
||||||
|
# Renames certain files in a g2c (libg2c) directory so they no longer have the
|
||||||
|
# `.netlib' suffix, a la netlib's f2c distribution. If `g2c-dir' is not
|
||||||
|
# specified, `g2c-YYYYMMDD' is the default, where YYYYMMDD is the current
|
||||||
|
# date. The directory is renamed such that the first `g' becomes an `f',
|
||||||
|
# usually `g2c-YYYYMMDD' -> `f2c-YYYYMMDD'.
|
||||||
|
#
|
||||||
|
# (C) 1999 Free Software Foundation
|
||||||
|
# Originally by James Craig Burley <craig@jcb-sc.com>, September 1999.
|
||||||
|
#
|
||||||
|
# This script is Free Software, and it can be copied, distributed and
|
||||||
|
# modified as defined in the GNU General Public License. A copy of
|
||||||
|
# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
if [ x$1 = x ]
|
||||||
|
then
|
||||||
|
dir=g2c-`date +%Y%m%d`
|
||||||
|
else
|
||||||
|
dir=$1
|
||||||
|
fi
|
||||||
|
|
||||||
|
newdir=`echo $dir | sed -e "s:g:f:"`
|
||||||
|
|
||||||
|
cd $dir
|
||||||
|
|
||||||
|
set +e
|
||||||
|
|
||||||
|
mv -i changes.netlib changes
|
||||||
|
mv -i disclaimer.netlib disclaimer
|
||||||
|
mv -i g2c.hin f2c.h
|
||||||
|
mv -i permission.netlib permission
|
||||||
|
mv -i readme.netlib readme
|
||||||
|
cd libF77
|
||||||
|
mv -i README.netlib README
|
||||||
|
mv -i makefile.netlib makefile
|
||||||
|
cd ../libI77
|
||||||
|
mv -i README.netlib README
|
||||||
|
mv -i makefile.netlib makefile
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
mv -iv $dir $newdir
|
||||||
|
|
@ -0,0 +1,48 @@
|
||||||
|
#!/bin/sh
|
||||||
|
#
|
||||||
|
# convert_to_g2c [f2c-dir]
|
||||||
|
#
|
||||||
|
# Renames certain files in a netlib f2c directory so they have the `.netlib'
|
||||||
|
# suffix, a la g77's version of f2c (libg2c). If `f2c-dir' is not specified,
|
||||||
|
# `f2c-YYYYMMDD' is the default, where YYYYMMDD is the current date.
|
||||||
|
# The directory is renamed such that the first `f' becomes a `g',
|
||||||
|
# usually `f2c-YYYYMMDD' -> `g2c-YYYYMMDD'.
|
||||||
|
#
|
||||||
|
# (C) 1999 Free Software Foundation
|
||||||
|
# Originally by James Craig Burley <craig@jcb-sc.com>, September 1999.
|
||||||
|
#
|
||||||
|
# This script is Free Software, and it can be copied, distributed and
|
||||||
|
# modified as defined in the GNU General Public License. A copy of
|
||||||
|
# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
if [ x$1 = x ]
|
||||||
|
then
|
||||||
|
dir=f2c-`date +%Y%m%d`
|
||||||
|
else
|
||||||
|
dir=$1
|
||||||
|
fi
|
||||||
|
|
||||||
|
newdir=`echo $dir | sed -e "s:f:g:"`
|
||||||
|
|
||||||
|
cd $dir
|
||||||
|
|
||||||
|
set +e
|
||||||
|
|
||||||
|
mv -i changes changes.netlib
|
||||||
|
mv -i disclaimer disclaimer.netlib
|
||||||
|
mv -i f2c.h g2c.hin
|
||||||
|
mv -i permission permission.netlib
|
||||||
|
mv -i readme readme.netlib
|
||||||
|
cd libF77
|
||||||
|
mv -i README README.netlib
|
||||||
|
mv -i makefile makefile.netlib
|
||||||
|
cd ../libI77
|
||||||
|
mv -i README README.netlib
|
||||||
|
mv -i makefile makefile.netlib
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
mv -iv $dir $newdir
|
||||||
|
|
@ -0,0 +1,77 @@
|
||||||
|
#!/bin/sh
|
||||||
|
#
|
||||||
|
# download_f2c
|
||||||
|
#
|
||||||
|
# Unpacks a directory full of f2c stuff obtained from netlib, naming
|
||||||
|
# the directory f2c-YYYYMMDD (YYYYMMDD being the current date),
|
||||||
|
# leaving it in current working directory.
|
||||||
|
#
|
||||||
|
# This shell script downloads the tarball from netlib, unpacks everything,
|
||||||
|
# and strips off the redundant files, leaving a bare-bones (but fully
|
||||||
|
# reproducible) f2c source directory. (You must have yacc/bison to rebuild
|
||||||
|
# gram.c, by the way.)
|
||||||
|
#
|
||||||
|
# (C) 1999 Free Software Foundation
|
||||||
|
# Originally by James Craig Burley <craig@jcb-sc.com>, September 1999.
|
||||||
|
#
|
||||||
|
# This script is Free Software, and it can be copied, distributed and
|
||||||
|
# modified as defined in the GNU General Public License. A copy of
|
||||||
|
# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
|
||||||
|
#
|
||||||
|
# FIXME: Replace WHOAMI with whatever is the canonical way to
|
||||||
|
# obtain the user's email address these days.
|
||||||
|
|
||||||
|
dir=f2c-`date +%Y%m%d`
|
||||||
|
if [ ! -d $dir ]
|
||||||
|
then
|
||||||
|
mkdir $dir
|
||||||
|
fi
|
||||||
|
cd $dir
|
||||||
|
|
||||||
|
echo Preparing $dir...
|
||||||
|
|
||||||
|
if [ ! -d tmp ]
|
||||||
|
then
|
||||||
|
mkdir tmp
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ ! -f tmp/f2c.tar ]
|
||||||
|
then
|
||||||
|
cd tmp
|
||||||
|
echo Downloading f2c.tar via ftp...
|
||||||
|
ftp -n netlib.bell-labs.com <<EOF
|
||||||
|
user ftp WHOAMI
|
||||||
|
type binary
|
||||||
|
cd netlib
|
||||||
|
get f2c.tar
|
||||||
|
quit
|
||||||
|
EOF
|
||||||
|
cd ..
|
||||||
|
fi
|
||||||
|
|
||||||
|
echo Unpacking f2c.tar...
|
||||||
|
|
||||||
|
tar xf tmp/f2c.tar
|
||||||
|
cd f2c
|
||||||
|
find . -name "*.gz" -print | sed -e "s:^\(.*\).gz:rm -f \1.Z:g" | sh
|
||||||
|
mv src libf77.gz libi77.gz f2c.1t.gz f2c.h.gz changes.gz disclaimer.gz readme.gz permission.gz ..
|
||||||
|
cd ..
|
||||||
|
rm -fr f2c
|
||||||
|
gunzip *.gz
|
||||||
|
(cd src; rm -f MD5 MD5.gz gram.c.gz .depend .depend.gz f2c.1.gz index.html index.html.gz; gunzip *.gz)
|
||||||
|
sh libf77 > /dev/null && rm libf77
|
||||||
|
rm -f libF77/xsum0.out libF77/libF77.xsum
|
||||||
|
sh libi77 > /dev/null && rm libi77
|
||||||
|
rm -f libI77/xsum0.out libI77/libI77.xsum
|
||||||
|
rm -f src/xsum0.out
|
||||||
|
touch src/xsum.out
|
||||||
|
cmp f2c.h src/f2c.h && rm -fv src/f2c.h
|
||||||
|
cmp src/readme src/README && rm -fv src/readme
|
||||||
|
|
||||||
|
echo Deleting f2c.tar...
|
||||||
|
rm tmp/f2c.tar
|
||||||
|
rmdir tmp
|
||||||
|
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
echo Latest f2c now in $dir.
|
||||||
Loading…
Reference in New Issue