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