home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / biz / misc / asc.lha / ASC / pch620-621 < prev    next >
Encoding:
Text File  |  1992-05-11  |  39.4 KB  |  1,406 lines
  1. *** ../620/CHANGES    Thu May  7 16:22:07 1992
  2. --- CHANGES    Fri May  8 12:31:13 1992
  3. ***************
  4. *** 1,10 ****
  5. ! CHANGES BETWEEN 6.20 and 6.19
  6.   Mark R. Rubin
  7.       -noted a problem using bison 1.16 (use any version but 1.16)
  8.   Marco S Hyman/Ian */and others
  9.       -Crypt/CRYPT_PATH define problem
  10.   Paul Eggert
  11. !     -sc.doc $Revision: 6.20 $ 'buglet'
  12.   Ulf Noren/Dave Lewis
  13.       -AIX3.1/Microport System V/AT don't have notimeout()
  14.           changed NONOTIMEOUT to NO_NOTIMEOUT, define if not present
  15. --- 1,10 ----
  16. ! CHANGES BETWEEN 6.21 and 6.19
  17.   Mark R. Rubin
  18.       -noted a problem using bison 1.16 (use any version but 1.16)
  19.   Marco S Hyman/Ian */and others
  20.       -Crypt/CRYPT_PATH define problem
  21.   Paul Eggert
  22. !     -sc.doc $Revision: 6.21 $ 'buglet'
  23.   Ulf Noren/Dave Lewis
  24.       -AIX3.1/Microport System V/AT don't have notimeout()
  25.           changed NONOTIMEOUT to NO_NOTIMEOUT, define if not present
  26. *** ../620/README    Thu May  7 16:22:07 1992
  27. --- README    Fri May  8 12:31:14 1992
  28. ***************
  29. *** 1,9 ****
  30.   This is a much modified version of the public domain spread sheet sc,
  31.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  32.   
  33. ! CHANGES lists the changes since 6.1 to 6.20.
  34.       Sc6.16 was released to comp.sources.misc and four sets of patches
  35. !     bring Sc6.16->6.17->6.18->6.19->6.20.
  36.   
  37.   Current maintainer: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  38.   
  39. --- 1,9 ----
  40.   This is a much modified version of the public domain spread sheet sc,
  41.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  42.   
  43. ! CHANGES lists the changes since 6.1 to 6.21.
  44.       Sc6.16 was released to comp.sources.misc and four sets of patches
  45. !     bring Sc6.16->6.17->6.18->6.19->6.21.
  46.   
  47.   Current maintainer: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  48.   
  49. ***************
  50. *** 83,92 ****
  51.   
  52.   3) Sc6.16 was posted in comp.sources.misc, about Jun 4 1991, Volume 20, Issues
  53.       035-041. There were then 4 patches: Sc6.16->Sc6.17, Sc6.17->Sc6.18,
  54. !     Sc6.18->Sc6.19, and Sc6.19->Sc6.20.
  55.   
  56.   4) (FTP) Paul A Vixie <uunet!decwrl!vixie>
  57. !     gatekeeper.dec.com    in /pub/misc/sc-6.20.tar.Z
  58.   
  59.   Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  60.   warranty, express or implied, as a service to Usenet readers.  It is not
  61. --- 83,92 ----
  62.   
  63.   3) Sc6.16 was posted in comp.sources.misc, about Jun 4 1991, Volume 20, Issues
  64.       035-041. There were then 4 patches: Sc6.16->Sc6.17, Sc6.17->Sc6.18,
  65. !     Sc6.18->Sc6.19, and Sc6.19->Sc6.21.
  66.   
  67.   4) (FTP) Paul A Vixie <uunet!decwrl!vixie>
  68. !     gatekeeper.dec.com    in /pub/misc/sc-6.21.tar.Z
  69.   
  70.   Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  71.   warranty, express or implied, as a service to Usenet readers.  It is not
  72. *** ../620/sc.doc    Thu May  7 16:22:08 1992
  73. --- sc.doc    Fri May  8 12:31:15 1992
  74. ***************
  75. *** 15,21 ****
  76.   .\" - TPs use default indent except for function names, then 18.
  77.   .\" - Smallify uppercase strings.
  78.   .\" - Avoid passive voice and third person.
  79. ! .\" $Revision: 6.20 $
  80.   .\"
  81.   .TH PNAME\ #REVISION#\  1
  82.   .SH NAME
  83. --- 15,21 ----
  84.   .\" - TPs use default indent except for function names, then 18.
  85.   .\" - Smallify uppercase strings.
  86.   .\" - Avoid passive voice and third person.
  87. ! .\" $Revision: 6.21 $
  88.   .\"
  89.   .TH PNAME\ #REVISION#\  1
  90.   .SH NAME
  91. *** ../620/psc.doc    Thu May  7 16:22:08 1992
  92. --- psc.doc    Fri May  8 12:31:16 1992
  93. ***************
  94. *** 1,4 ****
  95. ! .\" $Revision: 6.20 $
  96.   .TH PPNAME\ #REVISION#\  1
  97.   .SH NAME
  98.   ppname \- prepare pname files
  99. --- 1,4 ----
  100. ! .\" $Revision: 6.21 $
  101.   .TH PPNAME\ #REVISION#\  1
  102.   .SH NAME
  103.   ppname \- prepare pname files
  104. *** ../620/build.com    Thu May  7 16:22:09 1992
  105. --- build.com    Fri May  8 12:31:17 1992
  106. ***************
  107. *** 1,6 ****
  108.   $! VMS command file to build SC and PSC (requires bison) on VMS
  109.   $! SC:
  110. ! $! $Revision: 6.19 $
  111.   $! bison -d gram.y
  112.   $! ren gram_tab.c gram.c
  113.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  114. --- 1,6 ----
  115.   $! VMS command file to build SC and PSC (requires bison) on VMS
  116.   $! SC:
  117. ! $! $Revision: 6.21 $
  118.   $! bison -d gram.y
  119.   $! ren gram_tab.c gram.c
  120.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  121. *** ../620/Makefile    Thu May  7 16:22:09 1992
  122. --- Makefile    Fri May  8 12:31:18 1992
  123. ***************
  124. *** 1,4 ****
  125. ! # Makefile $Revision: 6.20 $
  126.   #
  127.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  128.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  129. --- 1,4 ----
  130. ! # Makefile $Revision: 6.21 $
  131.   #
  132.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  133.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  134. ***************
  135. *** 422,428 ****
  136.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  137.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  138.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  139. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.20 $(
  140.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  141.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  142.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  143. --- 422,428 ----
  144.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  145.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  146.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  147. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.21 $(
  148.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  149.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  150.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  151. *** ../620/cmds.c    Thu May  7 16:22:10 1992
  152. --- cmds.c    Fri May  8 12:31:19 1992
  153. ***************
  154. *** 7,13 ****
  155.    *
  156.    *              More mods Robert Bond, 12/86
  157.    *
  158. !  *        $Revision: 6.20 $
  159.    */
  160.   
  161.   #include <sys/types.h>
  162. --- 7,13 ----
  163.    *
  164.    *              More mods Robert Bond, 12/86
  165.    *
  166. !  *        $Revision: 6.21 $
  167.    */
  168.   
  169.   #include <sys/types.h>
  170. ***************
  171. *** 676,682 ****
  172.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  173.                       tbl_style == LATEX ? "latex" :
  174.                       tbl_style == SLATEX ? "slatex" :
  175. !                     tbl_style == TEX ? "tex" : "0" );
  176.       if (craction)
  177.       (void) fprintf(f, " craction = %d", craction);
  178.       if (rowlimit >= 0)
  179. --- 676,683 ----
  180.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  181.                       tbl_style == LATEX ? "latex" :
  182.                       tbl_style == SLATEX ? "slatex" :
  183. !                     tbl_style == TEX ? "tex" :
  184. !                     tbl_style == FRAME ? "frame" : "0" );
  185.       if (craction)
  186.       (void) fprintf(f, " craction = %d", craction);
  187.       if (rowlimit >= 0)
  188. ***************
  189. *** 899,910 ****
  190. --- 900,948 ----
  191.           progname, cn-c0+1);
  192.       coldelim = '&';
  193.       }
  194. +     else if ( tbl_style == FRAME ) {
  195. +     fprintf(f,"<MIFFile 3.00> # generated by the sc spreadsheet calculator\n");
  196. +     fprintf(f,"<Tbls\n");
  197. +     fprintf(f," <Tbl \n");
  198. +     fprintf(f,"  <TblID 1> # This table's ID is 1\n");
  199. +     fprintf(f,"  <TblFormat \n");
  200. +     fprintf(f,"   <TblTag `Format A'> # Table Format Catalog\n");
  201. +     fprintf(f,"  > # end of TblFormat\n");
  202. +     fprintf(f,"  <TblNumColumns %d> # Has %d columns\n",cn-c0+1,cn-c0+1);
  203. +     fprintf(f,"  <TblTitleContent\n");
  204. +     fprintf(f,"   <Para\n");
  205. +     fprintf(f,"    <PgfTag `TableTitle'> # Forces lookup in Paragraph Format Catalog\n");
  206. +     fprintf(f,"    <ParaLine\n");
  207. +     fprintf(f,"     <String `%s'>\n",fname);
  208. +     fprintf(f,"    > # end of ParaLine\n");
  209. +     fprintf(f,"   > # end of Para\n");
  210. +     fprintf(f,"  > # end of TblTitleContent\n");
  211. +     fprintf(f,"  <TblH # The heading\n");
  212. +     fprintf(f,"   <Row # The heading row\n");
  213. +     for (col=c0; col <= cn; col++) {
  214. +         fprintf(f,"    <Cell <CellContent <Para # Cell in column \n");
  215. +         fprintf(f,"       <PgfTag `CellHeading'> # in Paragraph Format Catalog\n");
  216. +         fprintf(f,"       <ParaLine <String `%c'>>\n",'A'+col);
  217. +         fprintf(f,"    >>> # end of Cell\n");
  218. +     }
  219. +     fprintf(f,"   > # end of Row\n");
  220. +     fprintf(f,"  > # end of TblH\n");
  221. +     fprintf(f,"  <TblBody # The body\n");
  222. +     }
  223.   
  224.       for (row=r0; row<=rn; row++) {
  225.       if ( tbl_style == TEX )
  226.           (void) fprintf (f, "\\+");
  227. +     else if ( tbl_style == FRAME ) {
  228. +         fprintf(f,"   <Row # The next body row\n");
  229. +     }
  230.       
  231.       for (pp = ATBL(tbl, row, col=c0); col<=cn; col++, pp++) {
  232. +         if ( tbl_style == FRAME ) {
  233. +         fprintf(f,"    <Cell <CellContent <Para\n");
  234. +         fprintf(f,"       <PgfTag `CellBody'> # in Paragraph Format Catalog\n");
  235. +         fprintf(f,"       <ParaLine <String `");
  236. +         } 
  237.           if (*pp) {
  238.           char *s;
  239.           if ((*pp)->flags&is_valid) {
  240. ***************
  241. *** 932,939 ****
  242.                   unspecial (f, s, coldelim);
  243.           }
  244.           }
  245.           if ( col < cn )
  246. !         (void) fprintf(f,"%c", coldelim);
  247.       }
  248.       if ( tbl_style == LATEX ) {
  249.           if ( row < rn ) (void) fprintf (f, "\\\\");
  250. --- 970,982 ----
  251.                   unspecial (f, s, coldelim);
  252.           }
  253.           }
  254. +         if (tbl_style == FRAME) {
  255. +         fprintf(f, "'>>\n");
  256. +         fprintf(f,"    >>> # end of Cell\n");
  257. +         }
  258.           if ( col < cn )
  259. !         if (tbl_style != FRAME)
  260. !             (void) fprintf(f,"%c", coldelim);
  261.       }
  262.       if ( tbl_style == LATEX ) {
  263.           if ( row < rn ) (void) fprintf (f, "\\\\");
  264. ***************
  265. *** 944,949 ****
  266. --- 987,995 ----
  267.       else if ( tbl_style == TEX ) {
  268.           (void) fprintf (f, "\\cr");
  269.       }
  270. +     else if ( tbl_style == FRAME ) {
  271. +         fprintf(f,"   > # end of Row\n");
  272. +     }
  273.       (void) fprintf (f,"\n");
  274.       }
  275.   
  276. ***************
  277. *** 955,960 ****
  278. --- 1001,1015 ----
  279.       (void) fprintf (f,"!end<tabular>\n%% ** end of %s spreadsheet output\n", progname);
  280.       else if ( tbl_style == TEX )
  281.       (void) fprintf (f,"}\n%% ** end of %s spreadsheet output\n", progname);
  282. +     else if ( tbl_style == FRAME ) {
  283. +     fprintf(f,"  > # end of TblBody\n");
  284. +     fprintf(f," ># end of Tbl\n");
  285. +     fprintf(f,"> # end of Tbls\n");
  286. +     fprintf(f,"<TextFlow <Para \n");
  287. +     fprintf(f,"  <PgfTag Body> \n");
  288. +     fprintf(f,"  <ParaLine <ATbl 1>> # Reference to table ID 1\n");
  289. +     fprintf(f,">>\n");
  290. +     }
  291.   
  292.       closeout(f, pid);
  293.   }
  294. *** ../620/crypt.c    Thu May  7 16:22:10 1992
  295. --- crypt.c    Fri May  8 12:31:19 1992
  296. ***************
  297. *** 2,8 ****
  298.    * Encryption utilites
  299.    * Bradley Williams    
  300.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  301. !  * $Revision: 6.20 $
  302.    */
  303.   
  304.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  305. --- 2,8 ----
  306.    * Encryption utilites
  307.    * Bradley Williams    
  308.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  309. !  * $Revision: 6.21 $
  310.    */
  311.   
  312.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  313. *** ../620/format.c    Thu May  7 16:22:11 1992
  314. --- format.c    Fri May  8 12:31:21 1992
  315. ***************
  316. *** 3,9 ****
  317.    * Mark Nagel <nagel@ics.uci.edu>
  318.    * 20 July 1989
  319.    *
  320. !  * $Revision: 6.20 $
  321.    *
  322.    * bool
  323.    * format(fmt, num, buf, buflen)
  324. --- 3,9 ----
  325.    * Mark Nagel <nagel@ics.uci.edu>
  326.    * 20 July 1989
  327.    *
  328. !  * $Revision: 6.21 $
  329.    *
  330.    * bool
  331.    * format(fmt, num, buf, buflen)
  332. *** ../620/gram.y    Thu May  7 16:22:11 1992
  333. --- gram.y    Fri May  8 12:31:22 1992
  334. ***************
  335. *** 9,15 ****
  336.    *
  337.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  338.    *
  339. !  *        $Revision: 6.20 $
  340.    */
  341.   
  342.   
  343. --- 9,15 ----
  344.    *
  345.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  346.    *
  347. !  *        $Revision: 6.21 $
  348.    */
  349.   
  350.   
  351. ***************
  352. *** 146,151 ****
  353. --- 146,152 ----
  354.   %token K_LATEX
  355.   %token K_SLATEX
  356.   %token K_TEX
  357. + %token K_FRAME
  358.   %token K_RNDINFINITY
  359.   %token K_MYROW
  360.   %token K_MYCOL
  361. ***************
  362. *** 155,160 ****
  363. --- 156,162 ----
  364.   %token K_CRCOL
  365.   %token K_ROWLIMIT
  366.   %token K_COLLIMIT
  367. + %token K_NUMITER
  368.     
  369.   %left '?' ':'
  370.   %left '|'
  371. ***************
  372. *** 373,378 ****
  373. --- 375,381 ----
  374.       | '@' K_MYROW            { $$ = new(MYROW, ENULL, ENULL);}
  375.       | '@' K_MYCOL            { $$ = new(MYCOL, ENULL, ENULL);}
  376.       | '@' K_COLTOA '(' e ')'    { $$ = new(COLTOA, ENULL, $4);}
  377. +     | '@' K_NUMITER            { $$ = new(NUMITER, ENULL, ENULL);}
  378.       ;
  379.   
  380.   /* expressions */
  381. ***************
  382. *** 466,471 ****
  383. --- 469,475 ----
  384.       |    K_TBLSTYLE '=' K_LATEX    { tbl_style = LATEX; }
  385.       |    K_TBLSTYLE '=' K_SLATEX    { tbl_style = SLATEX; }
  386.       |    K_TBLSTYLE '=' K_TEX    { tbl_style = TEX; }
  387. +     |    K_TBLSTYLE '=' K_FRAME    { tbl_style = FRAME; }
  388.       |    K_RNDINFINITY        { rndinfinity = 1; FullUpdate++; }
  389.       |    '!' K_RNDINFINITY    { rndinfinity = 0; FullUpdate++; }
  390.       |    K_CRACTION '=' NUMBER    { craction = $3; }
  391. *** ../620/help.c    Thu May  7 16:22:13 1992
  392. --- help.c    Fri May  8 12:31:24 1992
  393. ***************
  394. *** 2,14 ****
  395.    * Help functions for sc 
  396.    * R. Bond, 1988
  397.    * J. Buhrt 1990
  398. !  * $Revision: 6.20 $
  399.    */
  400.   
  401.   #ifdef QREF
  402.   #include <stdio.h>
  403.   char    *header = " Quick Reference";
  404. ! char    *revision = "$Revision: 6.20 $";
  405.   #else
  406.   #include <curses.h>
  407.   #include "sc.h"
  408. --- 2,14 ----
  409.    * Help functions for sc 
  410.    * R. Bond, 1988
  411.    * J. Buhrt 1990
  412. !  * $Revision: 6.21 $
  413.    */
  414.   
  415.   #ifdef QREF
  416.   #include <stdio.h>
  417.   char    *header = " Quick Reference";
  418. ! char    *revision = "$Revision: 6.21 $";
  419.   #else
  420.   #include <curses.h>
  421.   #include "sc.h"
  422. *** ../620/interp.c    Thu May  7 16:22:14 1992
  423. --- interp.c    Fri May  8 12:31:27 1992
  424. ***************
  425. *** 7,13 ****
  426.    *
  427.    *              More mods Robert Bond, 12/86
  428.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  429. !  *        $Revision: 6.20 $
  430.    */
  431.   
  432.   #define DEBUGDTS 1        /* REMOVE ME */
  433. --- 7,13 ----
  434.    *
  435.    *              More mods Robert Bond, 12/86
  436.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  437. !  *        $Revision: 6.21 $
  438.    */
  439.   
  440.   #define DEBUGDTS 1        /* REMOVE ME */
  441. *** ../620/lex.c    Thu May  7 16:22:16 1992
  442. --- lex.c    Fri May  8 12:31:28 1992
  443. ***************
  444. *** 7,13 ****
  445.    *
  446.    *              More mods Robert Bond, 12/86
  447.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  448. !  *        $Revision: 6.20 $
  449.    *
  450.    */
  451.   
  452. --- 7,13 ----
  453.    *
  454.    *              More mods Robert Bond, 12/86
  455.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  456. !  *        $Revision: 6.21 $
  457.    *
  458.    */
  459.   
  460. *** ../620/psc.c    Thu May  7 16:22:16 1992
  461. --- psc.c    Fri May  8 12:31:29 1992
  462. ***************
  463. *** 17,23 ****
  464.    *  Author: Robert Bond
  465.    *  Adjustments: Jeff Buhrt and Eric Putz
  466.    */
  467. ! char *rev = "$Revision: 6.20 $";
  468.   
  469.   #include <ctype.h>
  470.   #include <stdio.h>
  471. --- 17,23 ----
  472.    *  Author: Robert Bond
  473.    *  Adjustments: Jeff Buhrt and Eric Putz
  474.    */
  475. ! char *rev = "$Revision: 6.21 $";
  476.   
  477.   #include <ctype.h>
  478.   #include <stdio.h>
  479. *** ../620/range.c    Thu May  7 16:22:17 1992
  480. --- range.c    Fri May  8 12:31:29 1992
  481. ***************
  482. *** 4,10 ****
  483.    *
  484.    *              Robert Bond, 4/87
  485.    *
  486. !  *        $Revision: 6.20 $
  487.    */
  488.   
  489.   #include <sys/types.h>
  490. --- 4,10 ----
  491.    *
  492.    *              Robert Bond, 4/87
  493.    *
  494. !  *        $Revision: 6.21 $
  495.    */
  496.   
  497.   #include <sys/types.h>
  498. *** ../620/sc.c    Thu May  7 16:22:18 1992
  499. --- sc.c    Fri May  8 12:31:31 1992
  500. ***************
  501. *** 8,14 ****
  502.    *              More mods Robert Bond, 12/86
  503.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  504.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  505. !  *        $Revision: 6.20 $
  506.    *
  507.    */
  508.   
  509. --- 8,14 ----
  510.    *              More mods Robert Bond, 12/86
  511.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  512.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  513. !  *        $Revision: 6.21 $
  514.    *
  515.    */
  516.   
  517. *** ../620/sc.h    Thu May  7 16:22:19 1992
  518. --- sc.h    Fri May  8 12:31:32 1992
  519. ***************
  520. *** 6,12 ****
  521.    *            University of Maryland
  522.    *        R. Bond  12/86
  523.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  524. !  *        $Revision: 6.20 $
  525.    *
  526.    */
  527.   
  528. --- 6,12 ----
  529.    *            University of Maryland
  530.    *        R. Bond  12/86
  531.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  532. !  *        $Revision: 6.21 $
  533.    *
  534.    */
  535.   
  536. *** ../620/screen.c    Thu May  7 16:22:20 1992
  537. --- screen.c    Fri May  8 12:31:33 1992
  538. ***************
  539. *** 8,14 ****
  540.    *              More mods Robert Bond, 12/86
  541.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  542.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  543. !  *        $Revision: 6.20 $
  544.    *
  545.    */
  546.   
  547. --- 8,14 ----
  548.    *              More mods Robert Bond, 12/86
  549.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  550.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  551. !  *        $Revision: 6.21 $
  552.    *
  553.    */
  554.   
  555. *** ../620/version.c    Thu May  7 16:22:20 1992
  556. --- version.c    Fri May  8 12:31:33 1992
  557. ***************
  558. *** 4,7 ****
  559.    * The part after the first colon, except the last char, appears on the screen.
  560.    */
  561.   
  562. ! char *rev = "$Revision: 6.20 $";
  563. --- 4,7 ----
  564.    * The part after the first colon, except the last char, appears on the screen.
  565.    */
  566.   
  567. ! char *rev = "$Revision: 6.21 $";
  568. *** ../620/vi.c    Thu May  7 16:22:20 1992
  569. --- vi.c    Fri May  8 12:31:34 1992
  570. ***************
  571. *** 1,7 ****
  572.   /*    SC    A Spreadsheet Calculator
  573.    *
  574.    *    One line vi emulation
  575. !  *    $Revision: 6.20 $
  576.    */
  577.   
  578.   #include <sys/types.h>
  579. --- 1,7 ----
  580.   /*    SC    A Spreadsheet Calculator
  581.    *
  582.    *    One line vi emulation
  583. !  *    $Revision: 6.21 $
  584.    */
  585.   
  586.   #include <sys/types.h>
  587. *** ../620/vmtbl.c    Thu May  7 16:22:21 1992
  588. --- vmtbl.c    Fri May  8 12:31:35 1992
  589. ***************
  590. *** 8,14 ****
  591.    *              More mods Robert Bond, 12/86
  592.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  593.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  594. !  *        $Revision: 6.20 $
  595.    *
  596.    */
  597.   #ifdef PSC
  598. --- 8,14 ----
  599.    *              More mods Robert Bond, 12/86
  600.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  601.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  602. !  *        $Revision: 6.21 $
  603.    *
  604.    */
  605.   #ifdef PSC
  606. *** ../620/xmalloc.c    Thu May  7 16:22:21 1992
  607. --- xmalloc.c    Fri May  8 12:31:35 1992
  608. ***************
  609. *** 1,6 ****
  610.   /*
  611.    * A safer saner malloc, for careless programmers
  612. !  * $Revision: 6.20 $
  613.    */
  614.   
  615.   #include <stdio.h>
  616. --- 1,6 ----
  617.   /*
  618.    * A safer saner malloc, for careless programmers
  619. !  * $Revision: 6.21 $
  620.    */
  621.   
  622.   #include <stdio.h>
  623. *** ../620/CHANGES    Thu May  7 16:22:07 1992
  624. --- CHANGES    Fri May  8 12:31:13 1992
  625. ***************
  626. *** 1,10 ****
  627. ! CHANGES BETWEEN 6.20 and 6.19
  628.   Mark R. Rubin
  629.       -noted a problem using bison 1.16 (use any version but 1.16)
  630.   Marco S Hyman/Ian */and others
  631.       -Crypt/CRYPT_PATH define problem
  632.   Paul Eggert
  633. !     -sc.doc $Revision: 6.20 $ 'buglet'
  634.   Ulf Noren/Dave Lewis
  635.       -AIX3.1/Microport System V/AT don't have notimeout()
  636.           changed NONOTIMEOUT to NO_NOTIMEOUT, define if not present
  637. --- 1,10 ----
  638. ! CHANGES BETWEEN 6.21 and 6.19
  639.   Mark R. Rubin
  640.       -noted a problem using bison 1.16 (use any version but 1.16)
  641.   Marco S Hyman/Ian */and others
  642.       -Crypt/CRYPT_PATH define problem
  643.   Paul Eggert
  644. !     -sc.doc $Revision: 6.21 $ 'buglet'
  645.   Ulf Noren/Dave Lewis
  646.       -AIX3.1/Microport System V/AT don't have notimeout()
  647.           changed NONOTIMEOUT to NO_NOTIMEOUT, define if not present
  648. *** ../620/README    Thu May  7 16:22:07 1992
  649. --- README    Fri May  8 12:31:14 1992
  650. ***************
  651. *** 1,9 ****
  652.   This is a much modified version of the public domain spread sheet sc,
  653.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  654.   
  655. ! CHANGES lists the changes since 6.1 to 6.20.
  656.       Sc6.16 was released to comp.sources.misc and four sets of patches
  657. !     bring Sc6.16->6.17->6.18->6.19->6.20.
  658.   
  659.   Current maintainer: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  660.   
  661. --- 1,9 ----
  662.   This is a much modified version of the public domain spread sheet sc,
  663.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  664.   
  665. ! CHANGES lists the changes since 6.1 to 6.21.
  666.       Sc6.16 was released to comp.sources.misc and four sets of patches
  667. !     bring Sc6.16->6.17->6.18->6.19->6.21.
  668.   
  669.   Current maintainer: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  670.   
  671. ***************
  672. *** 83,92 ****
  673.   
  674.   3) Sc6.16 was posted in comp.sources.misc, about Jun 4 1991, Volume 20, Issues
  675.       035-041. There were then 4 patches: Sc6.16->Sc6.17, Sc6.17->Sc6.18,
  676. !     Sc6.18->Sc6.19, and Sc6.19->Sc6.20.
  677.   
  678.   4) (FTP) Paul A Vixie <uunet!decwrl!vixie>
  679. !     gatekeeper.dec.com    in /pub/misc/sc-6.20.tar.Z
  680.   
  681.   Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  682.   warranty, express or implied, as a service to Usenet readers.  It is not
  683. --- 83,92 ----
  684.   
  685.   3) Sc6.16 was posted in comp.sources.misc, about Jun 4 1991, Volume 20, Issues
  686.       035-041. There were then 4 patches: Sc6.16->Sc6.17, Sc6.17->Sc6.18,
  687. !     Sc6.18->Sc6.19, and Sc6.19->Sc6.21.
  688.   
  689.   4) (FTP) Paul A Vixie <uunet!decwrl!vixie>
  690. !     gatekeeper.dec.com    in /pub/misc/sc-6.21.tar.Z
  691.   
  692.   Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  693.   warranty, express or implied, as a service to Usenet readers.  It is not
  694. *** ../620/sc.doc    Thu May  7 16:22:08 1992
  695. --- sc.doc    Fri May  8 12:31:15 1992
  696. ***************
  697. *** 15,21 ****
  698.   .\" - TPs use default indent except for function names, then 18.
  699.   .\" - Smallify uppercase strings.
  700.   .\" - Avoid passive voice and third person.
  701. ! .\" $Revision: 6.20 $
  702.   .\"
  703.   .TH PNAME\ #REVISION#\  1
  704.   .SH NAME
  705. --- 15,21 ----
  706.   .\" - TPs use default indent except for function names, then 18.
  707.   .\" - Smallify uppercase strings.
  708.   .\" - Avoid passive voice and third person.
  709. ! .\" $Revision: 6.21 $
  710.   .\"
  711.   .TH PNAME\ #REVISION#\  1
  712.   .SH NAME
  713. *** ../620/psc.doc    Thu May  7 16:22:08 1992
  714. --- psc.doc    Fri May  8 12:31:16 1992
  715. ***************
  716. *** 1,4 ****
  717. ! .\" $Revision: 6.20 $
  718.   .TH PPNAME\ #REVISION#\  1
  719.   .SH NAME
  720.   ppname \- prepare pname files
  721. --- 1,4 ----
  722. ! .\" $Revision: 6.21 $
  723.   .TH PPNAME\ #REVISION#\  1
  724.   .SH NAME
  725.   ppname \- prepare pname files
  726. *** ../620/build.com    Thu May  7 16:22:09 1992
  727. --- build.com    Fri May  8 12:31:17 1992
  728. ***************
  729. *** 1,6 ****
  730.   $! VMS command file to build SC and PSC (requires bison) on VMS
  731.   $! SC:
  732. ! $! $Revision: 6.19 $
  733.   $! bison -d gram.y
  734.   $! ren gram_tab.c gram.c
  735.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  736. --- 1,6 ----
  737.   $! VMS command file to build SC and PSC (requires bison) on VMS
  738.   $! SC:
  739. ! $! $Revision: 6.21 $
  740.   $! bison -d gram.y
  741.   $! ren gram_tab.c gram.c
  742.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  743. *** ../620/Makefile    Thu May  7 16:22:09 1992
  744. --- Makefile    Fri May  8 12:31:18 1992
  745. ***************
  746. *** 1,4 ****
  747. ! # Makefile $Revision: 6.20 $
  748.   #
  749.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  750.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  751. --- 1,4 ----
  752. ! # Makefile $Revision: 6.21 $
  753.   #
  754.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  755.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  756. ***************
  757. *** 422,428 ****
  758.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  759.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  760.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  761. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.20 $(
  762.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  763.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  764.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  765. --- 422,428 ----
  766.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  767.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  768.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  769. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.21 $(
  770.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  771.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  772.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  773. *** ../620/cmds.c    Thu May  7 16:22:10 1992
  774. --- cmds.c    Fri May  8 13:40:24 1992
  775. ***************
  776. *** 7,13 ****
  777.    *
  778.    *              More mods Robert Bond, 12/86
  779.    *
  780. !  *        $Revision: 6.20 $
  781.    */
  782.   
  783.   #include <sys/types.h>
  784. --- 7,13 ----
  785.    *
  786.    *              More mods Robert Bond, 12/86
  787.    *
  788. !  *        $Revision: 6.21 $
  789.    */
  790.   
  791.   #include <sys/types.h>
  792. ***************
  793. *** 676,682 ****
  794.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  795.                       tbl_style == LATEX ? "latex" :
  796.                       tbl_style == SLATEX ? "slatex" :
  797. !                     tbl_style == TEX ? "tex" : "0" );
  798.       if (craction)
  799.       (void) fprintf(f, " craction = %d", craction);
  800.       if (rowlimit >= 0)
  801. --- 676,683 ----
  802.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  803.                       tbl_style == LATEX ? "latex" :
  804.                       tbl_style == SLATEX ? "slatex" :
  805. !                     tbl_style == TEX ? "tex" :
  806. !                     tbl_style == FRAME ? "frame" : "0" );
  807.       if (craction)
  808.       (void) fprintf(f, " craction = %d", craction);
  809.       if (rowlimit >= 0)
  810. ***************
  811. *** 699,704 ****
  812. --- 700,724 ----
  813.       int fieldlen, nextcol;
  814.       register row, col;
  815.       register struct ent **pp;
  816. +     char file[32];
  817. +     char path[256];
  818. +     char *tpp;
  819. + 
  820. +     /* printfile will be the [path/]file ---> [path/]file.out,
  821. +      * file is limited to 14 characters.
  822. +      */
  823. +     if (*fname == '\0') {
  824. +     strcpy(path, curfile);
  825. + 
  826. +     if ((tpp = strrchr(path, '/'))  == NULL)
  827. +         tpp = path;
  828. +     else
  829. +         tpp++;
  830. +     strcpy(file, tpp);
  831. +     file[10] = '\0';
  832. +     sprintf(tpp, "%s.asc", file);
  833. +     fname = path;
  834. +     }
  835.   
  836.       if ((strcmp(fname, curfile) == 0) &&
  837.       !yn_ask("Confirm that you want to destroy the data base: (y,n)")) {
  838. ***************
  839. *** 866,871 ****
  840. --- 886,916 ----
  841.       register row, col;
  842.       register struct ent **pp;
  843.       char coldelim = DEFCOLDELIM;
  844. +     char file[32];
  845. +     char path[256];
  846. +     char *tpp;
  847. + 
  848. +     /* tblprintfile will be the [path/]file ---> [path/]file.out,
  849. +      * file is limited to 14 characters.
  850. +      */
  851. +     if (*fname == '\0') {
  852. +     strcpy(path, curfile);
  853. +     if ((tpp = strrchr(path, '/'))  == NULL)
  854. +       tpp = path;
  855. +     else
  856. +       tpp++;
  857. +     strcpy(file, tpp);
  858. +     file[10] = '\0';
  859. +     if (tbl_style == 0)
  860. +       sprintf(tpp, "%s.cln", file);
  861. +     else if (tbl_style == TBL)
  862. +       sprintf(tpp, "%s.tbl", file);
  863. +     else if (tbl_style == LATEX)
  864. +       sprintf(tpp, "%s.lat", file);
  865. +     else if (tbl_style == TEX)
  866. +       sprintf(tpp, "%s.tex", file);
  867. +     fname = path;
  868. +     }
  869.   
  870.       if ((strcmp(fname, curfile) == 0) &&
  871.       !yn_ask("Confirm that you want to destroy the data base: (y,n)"))
  872. ***************
  873. *** 899,910 ****
  874. --- 944,992 ----
  875.           progname, cn-c0+1);
  876.       coldelim = '&';
  877.       }
  878. +     else if ( tbl_style == FRAME ) {
  879. +     fprintf(f,"<MIFFile 3.00> # generated by the sc spreadsheet calculator\n");
  880. +     fprintf(f,"<Tbls\n");
  881. +     fprintf(f," <Tbl \n");
  882. +     fprintf(f,"  <TblID 1> # This table's ID is 1\n");
  883. +     fprintf(f,"  <TblFormat \n");
  884. +     fprintf(f,"   <TblTag `Format A'> # Table Format Catalog\n");
  885. +     fprintf(f,"  > # end of TblFormat\n");
  886. +     fprintf(f,"  <TblNumColumns %d> # Has %d columns\n",cn-c0+1,cn-c0+1);
  887. +     fprintf(f,"  <TblTitleContent\n");
  888. +     fprintf(f,"   <Para\n");
  889. +     fprintf(f,"    <PgfTag `TableTitle'> # Forces lookup in Paragraph Format Catalog\n");
  890. +     fprintf(f,"    <ParaLine\n");
  891. +     fprintf(f,"     <String `%s'>\n",fname);
  892. +     fprintf(f,"    > # end of ParaLine\n");
  893. +     fprintf(f,"   > # end of Para\n");
  894. +     fprintf(f,"  > # end of TblTitleContent\n");
  895. +     fprintf(f,"  <TblH # The heading\n");
  896. +     fprintf(f,"   <Row # The heading row\n");
  897. +     for (col=c0; col <= cn; col++) {
  898. +         fprintf(f,"    <Cell <CellContent <Para # Cell in column \n");
  899. +         fprintf(f,"       <PgfTag `CellHeading'> # in Paragraph Format Catalog\n");
  900. +         fprintf(f,"       <ParaLine <String `%c'>>\n",'A'+col);
  901. +         fprintf(f,"    >>> # end of Cell\n");
  902. +     }
  903. +     fprintf(f,"   > # end of Row\n");
  904. +     fprintf(f,"  > # end of TblH\n");
  905. +     fprintf(f,"  <TblBody # The body\n");
  906. +     }
  907.   
  908.       for (row=r0; row<=rn; row++) {
  909.       if ( tbl_style == TEX )
  910.           (void) fprintf (f, "\\+");
  911. +     else if ( tbl_style == FRAME ) {
  912. +         fprintf(f,"   <Row # The next body row\n");
  913. +     }
  914.       
  915.       for (pp = ATBL(tbl, row, col=c0); col<=cn; col++, pp++) {
  916. +         if ( tbl_style == FRAME ) {
  917. +         fprintf(f,"    <Cell <CellContent <Para\n");
  918. +         fprintf(f,"       <PgfTag `CellBody'> # in Paragraph Format Catalog\n");
  919. +         fprintf(f,"       <ParaLine <String `");
  920. +         } 
  921.           if (*pp) {
  922.           char *s;
  923.           if ((*pp)->flags&is_valid) {
  924. ***************
  925. *** 932,939 ****
  926.                   unspecial (f, s, coldelim);
  927.           }
  928.           }
  929.           if ( col < cn )
  930. !         (void) fprintf(f,"%c", coldelim);
  931.       }
  932.       if ( tbl_style == LATEX ) {
  933.           if ( row < rn ) (void) fprintf (f, "\\\\");
  934. --- 1014,1026 ----
  935.                   unspecial (f, s, coldelim);
  936.           }
  937.           }
  938. +         if (tbl_style == FRAME) {
  939. +         fprintf(f, "'>>\n");
  940. +         fprintf(f,"    >>> # end of Cell\n");
  941. +         }
  942.           if ( col < cn )
  943. !         if (tbl_style != FRAME)
  944. !             (void) fprintf(f,"%c", coldelim);
  945.       }
  946.       if ( tbl_style == LATEX ) {
  947.           if ( row < rn ) (void) fprintf (f, "\\\\");
  948. ***************
  949. *** 944,949 ****
  950. --- 1031,1039 ----
  951.       else if ( tbl_style == TEX ) {
  952.           (void) fprintf (f, "\\cr");
  953.       }
  954. +     else if ( tbl_style == FRAME ) {
  955. +         fprintf(f,"   > # end of Row\n");
  956. +     }
  957.       (void) fprintf (f,"\n");
  958.       }
  959.   
  960. ***************
  961. *** 955,960 ****
  962. --- 1045,1059 ----
  963.       (void) fprintf (f,"!end<tabular>\n%% ** end of %s spreadsheet output\n", progname);
  964.       else if ( tbl_style == TEX )
  965.       (void) fprintf (f,"}\n%% ** end of %s spreadsheet output\n", progname);
  966. +     else if ( tbl_style == FRAME ) {
  967. +     fprintf(f,"  > # end of TblBody\n");
  968. +     fprintf(f," ># end of Tbl\n");
  969. +     fprintf(f,"> # end of Tbls\n");
  970. +     fprintf(f,"<TextFlow <Para \n");
  971. +     fprintf(f,"  <PgfTag Body> \n");
  972. +     fprintf(f,"  <ParaLine <ATbl 1>> # Reference to table ID 1\n");
  973. +     fprintf(f,">>\n");
  974. +     }
  975.   
  976.       closeout(f, pid);
  977.   }
  978. *** ../620/crypt.c    Thu May  7 16:22:10 1992
  979. --- crypt.c    Fri May  8 12:31:19 1992
  980. ***************
  981. *** 2,8 ****
  982.    * Encryption utilites
  983.    * Bradley Williams    
  984.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  985. !  * $Revision: 6.20 $
  986.    */
  987.   
  988.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  989. --- 2,8 ----
  990.    * Encryption utilites
  991.    * Bradley Williams    
  992.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  993. !  * $Revision: 6.21 $
  994.    */
  995.   
  996.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  997. *** ../620/format.c    Thu May  7 16:22:11 1992
  998. --- format.c    Fri May  8 13:40:26 1992
  999. ***************
  1000. *** 3,9 ****
  1001.    * Mark Nagel <nagel@ics.uci.edu>
  1002.    * 20 July 1989
  1003.    *
  1004. !  * $Revision: 6.20 $
  1005.    *
  1006.    * bool
  1007.    * format(fmt, num, buf, buflen)
  1008. --- 3,9 ----
  1009.    * Mark Nagel <nagel@ics.uci.edu>
  1010.    * 20 July 1989
  1011.    *
  1012. !  * $Revision: 6.21 $
  1013.    *
  1014.    * bool
  1015.    * format(fmt, num, buf, buflen)
  1016. ***************
  1017. *** 489,495 ****
  1018.    * format is used.  The formats are:         example
  1019.    *    0:   Fixed point (default)             0.00010
  1020.    *    1:   Scientific                        1.00E-04
  1021. !  *    2:   Engineering                       100.00u
  1022.    *
  1023.    * The format command 'f' now uses three values.  The first two are the
  1024.    * width and precision, and the last one is the format value 0, 1, or 2 as
  1025. --- 489,495 ----
  1026.    * format is used.  The formats are:         example
  1027.    *    0:   Fixed point (default)             0.00010
  1028.    *    1:   Scientific                        1.00E-04
  1029. !  *    2:   Engineering                       100.00e-06
  1030.    *
  1031.    * The format command 'f' now uses three values.  The first two are the
  1032.    * width and precision, and the last one is the format value 0, 1, or 2 as
  1033. ***************
  1034. *** 499,507 ****
  1035.    * resulting string is too long to fit into the passed buffer, the
  1036.    * function returns false.  Otherwise the function returns true.
  1037.    *
  1038. !  * When a number is formatted as engineering and is outside of the range
  1039. !  * of typically used engineering exponents, the format reverts to
  1040. !  * scientific.
  1041.    *
  1042.    * To preserve compatability with old spreadsheet files, the third value
  1043.    * may be missing, and the default will be fixed point (format 0).
  1044. --- 499,506 ----
  1045.    * resulting string is too long to fit into the passed buffer, the
  1046.    * function returns false.  Otherwise the function returns true.
  1047.    *
  1048. !  * When a number is formatted as engineering and is outside of the range,
  1049. !  * the format reverts to scientific.
  1050.    *
  1051.    * To preserve compatability with old spreadsheet files, the third value
  1052.    * may be missing, and the default will be fixed point (format 0).
  1053. ***************
  1054. *** 518,525 ****
  1055.   #define REFMTDATE    3
  1056.   #endif
  1057.   
  1058. - char engmult[] = "afpnum kMGT";
  1059. - 
  1060.   bool
  1061.   engformat(fmt, width, lprecision, val, buf, buflen)
  1062.   int fmt; 
  1063. --- 517,522 ----
  1064. ***************
  1065. *** 529,534 ****
  1066. --- 526,537 ----
  1067.   char *buf;
  1068.   int buflen;
  1069.   {
  1070. + 
  1071. +   static char *engmult[] = {
  1072. +       "-18", "-15", "-12", "-09", "-06", "-03",
  1073. +       "+00",
  1074. +       "+03", "+06", "+09", "+12", "+15", "+18"
  1075. +   };
  1076.     int engind = 0;
  1077.     double engmant, pow(), engabs, engexp;
  1078.     if (buflen < width) return (false);
  1079. ***************
  1080. *** 557,563 ****
  1081.         if ((engabs >= 1e6) && (engabs < 1e9 )) engind=8;
  1082.         if ((engabs >= 1e9) && (engabs < 1e12 )) engind=9;
  1083.         if ((engabs >= 1e12) && (engabs < 1e15 )) engind=10;
  1084. !       if ((engabs <1e-18) || (engabs >=1e15))
  1085.         {
  1086.         /* Revert to floating point */
  1087.           (void) sprintf(buf,"%*.*E", width, lprecision, val);
  1088. --- 560,568 ----
  1089.         if ((engabs >= 1e6) && (engabs < 1e9 )) engind=8;
  1090.         if ((engabs >= 1e9) && (engabs < 1e12 )) engind=9;
  1091.         if ((engabs >= 1e12) && (engabs < 1e15 )) engind=10;
  1092. !       if ((engabs >= 1e15) && (engabs < 1e18 )) engind=11;
  1093. !       if ((engabs >= 1e18) && (engabs < 1e21 )) engind=12;
  1094. !       if ((engabs <1e-18) || (engabs >=1e21))
  1095.         {
  1096.         /* Revert to floating point */
  1097.           (void) sprintf(buf,"%*.*E", width, lprecision, val);
  1098. ***************
  1099. *** 566,572 ****
  1100.         {
  1101.           engexp= (double) (engind-6)*3;
  1102.           engmant= val/pow(10.0e0,engexp);
  1103. !         (void) sprintf(buf,"%*.*f%c", width-1,
  1104.                         lprecision, engmant, engmult[engind]);
  1105.         }
  1106.       }
  1107. --- 571,577 ----
  1108.         {
  1109.           engexp= (double) (engind-6)*3;
  1110.           engmant= val/pow(10.0e0,engexp);
  1111. !         (void) sprintf(buf,"%*.*fe%s", width-4,
  1112.                         lprecision, engmant, engmult[engind]);
  1113.         }
  1114.       }
  1115. *** ../620/gram.y    Thu May  7 16:22:11 1992
  1116. --- gram.y    Fri May  8 12:31:22 1992
  1117. ***************
  1118. *** 9,15 ****
  1119.    *
  1120.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1121.    *
  1122. !  *        $Revision: 6.20 $
  1123.    */
  1124.   
  1125.   
  1126. --- 9,15 ----
  1127.    *
  1128.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1129.    *
  1130. !  *        $Revision: 6.21 $
  1131.    */
  1132.   
  1133.   
  1134. ***************
  1135. *** 146,151 ****
  1136. --- 146,152 ----
  1137.   %token K_LATEX
  1138.   %token K_SLATEX
  1139.   %token K_TEX
  1140. + %token K_FRAME
  1141.   %token K_RNDINFINITY
  1142.   %token K_MYROW
  1143.   %token K_MYCOL
  1144. ***************
  1145. *** 155,160 ****
  1146. --- 156,162 ----
  1147.   %token K_CRCOL
  1148.   %token K_ROWLIMIT
  1149.   %token K_COLLIMIT
  1150. + %token K_NUMITER
  1151.     
  1152.   %left '?' ':'
  1153.   %left '|'
  1154. ***************
  1155. *** 373,378 ****
  1156. --- 375,381 ----
  1157.       | '@' K_MYROW            { $$ = new(MYROW, ENULL, ENULL);}
  1158.       | '@' K_MYCOL            { $$ = new(MYCOL, ENULL, ENULL);}
  1159.       | '@' K_COLTOA '(' e ')'    { $$ = new(COLTOA, ENULL, $4);}
  1160. +     | '@' K_NUMITER            { $$ = new(NUMITER, ENULL, ENULL);}
  1161.       ;
  1162.   
  1163.   /* expressions */
  1164. ***************
  1165. *** 466,471 ****
  1166. --- 469,475 ----
  1167.       |    K_TBLSTYLE '=' K_LATEX    { tbl_style = LATEX; }
  1168.       |    K_TBLSTYLE '=' K_SLATEX    { tbl_style = SLATEX; }
  1169.       |    K_TBLSTYLE '=' K_TEX    { tbl_style = TEX; }
  1170. +     |    K_TBLSTYLE '=' K_FRAME    { tbl_style = FRAME; }
  1171.       |    K_RNDINFINITY        { rndinfinity = 1; FullUpdate++; }
  1172.       |    '!' K_RNDINFINITY    { rndinfinity = 0; FullUpdate++; }
  1173.       |    K_CRACTION '=' NUMBER    { craction = $3; }
  1174. *** ../620/help.c    Thu May  7 16:22:13 1992
  1175. --- help.c    Fri May  8 12:31:24 1992
  1176. ***************
  1177. *** 2,14 ****
  1178.    * Help functions for sc 
  1179.    * R. Bond, 1988
  1180.    * J. Buhrt 1990
  1181. !  * $Revision: 6.20 $
  1182.    */
  1183.   
  1184.   #ifdef QREF
  1185.   #include <stdio.h>
  1186.   char    *header = " Quick Reference";
  1187. ! char    *revision = "$Revision: 6.20 $";
  1188.   #else
  1189.   #include <curses.h>
  1190.   #include "sc.h"
  1191. --- 2,14 ----
  1192.    * Help functions for sc 
  1193.    * R. Bond, 1988
  1194.    * J. Buhrt 1990
  1195. !  * $Revision: 6.21 $
  1196.    */
  1197.   
  1198.   #ifdef QREF
  1199.   #include <stdio.h>
  1200.   char    *header = " Quick Reference";
  1201. ! char    *revision = "$Revision: 6.21 $";
  1202.   #else
  1203.   #include <curses.h>
  1204.   #include "sc.h"
  1205. *** ../620/interp.c    Thu May  7 16:22:14 1992
  1206. --- interp.c    Fri May  8 12:31:27 1992
  1207. ***************
  1208. *** 7,13 ****
  1209.    *
  1210.    *              More mods Robert Bond, 12/86
  1211.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1212. !  *        $Revision: 6.20 $
  1213.    */
  1214.   
  1215.   #define DEBUGDTS 1        /* REMOVE ME */
  1216. --- 7,13 ----
  1217.    *
  1218.    *              More mods Robert Bond, 12/86
  1219.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1220. !  *        $Revision: 6.21 $
  1221.    */
  1222.   
  1223.   #define DEBUGDTS 1        /* REMOVE ME */
  1224. *** ../620/lex.c    Thu May  7 16:22:16 1992
  1225. --- lex.c    Fri May  8 12:31:28 1992
  1226. ***************
  1227. *** 7,13 ****
  1228.    *
  1229.    *              More mods Robert Bond, 12/86
  1230.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1231. !  *        $Revision: 6.20 $
  1232.    *
  1233.    */
  1234.   
  1235. --- 7,13 ----
  1236.    *
  1237.    *              More mods Robert Bond, 12/86
  1238.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1239. !  *        $Revision: 6.21 $
  1240.    *
  1241.    */
  1242.   
  1243. *** ../620/psc.c    Thu May  7 16:22:16 1992
  1244. --- psc.c    Fri May  8 12:31:29 1992
  1245. ***************
  1246. *** 17,23 ****
  1247.    *  Author: Robert Bond
  1248.    *  Adjustments: Jeff Buhrt and Eric Putz
  1249.    */
  1250. ! char *rev = "$Revision: 6.20 $";
  1251.   
  1252.   #include <ctype.h>
  1253.   #include <stdio.h>
  1254. --- 17,23 ----
  1255.    *  Author: Robert Bond
  1256.    *  Adjustments: Jeff Buhrt and Eric Putz
  1257.    */
  1258. ! char *rev = "$Revision: 6.21 $";
  1259.   
  1260.   #include <ctype.h>
  1261.   #include <stdio.h>
  1262. *** ../620/range.c    Thu May  7 16:22:17 1992
  1263. --- range.c    Fri May  8 12:31:29 1992
  1264. ***************
  1265. *** 4,10 ****
  1266.    *
  1267.    *              Robert Bond, 4/87
  1268.    *
  1269. !  *        $Revision: 6.20 $
  1270.    */
  1271.   
  1272.   #include <sys/types.h>
  1273. --- 4,10 ----
  1274.    *
  1275.    *              Robert Bond, 4/87
  1276.    *
  1277. !  *        $Revision: 6.21 $
  1278.    */
  1279.   
  1280.   #include <sys/types.h>
  1281. *** ../620/sc.c    Thu May  7 16:22:18 1992
  1282. --- sc.c    Fri May  8 12:31:31 1992
  1283. ***************
  1284. *** 8,14 ****
  1285.    *              More mods Robert Bond, 12/86
  1286.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1287.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1288. !  *        $Revision: 6.20 $
  1289.    *
  1290.    */
  1291.   
  1292. --- 8,14 ----
  1293.    *              More mods Robert Bond, 12/86
  1294.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1295.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1296. !  *        $Revision: 6.21 $
  1297.    *
  1298.    */
  1299.   
  1300. *** ../620/sc.h    Thu May  7 16:22:19 1992
  1301. --- sc.h    Fri May  8 12:31:32 1992
  1302. ***************
  1303. *** 6,12 ****
  1304.    *            University of Maryland
  1305.    *        R. Bond  12/86
  1306.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1307. !  *        $Revision: 6.20 $
  1308.    *
  1309.    */
  1310.   
  1311. --- 6,12 ----
  1312.    *            University of Maryland
  1313.    *        R. Bond  12/86
  1314.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1315. !  *        $Revision: 6.21 $
  1316.    *
  1317.    */
  1318.   
  1319. *** ../620/screen.c    Thu May  7 16:22:20 1992
  1320. --- screen.c    Fri May  8 12:31:33 1992
  1321. ***************
  1322. *** 8,14 ****
  1323.    *              More mods Robert Bond, 12/86
  1324.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1325.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1326. !  *        $Revision: 6.20 $
  1327.    *
  1328.    */
  1329.   
  1330. --- 8,14 ----
  1331.    *              More mods Robert Bond, 12/86
  1332.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1333.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1334. !  *        $Revision: 6.21 $
  1335.    *
  1336.    */
  1337.   
  1338. *** ../620/version.c    Thu May  7 16:22:20 1992
  1339. --- version.c    Fri May  8 12:31:33 1992
  1340. ***************
  1341. *** 4,7 ****
  1342.    * The part after the first colon, except the last char, appears on the screen.
  1343.    */
  1344.   
  1345. ! char *rev = "$Revision: 6.20 $";
  1346. --- 4,7 ----
  1347.    * The part after the first colon, except the last char, appears on the screen.
  1348.    */
  1349.   
  1350. ! char *rev = "$Revision: 6.21 $";
  1351. *** ../620/vi.c    Thu May  7 16:22:20 1992
  1352. --- vi.c    Fri May  8 12:31:34 1992
  1353. ***************
  1354. *** 1,7 ****
  1355.   /*    SC    A Spreadsheet Calculator
  1356.    *
  1357.    *    One line vi emulation
  1358. !  *    $Revision: 6.20 $
  1359.    */
  1360.   
  1361.   #include <sys/types.h>
  1362. --- 1,7 ----
  1363.   /*    SC    A Spreadsheet Calculator
  1364.    *
  1365.    *    One line vi emulation
  1366. !  *    $Revision: 6.21 $
  1367.    */
  1368.   
  1369.   #include <sys/types.h>
  1370. *** ../620/vmtbl.c    Thu May  7 16:22:21 1992
  1371. --- vmtbl.c    Fri May  8 12:31:35 1992
  1372. ***************
  1373. *** 8,14 ****
  1374.    *              More mods Robert Bond, 12/86
  1375.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1376.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1377. !  *        $Revision: 6.20 $
  1378.    *
  1379.    */
  1380.   #ifdef PSC
  1381. --- 8,14 ----
  1382.    *              More mods Robert Bond, 12/86
  1383.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1384.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1385. !  *        $Revision: 6.21 $
  1386.    *
  1387.    */
  1388.   #ifdef PSC
  1389. *** ../620/xmalloc.c    Thu May  7 16:22:21 1992
  1390. --- xmalloc.c    Fri May  8 12:31:35 1992
  1391. ***************
  1392. *** 1,6 ****
  1393.   /*
  1394.    * A safer saner malloc, for careless programmers
  1395. !  * $Revision: 6.20 $
  1396.    */
  1397.   
  1398.   #include <stdio.h>
  1399. --- 1,6 ----
  1400.   /*
  1401.    * A safer saner malloc, for careless programmers
  1402. !  * $Revision: 6.21 $
  1403.    */
  1404.   
  1405.   #include <stdio.h>
  1406.