home *** CD-ROM | disk | FTP | other *** search
/ pc.louisiana.edu/pub/unix/ / Louisiana_UNIX.tar / Louisiana_UNIX / pch619-621.part1 < prev    next >
Internet Message Format  |  1992-06-01  |  59KB
  1. From nstar!sawmill!prslnk!buhrt@iuvax.cs.indiana.edu Fri May  8 16:11:30 1992
  2. Received: from usl.edu (rouge-gw.usl.edu) by armagnac.ucs.usl.edu with SMTP id AA21329
  3.   (5.65c/IDA-1.4.4 for <jpd@ucs>); Fri, 8 May 1992 16:11:25 -0500
  4. Received: from rex.cs.tulane.edu by usl.edu (4.1/BSS-3.4)
  5.     id AA21126; Fri, 8 May 92 16:11:09 CDT
  6. Received:  by rex.cs.tulane.edu; Fri, 8 May 92 16:10:47 -0500
  7. Received:  from iuvax.cs.indiana.edu by rex.cs.tulane.edu; Fri, 8 May 92 16:10:23 -0500
  8. Received: by iuvax.cs.indiana.edu 
  9. Received: by gator.rn.com (/\==/\ Smail3.1.25.1 #25.5)
  10.     id <m0ljbjY-0000C6C@gator.rn.com>; Fri, 8 May 92 15:40 EST
  11. Received: by sawmill.uucp (/\==/\ Smail3.1.21.1 #21.8)
  12.     id <m0ljazQ-000BEaC@sawmill.uucp>; Fri, 8 May 92 14:52 EST
  13. Received: by prslnk.uucp (/\==/\ Smail3.1.21.1 #21.3)
  14.     id <m0ljaiR-0000caC@prslnk.uucp>; Fri, 8 May 92 14:34 EST
  15. Message-Id: <m0ljaiR-0000caC@prslnk.uucp>
  16. Date: Fri, 8 May 92 14:34 EST
  17. From: prslnk!buhrt@iuvax.cs.indiana.edu (Jeff Buhrt)
  18. To: rutgers!retix!uunet!sawmill!nstar!decwrl!vixie@iuvax.cs.indiana.edu,
  19.         marc@dumbcat.sf.ca.us, jpd@usl.edu, sources-misc@uunet.uu.net
  20. Subject: sc - The SC Spreadsheet: patch4a (1of2)
  21. Status: RO
  22.  
  23.  
  24.  
  25. Submitted-By: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  26. Archive-name: sc/patch04a
  27. Patch-To: sc - The SC Spreadsheet, release 6.16: Volume 20, Issue 035-041
  28. Environment: Curses, good yacc/bison1.18 (anything but bison1.16), sed
  29. Windowing Support: Curses
  30.  
  31. Sc is a Public Domain Spreadsheet Calculator.
  32. Sc appears in comp.sources.misc as:
  33.     v20i035-v20i041 sc/part01-7    original   (Sc6.16)
  34.     v22i095   sc/patch01a        Patch01a/2
  35.     v22i096   sc/patch01b        Patch01b/2 (6.16->6.17)
  36.     v22i104   sc/patch02         Patch02       (6.17->6.18)
  37.     v23i035   sc/patch03         Patch03    (6.18->6.19)
  38.  
  39. Details of Patch #4 (a and b)
  40.         -takes sc from 6.19 to 6.21
  41.  
  42. Changes 6.19 -> 6.21 (for more detail see CHANGES):
  43.     -possible pointer problem fixed
  44.     -Makefile changes (errors, compiler support, OS support)
  45.     -add at end of line ('A')
  46.     -support of more special keys: DC, FIND, HELP, SELECT
  47.     -troff output for quickreference
  48.     -output MIF format (FrameMaker)
  49.     -@numiter returns the number of iterations performed
  50.     -table output appends (if possible) standard suffixes (asc, cln, tbl..)
  51.     -additional system and compiler support
  52.  
  53.                         -Jeff Buhrt
  54.                     nstar!sawmill!prslnk!buhrt
  55.                     Proslink, Inc.
  56.  
  57. Unshar each part then apply the following patches to Sc6.19 with
  58.     'patch < pch619-621a' and 'patch < pch619-621b'.
  59.  
  60. *** ../619/CHANGES    Mon Mar 16 10:09:29 1992
  61. --- CHANGES    Fri May  8 12:31:13 1992
  62. ***************
  63. *** 1,3 ****
  64. --- 1,72 ----
  65. + CHANGES BETWEEN 6.21 and 6.19
  66. + Mark R. Rubin
  67. +     -noted a problem using bison 1.16 (use any version but 1.16)
  68. + Marco S Hyman/Ian */and others
  69. +     -Crypt/CRYPT_PATH define problem
  70. + Paul Eggert
  71. +     -sc.doc $Revision: 6.21 $ 'buglet'
  72. + Ulf Noren/Dave Lewis
  73. +     -AIX3.1/Microport System V/AT don't have notimeout()
  74. +         changed NONOTIMEOUT to NO_NOTIMEOUT, define if not present
  75. + Niels Baggesen
  76. +     -function keys may not return ascii codes that isascii() understands
  77. +     -added an A command for vi mode (add at end of row).
  78. +     -Special key support: DC='x' (del char in vi mode), FIND='g' (goto),
  79. +         HELP='?', SELECT='m'
  80. + Dave Davey
  81. +     -noted Ultrix 4.2 curses doesn't have idlok()
  82. +         [I added NO_IDLOK in Makefile]
  83. + Kim DeVaughn
  84. +     -added ${RIGHTBUG} is now passed to sc.o && screen.o
  85. +     -suggested a better fix on SunOS 4.x dont use the Sys V
  86. +      package (CC = /usr/5bin/cc, etc), but use the BSD 4.3 defines
  87. + David Bonnell
  88. +     -scqref [will produce] TROFF output instead of plain text, 
  89. +      [when] you define QREF_FMT=TROFF in the Makefile.
  90. +      The resulting quick reference guide uses the MS macro set and you 
  91. +      build with something like:
  92. +         scqref > quickref
  93. +          troff -ms quickref > quickref.ps
  94. + Kurt Cockrum
  95. +     - sc.h:
  96. +         If not (defined(BSD42) || defined(BSD43) && !defined(ultrix)),
  97. +         include <memory.h> for the benefit of some USG systems...
  98. +     - screen.c:
  99. +         Repaired cpp logic:
  100. +         don't mention IDLOKBAD or idlok() unless SYSV3 defined;
  101. +         idlok() does not exist for USG pre-SYSV systems (may exist for
  102. +         SYSV{2,3,4}).
  103. +     - tutorial.sc:
  104. +         Repaired a number of off-by-1 errors.
  105. + Mats Wichmann
  106. +     -cleaned up Robert E. Cousins MIF format support code which is
  107. +         compatible with FrameMaker.
  108. + Neil Skilling
  109. +     -added @numiter which returns the number of iterations performed.
  110. +      It allows you to solve equations by direct substitution. Taking a
  111. +      guess from another cell if the first iteration otherwise taking the
  112. +      last best iterate. Other uses may be found.
  113. + Martin MacLaren
  114. +     -MS-DOS cleanup of Makefile
  115. + Art Mulder
  116. +     -^T toggle: don't list crypt if not available
  117. + John Amanatides
  118. +     -pointed out a possible NULL ref in interp.c
  119. + Phil Johnson
  120. +     -sc now appends: "asc", "cln", "tbl", etc. to output files
  121. +     -made the engineering format match that used by an engineer
  122. +     -deleted an unused engmult[] reference
  123. +     -added a fix to struct enode for the HP compiler
  124. + Kevin Cosgrove
  125. +     -noted sc should use any predefined PI
  126. + Jeff Buhrt
  127. +     -'make clean' now leaves the binaries and man pages [Jean-Pierre Radley]
  128. +     -'make clobber' cleans all built files (like clean used to) [""]
  129. +     -'-D' vs '-S' was needed on a XENIX2_3 line [""]
  130. +     -'quit()' -> 'doquit()', function conflict [""]
  131. +     -change xmalloc,xrealloc,xfree -> scxmalloc,scxrealloc,scxfree
  132. +         (xmalloc is a standard malloc)
  133. + 
  134.   CHANGES BETWEEN 6.19 and 6.18
  135.   Tom Tkacik
  136.       -sc.doc and CHANGES changes
  137. *** ../619/README    Mon Mar 16 10:09:29 1992
  138. --- README    Fri May  8 12:31:14 1992
  139. ***************
  140. *** 1,11 ****
  141.   This is a much modified version of the public domain spread sheet sc,
  142.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  143.   
  144. ! CHANGES lists the changes since 6.1 to 6.19.
  145. !     Sc6.16 was released to comp.sources.misc and three sets of patches
  146. !     bring Sc6.16->6.17->6.18->6.19.
  147.   
  148. ! Current maintainer: {sequent, uunet}!sawmill!prslnk!buhrt (Jeff Buhrt)
  149.   
  150.   When you get it built, try "sc tutorial.sc" for a simple introduction
  151.   to the basic commands.
  152. --- 1,11 ----
  153.   This is a much modified version of the public domain spread sheet sc,
  154.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  155.   
  156. ! CHANGES lists the changes since 6.1 to 6.21.
  157. !     Sc6.16 was released to comp.sources.misc and four sets of patches
  158. !     bring Sc6.16->6.17->6.18->6.19->6.21.
  159.   
  160. ! Current maintainer: nstar!sawmill!prslnk!buhrt (Jeff Buhrt)
  161.   
  162.   When you get it built, try "sc tutorial.sc" for a simple introduction
  163.   to the basic commands.
  164. ***************
  165. *** 58,64 ****
  166.   c) Please abide by the style in the code when you make your changes.  It is easy
  167.        to break things trying to make them look "right".
  168.   d) If you do string functions, please, PLEASE pay attention to null pointers,
  169. !     use xmalloc, xrealloc, and xfree; and xfree those arguments.
  170.   e) Please don't forget to document your changes in both help.c and sc.doc.
  171.   f) WHEN sending diffs: please use diff -c (context diff, and possibly
  172.       more than three lines on each side), I get a lot of code and
  173. --- 58,64 ----
  174.   c) Please abide by the style in the code when you make your changes.  It is easy
  175.        to break things trying to make them look "right".
  176.   d) If you do string functions, please, PLEASE pay attention to null pointers,
  177. !     use scxmalloc, scxrealloc, and scxfree; and scxfree those arguments.
  178.   e) Please don't forget to document your changes in both help.c and sc.doc.
  179.   f) WHEN sending diffs: please use diff -c (context diff, and possibly
  180.       more than three lines on each side), I get a lot of code and
  181. ***************
  182. *** 81,86 ****
  183. --- 81,93 ----
  184.     Note: dumbcat speaks 9600 at V.32 -- sorry, this is not a Telebit modem.
  185.     (Grab dumbcat! /INDEX for a complete list)
  186.   
  187. + 3) Sc6.16 was posted in comp.sources.misc, about Jun 4 1991, Volume 20, Issues
  188. +     035-041. There were then 4 patches: Sc6.16->Sc6.17, Sc6.17->Sc6.18,
  189. +     Sc6.18->Sc6.19, and Sc6.19->Sc6.21.
  190. + 
  191. + 4) (FTP) Paul A Vixie <uunet!decwrl!vixie>
  192. +     gatekeeper.dec.com    in /pub/misc/sc-6.21.tar.Z
  193. + 
  194.   Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  195.   warranty, express or implied, as a service to Usenet readers.  It is not
  196.   copyrighted, either.  Have at it.
  197. ***************
  198. *** 87,91 ****
  199.   
  200.                       Jeff Buhrt
  201.                       ProsLink, Inc.
  202. !                     {sequent, uunet}!sawmill!prslnk!buhrt
  203.   
  204. --- 94,98 ----
  205.   
  206.                       Jeff Buhrt
  207.                       ProsLink, Inc.
  208. !                     nstar!sawmill!prslnk!buhrt
  209.   
  210. *** ../619/sc.doc    Mon Mar 16 10:09:30 1992
  211. --- sc.doc    Fri May  8 12:31:15 1992
  212. ***************
  213. *** 15,21 ****
  214.   .\" - TPs use default indent except for function names, then 18.
  215.   .\" - Smallify uppercase strings.
  216.   .\" - Avoid passive voice and third person.
  217. ! .\" $Revision: 6.19 $
  218.   .\"
  219.   .TH PNAME\ #REVISION#\  1
  220.   .SH NAME
  221. --- 15,21 ----
  222.   .\" - TPs use default indent except for function names, then 18.
  223.   .\" - Smallify uppercase strings.
  224.   .\" - Avoid passive voice and third person.
  225. ! .\" $Revision: 6.21 $
  226.   .\"
  227.   .TH PNAME\ #REVISION#\  1
  228.   .SH NAME
  229. ***************
  230. *** 376,386 ****
  231.   .B slatex
  232.   to give a
  233.   .I SLaTeX (Scandinavian LaTeX)
  234. ! tabular environment; and
  235.   .B tex
  236.   to give a
  237.   .I TeX
  238. ! simple tabbed alignment with ampersands as delimiters.
  239.   .PP
  240.   Other
  241.   .I Set
  242. --- 376,388 ----
  243.   .B slatex
  244.   to give a
  245.   .I SLaTeX (Scandinavian LaTeX)
  246. ! tabular environment;
  247.   .B tex
  248.   to give a
  249.   .I TeX
  250. ! simple tabbed alignment with ampersands as delimiters; and
  251. ! .B frame
  252. ! to give a tblstyle output for FrameMaker.
  253.   .PP
  254.   Other
  255.   .I Set
  256. ***************
  257. *** 2174,2179 ****
  258. --- 2176,2184 ----
  259.   or to unstable cyclic references (for example, set
  260.   .IR A0 's
  261.   expression to ``A0+1'').
  262. + .TP 18
  263. + .BR @numiter 
  264. + Returns the number of iterations performed so far.
  265.   .\" ==========
  266.   .SH FILES
  267.   .TP 4in
  268. *** ../619/psc.doc    Mon Mar 16 10:09:31 1992
  269. --- psc.doc    Fri May  8 12:31:16 1992
  270. ***************
  271. *** 1,4 ****
  272. ! .\" $ Revision $
  273.   .TH PPNAME\ #REVISION#\  1
  274.   .SH NAME
  275.   ppname \- prepare pname files
  276. --- 1,4 ----
  277. ! .\" $Revision: 6.21 $
  278.   .TH PPNAME\ #REVISION#\  1
  279.   .SH NAME
  280.   ppname \- prepare pname files
  281. *** ../619/tutorial.sc    Mon Mar 16 10:08:45 1992
  282. --- tutorial.sc    Fri May  8 12:31:16 1992
  283. ***************
  284. *** 1,21 ****
  285.   # This data file was generated by the Spreadsheet Calculator.
  286.   # You almost certainly shouldn't edit it.
  287.   
  288. - define "page4" A71
  289. - define "page3" A50
  290. - define "page2" A30
  291. - define "page1" A11
  292.   define "page5" A90
  293.   leftstring A1 = "This is a brief sc tutorial, best run in a 24-line window."
  294.   leftstring A2 = "Type 'q' to exit, ^Z to suspend (w/ Job Control)."
  295.   leftstring A3 = "^G interrupts a command."
  296.   leftstring A5 = "Cells are named by their column and row number.  For example,"
  297. ! leftstring A6 = "Cell A5"
  298. ! leftstring B6 = "Cell B5"
  299. ! leftstring C6 = "Cell C5"
  300. ! leftstring A7 = "Cell A6"
  301. ! leftstring A8 = "Cell A7"
  302. ! leftstring C8 = "Cell C7"
  303.   leftstring A9 = "Cells range from A0 to ZZ(some number depending on free memory)."
  304.   leftstring A10 = "Cells can also be named by the user.  See 'range names' in the manual."
  305.   leftstring page1 = "You can move the cursor a couple of different ways:"
  306. --- 1,21 ----
  307.   # This data file was generated by the Spreadsheet Calculator.
  308.   # You almost certainly shouldn't edit it.
  309.   
  310.   define "page5" A90
  311. + define "page1" A11
  312. + define "page2" A30
  313. + define "page3" A50
  314. + define "page4" A71
  315.   leftstring A1 = "This is a brief sc tutorial, best run in a 24-line window."
  316.   leftstring A2 = "Type 'q' to exit, ^Z to suspend (w/ Job Control)."
  317.   leftstring A3 = "^G interrupts a command."
  318.   leftstring A5 = "Cells are named by their column and row number.  For example,"
  319. ! leftstring A6 = "Cell A6"
  320. ! leftstring B6 = "Cell B6"
  321. ! leftstring C6 = "Cell C6"
  322. ! leftstring A7 = "Cell A7"
  323. ! leftstring A8 = "Cell A8"
  324. ! leftstring C8 = "Cell C8"
  325.   leftstring A9 = "Cells range from A0 to ZZ(some number depending on free memory)."
  326.   leftstring A10 = "Cells can also be named by the user.  See 'range names' in the manual."
  327.   leftstring page1 = "You can move the cursor a couple of different ways:"
  328. ***************
  329. *** 28,38 ****
  330.   leftstring A19 = "Cells can contain numbers, formulas, or text."
  331.   leftstring A20 = "Most of the cells on this page contain text."
  332.   leftstring C21 = "<Type 'g page2' to continue>"
  333. ! leftstring A23 = "Cell d22 contains text"
  334.   leftstring D23 = "Text "
  335. ! leftstring A24 = "Cell d23 contains a number"
  336.   let D24 = 123.34
  337. ! leftstring A25 = "Cell d24 contains a formula"
  338.   let D25 = D24+88
  339.   leftstring A27 = "To see what the cell contains, just move the cursor"
  340.   leftstring A28 = "onto the cell.  The contents will show up on line 1 in the brackets."
  341. --- 28,38 ----
  342.   leftstring A19 = "Cells can contain numbers, formulas, or text."
  343.   leftstring A20 = "Most of the cells on this page contain text."
  344.   leftstring C21 = "<Type 'g page2' to continue>"
  345. ! leftstring A23 = "Cell d23 contains text"
  346.   leftstring D23 = "Text "
  347. ! leftstring A24 = "Cell d24 contains a number"
  348.   let D24 = 123.34
  349. ! leftstring A25 = "Cell d25 contains a formula"
  350.   let D25 = D24+88
  351.   leftstring A27 = "To see what the cell contains, just move the cursor"
  352.   leftstring A28 = "onto the cell.  The contents will show up on line 1 in the brackets."
  353. ***************
  354. *** 41,47 ****
  355.   leftstring B32 = "'>text' enters right justified text."
  356.   leftstring B33 = "'=number' enters a number"
  357.   leftstring B34 = "'=formula' enters a formula."
  358. ! leftstring A36 = "Try duplicating d22 through d24 in e22 though e24."
  359.   leftstring A38 = "You erase a cell by typing 'x' with the cursor on the cell."
  360.   leftstring C41 = "<Type 'g page3' to continue>"
  361.   leftstring A43 = "Here is a typical use for numbers and formulas:"
  362. --- 41,47 ----
  363.   leftstring B32 = "'>text' enters right justified text."
  364.   leftstring B33 = "'=number' enters a number"
  365.   leftstring B34 = "'=formula' enters a formula."
  366. ! leftstring A36 = "Try duplicating d23 through d25 in e23 though e25."
  367.   leftstring A38 = "You erase a cell by typing 'x' with the cursor on the cell."
  368.   leftstring C41 = "<Type 'g page3' to continue>"
  369.   leftstring A43 = "Here is a typical use for numbers and formulas:"
  370. ***************
  371. *** 65,74 ****
  372.   let B50 = @sum(B45:B48)
  373.   let C50 = @sum(C45:C48)
  374.   let E50 = @sum(A45:C48)
  375. ! leftstring A52 = "The data is entered in a44 through c47."
  376. ! leftstring A53 = "Cells a49, b49 and c49 sum their respective columns."
  377. ! leftstring A54 = "Cells e44, e45, e46, and e47 sum their respective rows."
  378. ! leftstring A55 = "Cell E49 is a grand total."
  379.   leftstring A56 = "Try changing some of the data cells and watch the sums change."
  380.   leftstring A58 = "You can also edit cells by putting the cursor on the cell and typing:"
  381.   leftstring B59 = "'e' to edit the numeric portion."
  382. --- 65,74 ----
  383.   let B50 = @sum(B45:B48)
  384.   let C50 = @sum(C45:C48)
  385.   let E50 = @sum(A45:C48)
  386. ! leftstring A52 = "The data is entered in a45 through c48."
  387. ! leftstring A53 = "Cells a50, b50 and c50 sum their respective columns."
  388. ! leftstring A54 = "Cells e45, e46, e47, and e48 sum their respective rows."
  389. ! leftstring A55 = "Cell E50 is a grand total."
  390.   leftstring A56 = "Try changing some of the data cells and watch the sums change."
  391.   leftstring A58 = "You can also edit cells by putting the cursor on the cell and typing:"
  392.   leftstring B59 = "'e' to edit the numeric portion."
  393. *** ../619/build.com    Thu Sep 26 10:53:00 1991
  394. --- build.com    Fri May  8 12:31:17 1992
  395. ***************
  396. *** 1,6 ****
  397.   $! VMS command file to build SC and PSC (requires bison) on VMS
  398.   $! SC:
  399. ! $! $Revision: 6.19 $
  400.   $! bison -d gram.y
  401.   $! ren gram_tab.c gram.c
  402.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  403. --- 1,6 ----
  404.   $! VMS command file to build SC and PSC (requires bison) on VMS
  405.   $! SC:
  406. ! $! $Revision: 6.21 $
  407.   $! bison -d gram.y
  408.   $! ren gram_tab.c gram.c
  409.   $ cc'p1'  /define=("SIMPLE","SIGVOID") sc.c
  410. *** ../619/Makefile    Mon Mar 16 10:09:31 1992
  411. --- Makefile    Fri May  8 12:31:18 1992
  412. ***************
  413. *** 1,4 ****
  414. ! # Makefile $Revision: 6.19 $
  415.   #
  416.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  417.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  418. --- 1,4 ----
  419. ! # Makefile $Revision: 6.21 $
  420.   #
  421.   # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  422.   #    RE_COMP/REGCMP, DFLT_PAGER, and FMOD. Most of the other things aren't
  423. ***************
  424. *** 94,100 ****
  425.   # BSD
  426.   #CRYPT=-DCRYPT_PATH=\"/usr/bin/crypt\"
  427.   # other people?
  428. ! #CRYPT=CRYPT_PATH=\"/usr/local/bin/crypt\"
  429.   
  430.   # If you get errors about fmod being undefined when you try to
  431.   # compile, then define NO_FMOD (most likely BSD4.3 and Mt Xinu).
  432. --- 94,100 ----
  433.   # BSD
  434.   #CRYPT=-DCRYPT_PATH=\"/usr/bin/crypt\"
  435.   # other people?
  436. ! #CRYPT=-DCRYPT_PATH=\"/usr/local/bin/crypt\"
  437.   
  438.   # If you get errors about fmod being undefined when you try to
  439.   # compile, then define NO_FMOD (most likely BSD4.3 and Mt Xinu).
  440. ***************
  441. *** 102,113 ****
  442.   FMOD=
  443.   
  444.   # If your system doesn't have notimeout() in curses define NONOTIMEOUT
  445. ! NONOTIMEOUT=
  446. ! #NONOTIMEOUT=-DNONOTIMEOUT
  447.   
  448.   # flags for lint
  449.   LINTFLAGS=-abchxv
  450.   
  451.   # *** SPECIAL NOTES ***
  452.   # For ULTRIX: define the BSD4.2 section and SIGVOID above
  453.   #    tdw@cl.cam.ac.uk tested on Ultrix 3.1C-0
  454. --- 102,118 ----
  455.   FMOD=
  456.   
  457.   # If your system doesn't have notimeout() in curses define NONOTIMEOUT
  458. ! NO_NOTIMEOUT=
  459. ! #NO_NOTIMEOUT=-DNONOTIMEOUT
  460.   
  461.   # flags for lint
  462.   LINTFLAGS=-abchxv
  463.   
  464. + # Format of quick reference guide generated by $(name)qref
  465. + # Leave undefined for normal text output.
  466. + #QREF_FMT=
  467. + QREF_FMT=-DTROFF
  468. + 
  469.   # *** SPECIAL NOTES ***
  470.   # For ULTRIX: define the BSD4.2 section and SIGVOID above
  471.   #    tdw@cl.cam.ac.uk tested on Ultrix 3.1C-0
  472. ***************
  473. *** 128,135 ****
  474.   #         noticing the rows become 2, 3, 40, 41, 42... (etc).
  475.   #    Known systems/terminfos w/ curses problems:
  476.   #    {Esix Rev. D+, AT&T SysV3.2.1}:at386-m,xterm, HP-UX7.0:(not sure)
  477. ! IDLOKBAD=-DIDLOKBAD
  478. ! #IDLOKBAD=
  479.   
  480.   # If moving right off the screen causes the screen to not redraw
  481.   # properly, define RIGHT_CBUG to get around a curses problem on some
  482. --- 133,144 ----
  483.   #         noticing the rows become 2, 3, 40, 41, 42... (etc).
  484.   #    Known systems/terminfos w/ curses problems:
  485.   #    {Esix Rev. D+, AT&T SysV3.2.1}:at386-m,xterm, HP-UX7.0:(not sure)
  486. ! IDLOKISBAD=-DIDLOKBAD
  487. ! #IDLOKISBAD=
  488. ! 
  489. ! # If you don't have idlok() in your curses define NOIDLOK
  490. ! NO_IDLOK=
  491. ! #NO_IDLOK=-DNOIDLOK
  492.   
  493.   # If moving right off the screen causes the screen to not redraw
  494.   # properly, define RIGHT_CBUG to get around a curses problem on some
  495. ***************
  496. *** 141,148 ****
  497. --- 150,162 ----
  498.   # some other yacc. Some systems don't allow you to
  499.   # increase the number of terminals (mostly AT&T), SCO's does though.
  500.   #YACC=yacc
  501. + # NOTE: Do not use with bison 1.16! Get a new version....
  502.   YACC=bison -y
  503.   
  504. + # MS-DOS needs y_tab instead of the normal y.tab
  505. + #YTAB=y_tab
  506. + YTAB=y.tab
  507. + 
  508.   # Command to use to make temporary copies of some source files.
  509.   LN=ln
  510.   #LN=ln -s
  511. ***************
  512. *** 166,177 ****
  513.   # Use this for system V.3
  514.   CFLAGS=  -DSYSV3 -O
  515.   LDFLAGS= -s
  516.   LIB=-lm -lcurses -lPW
  517.   # with gcc also use:
  518.   #CC=gcc
  519.   #CFLAGS=  -DSYSV3 -O -pipe -traditional
  520. ! #YACC=bison -y
  521. ! 
  522.   
  523.   # Use this for system V.4
  524.   #CFLAGS=  -DSYSV4 -DSYSV3 -O
  525. --- 180,194 ----
  526.   # Use this for system V.3
  527.   CFLAGS=  -DSYSV3 -O
  528.   LDFLAGS= -s
  529. + #CFLAGS=  -DSYSV3 -g
  530. + #LDFLAGS= -g
  531.   LIB=-lm -lcurses -lPW
  532.   # with gcc also use:
  533.   #CC=gcc
  534.   #CFLAGS=  -DSYSV3 -O -pipe -traditional
  535. ! # debugging bison (bison 1.16 is broken)
  536. ! #CFLAGS=  -DSYSV3 -g -pipe -traditional
  537. ! #YACC=bison -y -v -t -l
  538.   
  539.   # Use this for system V.4
  540.   #CFLAGS=  -DSYSV4 -DSYSV3 -O
  541. ***************
  542. *** 190,195 ****
  543. --- 207,214 ----
  544.   #CFLAGS= -O -DBSD42
  545.   #LDFLAGS=
  546.   #LIB=-lm -lcurses -ltermcap
  547. + # with gcc also use:
  548. + #CC=gcc
  549.   
  550.   # Use this for Sequent boxes
  551.   #CC=atscc
  552. ***************
  553. *** 224,230 ****
  554.   #LIB=-lm -lcurses -ltermcap
  555.   
  556.   # Use this for XENIX Version 2.3
  557. ! #CFLAGS= -O -SSYSIII -DXENIX2_3
  558.   #LDFLAGS= -i
  559.   #LIB=-lm -lcurses -ltermcap
  560.   
  561. --- 243,249 ----
  562.   #LIB=-lm -lcurses -ltermcap
  563.   
  564.   # Use this for XENIX Version 2.3
  565. ! #CFLAGS= -O -DSYSIII -DXENIX2_3
  566.   #LDFLAGS= -i
  567.   #LIB=-lm -lcurses -ltermcap
  568.   
  569. ***************
  570. *** 282,312 ****
  571.   $(name):$(PAR)     $(OBJS)
  572.       $(CC) ${LDFLAGS} ${OBJS} ${LIB} -o $(name)
  573.   
  574. ! # Alternative for MS-DOS
  575.   #$(name):     $(OBJS)
  576.   #    link ${LDFLAGS} ${OBJS},$(name),,${LIB};
  577.   
  578.   gram.c:    gram.y
  579. !     $(YACC) -d gram.y; mv y.tab.c gram.c
  580. ! 
  581. ! y.tab.h:    gram.y
  582.   
  583. ! # Alternative for MS-DOS
  584. ! #gram.c:    gram.y
  585. ! #    $(YACC) -d gram.y
  586. ! #    mv y_tab.c gram.c
  587. ! #
  588. ! #y_tab.h:    gram.y
  589.   
  590.   p$(name):    psc.c pvmtbl.o pxmalloc.o
  591.       $(CC) $(CFLAGS) ${LDFLAGS} -o p$(name) psc.c pvmtbl.o pxmalloc.o ${PSCLIB}
  592.   
  593.   qhelp.c: help.c
  594.       -rm -f qhelp.c
  595.       ${LN} help.c qhelp.c
  596.   
  597.   $(name)qref:    qhelp.c sc.h
  598. !     $(CC) $(CFLAGS) $(LDFLAGS) -DQREF -DSCNAME=\"$(name)\" -o $(name)qref qhelp.c
  599.   
  600.   pvmtbl.c: vmtbl.c
  601.       -rm -f pvmtbl.c
  602. --- 301,334 ----
  603.   $(name):$(PAR)     $(OBJS)
  604.       $(CC) ${LDFLAGS} ${OBJS} ${LIB} -o $(name)
  605.   
  606. ! # Alternative link for MS-DOS
  607.   #$(name):     $(OBJS)
  608.   #    link ${LDFLAGS} ${OBJS},$(name),,${LIB};
  609.   
  610.   gram.c:    gram.y
  611. !     $(YACC) -d gram.y
  612. !     mv $(YTAB).c gram.c
  613.   
  614. ! $(YTAB).h:    gram.y
  615.   
  616.   p$(name):    psc.c pvmtbl.o pxmalloc.o
  617.       $(CC) $(CFLAGS) ${LDFLAGS} -o p$(name) psc.c pvmtbl.o pxmalloc.o ${PSCLIB}
  618.   
  619. + # Alternative link for MS-DOS (NB: MSC 5.1 has no getopt.c)
  620. + #p$(name):     psc.o pvmtbl.o pxmalloc.o getopt.o
  621. + #    link ${LDFLAGS} psc.o pvmtbl.o pxmalloc.o getopt.o,p$(name);
  622. + 
  623.   qhelp.c: help.c
  624.       -rm -f qhelp.c
  625.       ${LN} help.c qhelp.c
  626.   
  627.   $(name)qref:    qhelp.c sc.h
  628. !     $(CC) $(CFLAGS) $(LDFLAGS) -DQREF $(QREF_FMT) -DSCNAME=\"$(NAME)\" -o $(name)qref qhelp.c
  629. ! 
  630. ! # Alternative link for MS-DOS
  631. ! #$(name)qref:    qhelp.c sc.h
  632. ! #    $(CC) -AL -O -Foqhelp.o -c -DQREF -DSCNAME=\"$(name)\" qhelp.c
  633. ! #    link ${LDFLAGS} qhelp.o,$(name)qref;
  634.   
  635.   pvmtbl.c: vmtbl.c
  636.       -rm -f pvmtbl.c
  637. ***************
  638. *** 338,350 ****
  639.   interp.o:    interp.c sc.h
  640.       $(CC) ${CFLAGS} ${IEEE_MATH} ${SIGVOID} ${RINT} ${RE_COMP} ${REGCMP} ${FMOD} -c interp.c
  641.   
  642. ! gram.o:    sc.h y.tab.h gram.c
  643.       $(CC) ${CFLAGS} -c gram.c
  644.       sed < gram.y > experres.h -f eres.sed
  645.       sed < gram.y > statres.h -f sres.sed
  646.   
  647. ! lex.o:    sc.h y.tab.h gram.o lex.c
  648. !     $(CC) ${CFLAGS} ${SIMPLE} ${IEEE_MATH} ${SIGVOID} ${NONOTIMEOUT} -c lex.c
  649.   
  650.   pxmalloc.o: sc.h pxmalloc.c
  651.       $(CC) ${CFLAGS} -c -DPSC pxmalloc.c
  652. --- 360,372 ----
  653.   interp.o:    interp.c sc.h
  654.       $(CC) ${CFLAGS} ${IEEE_MATH} ${SIGVOID} ${RINT} ${RE_COMP} ${REGCMP} ${FMOD} -c interp.c
  655.   
  656. ! gram.o:    sc.h $(YTAB).h gram.c
  657.       $(CC) ${CFLAGS} -c gram.c
  658.       sed < gram.y > experres.h -f eres.sed
  659.       sed < gram.y > statres.h -f sres.sed
  660.   
  661. ! lex.o:    sc.h $(YTAB).h gram.o lex.c
  662. !     $(CC) ${CFLAGS} ${SIMPLE} ${IEEE_MATH} ${SIGVOID} ${NO_NOTIMEOUT} -c lex.c
  663.   
  664.   pxmalloc.o: sc.h pxmalloc.c
  665.       $(CC) ${CFLAGS} -c -DPSC pxmalloc.c
  666. ***************
  667. *** 352,361 ****
  668.   range.o: range.c sc.h
  669.   
  670.   sc.o:    sc.h sc.c
  671. !     $(CC) ${CFLAGS} ${DFLT_PAGER} ${SIGVOID} ${SAVE} -c sc.c
  672.   
  673.   screen.o:    sc.h screen.c
  674. !     $(CC) ${CFLAGS} ${BROKENCURSES} ${IDLOKBAD} ${INTERNATIONAL} ${SIGVOID} -c screen.c
  675.   
  676.   vi.o: vi.c sc.h
  677.   
  678. --- 374,383 ----
  679.   range.o: range.c sc.h
  680.   
  681.   sc.o:    sc.h sc.c
  682. !     $(CC) ${CFLAGS} ${DFLT_PAGER} ${RIGHTBUG} ${SIGVOID} ${SAVE} -c sc.c
  683.   
  684.   screen.o:    sc.h screen.c
  685. !     $(CC) ${CFLAGS} ${BROKENCURSES} ${IDLOKISBAD} ${INTERNATIONAL} ${RIGHTBUG} ${SIGVOID} ${NO_IDLOK} -c screen.c
  686.   
  687.   vi.o: vi.c sc.h
  688.   
  689. ***************
  690. *** 362,370 ****
  691.   # other stuff
  692.   
  693.   clean:
  694. !     rm -f *.o *res.h y.tab.h $(name) p$(name) debug core gram.c $(name).1 \
  695.       $(name).man p$(name).man p$(name).1 y.output $(name)qref \
  696. !     pxmalloc.c pvmtbl.c qhelp.c y_tab.h
  697.   
  698.   shar: ${SRC} ${DOCS}
  699.       shar -c -m 64000 -f shar ${DOCS} ${SRC}
  700. --- 384,396 ----
  701.   # other stuff
  702.   
  703.   clean:
  704. !     rm -f *.o *res.h y.tab.h debug core gram.c $(name).1 \
  705. !     p$(name).1 y.output pxmalloc.c pvmtbl.c qhelp.c y_tab.h
  706. ! 
  707. ! clobber:
  708. !     rm -f *.o *res.h $(YTAB).h $(name) p$(name) debug core gram.c $(name).1 \
  709.       $(name).man p$(name).man p$(name).1 y.output $(name)qref \
  710. !     pxmalloc.c pvmtbl.c qhelp.c
  711.   
  712.   shar: ${SRC} ${DOCS}
  713.       shar -c -m 64000 -f shar ${DOCS} ${SRC}
  714. ***************
  715. *** 396,402 ****
  716.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  717.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  718.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  719. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.19 $(
  720.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  721.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  722.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  723. --- 422,428 ----
  724.       name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  725.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  726.   #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  727. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.21 $(
  728.   #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  729.   #        -e s%#LIBDIR#%$(LIBDIR)%g \
  730.   #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  731. *** ../619/cmds.c    Mon Mar 16 10:09:32 1992
  732. --- cmds.c    Fri May  8 13:40:24 1992
  733. ***************
  734. *** 7,13 ****
  735.    *
  736.    *              More mods Robert Bond, 12/86
  737.    *
  738. !  *        $Revision: 6.19 $
  739.    */
  740.   
  741.   #include <sys/types.h>
  742. --- 7,13 ----
  743.    *
  744.    *              More mods Robert Bond, 12/86
  745.    *
  746. !  *        $Revision: 6.21 $
  747.    */
  748.   
  749.   #include <sys/types.h>
  750. ***************
  751. *** 459,464 ****
  752. --- 459,465 ----
  753.       modflg++;
  754.   }
  755.   
  756. + /* delete group of columns (1 or more) */
  757.   void
  758.   closecol (cs, numcol)
  759.   int cs;
  760. ***************
  761. *** 517,523 ****
  762.       fwidth[i] = DEFWIDTH;
  763.       precision[i] = DEFPREC;
  764.       realfmt[i] = DEFREFMT;
  765. !     col_hidden[i] = 0;
  766.       }
  767.   
  768.       maxcol -= numcol;
  769. --- 518,524 ----
  770.       fwidth[i] = DEFWIDTH;
  771.       precision[i] = DEFPREC;
  772.       realfmt[i] = DEFREFMT;
  773. !     col_hidden[i] = FALSE;
  774.       }
  775.   
  776.       maxcol -= numcol;
  777. ***************
  778. *** 675,681 ****
  779.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  780.                       tbl_style == LATEX ? "latex" :
  781.                       tbl_style == SLATEX ? "slatex" :
  782. !                     tbl_style == TEX ? "tex" : "0" );
  783.       if (craction)
  784.       (void) fprintf(f, " craction = %d", craction);
  785.       if (rowlimit >= 0)
  786. --- 676,683 ----
  787.       (void) fprintf(f, " tblstyle = %s", tbl_style == TBL ? "tbl" :
  788.                       tbl_style == LATEX ? "latex" :
  789.                       tbl_style == SLATEX ? "slatex" :
  790. !                     tbl_style == TEX ? "tex" :
  791. !                     tbl_style == FRAME ? "frame" : "0" );
  792.       if (craction)
  793.       (void) fprintf(f, " craction = %d", craction);
  794.       if (rowlimit >= 0)
  795. ***************
  796. *** 698,712 ****
  797.       int fieldlen, nextcol;
  798.       register row, col;
  799.       register struct ent **pp;
  800. !     char *xmalloc();
  801. !     char *xrealloc();
  802.   
  803.       if ((strcmp(fname, curfile) == 0) &&
  804.       !yn_ask("Confirm that you want to destroy the data base: (y,n)")) {
  805.       return;
  806.       }
  807.   
  808. !     if (!pline && (pline = xmalloc((unsigned)(FBUFLEN *
  809.                       ++fbufs_allocated))) == (char *)NULL)
  810.       {   error("Malloc failed in printfile()");
  811.           return;
  812. --- 700,731 ----
  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.       return;
  839.       }
  840.   
  841. !     if (!pline && (pline = scxmalloc((unsigned)(FBUFLEN *
  842.                       ++fbufs_allocated))) == (char *)NULL)
  843.       {   error("Malloc failed in printfile()");
  844.           return;
  845. ***************
  846. *** 741,747 ****
  847.            * attempting to write 'out of bounds'.
  848.            */
  849.           while(c > (fbufs_allocated * FBUFLEN)) {
  850. !           if((pline = xrealloc
  851.                      ((char *)pline, 
  852.                   (unsigned)(FBUFLEN * ++fbufs_allocated)))
  853.                == NULL) {
  854. --- 760,766 ----
  855.            * attempting to write 'out of bounds'.
  856.            */
  857.           while(c > (fbufs_allocated * FBUFLEN)) {
  858. !           if((pline = scxrealloc
  859.                      ((char *)pline, 
  860.                   (unsigned)(FBUFLEN * ++fbufs_allocated)))
  861.                == NULL) {
  862. ***************
  863. *** 754,760 ****
  864.           if ((*pp)->flags&is_valid) {
  865.               while(plinelim + fwidth[col] > 
  866.                 (fbufs_allocated * FBUFLEN)) {
  867. !               if((pline = ((char *)xrealloc
  868.                      ((char *)pline, 
  869.                       (unsigned)(FBUFLEN * ++fbufs_allocated))))
  870.                == NULL) {
  871. --- 773,779 ----
  872.           if ((*pp)->flags&is_valid) {
  873.               while(plinelim + fwidth[col] > 
  874.                 (fbufs_allocated * FBUFLEN)) {
  875. !               if((pline = ((char *)scxrealloc
  876.                      ((char *)pline, 
  877.                       (unsigned)(FBUFLEN * ++fbufs_allocated))))
  878.                == NULL) {
  879. ***************
  880. *** 811,821 ****
  881.               slen = fieldlen;
  882.               
  883.               while(c + fieldlen + 2 > (fbufs_allocated * FBUFLEN)) {
  884. !               if((pline = ((char *)xrealloc
  885.                      ((char *)pline, 
  886.                       (unsigned)(FBUFLEN * ++fbufs_allocated))))
  887.                == NULL) {
  888. !             error ("xrealloc failed in printfile()");
  889.               return;
  890.                 }
  891.               }          
  892. --- 830,840 ----
  893.               slen = fieldlen;
  894.               
  895.               while(c + fieldlen + 2 > (fbufs_allocated * FBUFLEN)) {
  896. !               if((pline = ((char *)scxrealloc
  897.                      ((char *)pline, 
  898.                       (unsigned)(FBUFLEN * ++fbufs_allocated))))
  899.                == NULL) {
  900. !             error ("scxrealloc failed in printfile()");
  901.               return;
  902.                 }
  903.               }          
  904. ***************
  905. *** 867,872 ****
  906. --- 886,916 ----
  907.       register row, col;
  908.       register struct ent **pp;
  909.       char coldelim = DEFCOLDELIM;
  910. +     char file[32];
  911. +     char path[256];
  912. +     char *tpp;
  913. + 
  914. +     /* tblprintfile will be the [path/]file ---> [path/]file.out,
  915. +      * file is limited to 14 characters.
  916. +      */
  917. +     if (*fname == '\0') {
  918. +     strcpy(path, curfile);
  919. +     if ((tpp = strrchr(path, '/'))  == NULL)
  920. +       tpp = path;
  921. +     else
  922. +       tpp++;
  923. +     strcpy(file, tpp);
  924. +     file[10] = '\0';
  925. +     if (tbl_style == 0)
  926. +       sprintf(tpp, "%s.cln", file);
  927. +     else if (tbl_style == TBL)
  928. +       sprintf(tpp, "%s.tbl", file);
  929. +     else if (tbl_style == LATEX)
  930. +       sprintf(tpp, "%s.lat", file);
  931. +     else if (tbl_style == TEX)
  932. +       sprintf(tpp, "%s.tex", file);
  933. +     fname = path;
  934. +     }
  935.   
  936.       if ((strcmp(fname, curfile) == 0) &&
  937.       !yn_ask("Confirm that you want to destroy the data base: (y,n)"))
  938. ***************
  939. *** 900,911 ****
  940. --- 944,992 ----
  941.           progname, cn-c0+1);
  942.       coldelim = '&';
  943.       }
  944. +     else if ( tbl_style == FRAME ) {
  945. +     fprintf(f,"<MIFFile 3.00> # generated by the sc spreadsheet calculator\n");
  946. +     fprintf(f,"<Tbls\n");
  947. +     fprintf(f," <Tbl \n");
  948. +     fprintf(f,"  <TblID 1> # This table's ID is 1\n");
  949. +     fprintf(f,"  <TblFormat \n");
  950. +     fprintf(f,"   <TblTag `Format A'> # Table Format Catalog\n");
  951. +     fprintf(f,"  > # end of TblFormat\n");
  952. +     fprintf(f,"  <TblNumColumns %d> # Has %d columns\n",cn-c0+1,cn-c0+1);
  953. +     fprintf(f,"  <TblTitleContent\n");
  954. +     fprintf(f,"   <Para\n");
  955. +     fprintf(f,"    <PgfTag `TableTitle'> # Forces lookup in Paragraph Format Catalog\n");
  956. +     fprintf(f,"    <ParaLine\n");
  957. +     fprintf(f,"     <String `%s'>\n",fname);
  958. +     fprintf(f,"    > # end of ParaLine\n");
  959. +     fprintf(f,"   > # end of Para\n");
  960. +     fprintf(f,"  > # end of TblTitleContent\n");
  961. +     fprintf(f,"  <TblH # The heading\n");
  962. +     fprintf(f,"   <Row # The heading row\n");
  963. +     for (col=c0; col <= cn; col++) {
  964. +         fprintf(f,"    <Cell <CellContent <Para # Cell in column \n");
  965. +         fprintf(f,"       <PgfTag `CellHeading'> # in Paragraph Format Catalog\n");
  966. +         fprintf(f,"       <ParaLine <String `%c'>>\n",'A'+col);
  967. +         fprintf(f,"    >>> # end of Cell\n");
  968. +     }
  969. +     fprintf(f,"   > # end of Row\n");
  970. +     fprintf(f,"  > # end of TblH\n");
  971. +     fprintf(f,"  <TblBody # The body\n");
  972. +     }
  973.   
  974.       for (row=r0; row<=rn; row++) {
  975.       if ( tbl_style == TEX )
  976.           (void) fprintf (f, "\\+");
  977. +     else if ( tbl_style == FRAME ) {
  978. +         fprintf(f,"   <Row # The next body row\n");
  979. +     }
  980.       
  981.       for (pp = ATBL(tbl, row, col=c0); col<=cn; col++, pp++) {
  982. +         if ( tbl_style == FRAME ) {
  983. +         fprintf(f,"    <Cell <CellContent <Para\n");
  984. +         fprintf(f,"       <PgfTag `CellBody'> # in Paragraph Format Catalog\n");
  985. +         fprintf(f,"       <ParaLine <String `");
  986. +         } 
  987.           if (*pp) {
  988.           char *s;
  989.           if ((*pp)->flags&is_valid) {
  990. ***************
  991. *** 933,940 ****
  992.                   unspecial (f, s, coldelim);
  993.           }
  994.           }
  995.           if ( col < cn )
  996. !         (void) fprintf(f,"%c", coldelim);
  997.       }
  998.       if ( tbl_style == LATEX ) {
  999.           if ( row < rn ) (void) fprintf (f, "\\\\");
  1000. --- 1014,1026 ----
  1001.                   unspecial (f, s, coldelim);
  1002.           }
  1003.           }
  1004. +         if (tbl_style == FRAME) {
  1005. +         fprintf(f, "'>>\n");
  1006. +         fprintf(f,"    >>> # end of Cell\n");
  1007. +         }
  1008.           if ( col < cn )
  1009. !         if (tbl_style != FRAME)
  1010. !             (void) fprintf(f,"%c", coldelim);
  1011.       }
  1012.       if ( tbl_style == LATEX ) {
  1013.           if ( row < rn ) (void) fprintf (f, "\\\\");
  1014. ***************
  1015. *** 945,950 ****
  1016. --- 1031,1039 ----
  1017.       else if ( tbl_style == TEX ) {
  1018.           (void) fprintf (f, "\\cr");
  1019.       }
  1020. +     else if ( tbl_style == FRAME ) {
  1021. +         fprintf(f,"   > # end of Row\n");
  1022. +     }
  1023.       (void) fprintf (f,"\n");
  1024.       }
  1025.   
  1026. ***************
  1027. *** 956,961 ****
  1028. --- 1045,1059 ----
  1029.       (void) fprintf (f,"!end<tabular>\n%% ** end of %s spreadsheet output\n", progname);
  1030.       else if ( tbl_style == TEX )
  1031.       (void) fprintf (f,"}\n%% ** end of %s spreadsheet output\n", progname);
  1032. +     else if ( tbl_style == FRAME ) {
  1033. +     fprintf(f,"  > # end of TblBody\n");
  1034. +     fprintf(f," ># end of Tbl\n");
  1035. +     fprintf(f,"> # end of Tbls\n");
  1036. +     fprintf(f,"<TextFlow <Para \n");
  1037. +     fprintf(f,"  <PgfTag Body> \n");
  1038. +     fprintf(f,"  <ParaLine <ATbl 1>> # Reference to table ID 1\n");
  1039. +     fprintf(f,">>\n");
  1040. +     }
  1041.   
  1042.       closeout(f, pid);
  1043.   }
  1044. ***************
  1045. *** 996,1002 ****
  1046.           freeenodes = ret->e.o.left;
  1047.       }
  1048.       else
  1049. !         ret = (struct enode *) xmalloc ((unsigned) sizeof (struct enode));
  1050.       ret->op = e->op;
  1051.       newrow=e->e.r.left.vf & FIX_ROW ? e->e.r.left.vp->row :
  1052.                         e->e.r.left.vp->row+Rdelta;
  1053. --- 1094,1100 ----
  1054.           freeenodes = ret->e.o.left;
  1055.       }
  1056.       else
  1057. !         ret = (struct enode *) scxmalloc ((unsigned) sizeof (struct enode));
  1058.       ret->op = e->op;
  1059.       newrow=e->e.r.left.vf & FIX_ROW ? e->e.r.left.vp->row :
  1060.                         e->e.r.left.vp->row+Rdelta;
  1061. ***************
  1062. *** 1016,1022 ****
  1063.           freeenodes = ret->e.o.left;
  1064.       }
  1065.       else
  1066. !         ret = (struct enode *) xmalloc ((unsigned) sizeof (struct enode));
  1067.       ret->op = e->op;
  1068.       switch (ret->op) {
  1069.       case 'v':
  1070. --- 1114,1120 ----
  1071.           freeenodes = ret->e.o.left;
  1072.       }
  1073.       else
  1074. !         ret = (struct enode *) scxmalloc ((unsigned) sizeof (struct enode));
  1075.       ret->op = e->op;
  1076.       switch (ret->op) {
  1077.       case 'v':
  1078. ***************
  1079. *** 1038,1044 ****
  1080.           ret->e.o.left = (struct enode *)0;
  1081.            break;
  1082.       case '$':
  1083. !         ret->e.s = xmalloc((unsigned) strlen(e->e.s)+1);
  1084.           (void) strcpy(ret->e.s, e->e.s);
  1085.           break;
  1086.       default:
  1087. --- 1136,1142 ----
  1088.           ret->e.o.left = (struct enode *)0;
  1089.            break;
  1090.       case '$':
  1091. !         ret->e.s = scxmalloc((unsigned) strlen(e->e.s)+1);
  1092.           (void) strcpy(ret->e.s, e->e.s);
  1093.           break;
  1094.       default:
  1095. ***************
  1096. *** 1051,1061 ****
  1097.   }
  1098.   
  1099.   /*
  1100. - 
  1101.    * sync_refs and syncref are used to remove references to
  1102.    * deleted struct ents.  Note that the deleted structure must still
  1103.    * be hanging around before the call, but not referenced by an entry
  1104. !  * in tbl.  Thus the free_ent, fix_ent calls in sc.c
  1105.    */
  1106.   void
  1107.   sync_refs ()
  1108. --- 1149,1158 ----
  1109.   }
  1110.   
  1111.   /*
  1112.    * sync_refs and syncref are used to remove references to
  1113.    * deleted struct ents.  Note that the deleted structure must still
  1114.    * be hanging around before the call, but not referenced by an entry
  1115. !  * in tbl.  Thus the free_ent calls in sc.c
  1116.    */
  1117.   void
  1118.   sync_refs ()
  1119. ***************
  1120. *** 1144,1150 ****
  1121.       FullUpdate++;
  1122.       modflg++;
  1123.       while (c1 <= c2)
  1124. !     col_hidden[c1++] = 1;
  1125.   }
  1126.   
  1127.   /* mark a row as not-hidden */
  1128. --- 1241,1247 ----
  1129.       FullUpdate++;
  1130.       modflg++;
  1131.       while (c1 <= c2)
  1132. !     col_hidden[c1++] = TRUE;
  1133.   }
  1134.   
  1135.   /* mark a row as not-hidden */
  1136. ***************
  1137. *** 1180,1186 ****
  1138.       FullUpdate++;
  1139.       modflg++;
  1140.       while (c1 <= c2)
  1141. !     col_hidden[c1++] = 0;
  1142.   }
  1143.   
  1144.   /* Open the output file, setting up a pipe if needed */
  1145. --- 1277,1283 ----
  1146.       FullUpdate++;
  1147.       modflg++;
  1148.       while (c1 <= c2)
  1149. !     col_hidden[c1++] = FALSE;
  1150.   }
  1151.   
  1152.   /* Open the output file, setting up a pipe if needed */
  1153. ***************
  1154. *** 1282,1293 ****
  1155.       n -> expr = copye (p -> expr, dr, dc);
  1156.       n -> label = (char *)0;
  1157.       if (p -> label) {
  1158. !     n -> label = xmalloc ((unsigned) (strlen (p -> label) + 1));
  1159.       (void) strcpy (n -> label, p -> label);
  1160.       }
  1161.       n -> format = 0;
  1162.       if (p -> format) {
  1163. !         n -> format = xmalloc ((unsigned) (strlen (p -> format) + 1));
  1164.       (void) strcpy (n -> format, p -> format);
  1165.       }
  1166.   }
  1167. --- 1379,1390 ----
  1168.       n -> expr = copye (p -> expr, dr, dc);
  1169.       n -> label = (char *)0;
  1170.       if (p -> label) {
  1171. !     n -> label = scxmalloc ((unsigned) (strlen (p -> label) + 1));
  1172.       (void) strcpy (n -> label, p -> label);
  1173.       }
  1174.       n -> format = 0;
  1175.       if (p -> format) {
  1176. !         n -> format = scxmalloc ((unsigned) (strlen (p -> format) + 1));
  1177.       (void) strcpy (n -> format, p -> format);
  1178.       }
  1179.   }
  1180. ***************
  1181. *** 1457,1463 ****
  1182.       for (c=0; c++<=maxcol; pp++)
  1183.           if (*pp) {
  1184.           if ((*pp)->expr)  efree ((*pp) -> expr);
  1185. !         if ((*pp)->label) xfree ((char *)((*pp) -> label));
  1186.           (*pp)->next = freeents;    /* save [struct ent] for reuse */
  1187.           freeents = *pp;
  1188.           *pp = (struct ent *)0;
  1189. --- 1554,1560 ----
  1190.       for (c=0; c++<=maxcol; pp++)
  1191.           if (*pp) {
  1192.           if ((*pp)->expr)  efree ((*pp) -> expr);
  1193. !         if ((*pp)->label) scxfree ((char *)((*pp) -> label));
  1194.           (*pp)->next = freeents;    /* save [struct ent] for reuse */
  1195.           freeents = *pp;
  1196.           *pp = (struct ent *)0;
  1197. ***************
  1198. *** 1762,1768 ****
  1199.   #ifdef sequent
  1200.           if ((statbuf.st_blksize > buflen) || (buf == NULL))
  1201.           {    buflen = statbuf.st_blksize;
  1202. !             if ((buf = xrealloc(buf, buflen)) == (char *)0)
  1203.               {    buflen = 0;
  1204.                   return(0);
  1205.               }
  1206. --- 1859,1865 ----
  1207.   #ifdef sequent
  1208.           if ((statbuf.st_blksize > buflen) || (buf == NULL))
  1209.           {    buflen = statbuf.st_blksize;
  1210. !             if ((buf = scxrealloc(buf, buflen)) == (char *)0)
  1211.               {    buflen = 0;
  1212.                   return(0);
  1213.               }
  1214. *** ../619/crypt.c    Mon Mar 16 10:09:33 1992
  1215. --- crypt.c    Fri May  8 12:31:19 1992
  1216. ***************
  1217. *** 2,8 ****
  1218.    * Encryption utilites
  1219.    * Bradley Williams    
  1220.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  1221. !  * $Revision: 6.19 $
  1222.    */
  1223.   
  1224.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  1225. --- 2,8 ----
  1226.    * Encryption utilites
  1227.    * Bradley Williams    
  1228.    * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  1229. !  * $Revision: 6.21 $
  1230.    */
  1231.   
  1232.   #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  1233. ***************
  1234. *** 19,25 ****
  1235.   
  1236.   #include "sc.h"
  1237.   
  1238. - char        *strcpy();
  1239.   char        *getpass();
  1240.   
  1241.   #ifdef SYSV3
  1242. --- 19,24 ----
  1243. *** ../619/format.c    Mon Mar 16 10:09:34 1992
  1244. --- format.c    Fri May  8 13:40:26 1992
  1245. ***************
  1246. *** 3,9 ****
  1247.    * Mark Nagel <nagel@ics.uci.edu>
  1248.    * 20 July 1989
  1249.    *
  1250. !  * $Revision: 6.19 $
  1251.    *
  1252.    * bool
  1253.    * format(fmt, num, buf, buflen)
  1254. --- 3,9 ----
  1255.    * Mark Nagel <nagel@ics.uci.edu>
  1256.    * 20 July 1989
  1257.    *
  1258. !  * $Revision: 6.21 $
  1259.    *
  1260.    * bool
  1261.    * format(fmt, num, buf, buflen)
  1262. ***************
  1263. *** 134,147 ****
  1264.   
  1265.     if (strlen(fmt) + 1 > fmtlen)
  1266.     {    fmtlen = strlen(fmt) + 40;
  1267. !     tmpfmt1 = xrealloc(tmpfmt1, fmtlen);
  1268. !     tmpfmt2 = xrealloc(tmpfmt2, fmtlen);
  1269. !     exptmp = xrealloc(exptmp, fmtlen);
  1270.     }
  1271.     fmt = strcpy(tmpfmt1, fmt);
  1272.     if (buflen + 1 > mantlen)
  1273.     {    mantlen = buflen + 40;
  1274. !     mantissa = xrealloc(mantissa, mantlen);
  1275.     }
  1276.   
  1277.     /*
  1278. --- 134,147 ----
  1279.   
  1280.     if (strlen(fmt) + 1 > fmtlen)
  1281.     {    fmtlen = strlen(fmt) + 40;
  1282. !     tmpfmt1 = scxrealloc(tmpfmt1, fmtlen);
  1283. !     tmpfmt2 = scxrealloc(tmpfmt2, fmtlen);
  1284. !     exptmp = scxrealloc(exptmp, fmtlen);
  1285.     }
  1286.     fmt = strcpy(tmpfmt1, fmt);
  1287.     if (buflen + 1 > mantlen)
  1288.     {    mantlen = buflen + 40;
  1289. !     mantissa = scxrealloc(mantissa, mantlen);
  1290.     }
  1291.   
  1292.     /*
  1293. ***************
  1294. *** 167,173 ****
  1295.     
  1296.     /*
  1297.      * extract other information from format and produce a
  1298. !    * format string stored in tmpfmt2 also xmalloc()'d above
  1299.      */
  1300.     tmp = tmpfmt2;
  1301.     for (cp = fmt, tp = tmp; *cp != EOS; cp++)
  1302. --- 167,173 ----
  1303.     
  1304.     /*
  1305.      * extract other information from format and produce a
  1306. !    * format string stored in tmpfmt2 also scxmalloc()'d above
  1307.      */
  1308.     tmp = tmpfmt2;
  1309.     for (cp = fmt, tp = tmp; *cp != EOS; cp++)
  1310. ***************
  1311. *** 298,304 ****
  1312.       len_ci = strlen(ci);
  1313.       if (len_ci >= cilen)
  1314.       {    cilen = len_ci + 40;
  1315. !     citmp = xrealloc(citmp, cilen);
  1316.       }
  1317.       ci = strcpy(citmp, ci);
  1318.   
  1319. --- 298,304 ----
  1320.       len_ci = strlen(ci);
  1321.       if (len_ci >= cilen)
  1322.       {    cilen = len_ci + 40;
  1323. !     citmp = scxrealloc(citmp, cilen);
  1324.       }
  1325.       ci = strcpy(citmp, ci);
  1326.   
  1327. ***************
  1328. *** 306,312 ****
  1329.       len_cf = strlen(cf);
  1330.       if (len_cf >= cflen)
  1331.       {    cflen = len_cf + 40;
  1332. !     cftmp = xrealloc(cftmp, cilen);
  1333.       }
  1334.       cf = strcpy(cftmp, cf);
  1335.   
  1336. --- 306,312 ----
  1337.       len_cf = strlen(cf);
  1338.       if (len_cf >= cflen)
  1339.       {    cflen = len_cf + 40;
  1340. !     cftmp = scxrealloc(cftmp, cilen);
  1341.       }
  1342.       cf = strcpy(cftmp, cf);
  1343.   
  1344. ***************
  1345. *** 314,320 ****
  1346.       len_ce = strlen(ce);
  1347.   /*
  1348.    * Skip copy assuming sprintf doesn't call our format functions
  1349. !  *   ce = strcpy(xmalloc((unsigned)((len_ce = strlen(ce)) + 1)), ce);
  1350.    */
  1351.       if (len_ci + len_cf + len_ce < buflen)
  1352.       {
  1353. --- 314,320 ----
  1354.       len_ce = strlen(ce);
  1355.   /*
  1356.    * Skip copy assuming sprintf doesn't call our format functions
  1357. !  *   ce = strcpy(scxmalloc((unsigned)((len_ce = strlen(ce)) + 1)), ce);
  1358.    */
  1359.       if (len_ci + len_cf + len_ce < buflen)
  1360.       {
  1361. ***************
  1362. *** 489,495 ****
  1363.    * format is used.  The formats are:         example
  1364.    *    0:   Fixed point (default)             0.00010
  1365.    *    1:   Scientific                        1.00E-04
  1366. !  *    2:   Engineering                       100.00u
  1367.    *
  1368.    * The format command 'f' now uses three values.  The first two are the
  1369.    * width and precision, and the last one is the format value 0, 1, or 2 as
  1370. --- 489,495 ----
  1371.    * format is used.  The formats are:         example
  1372.    *    0:   Fixed point (default)             0.00010
  1373.    *    1:   Scientific                        1.00E-04
  1374. !  *    2:   Engineering                       100.00e-06
  1375.    *
  1376.    * The format command 'f' now uses three values.  The first two are the
  1377.    * width and precision, and the last one is the format value 0, 1, or 2 as
  1378. ***************
  1379. *** 499,507 ****
  1380.    * resulting string is too long to fit into the passed buffer, the
  1381.    * function returns false.  Otherwise the function returns true.
  1382.    *
  1383. !  * When a number is formatted as engineering and is outside of the range
  1384. !  * of typically used engineering exponents, the format reverts to
  1385. !  * scientific.
  1386.    *
  1387.    * To preserve compatability with old spreadsheet files, the third value
  1388.    * may be missing, and the default will be fixed point (format 0).
  1389. --- 499,506 ----
  1390.    * resulting string is too long to fit into the passed buffer, the
  1391.    * function returns false.  Otherwise the function returns true.
  1392.    *
  1393. !  * When a number is formatted as engineering and is outside of the range,
  1394. !  * the format reverts to scientific.
  1395.    *
  1396.    * To preserve compatability with old spreadsheet files, the third value
  1397.    * may be missing, and the default will be fixed point (format 0).
  1398. ***************
  1399. *** 518,525 ****
  1400.   #define REFMTDATE    3
  1401.   #endif
  1402.   
  1403. - char engmult[] = "afpnum kMGT";
  1404. - 
  1405.   bool
  1406.   engformat(fmt, width, lprecision, val, buf, buflen)
  1407.   int fmt; 
  1408. --- 517,522 ----
  1409. ***************
  1410. *** 529,534 ****
  1411. --- 526,537 ----
  1412.   char *buf;
  1413.   int buflen;
  1414.   {
  1415. + 
  1416. +   static char *engmult[] = {
  1417. +       "-18", "-15", "-12", "-09", "-06", "-03",
  1418. +       "+00",
  1419. +       "+03", "+06", "+09", "+12", "+15", "+18"
  1420. +   };
  1421.     int engind = 0;
  1422.     double engmant, pow(), engabs, engexp;
  1423.     if (buflen < width) return (false);
  1424. ***************
  1425. *** 557,563 ****
  1426.         if ((engabs >= 1e6) && (engabs < 1e9 )) engind=8;
  1427.         if ((engabs >= 1e9) && (engabs < 1e12 )) engind=9;
  1428.         if ((engabs >= 1e12) && (engabs < 1e15 )) engind=10;
  1429. !       if ((engabs <1e-18) || (engabs >=1e15))
  1430.         {
  1431.         /* Revert to floating point */
  1432.           (void) sprintf(buf,"%*.*E", width, lprecision, val);
  1433. --- 560,568 ----
  1434.         if ((engabs >= 1e6) && (engabs < 1e9 )) engind=8;
  1435.         if ((engabs >= 1e9) && (engabs < 1e12 )) engind=9;
  1436.         if ((engabs >= 1e12) && (engabs < 1e15 )) engind=10;
  1437. !       if ((engabs >= 1e15) && (engabs < 1e18 )) engind=11;
  1438. !       if ((engabs >= 1e18) && (engabs < 1e21 )) engind=12;
  1439. !       if ((engabs <1e-18) || (engabs >=1e21))
  1440.         {
  1441.         /* Revert to floating point */
  1442.           (void) sprintf(buf,"%*.*E", width, lprecision, val);
  1443. ***************
  1444. *** 566,572 ****
  1445.         {
  1446.           engexp= (double) (engind-6)*3;
  1447.           engmant= val/pow(10.0e0,engexp);
  1448. !         (void) sprintf(buf,"%*.*f%c", width-1,
  1449.                         lprecision, engmant, engmult[engind]);
  1450.         }
  1451.       }
  1452. --- 571,577 ----
  1453.         {
  1454.           engexp= (double) (engind-6)*3;
  1455.           engmant= val/pow(10.0e0,engexp);
  1456. !         (void) sprintf(buf,"%*.*fe%s", width-4,
  1457.                         lprecision, engmant, engmult[engind]);
  1458.         }
  1459.       }
  1460. *** ../619/gram.y    Mon Mar 16 10:08:35 1992
  1461. --- gram.y    Fri May  8 12:31:22 1992
  1462. ***************
  1463. *** 9,15 ****
  1464.    *
  1465.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1466.    *
  1467. !  *        $Revision: 6.18 $
  1468.    */
  1469.   
  1470.   
  1471. --- 9,15 ----
  1472.    *
  1473.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1474.    *
  1475. !  *        $Revision: 6.21 $
  1476.    */
  1477.   
  1478.   
  1479. ***************
  1480. *** 19,26 ****
  1481.   #include "sc.h"
  1482.   
  1483.   #define ENULL (struct enode *)0
  1484. - 
  1485. - char *strcpy();
  1486.   %}
  1487.   
  1488.   %union {
  1489. --- 19,24 ----
  1490. ***************
  1491. *** 148,153 ****
  1492. --- 146,152 ----
  1493.   %token K_LATEX
  1494.   %token K_SLATEX
  1495.   %token K_TEX
  1496. + %token K_FRAME
  1497.   %token K_RNDINFINITY
  1498.   %token K_MYROW
  1499.   %token K_MYCOL
  1500. ***************
  1501. *** 157,162 ****
  1502. --- 156,162 ----
  1503.   %token K_CRCOL
  1504.   %token K_ROWLIMIT
  1505.   %token K_COLLIMIT
  1506. + %token K_NUMITER
  1507.     
  1508.   %left '?' ':'
  1509.   %left '|'
  1510. ***************
  1511. *** 188,223 ****
  1512.                     char *tmp;
  1513.                     tmp = $2;
  1514.                     readfile (tmp, 1);
  1515. !                   xfree(tmp);
  1516.                   }
  1517.       |    S_MERGE strarg    {
  1518.                     char *tmp;
  1519.                     tmp = $2;
  1520.                     readfile (tmp, 0);
  1521. !                   xfree(tmp);
  1522.                   }
  1523.       |    S_MDIR strarg    
  1524. !                 { if (mdir) xfree(mdir); mdir = $2; }
  1525.       |       S_PUT strarg range
  1526.                   { (void) writefile($2, ($3.left.vp)->row, 
  1527.                    ($3.left.vp)->col, ($3.right.vp)->row,
  1528.                    ($3.right.vp)->col);
  1529. !                  xfree($2); }
  1530.       |    S_PUT strarg    
  1531.                   { (void) writefile ($2, 0, 0, maxrow, maxcol);
  1532. !                  xfree($2); }
  1533.       |       S_WRITE strarg range { (void) printfile($2, ($3.left.vp)->row, 
  1534.                ($3.left.vp)->col, ($3.right.vp)->row,
  1535.                ($3.right.vp)->col);
  1536. !              xfree($2); }
  1537.       |    S_WRITE strarg    { (void) printfile ($2, 0, 0, maxrow, maxcol);
  1538. !              xfree($2); }
  1539.       |       S_TBL strarg range { (void) tblprintfile($2, ($3.left.vp)->row, 
  1540.                ($3.left.vp)->col, ($3.right.vp)->row,
  1541.                ($3.right.vp)->col);
  1542. !              xfree($2); }
  1543.       |    S_TBL strarg    { (void)tblprintfile ($2, 0, 0, maxrow, maxcol);
  1544. !              xfree($2); }
  1545.       |       S_SHOW COL ':' COL
  1546.                       { showcol( $2, $4); }
  1547.       |       S_SHOW NUMBER ':' NUMBER
  1548. --- 188,223 ----
  1549.                     char *tmp;
  1550.                     tmp = $2;
  1551.                     readfile (tmp, 1);
  1552. !                   scxfree(tmp);
  1553.                   }
  1554.       |    S_MERGE strarg    {
  1555.                     char *tmp;
  1556.                     tmp = $2;
  1557.                     readfile (tmp, 0);
  1558. !                   scxfree(tmp);
  1559.                   }
  1560.       |    S_MDIR strarg    
  1561. !                 { if (mdir) scxfree(mdir); mdir = $2; }
  1562.       |       S_PUT strarg range
  1563.                   { (void) writefile($2, ($3.left.vp)->row, 
  1564.                    ($3.left.vp)->col, ($3.right.vp)->row,
  1565.                    ($3.right.vp)->col);
  1566. !                  scxfree($2); }
  1567.       |    S_PUT strarg    
  1568.                   { (void) writefile ($2, 0, 0, maxrow, maxcol);
  1569. !                  scxfree($2); }
  1570.       |       S_WRITE strarg range { (void) printfile($2, ($3.left.vp)->row, 
  1571.                ($3.left.vp)->col, ($3.right.vp)->row,
  1572.                ($3.right.vp)->col);
  1573. !              scxfree($2); }
  1574.       |    S_WRITE strarg    { (void) printfile ($2, 0, 0, maxrow, maxcol);
  1575. !              scxfree($2); }
  1576.       |       S_TBL strarg range { (void) tblprintfile($2, ($3.left.vp)->row, 
  1577.                ($3.left.vp)->col, ($3.right.vp)->row,
  1578.                ($3.right.vp)->col);
  1579. !              scxfree($2); }
  1580.       |    S_TBL strarg    { (void)tblprintfile ($2, 0, 0, maxrow, maxcol);
  1581. !              scxfree($2); }
  1582.       |       S_SHOW COL ':' COL
  1583.                       { showcol( $2, $4); }
  1584.       |       S_SHOW NUMBER ':' NUMBER
  1585. ***************
  1586. *** 375,380 ****
  1587. --- 375,381 ----
  1588.       | '@' K_MYROW            { $$ = new(MYROW, ENULL, ENULL);}
  1589.       | '@' K_MYCOL            { $$ = new(MYCOL, ENULL, ENULL);}
  1590.       | '@' K_COLTOA '(' e ')'    { $$ = new(COLTOA, ENULL, $4);}
  1591. +     | '@' K_NUMITER            { $$ = new(NUMITER, ENULL, ENULL);}
  1592.       ;
  1593.   
  1594.   /* expressions */
  1595. ***************
  1596. *** 432,438 ****
  1597.                       s1 = $1.vp->label;
  1598.                       if (!s1)
  1599.                       s1 = "NULL_STRING";
  1600. !                     s = xmalloc((unsigned)strlen(s1)+1);
  1601.                       (void) strcpy(s, s1);
  1602.                       $$ = s;
  1603.                   }
  1604. --- 433,439 ----
  1605.                       s1 = $1.vp->label;
  1606.                       if (!s1)
  1607.                       s1 = "NULL_STRING";
  1608. !                     s = scxmalloc((unsigned)strlen(s1)+1);
  1609.                       (void) strcpy(s, s1);
  1610.                       $$ = s;
  1611.                   }
  1612. ***************
  1613. *** 468,473 ****
  1614. --- 469,475 ----
  1615.       |    K_TBLSTYLE '=' K_LATEX    { tbl_style = LATEX; }
  1616.       |    K_TBLSTYLE '=' K_SLATEX    { tbl_style = SLATEX; }
  1617.       |    K_TBLSTYLE '=' K_TEX    { tbl_style = TEX; }
  1618. +     |    K_TBLSTYLE '=' K_FRAME    { tbl_style = FRAME; }
  1619.       |    K_RNDINFINITY        { rndinfinity = 1; FullUpdate++; }
  1620.       |    '!' K_RNDINFINITY    { rndinfinity = 0; FullUpdate++; }
  1621.       |    K_CRACTION '=' NUMBER    { craction = $3; }
  1622. *** ../619/help.c    Mon Mar 16 10:09:37 1992
  1623. --- help.c    Fri May  8 12:31:24 1992
  1624. ***************
  1625. *** 2,13 ****
  1626.    * Help functions for sc 
  1627.    * R. Bond, 1988
  1628.    * J. Buhrt 1990
  1629. !  * $Revision: 6.19 $
  1630.    */
  1631.   
  1632.   #ifdef QREF
  1633.   #include <stdio.h>
  1634. ! char    *header = " Quick Reference\n\n$Revision: 6.19 $";
  1635.   #else
  1636.   #include <curses.h>
  1637.   #include "sc.h"
  1638. --- 2,14 ----
  1639.    * Help functions for sc 
  1640.    * R. Bond, 1988
  1641.    * J. Buhrt 1990
  1642. !  * $Revision: 6.21 $
  1643.    */
  1644.   
  1645.   #ifdef QREF
  1646.   #include <stdio.h>
  1647. ! char    *header = " Quick Reference";
  1648. ! char    *revision = "$Revision: 6.21 $";
  1649.   #else
  1650.   #include <curses.h>
  1651.   #include "sc.h"
  1652. ***************
  1653. *** 15,22 ****
  1654. --- 16,29 ----
  1655.   
  1656.   char *intro[] = {
  1657.   " ",
  1658. + #if defined(QREF) && defined(TROFF)
  1659. + ".SH",
  1660. + #endif
  1661.   " Overview:",
  1662.   " ",
  1663. + #if defined(QREF) && defined(TROFF)
  1664. + ".Lp",
  1665. + #endif
  1666.   " A:   This overview",
  1667.   " B:   Toggle Options",
  1668.   " C:   Set Options",
  1669. ***************
  1670. *** 40,47 ****
  1671. --- 47,60 ----
  1672.   
  1673.   char *toggleoptions[] = {
  1674.   " ",
  1675. + #if defined(QREF) && defined(TROFF)
  1676. + ".SH",
  1677. + #endif
  1678.   " B: Toggle Options",
  1679.   " ",
  1680. + #if defined(QREF) && defined(TROFF)
  1681. + ".Lp",
  1682. + #endif
  1683.   "     ^To  Toggle options. Toggle one option selected by o:",
  1684.   "          a    Recalculate automatically or on ``@'' commands.",
  1685.   "          c    Current cell highlighting enable/disable.",  
  1686. ***************
  1687. *** 65,72 ****
  1688. --- 78,91 ----
  1689.   
  1690.   char *setoptions[] = {
  1691.   " ",
  1692. + #if defined(QREF) && defined(TROFF)
  1693. + ".SH",
  1694. + #endif
  1695.   " C: Set Options",
  1696.   " ",
  1697. + #if defined(QREF) && defined(TROFF)
  1698. + ".Lp",
  1699. + #endif
  1700.   "     S  Set options.  Options include:",
  1701.   "          byrows        Recalculate in row order. (default)",
  1702.   "          bycols        Recalculate in column order.",
  1703. ***************
  1704. *** 82,89 ****
  1705. --- 101,114 ----
  1706.   
  1707.   char *cursor[] = {
  1708.   " ",
  1709. + #if defined(QREF) && defined(TROFF)
  1710. + ".SH",
  1711. + #endif
  1712.   " D: Cell cursor movement (always OK):",
  1713.   " ",
  1714. + #if defined(QREF) && defined(TROFF)
  1715. + ".Lp",
  1716. + #endif
  1717.   "     ^N ^P ^B ^F Down, up, back, forward",
  1718.   "     ^Ed         Go to end of range.  Follow ^E by a direction indicator",
  1719.   "                 such as ^P or j.",
  1720. ***************
  1721. *** 109,116 ****
  1722. --- 134,147 ----
  1723.   
  1724.   char *cell[] = {
  1725.   " ",
  1726. + #if defined(QREF) && defined(TROFF)
  1727. + ".SH",
  1728. + #endif
  1729.   " E: Cell entry and editing commands:",
  1730.   " ",
  1731. + #if defined(QREF) && defined(TROFF)
  1732. + ".Lp",
  1733. + #endif
  1734.   "     =    Enter a numeric constant or expression.",
  1735.   "     <    Enter a left justified string or string expression.",
  1736.   "     \"    Enter a centered label.",
  1737. ***************
  1738. *** 133,140 ****
  1739. --- 164,177 ----
  1740.   
  1741.   char *vi[] = {
  1742.   " ",
  1743. + #if defined(QREF) && defined(TROFF)
  1744. + ".SH",
  1745. + #endif
  1746.   " F: Line Editor",
  1747.   " ",
  1748. + #if defined(QREF) && defined(TROFF)
  1749. + ".Lp",
  1750. + #endif
  1751.   "     Hitting the ESC key while entering any command on the top line",
  1752.   "     will start a one-line vi-style editor.  Supported commands:",
  1753.   " ",
  1754. ***************
  1755. *** 145,151 ****
  1756.   "     fc           Move cursor to character c.",
  1757.   "     tc           Move the cursor the the character before c.",
  1758.   "     i a          Enter insert mode before/after the cursor.",
  1759. ! "     I            Move to cursor column 0 and enter insert mode.",
  1760.   "     x X          Delete the character under/before the cursor.",
  1761.   "     rc           Replace the character under the cursor with c.",
  1762.   "     cm           Change - m = b,f,h,l,t or w.",
  1763. --- 182,188 ----
  1764.   "     fc           Move cursor to character c.",
  1765.   "     tc           Move the cursor the the character before c.",
  1766.   "     i a          Enter insert mode before/after the cursor.",
  1767. ! "     I A          Move to column 0/end of line and enter insert mode.",
  1768.   "     x X          Delete the character under/before the cursor.",
  1769.   "     rc           Replace the character under the cursor with c.",
  1770.   "     cm           Change - m = b,f,h,l,t or w.",
  1771. ***************
  1772. *** 159,166 ****
  1773. --- 196,209 ----
  1774.   
  1775.   char *file[] = {
  1776.   " ",
  1777. + #if defined(QREF) && defined(TROFF)
  1778. + ".SH",
  1779. + #endif
  1780.   " G: File commands:",
  1781.   " ",
  1782. + #if defined(QREF) && defined(TROFF)
  1783. + ".Lp",
  1784. + #endif
  1785.   "     G    Get a new database from a file. ",
  1786.   "     M    Merge a new file into the current database.",
  1787.   "     P    Put the current database into a file.",
  1788. ***************
  1789. *** 171,178 ****
  1790. --- 214,225 ----
  1791.   "          Optionally brackets output with control lines for ``tbl'',",
  1792.   "          ``LaTeX'', ``SLaTex'', or ``TeX''.",
  1793.   " ",
  1794. + #if !defined(VMS) && !defined(MSDOS) && defined(CRYPT_PATH)
  1795.   "     If encryption mode is set, file I/O will be encrypted/decrypted.",
  1796.   "     ``\"| program\"'' for a file name will pipe (unencrypted) output to",
  1797. + #else
  1798. + "     ``\"| program\"'' for a file name will pipe output to",
  1799. + #endif
  1800.   "     a program for Put, Write and Table.  If a cell name is used",
  1801.   "     as the file name, the cell's string part will be used as the",
  1802.   "     file name.",
  1803. ***************
  1804. *** 182,189 ****
  1805. --- 229,242 ----
  1806.   
  1807.   char *row[] = {
  1808.   " ",
  1809. + #if defined(QREF) && defined(TROFF)
  1810. + ".SH",
  1811. + #endif
  1812.   " H: Row and column commands:",
  1813.   " ",
  1814. + #if defined(QREF) && defined(TROFF)
  1815. + ".Lp",
  1816. + #endif
  1817.   "     ir, ic      Insert a new, empty row (column)",
  1818.   "     ar, ac      Append a new copy of the current row (column)",
  1819.   "     dr, dc      Delete the current row (column)",
  1820. ***************
  1821. *** 209,215 ****
  1822. --- 262,274 ----
  1823.   
  1824.   char *range[] = {
  1825.   " ",
  1826. + #if defined(QREF) && defined(TROFF)
  1827. + ".SH",
  1828. + #endif
  1829.   " I: Range commands:",
  1830. + #if defined(QREF) && defined(TROFF)
  1831. + ".Lp",
  1832. + #endif
  1833.   "     /x   Clear a range. ",
  1834.   "     /v   Remove the expressions from a range of cells, leaving ",
  1835.   "          just the values.",
  1836. ***************
  1837. *** 237,244 ****
  1838. --- 296,309 ----
  1839.   
  1840.   char *misc[] = {
  1841.   " ",
  1842. + #if defined(QREF) && defined(TROFF)
  1843. + ".SH",
  1844. + #endif
  1845.   " J: Miscellaneous commands:",
  1846.   " ",
  1847. + #if defined(QREF) && defined(TROFF)
  1848. + ".Lp",
  1849. + #endif
  1850.   "     Q q ^C   Exit from the program.",
  1851.   "     ^G ESC   Abort entry of the current command.",
  1852.   "     ?        Help",
  1853. ***************
  1854. *** 259,266 ****
  1855. --- 324,337 ----
  1856.   
  1857.   char *var[] = {
  1858.   " ",
  1859. + #if defined(QREF) && defined(TROFF)
  1860. + ".SH",
  1861. + #endif
  1862.   " K: Variable names:",
  1863.   " ",
  1864. + #if defined(QREF) && defined(TROFF)
  1865. + ".Lp",
  1866. + #endif
  1867.   "     K20    Row and column can vary on copies.",
  1868.   "     $K$20  Row and column stay fixed on copies.",
  1869.   "     $K20   Row can vary; column stays fixed on copies.",
  1870. ***************
  1871. *** 285,292 ****
  1872. --- 356,369 ----
  1873.   
  1874.   char *rangef[] = {
  1875.   " ",
  1876. + #if defined(QREF) && defined(TROFF)
  1877. + ".SH",
  1878. + #endif
  1879.   " L: Range functions:",
  1880.   " ",
  1881. + #if defined(QREF) && defined(TROFF)
  1882. + ".Lp",
  1883. + #endif
  1884.   "     @sum(r)           Sum all valid cells in the range.",
  1885.   "     @prod(r)          Multiply together all valid cells in the range.",
  1886.   "     @avg(r)           Average all valid cells in the range.",
  1887. ***************
  1888. *** 311,318 ****
  1889. --- 388,401 ----
  1890.   
  1891.   char *numericf[] = {
  1892.   " ",
  1893. + #if defined(QREF) && defined(TROFF)
  1894. + ".SH",
  1895. + #endif
  1896.   " M: Numeric functions:",
  1897.   " ",
  1898. + #if defined(QREF) && defined(TROFF)
  1899. + ".Lp",
  1900. + #endif
  1901.   "     @atan2(e1,e2)     Arc tangent of e1/e2.",
  1902.   "     @ceil(e)          Smallest integer not less than e.",
  1903.   "     @eqs(se1,se2)     1 if string expr se1 has the same value as se2.",
  1904. ***************
  1905. *** 338,344 ****
  1906. --- 421,433 ----
  1907.   
  1908.   char *stringf[] = {
  1909.   " ",
  1910. + #if defined(QREF) && defined(TROFF)
  1911. + ".SH",
  1912. + #endif
  1913.   " N: String functions:",
  1914. + #if defined(QREF) && defined(TROFF)
  1915. + ".Lp",
  1916. + #endif
  1917.   "     #                 Concatenate strings.  For example, the",
  1918.   "                       string expression ``A0 # \"zy dog\"'' yields",
  1919.   "                       ``the lazy dog'' if A0 is ``the la''.",
  1920. ***************
  1921. *** 366,373 ****
  1922. --- 455,468 ----
  1923.   
  1924.   char *finf[] = {
  1925.   " ",
  1926. + #if defined(QREF) && defined(TROFF)
  1927. + ".SH",
  1928. + #endif
  1929.   " O: Financial functions:",
  1930.   " ",
  1931. + #if defined(QREF) && defined(TROFF)
  1932. + ".Lp",
  1933. + #endif
  1934.   "     @pmt(e1,e2,e3)    @pmt(60000,.01,360) computes the monthly",
  1935.   "                       payments for a $60000 mortgage at 12%",
  1936.   "                       annual interest (.01 per month) for 30",
  1937. ***************
  1938. *** 393,400 ****
  1939. --- 488,501 ----
  1940.   
  1941.   char *timef[] = {
  1942.   " ",
  1943. + #if defined(QREF) && defined(TROFF)
  1944. + ".SH",
  1945. + #endif
  1946.   " P: Time and date functions:",
  1947.   " ",
  1948. + #if defined(QREF) && defined(TROFF)
  1949. + ".Lp",
  1950. + #endif
  1951.   "     @now              Return the time encoded in seconds since 1970.",
  1952.   "     @dts(m,d,y)       Return m/d/y encoded in seconds since 1970.",
  1953.   "     @tts(h,m,s)       Return h:m:s encoded in seconds since midnight.",
  1954. ***************
  1955. *** 482,498 ****
  1956.   main()
  1957.   {   int    lineno;
  1958.       char    ***pagep = pages;
  1959.   
  1960.       while (*pagep)
  1961.       {
  1962.       (void) fputs(SCNAME, stdout);
  1963. !     (void) puts(header);
  1964.   
  1965.       for (lineno = 0; (*pagep)[lineno]; lineno++) {
  1966.           (void) puts((*pagep)[lineno]);
  1967.       }
  1968.       (void) putchar('\f');
  1969.       pagep++;
  1970.       }
  1971.       (void) exit(0);
  1972.   }
  1973. --- 583,632 ----
  1974.   main()
  1975.   {   int    lineno;
  1976.       char    ***pagep = pages;
  1977. + #ifdef TROFF
  1978. +     int    pageno = 0;
  1979. + #endif
  1980.   
  1981. + #ifdef TROFF
  1982. + puts(".nr PS 12");
  1983. + puts(".nr VS 14");
  1984. + puts(".nr HM 1i");
  1985. + puts(".nr FM 1i");
  1986. + puts(".nr PO 0.5i");
  1987. + printf(".EH '%s%s''%s'\n", SCNAME, header, revision);
  1988. + printf(".OH '%s%s''%s'\n", SCNAME, header, revision);
  1989. + puts(".EF ''%''");
  1990. + puts(".OF ''%''");
  1991. + puts(".de Lp");
  1992. + puts(".LP");
  1993. + puts(".ft CW");
  1994. + puts(".na");
  1995. + puts(".nf");
  1996. + puts("..");
  1997. + puts(".P1");
  1998. + puts(".LP");
  1999. + #endif
  2000. + 
  2001.       while (*pagep)
  2002.       {
  2003. + #ifndef TROFF
  2004.       (void) fputs(SCNAME, stdout);
  2005. !     (void) fputs(header);
  2006. !     (void) printf("\n");
  2007. !     (void) puts(revision);
  2008. ! #endif
  2009.   
  2010.       for (lineno = 0; (*pagep)[lineno]; lineno++) {
  2011.           (void) puts((*pagep)[lineno]);
  2012.       }
  2013. + #if !defined(TROFF)
  2014.       (void) putchar('\f');
  2015. + #endif
  2016.       pagep++;
  2017. + #ifdef TROFF
  2018. +     pageno++;
  2019. +     if (!(pageno%2)) puts(".bp");
  2020. + #endif
  2021.       }
  2022.       (void) exit(0);
  2023.   }
  2024.  
  2025.