Subject: v24i038: Manipulate data on the chemical elements, Part03/03 Newsgroups: comp.sources.unix Approved: rsalz@uunet.UU.NET X-Checksum-Snefru: e152dfcf 4f82b1f9 9d781185 071cd639 Submitted-by: "J.E. King" 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@uunet.uu.net if you want that tool. # Contents: closevalues doregisgph.c.rej undefs.h windows.h # Wrapped by rsalz@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@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@lsrhs) X * X * windows.h Curses WINDOW init X */ X X#include 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...