v24i038: Manipulate data on the chemical elements, Part03/03
Rich Salz
rsalz at uunet.uu.net
Thu Mar 14 04:57:55 AEST 1991
Submitted-by: "J.E. King" <jek5036 at ultb.isc.rit.edu>
Posting-number: Volume 24, Issue 38
Archive-name: chemtab/part03
#! /bin/sh
# This is a shell archive. Remove anything before this line, then feed it
# into a shell via "sh file" or similar. To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix at uunet.uu.net if you want that tool.
# Contents: closevalues doregisgph.c.rej undefs.h windows.h
# Wrapped by rsalz at litchi.bbn.com on Wed Mar 13 13:55:20 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo ' "shar: End of archive 3 (of 3)."'
if test -f 'closevalues' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'closevalues'\"
else
echo shar: Extracting \"'closevalues'\" \(461 characters\)
sed "s/^X//" >'closevalues' <<'END_OF_FILE'
X# These are the 'close values' When selecting characteristics, you can choose
X# 'close to' and the value was to be within this range from the value you type
XLEAVE_THIS_ONE 000.00
XAtomic_Number 005.00
XAtomic_Mass 010.00
XFamily 001.00
XRow 001.00
XValence_Electro 001.00
XMelting_Tempera 100.00
XBoiling_Tempera 100.00
XIonization_Ener 025.00
XDiscovery_Year 050.00
XElectronegativi 000.20
XSpecific_Heat 000.05
XDensity 000.20
XAtomic_Radius 000.05
XLEAVE_THIS_ONE 000.00
END_OF_FILE
if test 461 -ne `wc -c <'closevalues'`; then
echo shar: \"'closevalues'\" unpacked with wrong size!
fi
# end of 'closevalues'
fi
if test -f 'doregisgph.c.rej' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doregisgph.c.rej'\"
else
echo shar: Extracting \"'doregisgph.c.rej'\" \(360 characters\)
sed "s/^X//" >'doregisgph.c.rej' <<'END_OF_FILE'
X***************
X*** 322,328 ****
X }
X
X firstup++;
X if (gtot <= 0) {
X for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
X find(c1, tmp->anum);
X if (x == -999.0) continue;
X--- 322,328 ----
X }
X
X firstup++;
X! if (gtot > 0) {
X for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
X find(c1, tmp->anum);
X if (x == -999.0) continue;
END_OF_FILE
if test 360 -ne `wc -c <'doregisgph.c.rej'`; then
echo shar: \"'doregisgph.c.rej'\" unpacked with wrong size!
fi
# end of 'doregisgph.c.rej'
fi
if test -f 'undefs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'undefs.h'\"
else
echo shar: Extracting \"'undefs.h'\" \(448 characters\)
sed "s/^X//" >'undefs.h' <<'END_OF_FILE'
X/*
X * chemtab - a periodic table data base 1990 Jim King (pulsar at lsrhs)
X *
X * undefs.h - carries all the numbers for undefined vars throughout
X */
X
Xstatic int VAL = 9,
X MEL = -273,
X BOI = -273,
X FIO = -1,
X YEA = -1;
Xstatic float ENG = -1.5,
X SPHT = -1.5,
X DENS = -1.5,
X ARD = -1.5;
X
X/* Close values */
Xextern float closev[15]; /* = {
X 0.00, 5.00, 10.00, 1.00, 1.00, 1.00, 100.00, 100.00, 25.00, 50.00,
X 0.20, 0.05, 0.20, 0.05, 0.00
X}; */
X
END_OF_FILE
if test 448 -ne `wc -c <'undefs.h'`; then
echo shar: \"'undefs.h'\" unpacked with wrong size!
fi
# end of 'undefs.h'
fi
if test -f 'windows.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'windows.h'\"
else
echo shar: Extracting \"'windows.h'\" \(331 characters\)
sed "s/^X//" >'windows.h' <<'END_OF_FILE'
X/*
X * chemtab - a periodic table data base (C) 1990 Jim King (pulsar at lsrhs)
X *
X * windows.h Curses WINDOW init
X */
X
X#include <curses.h>
X
XWINDOW *srt, /* Sort chrst window */
X *graph, /* Graph/table Window */
X *mn, /* Main Window */
X *btm, /* Bottom line */
X *hlp, /* Help screen */
X *cur; /* Stop job handling */
END_OF_FILE
if test 331 -ne `wc -c <'windows.h'`; then
echo shar: \"'windows.h'\" unpacked with wrong size!
fi
# end of 'windows.h'
fi
echo shar: End of archive 3 \(of 3\).
cp /dev/null ark3isdone
MISSING=""
for I in 1 2 3 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 3 archives.
rm -f ark[1-9]isdone
else
echo You still must unpack the following archives:
echo " " ${MISSING}
fi
exit 0
exit 0 # Just in case...
--
Please send comp.sources.unix-related mail to rsalz at uunet.uu.net.
Use a domain-based address or give alternate paths, or you may lose out.
More information about the Comp.sources.unix
mailing list