home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume24 / chemtab / patch1 < prev    next >
Encoding:
Internet Message Format  |  1991-03-13  |  19.4 KB
  1. Subject:  v24i044:  Manipulate data on the chemical elements., Patch1
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 2d3916fe a0e39cd2 c483c7c7 0f035615
  5.  
  6. Submitted-by: "J.E. King" <jek5036@ultb.isc.rit.edu>
  7. Posting-number: Volume 24, Issue 44
  8. Archive-name: chemtab/patch1
  9.  
  10. Rich,
  11.  
  12.     After receiving bugs from people out on the network I have made
  13. 'an official patch' to Chemtab V2.01.  This could be called patch #1,
  14. and it brings Chemtab up to V2.02.  Unshar and read README.PATCH for
  15. a description of what has been fixed.  There have also been a few
  16. small changes.. you may or may not notice but it does not affect the
  17. user really..  Thanks for the time.
  18.  
  19.          O /    O /    O /    O /    O /    O /    O /    O /
  20. ----------X------X-------X-------X-------X-------X-------X-------X------
  21.          O \    O \    O \    O \    O \    O \    O \    O \
  22. #!/bin/sh
  23. # to extract, remove the header and type "sh filename"
  24. if `test ! -s ./patch01`
  25. then
  26. echo "writing ./patch01"
  27. cat > ./patch01 << '\End\Of\Shar\'
  28. diff -c3 Old/Makefile New/Makefile
  29. *** Old/Makefile    Wed Mar 13 19:42:26 1991
  30. --- New/Makefile    Wed Mar 13 21:27:14 1991
  31. ***************
  32. *** 1,8 ****
  33.   CC            = cc
  34. ! CFLAGS        = -g -DReGIS
  35.   # Define ReGIS if you want to program to prompt the user to answer y/n
  36.   # to the question of if they have a ReGIS compatible terminal
  37. ! DEST          = chemtab
  38.   EXTHDRS          = /usr/include/curses.h \
  39.           /usr/include/math.h \
  40.           /usr/include/sgtty.h \
  41. --- 1,22 ----
  42. + #
  43. + # Makefile for Chemtab, current version 2.02, Makefile version 1.1
  44. + # Makefile author: Jim King (jek5036@ultb.isc.rit.edu)
  45. + # Makefile additions: Jon Kamens (jik@pit-manager.mit.edu)
  46. + #
  47.   CC            = cc
  48. ! CFLAGS        = -O -DReGIS
  49.   # Define ReGIS if you want to program to prompt the user to answer y/n
  50.   # to the question of if they have a ReGIS compatible terminal
  51. ! BINDIR        = .
  52. ! MANDIR        = .
  53. ! # MAKE SURE:  Any defines in tune.h should reflect this file.. i.e.
  54. ! #             if LIBDIR = LIB then the define in tune.h should be something
  55. ! #             like #define PERTABLE    "LIB/elist"    *** important
  56. ! LIBDIR        = LIB
  57. ! MANSUFFIX    = 1
  58. ! DEST        = $(BINDIR)/ctab
  59. ! MANDEST        = $(MANDIR)/man$(MANSUFFIX)/chemtab.$(MANSUFFIX)
  60. ! LIBFILS          = closevalues elist pertab pertab_graphic online_help
  61.   EXTHDRS          = /usr/include/curses.h \
  62.           /usr/include/math.h \
  63.           /usr/include/sgtty.h \
  64. ***************
  65. *** 20,26 ****
  66.           variables.h \
  67.           windows.h
  68.   LDFLAGS          = $(CFLAGS)
  69. ! LIBS          = -lcurses -ltermcap graphlib.a
  70.   LINKER          = cc
  71.   MAKEFILE      = Makefile
  72.   OBJS          = cleanup.o \
  73. --- 34,40 ----
  74.           variables.h \
  75.           windows.h
  76.   LDFLAGS          = $(CFLAGS)
  77. ! LIBS          = -lcurses -ltermcap
  78.   LINKER          = cc
  79.   MAKEFILE      = Makefile
  80.   OBJS          = cleanup.o \
  81. ***************
  82. *** 29,34 ****
  83. --- 43,49 ----
  84.           element.o \
  85.           element2.o \
  86.           esort.o \
  87. +         graphlib.o \
  88.           looke.o \
  89.           main.o \
  90.           ptabl.o \
  91. ***************
  92. *** 51,63 ****
  93.           scrmisc.c \
  94.           vdata.c
  95.   
  96. ! all:        grlib $(PROGRAM)
  97.   
  98. ! grlib:        graphlib.o
  99. !         ar cr graphlib.a graphlib.o
  100. !         ranlib graphlib.a
  101. ! 
  102. ! $(PROGRAM):     $(OBJS) graphlib.a
  103.           @echo -n "Loading $(PROGRAM) ... "
  104.           @$(LINKER) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS)
  105.           @echo "done"
  106. --- 66,74 ----
  107.           scrmisc.c \
  108.           vdata.c
  109.   
  110. ! all:        $(PROGRAM)
  111.   
  112. ! $(PROGRAM):     $(OBJS)
  113.           @echo -n "Loading $(PROGRAM) ... "
  114.           @$(LINKER) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS)
  115.           @echo "done"
  116. ***************
  117. *** 68,77 ****
  118.   
  119.   index:;        @ctags -wx $(HDRS) $(SRCS)
  120.   
  121. ! install:    $(PROGRAM)
  122.           @echo Installing $(PROGRAM) in $(DEST)
  123. !         @install -m 4755 $(PROGRAM) $(DEST)
  124. ! 
  125.   print:;        @$(PRINT) $(HDRS) $(SRCS)
  126.   
  127.   program:        $(PROGRAM)
  128. --- 79,94 ----
  129.   
  130.   index:;        @ctags -wx $(HDRS) $(SRCS)
  131.   
  132. ! install:    $(PROGRAM) chemtab.1
  133.           @echo Installing $(PROGRAM) in $(DEST)
  134. !         @install -m 755 $(PROGRAM) $(DEST)
  135. !         @echo Installing chemtab.1 in $(MANDEST)
  136. !         @install -m 0644 chemtab.1 $(MANDEST)
  137. !         @echo Creating and modifying chemtab library files
  138. !         @-mkdir $(LIBDIR)
  139. !         @cp $(LIBFILS) $(LIBDIR)
  140. !         @chmod 755 $(LIBDIR) $(LIBDIR)/*
  141. !         
  142.   print:;        @$(PRINT) $(HDRS) $(SRCS)
  143.   
  144.   program:        $(PROGRAM)
  145. diff -c3 Old/README New/README
  146. *** Old/README    Wed Mar 13 19:42:27 1991
  147. --- New/README    Wed Mar 13 20:36:13 1991
  148. ***************
  149. *** 30,32 ****
  150. --- 30,33 ----
  151.   Chemtab; written in C (1990) by Jim King (pulsar@lsrhs)
  152.   Chemtab V2.01; (overlay from V1) written in C (1991) by Jim King
  153.                           (jek5036@ultb.isc.rit.edu)
  154. + Chemtab V2.02; (patch #1) with help from Jon Kamens (jik@pit-manager.mit.edu)
  155. Only in New: README.PATCH
  156. diff -c3 Old/VERSION New/VERSION
  157. *** Old/VERSION    Wed Mar 13 19:42:28 1991
  158. --- New/VERSION    Wed Mar 13 20:29:49 1991
  159. ***************
  160. *** 26,28 ****
  161. --- 26,34 ----
  162.               Job stopping fixed. (BSD only)
  163.               Pipe of ReGIS graphing commands into a file.
  164.               Graphing module updated to work faster.
  165. + 
  166. +     Chemtab V2.02    Patch to V2.01
  167. +             Makefile modified by Jon Kamens
  168. +                         (jik@pit-manager.MIT.EDU)
  169. +             Problems when undefining ReGIS and TRANSCRIPT fixed.
  170. +             A couple of minor screen display changes.
  171. diff -c3 Old/cleanup.c New/cleanup.c
  172. *** Old/cleanup.c    Wed Mar 13 19:42:29 1991
  173. --- New/cleanup.c    Wed Mar 13 21:22:11 1991
  174. ***************
  175. *** 67,78 ****
  176.       nocrmode();
  177.       clear(); refresh();
  178.       endwin();                /* turn off curses */
  179. !     if (trans) {
  180.           printf("A copy of your transcript can be found in the file %d.chemtab\n", getpid());
  181. !     /*    printf("\nYou can pick up your printout at the printer to the left of\n");
  182. !         printf("The White-Board, labelled Happy.  Look for your last name in >><<'s on\n");
  183. !         printf("the top line of each printout.  Good luck with Chemistry.\n");
  184. !      */ }
  185.       fflush(stdout);                /* just make sure.. */
  186.       exit(1);                /* quit nicely */
  187.   }
  188. --- 67,76 ----
  189.       nocrmode();
  190.       clear(); refresh();
  191.       endwin();                /* turn off curses */
  192. !     if (trans)
  193. !         /* You can put information on how to get to the printer HERE */
  194.           printf("A copy of your transcript can be found in the file %d.chemtab\n", getpid());
  195. ! 
  196.       fflush(stdout);                /* just make sure.. */
  197.       exit(1);                /* quit nicely */
  198.   }
  199. diff -c3 Old/dogph.c New/dogph.c
  200. *** Old/dogph.c    Wed Mar 13 19:42:31 1991
  201. --- New/dogph.c    Wed Mar 13 21:02:44 1991
  202. ***************
  203. *** 109,114 ****
  204. --- 109,115 ----
  205.               if (x < xmin) xmin = x;
  206.           }
  207.       } else {
  208. +         help(18);
  209.           for (i = 1; i < gtot; i++) {
  210.               find(c1, sub1[i]);
  211.               if (x == -999.0) continue;
  212. ***************
  213. *** 162,177 ****
  214.       /* Here we find the x axis max and min values */
  215.       /* if they are not already defined */
  216.       if (xmin == -999) {
  217. !         find(c1, e->anum);
  218. !         xmax = xmin = x;
  219. !         for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  220. !             find(c1, tmp->anum);
  221. !             if (x == -999.0) continue;
  222. !             if (x > xmax) xmax = x;
  223. !             if (x < xmin) xmin = x;
  224.           }
  225.       }
  226. - 
  227.       /* Here we find the y axis min and max values */
  228.   
  229.       find(c2, e->anum);
  230. --- 163,189 ----
  231.       /* Here we find the x axis max and min values */
  232.       /* if they are not already defined */
  233.       if (xmin == -999) {
  234. !         if (gtot > 0) {
  235. !             for (i = 1; i < gtot; i++) {
  236. !                 find(c1, sub1[i]);
  237. !                 if (x == -999.0) continue;
  238. !                 if (i == 1) xmax = xmin = x;
  239. !                 else {
  240. !                     if (x > xmax) xmax = x;
  241. !                     if (x < xmin) xmin = x;
  242. !                 }
  243. !             }
  244. !         } else {
  245. !             find(c1, e->anum);
  246. !             xmax = xmin = x;
  247. !             for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  248. !                 find(c1, tmp->anum);
  249. !                 if (x == -999.0) continue;
  250. !                 if (x > xmax) xmax = x;
  251. !                 if (x < xmin) xmin = x;
  252. !             }
  253.           }
  254.       }
  255.       /* Here we find the y axis min and max values */
  256.   
  257.       find(c2, e->anum);
  258. diff -c3 Old/doregisgph.c New/doregisgph.c
  259. *** Old/doregisgph.c    Wed Mar 13 19:42:16 1991
  260. --- New/doregisgph.c    Wed Mar 13 21:02:44 1991
  261. ***************
  262. *** 1,5 ****
  263. - #ifdef    ReGIS
  264. - 
  265.   /*
  266.    * chemtab - a periodic table data base (C) 1990 Jim King
  267.    *           jek5036@ritvax.isc.rit.edu (formerly pulsar@lsrhs)
  268. --- 1,3 ----
  269. ***************
  270. *** 19,25 ****
  271.   
  272.   extern int numr(), stop();
  273.   
  274. - #endif ReGIS
  275.   /*
  276.    * find(ch, en)
  277.    *
  278. --- 17,22 ----
  279. ***************
  280. *** 125,130 ****
  281. --- 122,128 ----
  282.               if (x < xmin) xmin = x;
  283.           }
  284.       } else {
  285. +         help(18);
  286.           for (i = 1; i < gtot; i++) {
  287.               find(c1, sub1[i]);
  288.               if (x == -999.0) continue;
  289. ***************
  290. *** 178,190 ****
  291.       bot("Calculating the X axis max and min values...");
  292.   
  293.       if (xmin == -999) {
  294. !         find(c1, e->anum);
  295. !         xmax = xmin = x;
  296. !         for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  297. !             find(c1, tmp->anum);
  298. !             if (x == -999.0) continue;
  299. !             if (x > xmax) xmax = x;
  300. !             if (x < xmin) xmin = x;
  301.           }
  302.       }
  303.   
  304. --- 176,200 ----
  305.       bot("Calculating the X axis max and min values...");
  306.   
  307.       if (xmin == -999) {
  308. !         if (gtot > 0) {
  309. !             for (i = 1; i < gtot; i++) {
  310. !                 find(c1, sub1[i]);
  311. !                 if (x == -999.0) continue;
  312. !                 if (i == 1) xmax = xmin = x;
  313. !                 else {
  314. !                     if (x > xmax) xmax = x;
  315. !                     if (x < xmin) xmin = x;
  316. !                 }
  317. !             }
  318. !         } else {
  319. !             find(c1, e->anum);
  320. !             xmax = xmin = x;
  321. !             for (tmp = e; tmp->next != NULL; tmp = tmp->next) {
  322. !                 find(c1, tmp->anum);
  323. !                 if (x == -999.0) continue;
  324. !                 if (x > xmax) xmax = x;
  325. !                 if (x < xmin) xmin = x;
  326. !             }
  327.           }
  328.       }
  329.   
  330. diff -c3 Old/main.c New/main.c
  331. *** Old/main.c    Wed Mar 13 19:42:02 1991
  332. --- New/main.c    Wed Mar 13 21:24:11 1991
  333. ***************
  334. *** 93,99 ****
  335.           sleep(1);
  336.           unlink(LOCKFILE);
  337.       }
  338. ! next:    rebuild = 0;  closetext = 0; gtot = 0;
  339.   
  340.       initscr();            /* start curses */
  341.       hlp = NULL;            /* help screen init */
  342. --- 93,99 ----
  343.           sleep(1);
  344.           unlink(LOCKFILE);
  345.       }
  346. ! next:    rebuild = 0;  closetext = 0; eopage = 0;
  347.   
  348.       initscr();            /* start curses */
  349.       hlp = NULL;            /* help screen init */
  350. ***************
  351. *** 123,132 ****
  352.       mvaddstr(9, 28, "Periodic Table Data Base");
  353.       mvaddstr(10, 30, "Of the Known Elements");
  354.       standout();
  355. !     mvaddstr(15, 21, "Chemtab 2.01 incorporates online help");
  356.       mvaddstr(16, 13, "Answer with a question mark at any question for help.");
  357.       standend();
  358. !     mvaddstr(18, 18, "Version 2.01, January 7th, 1991 by Jim King");
  359.       mvaddstr(19, 16, "Developed at Lincoln-Sudbury Regional High School");
  360.       mvaddstr(20, 12, "(and) ReGIS package at Rochester Institute of Technology");
  361.       refresh();                /* Title page */
  362. --- 123,132 ----
  363.       mvaddstr(9, 28, "Periodic Table Data Base");
  364.       mvaddstr(10, 30, "Of the Known Elements");
  365.       standout();
  366. !     mvaddstr(15, 21, "Chemtab 2.02 incorporates online help");
  367.       mvaddstr(16, 13, "Answer with a question mark at any question for help.");
  368.       standend();
  369. !     mvaddstr(18, 18, "Version 2.02, March 13th, 1991 by Jim King");
  370.       mvaddstr(19, 16, "Developed at Lincoln-Sudbury Regional High School");
  371.       mvaddstr(20, 12, "(and) ReGIS package at Rochester Institute of Technology");
  372.       refresh();                /* Title page */
  373. ***************
  374. *** 195,201 ****
  375.               wmove(mn, i+1, 0);
  376.               wprintw(mn, "%d] %s", i, mopts[i]);
  377.           }    /* give me choices, then branch off */
  378. !         menu("Chemtab 2.01 MAIN MENU");
  379.   #ifdef    ReGIS
  380.           mvwaddstr(mn, 11, 0, "^R toggles ReGIS mode which is currently ");
  381.           wstandout(mn);
  382. --- 195,201 ----
  383.               wmove(mn, i+1, 0);
  384.               wprintw(mn, "%d] %s", i, mopts[i]);
  385.           }    /* give me choices, then branch off */
  386. !         menu("Chemtab 2.02 MAIN MENU");
  387.   #ifdef    ReGIS
  388.           mvwaddstr(mn, 11, 0, "^R toggles ReGIS mode which is currently ");
  389.           wstandout(mn);
  390. diff -c3 Old/online_help New/online_help
  391. *** Old/online_help    Wed Mar 13 19:42:02 1991
  392. --- New/online_help    Wed Mar 13 20:45:04 1991
  393. ***************
  394. *** 101,106 ****
  395. --- 101,112 ----
  396.   1000 celcius.  You would type in the number for
  397.   melting temperature here.
  398.   _
  399. +     Since you selected some characteristics
  400. + using main menu command #2, the graphing module
  401. + will only use these elements when graphing.  To
  402. + override this, select #15 (clear all characteristics)
  403. + in main menu command #2.  If this message does not
  404. + appear, then all the elements are being used.
  405.   _
  406.       The ReGIS commands can be printed on any DEC
  407.   LN03 compatible laserprinter, possibly others.  If
  408. diff -c3 Old/ptabl.c New/ptabl.c
  409. *** Old/ptabl.c    Wed Mar 13 19:42:05 1991
  410. --- New/ptabl.c    Wed Mar 13 21:10:55 1991
  411. ***************
  412. *** 42,48 ****
  413.   
  414.       wclear(mn); wrefresh(mn);
  415.       clear(); refresh();
  416. ! l16:    mvwaddstr(btm, 0, 0, "VT100 alternate graphic set (if yes, no transcript of this table) ");
  417.       wrefresh(btm);
  418.       cur = btm; xp = 65; yp = 0;
  419.       noecho(); crmode();
  420. --- 42,51 ----
  421.   
  422.       wclear(mn); wrefresh(mn);
  423.       clear(); refresh();
  424. ! l16:    if (trans)
  425. !         mvwaddstr(btm, 0, 0, "VT100 alternate graphic set (if yes, no transcript of this table) ");
  426. !     else
  427. !         mvwaddstr(btm, 0, 0, "VT100 alternate graphic set? ");
  428.       wrefresh(btm);
  429.       cur = btm; xp = 65; yp = 0;
  430.       noecho(); crmode();
  431. diff -c3 Old/scrmisc.c New/scrmisc.c
  432. *** Old/scrmisc.c    Wed Mar 13 19:42:07 1991
  433. --- New/scrmisc.c    Wed Mar 13 21:20:17 1991
  434. ***************
  435. *** 12,19 ****
  436.    * will USUALLY work for most print queues WITHOUT end-of-page form-feeding,
  437.    * meaning the print command doesn't care about upper and lower margins.  If
  438.    * so, a lower value may be needed. */
  439. ! #define    SPACING        4
  440.   
  441.   menu(str)
  442.   char    *str;
  443.   {
  444. --- 12,22 ----
  445.    * will USUALLY work for most print queues WITHOUT end-of-page form-feeding,
  446.    * meaning the print command doesn't care about upper and lower margins.  If
  447.    * so, a lower value may be needed. */
  448. ! #define    SPACING        2
  449.   
  450. + /* V2.02 uses a ^L to scroll to the end of page.. SPACING at 2 should work
  451. +  * peachy.. :> */
  452. +  
  453.   menu(str)
  454.   char    *str;
  455.   {
  456. ***************
  457. *** 120,125 ****
  458. --- 123,129 ----
  459.   {
  460.       char    c;
  461.       int    i, j, icn = 0;            /* Internal count */
  462. + 
  463.       if (!trans)
  464.           return(1);
  465.   
  466. ***************
  467. *** 170,177 ****
  468. --- 174,186 ----
  469.           }
  470.           fputc('\n', fp);
  471.       }
  472. +     ++eopage;
  473.       for (i = 0; i < SPACING-2; i++)
  474.           fputc('\n', fp);
  475. +     if (eopage == 2) {
  476. +         fputc('\014', fp);
  477. +         eopage = 0;
  478. +     }
  479.   
  480.       fflush(fp);
  481.       return(1);
  482. ***************
  483. *** 182,188 ****
  484.       clear(); refresh();
  485.   
  486.       standout();
  487. !     mvaddstr(0, 34, "Chemtab V2.01");
  488.       standend();
  489.       mvaddstr(2, 0, "Element data (text): ");
  490.       printw("%s", PERTABLE);
  491. --- 191,197 ----
  492.       clear(); refresh();
  493.   
  494.       standout();
  495. !     mvaddstr(0, 30, "Chemtab V2.02 (patch 1)");
  496.       standend();
  497.       mvaddstr(2, 0, "Element data (text): ");
  498.       printw("%s", PERTABLE);
  499. ***************
  500. *** 214,230 ****
  501.       mvaddstr(13, 0, "Printing is disabled.");
  502.   #endif    PRINTER
  503.   
  504.   #ifdef    TRANSCRIPT
  505. !     mvaddstr(14, 0, "User logs are kept in ");
  506.       printw("%s.", TRANSCRIPT);
  507.   #else
  508. !     mvaddstr(14, 0, "User logs are disabled.");
  509.   #endif    TRANSCRIPT
  510.   
  511.   #ifdef    ReGIS
  512. !     mvaddstr(15, 0, "ReGIS graphics module is installed.");
  513.   #else
  514. !     mvaddstr(15, 0, "ReGIS graphics module is not installed.");
  515.   #endif    ReGIS
  516.   
  517.       refresh();
  518. --- 223,245 ----
  519.       mvaddstr(13, 0, "Printing is disabled.");
  520.   #endif    PRINTER
  521.   
  522. + #ifdef    PRINTQ
  523. +     mvaddstr(14, 0, "User is prompted for a print queue.");
  524. + #else    PRINTQ
  525. +     mvaddstr(14, 0, "Print queue is coded into program.");
  526. + #endif    PRINTQ
  527. + 
  528.   #ifdef    TRANSCRIPT
  529. !     mvaddstr(15, 0, "User logs are kept in ");
  530.       printw("%s.", TRANSCRIPT);
  531.   #else
  532. !     mvaddstr(15, 0, "User logs are disabled.");
  533.   #endif    TRANSCRIPT
  534.   
  535.   #ifdef    ReGIS
  536. !     mvaddstr(16, 0, "ReGIS graphics module is installed.");
  537.   #else
  538. !     mvaddstr(16, 0, "ReGIS graphics module is not installed.");
  539.   #endif    ReGIS
  540.   
  541.       refresh();
  542. diff -c3 Old/tune.h New/tune.h
  543. *** Old/tune.h    Wed Mar 13 19:49:43 1991
  544. --- New/tune.h    Wed Mar 13 21:28:40 1991
  545. ***************
  546. *** 42,49 ****
  547.      with a ^Z if you do NOT want the program to stop, comment this out */
  548.   /* Obviously, this was not written on a SYSV system..  If you have SYSV
  549.      it is advised you comment this out */
  550. ! #define USERSHELL    "/bin/csh"
  551.   
  552.   /* PRINTER is the printer program or shell script you use to print on
  553.      the desired printer for Chemtab output.  Preferably, when using lpr,
  554.      you want to add the '-h' function to skip the header page. */
  555. --- 42,53 ----
  556.      with a ^Z if you do NOT want the program to stop, comment this out */
  557.   /* Obviously, this was not written on a SYSV system..  If you have SYSV
  558.      it is advised you comment this out */
  559. ! /*#define USERSHELL    "/bin/csh" */
  560.   
  561. + /* TRANSCRIPT is the path to the logfile which lists who uses the program.
  562. +               if it is not defined, then no log is made. */
  563. + #define TRANSCRIPT    "logfile"
  564. + 
  565.   /* PRINTER is the printer program or shell script you use to print on
  566.      the desired printer for Chemtab output.  Preferably, when using lpr,
  567.      you want to add the '-h' function to skip the header page. */
  568. ***************
  569. *** 57,68 ****
  570.      #define PRINTER    "lpr h -P"
  571.      #define PRINTQ
  572.   
  573. !    #define PRINTER    "prvms -q "
  574.      #define PRINTQ            note you need a space */
  575.   /* ------------------------------------------------------------- */
  576.   #define PRINTER        "prvms -q "
  577.   #define    PRINTQ
  578.   
  579. - /* TRANSCRIPT is the path to the logfile which lists who uses the program.
  580. -               if it is not defined, then no log is made. */
  581. - #define TRANSCRIPT    "logfile"
  582. --- 61,76 ----
  583.      #define PRINTER    "lpr h -P"
  584.      #define PRINTQ
  585.   
  586. !    #define PRINTER    "prvms -q " /* prvms looks for a space between args
  587.      #define PRINTQ            note you need a space */
  588. + 
  589. + /* Without printq, if you want to hardcode the queue into the program,
  590. +    do it like this:
  591. + 
  592. +    #define PRINTER    "lpr -h -Pprinter1" /* printer1 is the name of the
  593. +                            printer */
  594. + 
  595.   /* ------------------------------------------------------------- */
  596.   #define PRINTER        "prvms -q "
  597.   #define    PRINTQ
  598.   
  599. diff -c3 Old/variables.h New/variables.h
  600. *** Old/variables.h    Wed Mar 13 19:42:09 1991
  601. --- New/variables.h    Wed Mar 13 21:22:11 1991
  602. ***************
  603. *** 16,29 ****
  604.   #ifdef  ReGIS
  605.       regis,                /* regis on/off flag */
  606.   #endif     ReGIS
  607. - #ifdef    TRANSCRIPT
  608.       trans,                /* transcript flag */
  609. ! #endif  TRANSCRIPT
  610.       gtot;                /* total of sorted elements */
  611.   #ifdef    LASERPRT
  612.   FILE    *lsr;
  613.   #endif    LASERPRT
  614. ! FILE    *fp;                /* File pointer for the above flag */
  615.   
  616.   char    lnm[80];            /* User's last name for transcript */
  617.   
  618. --- 16,28 ----
  619.   #ifdef  ReGIS
  620.       regis,                /* regis on/off flag */
  621.   #endif     ReGIS
  622.       trans,                /* transcript flag */
  623. !     eopage,                /* end of page flag */
  624.       gtot;                /* total of sorted elements */
  625.   #ifdef    LASERPRT
  626.   FILE    *lsr;
  627.   #endif    LASERPRT
  628. ! FILE    *fp;                /* File pointer for the transcript */
  629.   
  630.   char    lnm[80];            /* User's last name for transcript */
  631.   
  632. diff -c3 Old/vdata.c New/vdata.c
  633. *** Old/vdata.c    Wed Mar 13 19:42:10 1991
  634. --- New/vdata.c    Wed Mar 13 21:24:49 1991
  635. ***************
  636. *** 160,167 ****
  637.               }
  638.               wrefresh(graph);
  639.           }
  640. -         spc();
  641.           capture(graph, 0, 1);
  642.           wclear(graph);
  643.       }
  644.       clear();
  645. --- 160,167 ----
  646.               }
  647.               wrefresh(graph);
  648.           }
  649.           capture(graph, 0, 1);
  650. +         spc();
  651.           wclear(graph);
  652.       }
  653.       clear();
  654. \End\Of\Shar\
  655. else
  656.   echo "will not over write ./patch01"
  657. fi
  658. if [ `wc -c ./patch01 | awk '{printf $1}'` -ne 17713 ]
  659. then
  660. echo `wc -c ./patch01 | awk '{print "Got " $1 ", Expected " 17713}'`
  661. fi
  662. if `test ! -s ./README.PATCH`
  663. then
  664. echo "writing ./README.PATCH"
  665. cat > ./README.PATCH << '\End\Of\Shar\'
  666.     This patch will bring the original, untouched version of Chemtab 2.01
  667. up to Chemtab 2.02.  This is officially patch #1.  It fixes a few things
  668. which previously went untested (oops..).  Please apply it as soon as you get
  669. it.
  670.  
  671.     Changes:
  672.  
  673.     TRANSCRIPT define can be removed without error messages
  674.     ReGIS define can be removed without error messages
  675.     Program will now prompt you on some questions according to #defines
  676.     Makefile modified - no longer a library (graphlib.a)
  677.  
  678.                             - Jim
  679.  
  680. (yes there are probably bound to be more patches.. but this is all I could
  681.  find.  You MAY have to tweak your Makefile to work for your system.)
  682.  
  683. \End\Of\Shar\
  684. else
  685.   echo "will not over write ./README.PATCH"
  686. fi
  687. if [ `wc -c ./README.PATCH | awk '{printf $1}'` -ne 630 ]
  688. then
  689. echo `wc -c ./README.PATCH | awk '{print "Got " $1 ", Expected " 630}'`
  690. fi
  691. echo "Finished archive 1 of 1"
  692. exit
  693.  
  694. exit 0 # Just in case...
  695.