home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume24 / chemtab / patch02 < prev    next >
Text File  |  1991-03-31  |  27KB  |  1,034 lines
  1. Subject:  v24i085:  Manipulate data on the chemical elements, Patch2
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 8391ad29 0564a674 c29a4a25 7931cb96
  5.  
  6. Submitted-by: "J.E. King" <jek5036@ultb.isc.rit.edu>
  7. Posting-number: Volume 24, Issue 85
  8. Archive-name: chemtab/patch2
  9.  
  10.     I recently received a little SYSV help from someone out on the
  11. net.  Unfortunately, I cannot get back to him.  Therefore, going upon
  12. what he says, I am sending you the patches to Chemtab to make it SYSV
  13. compatible.  I do not have a SYSV machine to test these on, so if you
  14. know someone who would do it for me, that would be great.  If you don't,
  15. then I guess you could just release the patch and pray for the best.
  16. >From what this guy said, only minor changes were it order.  So, you can
  17. put this at the top of your release:
  18.  
  19.     This patch will bring Chemtab 2.02 up to version 2.03.  Some
  20. of the things changed in this version are the following:
  21.  
  22.     SYSV compatibility
  23.     #defines can be commented out without errors
  24.     Job stopping now calls for a SIGSTOP, not a system("/bin/sh");
  25.  
  26.     Things you can expect to see later:
  27.  
  28.     Neat little options such as color saving for the ReGIS graphs.
  29.     Compatibility for more printers.
  30.     A better designed program, all around (V3). (#defines, etc)
  31.  
  32.                             - Jim
  33.  
  34. - cut here -- cut here -- cut here -- cut here -- cut here -- cut here --
  35. #!/bin/sh
  36. # to extract, remove the header and type "sh filename"
  37. if `test ! -s ./patch02`
  38. then
  39. echo "writing ./patch02"
  40. cat > ./patch02 << '\End\Of\Shar\'
  41. diff -c Chem202/Makefile Chem203/Makefile
  42. *** Chem202/Makefile    Thu Mar 21 09:07:14 1991
  43. --- Chem203/Makefile    Thu Mar 21 09:08:59 1991
  44. ***************
  45. *** 1,10 ****
  46.   #
  47. ! # Makefile for Chemtab, current version 2.02, Makefile version 1.1
  48.   # Makefile author: Jim King (jek5036@ultb.isc.rit.edu)
  49.   # Makefile additions: Jon Kamens (jik@pit-manager.mit.edu)
  50.   #
  51.   CC            = cc
  52. ! CFLAGS        = -O -DReGIS
  53.   # Define ReGIS if you want to program to prompt the user to answer y/n
  54.   # to the question of if they have a ReGIS compatible terminal
  55.   BINDIR        = .
  56. --- 1,11 ----
  57.   #
  58. ! # Makefile for Chemtab, current version 2.03, Makefile version 1.2
  59.   # Makefile author: Jim King (jek5036@ultb.isc.rit.edu)
  60.   # Makefile additions: Jon Kamens (jik@pit-manager.mit.edu)
  61. + # SYSV port diffs: Ronard Joe Record (rr@sco.com)
  62.   #
  63.   CC            = cc
  64. ! CFLAGS        = -O -DReGIS #-DSYSV
  65.   # Define ReGIS if you want to program to prompt the user to answer y/n
  66.   # to the question of if they have a ReGIS compatible terminal
  67.   BINDIR        = .
  68. diff -c Chem202/README Chem203/README
  69. *** Chem202/README    Thu Mar 21 09:07:15 1991
  70. --- Chem203/README    Thu Mar 21 09:09:00 1991
  71. ***************
  72. *** 31,33 ****
  73. --- 31,34 ----
  74.   Chemtab V2.01; (overlay from V1) written in C (1991) by Jim King
  75.                           (jek5036@ultb.isc.rit.edu)
  76.   Chemtab V2.02; (patch #1) with help from Jon Kamens (jik@pit-manager.mit.edu)
  77. + Chemtab V2.03; (patch #2) with help from Ronald Joe Record (rr@sco.com)
  78. diff -c Chem202/README.FIRST Chem203/README.FIRST
  79. *** Chem202/README.FIRST    Thu Mar 21 09:03:32 1991
  80. --- Chem203/README.FIRST    Thu Mar 21 09:09:01 1991
  81. ***************
  82. *** 12,23 ****
  83.   
  84.   How to setup Chemtab to work at your site..
  85.   
  86. - WARNING: Chemtab has only been tested under Ultrix 3.1 on a VAX 11/780,
  87. -      and a DEC 5810 RISC Ultrix 4.1 machine.  Chemtab, as is, will
  88. -      probably only work for BSD compatible systems.  SYSV compatibility
  89. -          is on it's way!  I promise!  Since chemtab uses curses, it should
  90. -      prove to be portable.
  91. - 
  92.   Any comments, suggestions, bugs can be reported to:
  93.       jek5036@ultb.isc.rit.edu (formerly pulsar@xait.xerox.com!lsrhs)
  94.   
  95. --- 12,17 ----
  96. ***************
  97. *** 39,44 ****
  98. --- 33,39 ----
  99.       element list (faster to read in)).  Please make this so.  I would
  100.       have incorporated it into the Makefile but some people would rather
  101.       make sure it worked for them...
  102. +     (The make install command should put these where they belong.)
  103.   
  104.   That SHOULD be the extent of it.. but don't quote me on that.  I am the
  105.   author, and I am not held responsible for any damage the program might cause,
  106. diff -c Chem202/README.PATCH Chem203/README.PATCH
  107. *** Chem202/README.PATCH    Thu Mar 21 09:04:19 1991
  108. --- Chem203/README.PATCH    Thu Mar 21 09:09:01 1991
  109. ***************
  110. *** 15,17 ****
  111. --- 15,21 ----
  112.   (yes there are probably bound to be more patches.. but this is all I could
  113.    find.  You MAY have to tweak your Makefile to work for your system.)
  114.   
  115. + ------------------------------------------------------------------------------
  116. +     Patch #2 will bring Chemtab 2.02 up to version 2.03.  Included are
  117. + SYSV defines only tested for SCO Unix (SYSV compatible).  If you encounter
  118. + any other problems, please send them to me.
  119. diff -c Chem202/VERSION Chem203/VERSION
  120. *** Chem202/VERSION    Thu Mar 21 09:07:15 1991
  121. --- Chem203/VERSION    Thu Mar 21 09:09:02 1991
  122. ***************
  123. *** 1,4 ****
  124. ! Currently, you have Chemtab Version 2.01, Patchlevel 0.
  125.   
  126.   Version History:
  127.   
  128. --- 1,4 ----
  129. ! Currently, you have Chemtab Version 2.03, Patchlevel 2.
  130.   
  131.   Version History:
  132.   
  133. ***************
  134. *** 32,34 ****
  135. --- 32,40 ----
  136.                           (jik@pit-manager.MIT.EDU)
  137.               Problems when undefining ReGIS and TRANSCRIPT fixed.
  138.               A couple of minor screen display changes.
  139. + 
  140. +     Chemtab V2.03    Patch to V2.02
  141. +             SYSV help from Ronald Joe Record (rr@sco.com)
  142. +             More #define problems fixed.
  143. +             ^Z does not call sh through a system call but
  144. +             rather saves terminal stats and issues a SIGSTOP.
  145. diff -c Chem202/cleanup.c Chem203/cleanup.c
  146. *** Chem202/cleanup.c    Thu Mar 21 09:07:15 1991
  147. --- Chem203/cleanup.c    Thu Mar 21 09:09:03 1991
  148. ***************
  149. *** 22,32 ****
  150.       char    c, str[80];            /* input */
  151.   #ifdef    PRINTQ
  152.       char    que[80];            /* print queue */
  153. ! #endif    PRINTQ
  154.   
  155.   #ifdef    ReGIS
  156.       if (regis) endregis();
  157. ! #endif    ReGIS
  158.       if (trans) {                /* transcript flag */
  159.   l1:        mvwaddstr(btm, 0, 0, "Would you like your transcript printed out? ");
  160.           wrefresh(btm);
  161. --- 22,33 ----
  162.       char    c, str[80];            /* input */
  163.   #ifdef    PRINTQ
  164.       char    que[80];            /* print queue */
  165. ! #endif    /* PRINTQ */
  166.   
  167.   #ifdef    ReGIS
  168.       if (regis) endregis();
  169. ! #endif    /* ReGIS */
  170. ! #ifdef    PRINTER
  171.       if (trans) {                /* transcript flag */
  172.   l1:        mvwaddstr(btm, 0, 0, "Would you like your transcript printed out? ");
  173.           wrefresh(btm);
  174. ***************
  175. *** 52,60 ****
  176.               cur = btm; xp = 21; yp = 0;
  177.               gets(que);
  178.               sprintf(str, "%s%s %d.chemtab", PRINTER, que, getpid());
  179. ! #else    PRINTQ
  180.               sprintf(str, "%s %d.chemtab", PRINTER, getpid());
  181. ! #endif    PRINTQ
  182.               fclose(fp);
  183.               wclear(btm);
  184.               wrefresh(btm);
  185. --- 53,61 ----
  186.               cur = btm; xp = 21; yp = 0;
  187.               gets(que);
  188.               sprintf(str, "%s%s %d.chemtab", PRINTER, que, getpid());
  189. ! #else    /* PRINTQ */
  190.               sprintf(str, "%s %d.chemtab", PRINTER, getpid());
  191. ! #endif    /* PRINTQ */
  192.               fclose(fp);
  193.               wclear(btm);
  194.               wrefresh(btm);
  195. ***************
  196. *** 62,67 ****
  197. --- 63,69 ----
  198.               system(str);
  199.           }
  200.       }
  201. + #endif    /* PRINTER */
  202.       fclose(fp);                /* close things up */
  203.       echo();
  204.       nocrmode();
  205. ***************
  206. *** 78,95 ****
  207.   #ifdef    USERSHELL
  208.   stop()    /* Handle a ^Z */
  209.   {
  210. -     char    sh[80];
  211. - 
  212. -     strcpy(sh, getenv("SHELL"));
  213. -     if (!strlen(sh))
  214. -         strcpy(sh, USERSHELL);
  215. - #ifdef    ReGIS
  216. -     if (regis) endregis();
  217. - #endif  ReGIS
  218.       clear(); refresh();
  219.       signal(SIGTSTP, SIG_DFL);
  220.       printf("Type 'exit' to return to chemtab...\n");
  221. !     system(sh);
  222.       clear(); refresh();
  223.       signal(SIGTSTP, stop);
  224.       if (needsit(stdscr)) { touchwin(stdscr); wrefresh(stdscr); }
  225. --- 80,91 ----
  226.   #ifdef    USERSHELL
  227.   stop()    /* Handle a ^Z */
  228.   {
  229.       clear(); refresh();
  230.       signal(SIGTSTP, SIG_DFL);
  231.       printf("Type 'exit' to return to chemtab...\n");
  232. !     gtty(0, &new);
  233. !     kill(getpid(), SIGSTOP);    /* stop the program */
  234. !     stty(0, &orig);
  235.       clear(); refresh();
  236.       signal(SIGTSTP, stop);
  237.       if (needsit(stdscr)) { touchwin(stdscr); wrefresh(stdscr); }
  238. ***************
  239. *** 102,105 ****
  240.       wrefresh(mn);
  241.       crmode();
  242.   }
  243. ! #endif    USERSHELL
  244. --- 98,101 ----
  245.       wrefresh(mn);
  246.       crmode();
  247.   }
  248. ! #endif    /* USERSHELL */
  249. diff -c Chem202/dogph.c Chem203/dogph.c
  250. *** Chem202/dogph.c    Thu Mar 21 09:07:16 1991
  251. --- Chem203/dogph.c    Thu Mar 21 09:13:34 1991
  252. ***************
  253. *** 128,134 ****
  254. --- 128,138 ----
  255.       wrefresh(mn);
  256.       cur = mn; xp = 24; yp = 13;
  257.       echo(); nocrmode();
  258. + #ifdef    SYSV
  259. +     wgetstr(mn, str);
  260. + #else   /* SYSV */
  261.       gets(str);
  262. + #endif  /* SYSV */
  263.       if (str[0] == '?') { help(4); goto l4; }
  264.       if (!strlen(str)) {
  265.           xmin = -999;
  266. ***************
  267. *** 140,146 ****
  268. --- 144,154 ----
  269.       wrefresh(mn);
  270.       cur = mn; xp = 48; yp = 13;
  271.       echo(); nocrmode();
  272. + #ifdef    SYSV
  273. +     wgetstr(mn, str);
  274. + #else   /* SYSV */
  275.       gets(str);
  276. + #endif  /* SYSV */
  277.       if (strlen(str))
  278.           xmax = atof(str);
  279.       fixup(mn);
  280. diff -c Chem202/doregisgph.c Chem203/doregisgph.c
  281. *** Chem202/doregisgph.c    Thu Mar 21 09:07:16 1991
  282. --- Chem203/doregisgph.c    Thu Mar 21 09:09:06 1991
  283. ***************
  284. *** 68,74 ****
  285.       
  286.   #ifdef    USERSHELL
  287.       signal(SIGTSTP, SIG_IGN);
  288. ! #endif    USERSHELL
  289.   
  290.       for (i = 0; i < XAXISDEF; i++)
  291.           xaxis[i] = 0;
  292. --- 68,74 ----
  293.       
  294.   #ifdef    USERSHELL
  295.       signal(SIGTSTP, SIG_IGN);
  296. ! #endif    /* USERSHELL */
  297.   
  298.       for (i = 0; i < XAXISDEF; i++)
  299.           xaxis[i] = 0;
  300. ***************
  301. *** 102,108 ****
  302.       if (c1 == '\n') {
  303.   #ifdef    USERSHELL
  304.           signal(SIGTSTP, stop);
  305. ! #endif    USERSHELL
  306.           wclear(mn);
  307.           return;
  308.       }
  309. --- 102,108 ----
  310.       if (c1 == '\n') {
  311.   #ifdef    USERSHELL
  312.           signal(SIGTSTP, stop);
  313. ! #endif    /* USERSHELL */
  314.           wclear(mn);
  315.           return;
  316.       }
  317. ***************
  318. *** 141,147 ****
  319. --- 141,151 ----
  320.       wrefresh(mn);
  321.       cur = mn; xp = 23; yp = 13;
  322.       echo(); nocrmode();
  323. + #ifdef    SYSV
  324. +     wgetstr(mn, str);
  325. + #else    /* SYSV */
  326.       gets(str);
  327. + #endif    /* SYSV */
  328.       if (str[0] == '?') { help(4); goto rl4; }
  329.       if (!strlen(str)) {
  330.           xmin = -999;
  331. ***************
  332. *** 153,159 ****
  333. --- 157,167 ----
  334.       wrefresh(mn);
  335.       cur = mn; xp = 49; yp = 13;
  336.       echo(); nocrmode();
  337. + #ifdef    SYSV
  338. +     wgetstr(mn, str);
  339. + #else    /* SYSV */
  340.       gets(str);
  341. + #endif    /* SYSV */
  342.       if (strlen(str))
  343.           xmax = atof(str);
  344.       fixup(mn);
  345. ***************
  346. *** 289,295 ****
  347.           bot("A copy will be found in the file 'laser' when you exit chemtab.");
  348.           sleep(2);
  349.       }
  350. ! #endif    LASERPRT
  351.       bot("Initializing for graphics...");
  352.       wclear(mn); wrefresh(mn);
  353.       wclear(btm); wrefresh(btm);
  354. --- 297,303 ----
  355.           bot("A copy will be found in the file 'laser' when you exit chemtab.");
  356.           sleep(2);
  357.       }
  358. ! #endif    /* LASERPRT */
  359.       bot("Initializing for graphics...");
  360.       wclear(mn); wrefresh(mn);
  361.       wclear(btm); wrefresh(btm);
  362. ***************
  363. *** 298,304 ****
  364.       initregis();
  365.       regisgoto(450, 10);
  366.       chcolor(RED_3);
  367. !     text(3, 0, -5, "Chemtab V2.01");
  368.       regisgoto(400 - (strlen(gname[numr(c1)]) * 10), YMAXDEF + 20);
  369.       text(2, 0, 0, gname[numr(c1)]);
  370.       regisgoto(YMINDEF - 46, 200 + (strlen(gname[numr(c2)]) * 10));
  371. --- 306,312 ----
  372.       initregis();
  373.       regisgoto(450, 10);
  374.       chcolor(RED_3);
  375. !     text(3, 0, -5, "Chemtab V2.03");
  376.       regisgoto(400 - (strlen(gname[numr(c1)]) * 10), YMAXDEF + 20);
  377.       text(2, 0, 0, gname[numr(c1)]);
  378.       regisgoto(YMINDEF - 46, 200 + (strlen(gname[numr(c2)]) * 10));
  379. ***************
  380. *** 426,437 ****
  381.   #ifdef    LASERPRT
  382.       if (laser)
  383.           fclose(lsr);
  384. ! #endif    LASERPRT
  385.       clear(); refresh();
  386.       wclear(graph); wrefresh(graph);
  387.   #ifdef    USERSHELL
  388.       signal(SIGTSTP, stop);
  389. ! #endif    USERSHELL
  390.       return(0);
  391. ! #endif ReGIS
  392.   }
  393. --- 434,445 ----
  394.   #ifdef    LASERPRT
  395.       if (laser)
  396.           fclose(lsr);
  397. ! #endif    /* LASERPRT */
  398.       clear(); refresh();
  399.       wclear(graph); wrefresh(graph);
  400.   #ifdef    USERSHELL
  401.       signal(SIGTSTP, stop);
  402. ! #endif    /* USERSHELL */
  403.       return(0);
  404. ! #endif /* ReGIS */
  405.   }
  406. diff -c Chem202/element.c Chem203/element.c
  407. *** Chem202/element.c    Thu Mar 21 09:03:24 1991
  408. --- Chem203/element.c    Thu Mar 21 09:09:07 1991
  409. ***************
  410. *** 94,97 ****
  411.       
  412.       fclose(fp);
  413.   }
  414. - 
  415. --- 94,96 ----
  416. diff -c Chem202/graph.h Chem203/graph.h
  417. *** Chem202/graph.h    Thu Mar 21 09:03:28 1991
  418. --- Chem203/graph.h    Thu Mar 21 09:09:11 1991
  419. ***************
  420. *** 40,46 ****
  421.   #define RED_3    2
  422.   #define BLU_3    1
  423.   #define BLK_3    0
  424. ! #endif    ReGIS
  425.   
  426.   double    xmax,        /* X axis maximum value */
  427.       xmin,        /* X axis minimum value */
  428. --- 40,46 ----
  429.   #define RED_3    2
  430.   #define BLU_3    1
  431.   #define BLK_3    0
  432. ! #endif    /* ReGIS */
  433.   
  434.   double    xmax,        /* X axis maximum value */
  435.       xmin,        /* X axis minimum value */
  436. diff -c Chem202/graphlib.c Chem203/graphlib.c
  437. *** Chem202/graphlib.c    Thu Mar 21 09:03:29 1991
  438. --- Chem203/graphlib.c    Thu Mar 21 09:09:11 1991
  439. ***************
  440. *** 2,8 ****
  441. --- 2,14 ----
  442.   
  443.   #include <stdio.h>
  444.   #include <curses.h>
  445. + 
  446. + #ifdef    SYSV
  447. + #include <string.h>
  448. + #else    /* SYSV */
  449.   #include <strings.h>
  450. + #endif    /* SYSV */
  451. + 
  452.   #include "variables.h"
  453.   #include "element.h"
  454.   #include "graph.h"
  455. ***************
  456. *** 42,48 ****
  457.   #ifdef    LASERPRT
  458.       if (laser)
  459.           fprintf(lsr, "\033Pp");
  460. ! #endif    LASERPRT
  461.       chcolor(6);
  462.   }
  463.   
  464. --- 48,54 ----
  465.   #ifdef    LASERPRT
  466.       if (laser)
  467.           fprintf(lsr, "\033Pp");
  468. ! #endif    /* LASERPRT */
  469.       chcolor(6);
  470.   }
  471.   
  472. ***************
  473. *** 51,57 ****
  474.   #ifdef    LASERPRT
  475.       if (laser)
  476.           fprintf(lsr, "\033\\");
  477. ! #endif    LASERPRT
  478.       printf("\033\\"); 
  479.   }
  480.   
  481. --- 57,63 ----
  482.   #ifdef    LASERPRT
  483.       if (laser)
  484.           fprintf(lsr, "\033\\");
  485. ! #endif    /* LASERPRT */
  486.       printf("\033\\"); 
  487.   }
  488.   
  489. ***************
  490. *** 61,67 ****
  491.   #ifdef    LASERPRT
  492.       if (laser)
  493.           fprintf(lsr, "P[%d,%d]", x, y);
  494. ! #endif    LASERPRT
  495.       printf("P[%d,%d]", x, y);
  496.   }
  497.   
  498. --- 67,73 ----
  499.   #ifdef    LASERPRT
  500.       if (laser)
  501.           fprintf(lsr, "P[%d,%d]", x, y);
  502. ! #endif    /* LASERPRT */
  503.       printf("P[%d,%d]", x, y);
  504.   }
  505.   
  506. ***************
  507. *** 73,79 ****
  508.   #ifdef    LASERPRT
  509.       if (laser)
  510.           fprintf(lsr, "V[%d,%d]", x2, y2);
  511. ! #endif    LASERPRT
  512.       }
  513.   
  514.   mybox(width, x1, y1, x2, y2)
  515. --- 79,85 ----
  516.   #ifdef    LASERPRT
  517.       if (laser)
  518.           fprintf(lsr, "V[%d,%d]", x2, y2);
  519. ! #endif    /* LASERPRT */
  520.       }
  521.   
  522.   mybox(width, x1, y1, x2, y2)
  523. ***************
  524. *** 98,104 ****
  525.   #ifdef    LASERPRT
  526.           if (laser)
  527.               fprintf(lsr, "W(S1)C[+2]W(S0)");
  528. ! #endif    LASERPRT
  529.       } else {
  530.           line(x1, y1-2, x1, y1+2);
  531.           line(x1-2, y1, x1+2, y1);
  532. --- 104,110 ----
  533.   #ifdef    LASERPRT
  534.           if (laser)
  535.               fprintf(lsr, "W(S1)C[+2]W(S0)");
  536. ! #endif    /* LASERPRT */
  537.       } else {
  538.           line(x1, y1-2, x1, y1+2);
  539.           line(x1-2, y1, x1+2, y1);
  540. ***************
  541. *** 115,121 ****
  542.   #ifdef    LASERPRT
  543.       if (laser)
  544.           fprintf(lsr, "T(D%d)(S%d)(D%d)(I%d)'%s'", dir, size, dir, angle, string);
  545. ! #endif    LASERPRT
  546.   }
  547.   
  548.   regispc()
  549. --- 121,127 ----
  550.   #ifdef    LASERPRT
  551.       if (laser)
  552.           fprintf(lsr, "T(D%d)(S%d)(D%d)(I%d)'%s'", dir, size, dir, angle, string);
  553. ! #endif    /* LASERPRT */
  554.   }
  555.   
  556.   regispc()
  557. ***************
  558. *** 127,130 ****
  559.       getchar();
  560.       echo(); nocrmode();
  561.   }
  562. ! #endif    ReGIS
  563. --- 133,136 ----
  564.       getchar();
  565.       echo(); nocrmode();
  566.   }
  567. ! #endif    /* ReGIS */
  568. diff -c Chem202/looke.c Chem203/looke.c
  569. *** Chem202/looke.c    Thu Mar 21 09:03:30 1991
  570. --- Chem203/looke.c    Thu Mar 21 09:09:12 1991
  571. ***************
  572. *** 50,56 ****
  573. --- 50,60 ----
  574.       char    input[80];
  575.       int    i;
  576.   
  577. + #ifdef    SYSV
  578. +     wgetstr(mn, input);
  579. + #else    /* SYSV */
  580.       gets(input);
  581. + #endif    /* SYSV */
  582.       for (i = 0; i < strlen(input); i++)
  583.           input[i] = tolower(input[i]);
  584.   
  585. ***************
  586. *** 199,205 ****
  587. --- 203,213 ----
  588.           cur = mn; xp = 17; yp = 11;
  589.           echo();
  590.           nocrmode();
  591. + #ifdef    SYSV
  592. +         wgetstr(mn, srch);
  593. + #else    /* SYSV */
  594.           gets(srch);
  595. + #endif    /* SYSV */
  596.           if (srch[0] == '?') { help(11); goto l11; }
  597.           if (atoi(srch) < 1) looke();
  598.       }
  599. ***************
  600. *** 212,218 ****
  601. --- 220,230 ----
  602.           cur = mn; xp = 17; yp = 11;
  603.           echo();
  604.           nocrmode();
  605. + #ifdef    SYSV
  606. +         wgetstr(mn, srch);
  607. + #else    /* SYSV */
  608.           gets(srch);
  609. + #endif    /* SYSV */
  610.           if (srch[0] == '?') { help(12); goto l12; }
  611.       }
  612.       
  613. diff -c Chem202/main.c Chem203/main.c
  614. *** Chem202/main.c    Thu Mar 21 09:08:00 1991
  615. --- Chem203/main.c    Thu Mar 21 09:09:13 1991
  616. ***************
  617. *** 54,61 ****
  618.           sleep(2);
  619.       }
  620.   
  621. ! #endif ReGIS
  622.   
  623.       if (stat(PERTABLE, f1) == -1) {
  624.           printf("Element data (text) is unavailable.\n");
  625.           exit(1);
  626. --- 54,65 ----
  627.           sleep(2);
  628.       }
  629.   
  630. ! #endif /* ReGIS */
  631.   
  632. + #ifdef    USERSHELL
  633. +     gtty(0, &orig);
  634. + #endif    /* USERSHELL */
  635. + 
  636.       if (stat(PERTABLE, f1) == -1) {
  637.           printf("Element data (text) is unavailable.\n");
  638.           exit(1);
  639. ***************
  640. *** 93,99 ****
  641.           sleep(1);
  642.           unlink(LOCKFILE);
  643.       }
  644. ! next:    rebuild = 0;  closetext = 0;
  645.   
  646.       initscr();            /* start curses */
  647.       hlp = NULL;            /* help screen init */
  648. --- 97,103 ----
  649.           sleep(1);
  650.           unlink(LOCKFILE);
  651.       }
  652. ! next:    rebuild = 0;  closetext = 0; eopage = 0;
  653.   
  654.       initscr();            /* start curses */
  655.       hlp = NULL;            /* help screen init */
  656. ***************
  657. *** 116,122 ****
  658.           sleep(5);
  659.           cleanup();
  660.       }
  661. ! #endif    TRANSCRIPT
  662.   
  663.       clear();
  664.       mvaddstr(5, 37, "Chemtab");
  665. --- 120,126 ----
  666.           sleep(5);
  667.           cleanup();
  668.       }
  669. ! #endif    /* TRANSCRIPT */
  670.   
  671.       clear();
  672.       mvaddstr(5, 37, "Chemtab");
  673. ***************
  674. *** 123,132 ****
  675.       mvaddstr(9, 28, "Periodic Table Data Base");
  676.       mvaddstr(10, 30, "Of the Known Elements");
  677.       standout();
  678. !     mvaddstr(15, 21, "Chemtab 2.02 incorporates online help");
  679.       mvaddstr(16, 13, "Answer with a question mark at any question for help.");
  680.       standend();
  681. !     mvaddstr(18, 18, "Version 2.02, March 13th, 1991 by Jim King");
  682.       mvaddstr(19, 16, "Developed at Lincoln-Sudbury Regional High School");
  683.       mvaddstr(20, 12, "(and) ReGIS package at Rochester Institute of Technology");
  684.       refresh();                /* Title page */
  685. --- 127,136 ----
  686.       mvaddstr(9, 28, "Periodic Table Data Base");
  687.       mvaddstr(10, 30, "Of the Known Elements");
  688.       standout();
  689. !     mvaddstr(15, 21, "Chemtab 2.03 incorporates online help");
  690.       mvaddstr(16, 13, "Answer with a question mark at any question for help.");
  691.       standend();
  692. !     mvaddstr(18, 18, "Version 2.03, March 19th, 1991 by Jim King");
  693.       mvaddstr(19, 16, "Developed at Lincoln-Sudbury Regional High School");
  694.       mvaddstr(20, 12, "(and) ReGIS package at Rochester Institute of Technology");
  695.       refresh();                /* Title page */
  696. ***************
  697. *** 176,184 ****
  698.       signal(SIGINT, cleanup);
  699.   #ifdef    USERSHELL
  700.       signal(SIGTSTP, stop);
  701. ! #else    USERSHELL
  702.       signal(SIGTSTP, SIG_IGN);
  703. ! #endif    USERSHELL
  704.       signal(SIGQUIT, SIG_IGN);
  705.       signal(SIGTERM, cleanup);
  706.       
  707. --- 180,188 ----
  708.       signal(SIGINT, cleanup);
  709.   #ifdef    USERSHELL
  710.       signal(SIGTSTP, stop);
  711. ! #else    /* USERSHELL */
  712.       signal(SIGTSTP, SIG_IGN);
  713. ! #endif    /* USERSHELL */
  714.       signal(SIGQUIT, SIG_IGN);
  715.       signal(SIGTERM, cleanup);
  716.       
  717. ***************
  718. *** 195,207 ****
  719.               wmove(mn, i+1, 0);
  720.               wprintw(mn, "%d] %s", i, mopts[i]);
  721.           }    /* give me choices, then branch off */
  722. !         menu("Chemtab 2.02 MAIN MENU");
  723.   #ifdef    ReGIS
  724.           mvwaddstr(mn, 11, 0, "^R toggles ReGIS mode which is currently ");
  725.           wstandout(mn);
  726.           wprintw(mn, "%s", regis ? "on." : "off");
  727.           wstandend(mn);
  728. ! #endif    ReGIS
  729.   loop:        mvwaddstr(mn, 9, 0, "Your choice? ");
  730.           wclrtoeol(mn);
  731.           wrefresh(mn);
  732. --- 199,211 ----
  733.               wmove(mn, i+1, 0);
  734.               wprintw(mn, "%d] %s", i, mopts[i]);
  735.           }    /* give me choices, then branch off */
  736. !         menu("Chemtab 2.03 MAIN MENU");
  737.   #ifdef    ReGIS
  738.           mvwaddstr(mn, 11, 0, "^R toggles ReGIS mode which is currently ");
  739.           wstandout(mn);
  740.           wprintw(mn, "%s", regis ? "on." : "off");
  741.           wstandend(mn);
  742. ! #endif    /* ReGIS */
  743.   loop:        mvwaddstr(mn, 9, 0, "Your choice? ");
  744.           wclrtoeol(mn);
  745.           wrefresh(mn);
  746. ***************
  747. *** 217,225 ****
  748.   #ifdef ReGIS
  749.               case '5': wclear(mn); wclear(srt); if (regis) doregisgph(); else dogph(); break;
  750.               case '\022': /* ^R */ if (regis) regis = 0; else regis = 1; break;
  751. ! #else ReGIS
  752.               case '5': wclear(mn); wclear(srt); dogph(); break; /* Do a graph for us..... */
  753. ! #endif ReGIS
  754.               case '6': cleanup(); break; /* Exit */
  755.               case '\026': /* ^V */ version(); break;
  756.               default: goto loop;
  757. --- 221,229 ----
  758.   #ifdef ReGIS
  759.               case '5': wclear(mn); wclear(srt); if (regis) doregisgph(); else dogph(); break;
  760.               case '\022': /* ^R */ if (regis) regis = 0; else regis = 1; break;
  761. ! #else /* ReGIS */
  762.               case '5': wclear(mn); wclear(srt); dogph(); break; /* Do a graph for us..... */
  763. ! #endif /* ReGIS */
  764.               case '6': cleanup(); break; /* Exit */
  765.               case '\026': /* ^V */ version(); break;
  766.               default: goto loop;
  767. diff -c Chem202/ptabl.c Chem203/ptabl.c
  768. *** Chem202/ptabl.c    Thu Mar 21 09:07:18 1991
  769. --- Chem203/ptabl.c    Thu Mar 21 09:09:16 1991
  770. ***************
  771. *** 55,61 ****
  772.           case 'Y':
  773.   #ifdef    USERSHELL
  774.               signal(SIGTSTP, SIG_IGN);
  775. ! #endif    USERSHELL
  776.               strcat(foo, "_graphic"); ics = 1; break;
  777.           default: ics = 0; break;
  778.       }
  779. --- 55,61 ----
  780.           case 'Y':
  781.   #ifdef    USERSHELL
  782.               signal(SIGTSTP, SIG_IGN);
  783. ! #endif    /* USERSHELL */
  784.               strcat(foo, "_graphic"); ics = 1; break;
  785.           default: ics = 0; break;
  786.       }
  787. ***************
  788. *** 107,112 ****
  789.       refresh();
  790.   #ifdef    USERSHELL
  791.       signal(SIGTSTP, stop);
  792. ! #endif    USERSHELL
  793.       return(0);
  794.   }
  795. --- 107,112 ----
  796.       refresh();
  797.   #ifdef    USERSHELL
  798.       signal(SIGTSTP, stop);
  799. ! #endif    /* USERSHELL */
  800.       return(0);
  801.   }
  802. diff -c Chem202/scrmisc.c Chem203/scrmisc.c
  803. *** Chem202/scrmisc.c    Thu Mar 21 09:07:18 1991
  804. --- Chem203/scrmisc.c    Thu Mar 21 09:09:18 1991
  805. ***************
  806. *** 12,22 ****
  807.    * will USUALLY work for most print queues WITHOUT end-of-page form-feeding,
  808.    * meaning the print command doesn't care about upper and lower margins.  If
  809.    * so, a lower value may be needed. */
  810.   #define    SPACING        2
  811.   
  812. - /* V2.02 uses a ^L to scroll to the end of page.. SPACING at 2 should work
  813. -  * peachy.. :> */
  814. -  
  815.   menu(str)
  816.   char    *str;
  817.   {
  818. --- 12,22 ----
  819.    * will USUALLY work for most print queues WITHOUT end-of-page form-feeding,
  820.    * meaning the print command doesn't care about upper and lower margins.  If
  821.    * so, a lower value may be needed. */
  822. + /* V2.03 uses a ^L to scroll to the end of page.. SPACING at 2 should work
  823. +  * peachy.. :> - Jim */
  824. +  
  825.   #define    SPACING        2
  826.   
  827.   menu(str)
  828.   char    *str;
  829.   {
  830. ***************
  831. *** 191,197 ****
  832.       clear(); refresh();
  833.   
  834.       standout();
  835. !     mvaddstr(0, 30, "Chemtab V2.02 (patch 1)");
  836.       standend();
  837.       mvaddstr(2, 0, "Element data (text): ");
  838.       printw("%s", PERTABLE);
  839. --- 191,197 ----
  840.       clear(); refresh();
  841.   
  842.       standout();
  843. !     mvaddstr(0, 30, "Chemtab V2.03 (patch 2)");
  844.       standend();
  845.       mvaddstr(2, 0, "Element data (text): ");
  846.       printw("%s", PERTABLE);
  847. ***************
  848. *** 213,219 ****
  849.       mvaddstr(12, 0, "Job stopping is enabled.");
  850.   #else
  851.       mvaddstr(12, 0, "Job stopping is disabled.");
  852. ! #endif    USERSHELL
  853.   
  854.   #ifdef    PRINTER
  855.       mvaddstr(13, 0, "Printing is enabled through the ");
  856. --- 213,219 ----
  857.       mvaddstr(12, 0, "Job stopping is enabled.");
  858.   #else
  859.       mvaddstr(12, 0, "Job stopping is disabled.");
  860. ! #endif    /* USERSHELL */
  861.   
  862.   #ifdef    PRINTER
  863.       mvaddstr(13, 0, "Printing is enabled through the ");
  864. ***************
  865. *** 221,233 ****
  866.       printw("command.");
  867.   #else
  868.       mvaddstr(13, 0, "Printing is disabled.");
  869. ! #endif    PRINTER
  870.   
  871.   #ifdef    PRINTQ
  872.       mvaddstr(14, 0, "User is prompted for a print queue.");
  873. ! #else    PRINTQ
  874.       mvaddstr(14, 0, "Print queue is coded into program.");
  875. ! #endif    PRINTQ
  876.   
  877.   #ifdef    TRANSCRIPT
  878.       mvaddstr(15, 0, "User logs are kept in ");
  879. --- 221,233 ----
  880.       printw("command.");
  881.   #else
  882.       mvaddstr(13, 0, "Printing is disabled.");
  883. ! #endif    /* PRINTER */
  884.   
  885.   #ifdef    PRINTQ
  886.       mvaddstr(14, 0, "User is prompted for a print queue.");
  887. ! #else
  888.       mvaddstr(14, 0, "Print queue is coded into program.");
  889. ! #endif    /* PRINTQ */
  890.   
  891.   #ifdef    TRANSCRIPT
  892.       mvaddstr(15, 0, "User logs are kept in ");
  893. ***************
  894. *** 234,246 ****
  895.       printw("%s.", TRANSCRIPT);
  896.   #else
  897.       mvaddstr(15, 0, "User logs are disabled.");
  898. ! #endif    TRANSCRIPT
  899.   
  900.   #ifdef    ReGIS
  901.       mvaddstr(16, 0, "ReGIS graphics module is installed.");
  902.   #else
  903.       mvaddstr(16, 0, "ReGIS graphics module is not installed.");
  904. ! #endif    ReGIS
  905.   
  906.       refresh();
  907.       spc();
  908. --- 234,246 ----
  909.       printw("%s.", TRANSCRIPT);
  910.   #else
  911.       mvaddstr(15, 0, "User logs are disabled.");
  912. ! #endif    /* TRANSCRIPT */
  913.   
  914.   #ifdef    ReGIS
  915.       mvaddstr(16, 0, "ReGIS graphics module is installed.");
  916.   #else
  917.       mvaddstr(16, 0, "ReGIS graphics module is not installed.");
  918. ! #endif    /* ReGIS */
  919.   
  920.       refresh();
  921.       spc();
  922. diff -c Chem202/tune.h Chem203/tune.h
  923. *** Chem202/tune.h    Thu Mar 21 09:07:18 1991
  924. --- Chem203/tune.h    Thu Mar 21 09:17:03 1991
  925. ***************
  926. *** 42,48 ****
  927.      with a ^Z if you do NOT want the program to stop, comment this out */
  928.   /* Obviously, this was not written on a SYSV system..  If you have SYSV
  929.      it is advised you comment this out */
  930. ! /*#define USERSHELL    "/bin/csh" */
  931.   
  932.   /* TRANSCRIPT is the path to the logfile which lists who uses the program.
  933.                 if it is not defined, then no log is made. */
  934. --- 42,48 ----
  935.      with a ^Z if you do NOT want the program to stop, comment this out */
  936.   /* Obviously, this was not written on a SYSV system..  If you have SYSV
  937.      it is advised you comment this out */
  938. ! #define USERSHELL    "/bin/csh"
  939.   
  940.   /* TRANSCRIPT is the path to the logfile which lists who uses the program.
  941.                 if it is not defined, then no log is made. */
  942. ***************
  943. *** 71,76 ****
  944.                              printer */
  945.   
  946.   /* ------------------------------------------------------------- */
  947. ! #define PRINTER        "prvms -q "
  948.   #define    PRINTQ
  949.   
  950. --- 71,81 ----
  951.                              printer */
  952.   
  953.   /* ------------------------------------------------------------- */
  954. ! #define PRINTER        "lpr -h -Pprinter_name"
  955.   #define    PRINTQ
  956.   
  957. + /* don't touch! */
  958. + 
  959. + #ifdef    SYSV
  960. + #undef    USERSHELL
  961. + #endif  /* SYSV */
  962. diff -c Chem202/variables.h Chem203/variables.h
  963. *** Chem202/variables.h    Thu Mar 21 09:07:19 1991
  964. --- Chem203/variables.h    Thu Mar 21 09:09:20 1991
  965. ***************
  966. *** 4,9 ****
  967. --- 4,10 ----
  968.    * variables.h    Include file - basically a global file
  969.    */
  970.   
  971. + #include <sgtty.h>            /* gtty and stty calls */
  972.   #include <stdio.h>
  973.   #include "tune.h"
  974.   
  975. ***************
  976. *** 12,28 ****
  977.       xp, yp,                /* Stop job handling */
  978.   #ifdef    LASERPRT
  979.       laser,                /* Laser print? */
  980. ! #endif    LASERPRT
  981.   #ifdef  ReGIS
  982.       regis,                /* regis on/off flag */
  983. ! #endif     ReGIS
  984.       trans,                /* transcript flag */
  985.       eopage,                /* end of page flag */
  986.       gtot;                /* total of sorted elements */
  987.   #ifdef    LASERPRT
  988.   FILE    *lsr;
  989. ! #endif    LASERPRT
  990.   FILE    *fp;                /* File pointer for the transcript */
  991.   
  992.   char    lnm[80];            /* User's last name for transcript */
  993.   
  994. --- 13,33 ----
  995.       xp, yp,                /* Stop job handling */
  996.   #ifdef    LASERPRT
  997.       laser,                /* Laser print? */
  998. ! #endif    /* LASERPRT */
  999.   #ifdef  ReGIS
  1000.       regis,                /* regis on/off flag */
  1001. ! #endif     /* ReGIS */
  1002.       trans,                /* transcript flag */
  1003.       eopage,                /* end of page flag */
  1004.       gtot;                /* total of sorted elements */
  1005.   #ifdef    LASERPRT
  1006.   FILE    *lsr;
  1007. ! #endif    /* LASERPRT */
  1008.   FILE    *fp;                /* File pointer for the transcript */
  1009. + 
  1010. + #ifdef    USERSHELL
  1011. + struct    sgttyb    orig, new;
  1012. + #endif    /* USERSHELL */
  1013.   
  1014.   char    lnm[80];            /* User's last name for transcript */
  1015.   
  1016. \End\Of\Shar\
  1017. else
  1018.   echo "will not over write ./patch02"
  1019. fi
  1020. if `test ! -s ./patchlevel.h`
  1021. then
  1022. echo "writing ./patchlevel.h"
  1023. cat > ./patchlevel.h << '\End\Of\Shar\'
  1024. #define    VERSION        2.03
  1025. #define    PATCHLEVEL    2
  1026. \End\Of\Shar\
  1027. else
  1028.   echo "will not over write ./patchlevel.h"
  1029. fi
  1030. echo "Finished archive 1 of 1"
  1031. exit
  1032.  
  1033. exit 0 # Just in case...
  1034.