home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume22 / sc / patch02 < prev    next >
Encoding:
Text File  |  1991-09-20  |  50.8 KB  |  1,818 lines
  1. Newsgroups: comp.sources.misc
  2. From: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  3. Subject:  REPOST: v22i104:  sc - The SC Spreadsheet, Patch02
  4. Message-ID: <1991Sep20.143836.6133@sparky.imd.sterling.com>
  5. X-Md4-Signature: b30a94b2d9df7f39f935859849d5f57b
  6. Date: Fri, 20 Sep 1991 14:38:36 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  10. Posting-number: Volume 22, Issue 104
  11. Archive-name: sc/patch02
  12. Environment: UNIX, VMS, MS-DOS
  13. Patch-To: sc: Volume 20, Issue 35-41
  14.  
  15. [ This is being reposted due to a propagation error. ]
  16.  
  17. REQUIRES patch01 be applied first, the new revision level will be: 6.18.
  18.  
  19. James found a potential NULL pointer in the last patch, I found another
  20. that has been around a while that might have caused problems on: Suns,
  21. VAX, CCI, and maybe IBM/370 type iron.
  22.  
  23. A few new, really nice features are listed below.
  24.  
  25.                         -Jeff Buhrt
  26.                     {sequent,uunet}!sawmill!prslnk!buhrt
  27.                     812-275-0750 work
  28.                     Proslink, Inc.
  29.  
  30. *** 6.17    1991/09/04 14:20:49
  31. --- CHANGES    1991/09/09 19:19:29
  32. ***************
  33. *** 1,3 ****
  34. --- 1,29 ----
  35. + CHANGES BETWEEN 6.18 and 6.17
  36. + James Dugal    
  37. +     - NULL pointer fix for is_locked
  38. + Kevin Pye
  39. +     - add a new mode suitable for entry of large amounts of data.
  40. +         moves to next cell on return, maxrow/col when to start
  41. +         entering in the next row/col. (see help screens B&C)
  42. +     COMMANDS ADDED: ^Tz, ^Tr, Srowlimit=?, Scollimit=?
  43. + David Fox - added a date format so that columns whose values are the number
  44. +     of seconds since 1/1/70 will be displayed as dates in the format
  45. +     dd-mmm-yy, and a modification to the grammar so data entered in the
  46. +     format dd_mm_yy will be converted into the number of seconds since
  47. +     1/1/70.
  48. +     COMMANDS ADDED: f # # 3
  49. + Teus Hagen
  50. +     - labels are centered strings
  51. +     - constant strings with '\' preceeding character will
  52. +       be wheeled over the column width
  53. +     - a restart of sc on an sc file will go to last used cel
  54. +     - added toupper, tolower and do proper word capitalization
  55. +     COMMANDS ADDED: @toupper(), @tolower(), @capital(), @pi, "\[String]
  56. + Jeff Buhrt
  57. +     - external functions null/previous message was backwards
  58. +     - cleaned up help.c by inserting a new screen
  59. +     - found a possible NULL pointer in screen.c
  60. + 
  61.   CHANGES BETWEEN 6.17 and 6.16
  62.   Ulf Noren
  63.       - added cell locking, disallowing input, to ranges of cells
  64. *** 6.17    1991/09/04 14:20:49
  65. --- README    1991/09/09 19:14:35
  66. ***************
  67. *** 1,7 ****
  68.   This is a much modified version of the public domain spread sheet sc,
  69.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  70.   
  71. ! CHANGES lists the changes since 6.1 to 6.17.
  72.   Current maintainer: {sequent, uunet}!sawmill!prslnk!buhrt (Jeff Buhrt)
  73.   
  74.   When you get it built, try "sc tutorial.sc" for a simple introduction
  75. --- 1,10 ----
  76.   This is a much modified version of the public domain spread sheet sc,
  77.   posted several years ago by Mark Weiser as vc, originally by James Gosling.
  78.   
  79. ! CHANGES lists the changes since 6.1 to 6.18.
  80. !     Sc6.16 was released to comp.sources.misc and two sets of patches
  81. !     bring Sc6.16->6.17->6.18.
  82. ! 
  83.   Current maintainer: {sequent, uunet}!sawmill!prslnk!buhrt (Jeff Buhrt)
  84.   
  85.   When you get it built, try "sc tutorial.sc" for a simple introduction
  86. *** 6.17    1991/09/04 14:20:49
  87. --- sc.doc    1991/09/09 19:14:40
  88. ***************
  89. *** 15,21 ****
  90.   .\" - TPs use default indent except for function names, then 18.
  91.   .\" - Smallify uppercase strings.
  92.   .\" - Avoid passive voice and third person.
  93. ! .\" $Revision: 6.17 $
  94.   .\"
  95.   .TH PNAME\ #REVISION#\  1
  96.   .SH NAME
  97. --- 15,21 ----
  98.   .\" - TPs use default indent except for function names, then 18.
  99.   .\" - Smallify uppercase strings.
  100.   .\" - Avoid passive voice and third person.
  101. ! .\" $Revision: 6.18 $
  102.   .\"
  103.   .TH PNAME\ #REVISION#\  1
  104.   .SH NAME
  105. ***************
  106. *** 98,103 ****
  107. --- 98,113 ----
  108.   .I Put
  109.   commands (see below) to encrypt and decrypt data files.
  110.   .\" ----------
  111. + .TP
  112. + .B \-R
  113. + Start the program with automatic newline action set to increment the row
  114. + (see below).
  115. + .\" ----------
  116. + .TP
  117. + .B \-C
  118. + Start the program with automatic newline action set to increment the column
  119. + (see below).
  120. + .\" ----------
  121.   .PP
  122.   All of these options can be changed with the
  123.   .I ^T
  124. ***************
  125. *** 245,255 ****
  126.   the name and value of the current cell is displayed on the top line.
  127.   If there is an associated label string,
  128.   the first character of the string value
  129. ! is ``<'' for a leftstring or ``>'' for a rightstring (see below),
  130.   followed by "\fIstring\fP" for a constant string
  131.   or
  132.   .RI { expr }
  133.   for a string expression.
  134.   If the cell has a numeric value,
  135.   it follows as
  136.   .RI [ value ],
  137. --- 255,269 ----
  138.   the name and value of the current cell is displayed on the top line.
  139.   If there is an associated label string,
  140.   the first character of the string value
  141. ! is ``|'' for a centered string, ``<'' for a leftstring or ``>'' for a rightstring (see below),
  142.   followed by "\fIstring\fP" for a constant string
  143.   or
  144.   .RI { expr }
  145.   for a string expression.
  146. + A constant string may be preceeded with a backslash (`\\').
  147. + In this case the constant string will be used as a ``wheel''
  148. + to fill a column, e.g. "\\-" for a line in a column,
  149. + and "\\Yeh " for "Yeh Yeh Ye".
  150.   If the cell has a numeric value,
  151.   it follows as
  152.   .RI [ value ],
  153. ***************
  154. *** 270,275 ****
  155. --- 284,333 ----
  156.   (not expressions) which you enter are multipled by 0.01
  157.   so you don't have to keep typing the decimal point
  158.   if you enter lots of dollar figures.
  159. + .\" ----------
  160. + .TP
  161. + .B r
  162. + Newline action.
  163. + This option toggles between three cases.
  164. + The default is no action.
  165. + If this option is used once, after each command which is terminated
  166. + by a newline character is completed, the current cell will be moved
  167. + down one row.
  168. + If this option is used again, after each command which is terminated
  169. + by a newline character is completed, the current cell will be moved
  170. + right one column.
  171. + Another use of this option will restore the default action.
  172. + .\" ----------
  173. + .TP
  174. + .B z
  175. + Set newline action limits.
  176. + This option sets limits to the newline action option above.
  177. + When this option is invoked, the row and column of the current cell are
  178. + remembered.
  179. + If a later newline action would take the current cell to the right of
  180. + the remembered column, then the current cell is instead moved to the
  181. + first column of the next row.
  182. + If a newline action would take the current cell below the remembered row,
  183. + then the current cell is instead moved to the top row of the next column.
  184. + .PP
  185. + The quick numeric entry, newline action and set newline action limits options
  186. + can be combined to allow very quick entry of large amounts of data.
  187. + If all the data to be entered is in a single row or column then setting
  188. + the quick numeric entry and the appropriate newline action will allow
  189. + the numbers to be entered without any explicit commands to position the
  190. + current cell or enter a number.
  191. + .PP
  192. + If the data entry involves several entries in each row for many rows, then
  193. + setting the quick numeric entry option, setting the newline action to move
  194. + right after each entry and setting the newline action limits on the last
  195. + column on which data should be entered will allow the data to entered
  196. + quickly.
  197. + If necessary, columns which do not need data to be entered can be hidden with
  198. + the
  199. + .B z
  200. + command.
  201. + Similar arrangements can be made for entering several rows of data
  202. + in each column.
  203.   .RE
  204.   .\" ----------
  205.   \0 \" exactly one blank line (hard to get)
  206. ***************
  207. *** 354,359 ****
  208. --- 412,446 ----
  209.   default: round-to-even (banker's round), *.5 will round to the closest even
  210.   number; doing a 'set rndinfinity' will round *.5 up to the next integer
  211.   (rounding to infinity).
  212. + .TP
  213. + .BI craction =n
  214. + Set the newline action.
  215. + .I n
  216. + can be:
  217. + .B 0
  218. + (default) to give no action;
  219. + .B 1
  220. + to move down after each entry; or
  221. + .B 2
  222. + to move right after each entry.
  223. + .TP
  224. + .BI rowlimit =n
  225. + Set the remembered limit for the maximum row below which
  226. + the current cell will be moved to the top of the next column
  227. + if the newline action is set to move the current cell down.
  228. + .I n
  229. + can be
  230. + .B -1
  231. + (default) to disable this facility.
  232. + .TP
  233. + .BI collimit =n
  234. + Set the remembered limit for the maximum column to the right of which
  235. + the current cell will be moved to the left of the next row
  236. + if the newline action is set to move the current cell right.
  237. + .I n
  238. + can be
  239. + .B -1
  240. + (default) to disable this facility.
  241.   .RE
  242.   .\" ==========
  243.   .SS "Cursor Control Commands"
  244. ***************
  245. *** 540,545 ****
  246. --- 627,635 ----
  247.   .\" ----------
  248.   .IP \fB"\fP
  249.   .PD 0
  250. + Enter a label string into the current cell
  251. + to be centered in the column.
  252. + .\" ----------
  253.   .TP
  254.   .B >
  255.   Enter a label string into the current cell
  256. ***************
  257. *** 1052,1058 ****
  258.   the total width in characters of the column,
  259.   the number of digits to follow decimal points,
  260.   and the format type.  Format types are 0 for fixed point,
  261. ! 1 for scientific notation, and 2 for engineering notation.
  262.   Values are rounded off to the least significant digit displayed.
  263.   The total column width affects displays of strings as well as numbers.
  264.   A preceding count can be used to affect more than one column.
  265. --- 1142,1148 ----
  266.   the total width in characters of the column,
  267.   the number of digits to follow decimal points,
  268.   and the format type.  Format types are 0 for fixed point,
  269. ! 1 for scientific notation, 2 for engineering notation, and 3 for dates.
  270.   Values are rounded off to the least significant digit displayed.
  271.   The total column width affects displays of strings as well as numbers.
  272.   A preceding count can be used to affect more than one column.
  273. ***************
  274. *** 1798,1804 ****
  275.   and string functions.
  276.   Note that string expressions are only allowed
  277.   when entering a cell's label string, not its numeric part.
  278. ! Also note that string expression results may be left or right flushed,
  279.   according to the type of the cell's string label.
  280.   .\" ----------
  281.   .TP
  282. --- 1888,1894 ----
  283.   and string functions.
  284.   Note that string expressions are only allowed
  285.   when entering a cell's label string, not its numeric part.
  286. ! Also note that string expression results may be left or right flushed or centered,
  287.   according to the type of the cell's string label.
  288.   .\" ----------
  289.   .TP
  290. ***************
  291. *** 1874,1879 ****
  292. --- 1964,1981 ----
  293.   the result is the null string.
  294.   You can use this for simple table lookups.
  295.   Be sure the table doesn't move unexpectedly!
  296. + .\" ----------
  297. + .TP 18
  298. + .BR @upper (e)
  299. + and
  300. + .BR @lower (e)
  301. + will case the string expression to upper or lower.
  302. + .\" ----------
  303. + .TP 18
  304. + .BR @capital (e)
  305. + will convert the first letter of words in a string
  306. + into upper case and other letters to lower case
  307. + (the latter if all letters of the string are upper case).
  308.   .\" ----------
  309.   .TP 18
  310.   .BR @upper (e)
  311. *** 6.17    1991/09/04 14:20:49
  312. --- cmds.c    1991/09/09 19:14:46
  313. ***************
  314. *** 7,13 ****
  315.    *
  316.    *              More mods Robert Bond, 12/86
  317.    *
  318. !  *        $Revision: 6.17 $
  319.    */
  320.   
  321.   #include <sys/types.h>
  322. --- 7,13 ----
  323.    *
  324.    *              More mods Robert Bond, 12/86
  325.    *
  326. !  *        $Revision: 6.18 $
  327.    */
  328.   
  329.   #include <sys/types.h>
  330. ***************
  331. *** 189,195 ****
  332.       for (r = sr; r <= er; r++) {
  333.       for (c = sc; c <= ec; c++) {
  334.           p = *ATBL(tbl, r, c);
  335. !         if (p->flags&is_locked) {
  336.           error(" Cell %s%d is locked", coltoa(c), r);
  337.           continue;
  338.           }
  339. --- 189,195 ----
  340.       for (r = sr; r <= er; r++) {
  341.       for (c = sc; c <= ec; c++) {
  342.           p = *ATBL(tbl, r, c);
  343. !         if (p && p->flags&is_locked) {
  344.           error(" Cell %s%d is locked", coltoa(c), r);
  345.           continue;
  346.           }
  347. ***************
  348. *** 620,629 ****
  349.       error("Precision too large");
  350.       p = w;
  351.       }
  352. !     /* format statement may record format of an as yet unused column
  353. !      * which causes it to run off the end of fwidth and precision --
  354. !      * causing a bus error later
  355. !      */
  356.       checkbounds(&crows, &ccols);
  357.       if (ccols < c2) {
  358.       error("Format statement failed to create implied column %d", c2);
  359. --- 620,626 ----
  360.       error("Precision too large");
  361.       p = w;
  362.       }
  363. ! 
  364.       checkbounds(&crows, &ccols);
  365.       if (ccols < c2) {
  366.       error("Format statement failed to create implied column %d", c2);
  367. ***************
  368. *** 650,656 ****
  369.          !extfunc &&
  370.          showcell &&
  371.          showtop &&
  372. !        tbl_style == 0
  373.         )
  374.           return;        /* No reason to do this */
  375.   
  376. --- 647,656 ----
  377.          !extfunc &&
  378.          showcell &&
  379.          showtop &&
  380. !        tbl_style == 0 &&
  381. !        craction == 0 &&
  382. !        rowlimit == -1 &&
  383. !        collimit == -1
  384.         )
  385.           return;        /* No reason to do this */
  386.   
  387. ***************
  388. *** 676,681 ****
  389. --- 676,687 ----
  390.                       tbl_style == LATEX ? "latex" :
  391.                       tbl_style == SLATEX ? "slatex" :
  392.                       tbl_style == TEX ? "tex" : "0" );
  393. +     if (craction)
  394. +     (void) fprintf(f, " craction = %d", craction);
  395. +     if (rowlimit >= 0)
  396. +     (void) fprintf(f, " rowlimit = %d", rowlimit);
  397. +     if (collimit >= 0)
  398. +     (void) fprintf(f, " collimit = %d", collimit);
  399.       (void) fprintf(f, "\n");
  400.   }
  401.   
  402. ***************
  403. *** 785,792 ****
  404.               register char *fp;
  405.               struct ent *nc;
  406.   
  407. !             /* Figure out if the label slops over to a blank field */
  408.               slen = strlen(s);
  409.               while (slen > fieldlen && nextcol <= cn &&
  410.                   !((nc = lookat(row,nextcol))->flags & is_valid) &&
  411.                   !(nc->label)) {
  412. --- 791,803 ----
  413.               register char *fp;
  414.               struct ent *nc;
  415.   
  416. !             /*
  417. !              * Figure out if the label slops over to a blank field. A
  418. !              * string started with backslah is defining repition char
  419. !              */
  420.               slen = strlen(s);
  421. +             if ( *s == '\\' && *(s+1)!= '\0' )
  422. +             slen = fwidth[col];
  423.               while (slen > fieldlen && nextcol <= cn &&
  424.                   !((nc = lookat(row,nextcol))->flags & is_valid) &&
  425.                   !(nc->label)) {
  426. ***************
  427. *** 812,823 ****
  428. --- 823,846 ----
  429.               /* Now justify and print */
  430.               start = (*pp)->flags & is_leftflush ? pline + c
  431.                       : pline + c + fieldlen - slen;
  432. +             if( (*pp)->flags & is_label )
  433. +             start = pline + (c + ((fwidth[col]>slen)?(fwidth[col]-slen)/2:0));
  434.               last = pline + c + fieldlen;
  435.               fp = plinelim < c ? pline + plinelim : pline + c;
  436.               while (fp < start)
  437.               *fp++ = ' ';
  438. +             if( *s == '\\' && *(s+1)!= '\0' ) {
  439. +             char *strt;
  440. +             strt = ++s;
  441. + 
  442. +             while(slen--) {
  443. +                 *fp++ = *s++; if( *s == '\0' ) s = strt;
  444. +             }
  445. +             }
  446. +             else
  447.               while (slen--)
  448.               *fp++ = *s++;
  449. + 
  450.               if (!((*pp)->flags & is_valid) || fieldlen != fwidth[col])
  451.               while(fp < last)
  452.                   *fp++ = ' ';
  453. ***************
  454. *** 944,949 ****
  455. --- 967,973 ----
  456.   char    *str;
  457.   int    delim;
  458.   {
  459. +     if( *str == '\\' ) str++; /* delete wheeling string operator, OK? */
  460.       while (*str)
  461.       {    if (((tbl_style == LATEX) || (tbl_style == SLATEX) ||
  462.               (tbl_style == TEX)) &&
  463. ***************
  464. *** 1275,1280 ****
  465. --- 1299,1305 ----
  466.   {
  467.       register struct ent **pp;
  468.       register r, c;
  469. +     extern char *v_name();
  470.   
  471.       (void) fprintf (f, "# This data file was generated by the Spreadsheet ");
  472.       (void) fprintf (f, "Calculator.\n");
  473. ***************
  474. *** 1321,1326 ****
  475. --- 1346,1352 ----
  476.       }
  477.       if (rndinfinity)
  478.       fprintf(f, "set rndinfinity\n");
  479. +     fprintf(f, "goto %s\n", v_name( currow, curcol ) );
  480.   }
  481.   
  482.   int
  483. ***************
  484. *** 1517,1525 ****
  485.    */
  486.   
  487.   void
  488. ! showstring (string, leftflush, hasvalue, row, col, nextcolp, mxcol, fieldlenp, r, c)
  489.       char *string;    /* to display */
  490. !     int leftflush;    /* or rightflush */
  491.       int hasvalue;    /* is there a numeric value? */
  492.       int row, col;    /* spreadsheet location */
  493.       int *nextcolp;    /* value returned through it */
  494. --- 1543,1551 ----
  495.    */
  496.   
  497.   void
  498. ! showstring (string, dirflush, hasvalue, row, col, nextcolp, mxcol, fieldlenp, r, c)
  499.       char *string;    /* to display */
  500. !     int dirflush;    /* or rightflush or centered */
  501.       int hasvalue;    /* is there a numeric value? */
  502.       int row, col;    /* spreadsheet location */
  503.       int *nextcolp;    /* value returned through it */
  504. ***************
  505. *** 1540,1545 ****
  506. --- 1566,1573 ----
  507.          slop over into the next blank field */
  508.   
  509.       slen = strlen (string);
  510. +     if( *string == '\\' && *(string+1)!= '\0' )
  511. +     slen = fwidth[col];
  512.       while ((slen > fieldlen) && (nextcol <= mxcol) &&
  513.          !((nc = lookat (row, nextcol)) -> flags & is_valid) &&
  514.          !(nc->label)) {
  515. ***************
  516. *** 1553,1565 ****
  517.       slen = fieldlen;
  518.   
  519.       /* Now justify and print */
  520. !     start = leftflush ? field : field + fieldlen - slen;
  521.       last = field+fieldlen;
  522.       fp = field;
  523.       while (fp < start)
  524.       *fp++ = ' ';
  525.       while (slen--)
  526.       *fp++ = *string++;
  527.       if ((! hasvalue) || fieldlen != fwidth[col]) 
  528.       while (fp < last)
  529.           *fp++ = ' ';
  530. --- 1581,1607 ----
  531.       slen = fieldlen;
  532.   
  533.       /* Now justify and print */
  534. !     start = (dirflush&is_leftflush) ? field : field + fieldlen - slen;
  535. !     if( dirflush & is_label )
  536. !     start = field + ((slen<fwidth[col])?(fieldlen-slen)/2:0);
  537.       last = field+fieldlen;
  538.       fp = field;
  539.       while (fp < start)
  540.       *fp++ = ' ';
  541. +     if( *string == '\\'  && *(string+1)!= '\0') {
  542. +     char *strt;
  543. +     strt = ++string;
  544. + 
  545. +     while(slen--) {
  546. +         *fp++ = *string++;
  547. +         if( *string == '\0' )
  548. +             string = strt;
  549. +     }
  550. +     }
  551. +     else
  552.       while (slen--)
  553.       *fp++ = *string++;
  554. + 
  555.       if ((! hasvalue) || fieldlen != fwidth[col]) 
  556.       while (fp < last)
  557.           *fp++ = ' ';
  558. ***************
  559. *** 1755,1757 ****
  560. --- 1797,1816 ----
  561.       return(0);
  562.   }
  563.   #endif
  564. + 
  565. + static int day_month_starts[12] = {0,31,59,90,120,151,181,212,243,273,304,334};
  566. + 
  567. + double convert_date(d, m, y)
  568. + int d;
  569. + int m;
  570. + int y;
  571. + {
  572. +   /* Convert to years since 1970. (or 2000, fix by 2070) */
  573. +   if (y > 1970) y -= 1970;    /* Full year given */
  574. +   else if (y >= 70) y -= 70;    /* Years since 1900 */
  575. +   else y += 30;            /* Years since 2000 */
  576. +   /* Use quarter days to compensate for leap years. */
  577. +   return (double)((y * (365 * 4 + 1) + day_month_starts[m-1] * 4 + d * 4 - 2) *
  578. +           6 * 60 * 60);
  579. + }
  580. + 
  581. *** 6.17    1991/09/04 14:23:44
  582. --- format.c    1991/09/09 19:14:50
  583. ***************
  584. *** 3,9 ****
  585.    * Mark Nagel <nagel@ics.uci.edu>
  586.    * 20 July 1989
  587.    *
  588. !  * $Revision: 6.17 $
  589.    *
  590.    * bool
  591.    * format(fmt, num, buf, buflen)
  592. --- 3,9 ----
  593.    * Mark Nagel <nagel@ics.uci.edu>
  594.    * 20 July 1989
  595.    *
  596. !  * $Revision: 6.18 $
  597.    *
  598.    * bool
  599.    * format(fmt, num, buf, buflen)
  600. ***************
  601. *** 85,90 ****
  602. --- 85,92 ----
  603.   /*****************************************************************************/
  604.   
  605.   #include <stdio.h>
  606. + #include <sys/types.h>
  607. + #include <time.h>
  608.   #include "sc.h"
  609.   
  610.   #define bool    int
  611. ***************
  612. *** 508,516 ****
  613.    *
  614.    */
  615.   
  616. ! #define REFMTFIX 0
  617. ! #define REFMTFLT 1
  618. ! #define REFMTENG 2
  619.   char engmult[] = "afpnum kMGT";
  620.   
  621.   bool
  622. --- 510,523 ----
  623.    *
  624.    */
  625.   
  626. ! /* defined in sc.h */
  627. ! #ifndef REFMTFIX
  628. ! #define REFMTFIX    0
  629. ! #define REFMTFLT    1
  630. ! #define REFMTENG    2
  631. ! #define REFMTDATE    3
  632. ! #endif
  633. ! 
  634.   char engmult[] = "afpnum kMGT";
  635.   
  636.   bool
  637. ***************
  638. *** 562,567 ****
  639. --- 569,599 ----
  640.           (void) sprintf(buf,"%*.*f%c", width-1,
  641.                         lprecision, engmant, engmult[engind]);
  642.         }
  643. +     }
  644. +   }
  645. +   if (fmt == REFMTDATE) {
  646. +     int i;
  647. +     char *time;
  648. +     long int secs;
  649. + 
  650. +     if (buflen < 9) {
  651. +       for (i = 0; i < width; i++) buf[i] = '*';
  652. +       buf[i] = '\0';
  653. +     }
  654. +     else {
  655. +       secs = (time_t)val;
  656. +       time = ctime(&secs);
  657. +       buf[0] = time[8];
  658. +       buf[1] = time[9];
  659. +       buf[2] = ' ';
  660. +       buf[3] = time[4];
  661. +       buf[4] = time[5];
  662. +       buf[5] = time[6];
  663. +       buf[6] = ' ';
  664. +       buf[7] = time[22];
  665. +       buf[8] = time[23];
  666. +       for (i = 9; i < width; i++) buf[i] = ' ';
  667. +       buf[i] = '\0';
  668.       }
  669.     }
  670.     return (true);
  671. *** 6.17    1991/09/04 14:20:49
  672. --- gram.y    1991/09/09 19:14:52
  673. ***************
  674. *** 9,15 ****
  675.    *
  676.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  677.    *
  678. !  *        $Revision: 6.17 $
  679.    */
  680.   
  681.   
  682. --- 9,15 ----
  683.    *
  684.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  685.    *
  686. !  *        $Revision: 6.18 $
  687.    */
  688.   
  689.   
  690. ***************
  691. *** 152,158 ****
  692.   %token K_MYROW
  693.   %token K_MYCOL
  694.   %token K_COLTOA
  695. ! 
  696.   %left '?' ':'
  697.   %left '|'
  698.   %left '&'
  699. --- 152,163 ----
  700.   %token K_MYROW
  701.   %token K_MYCOL
  702.   %token K_COLTOA
  703. ! %token K_CRACTION
  704. ! %token K_CRROW
  705. ! %token K_CRCOL
  706. ! %token K_ROWLIMIT
  707. ! %token K_COLLIMIT
  708. !   
  709.   %left '?' ':'
  710.   %left '|'
  711.   %left '&'
  712. ***************
  713. *** 175,183 ****
  714.       |    S_FORMAT COL NUMBER NUMBER NUMBER
  715.                   { doformat($2,$2,$3,$4,$5); }
  716.           |       S_FORMAT COL ':' COL NUMBER NUMBER
  717. !                                 { doformat($2,$4,$5,$6, 0); }
  718.           |       S_FORMAT COL NUMBER NUMBER
  719. !                                 { doformat($2,$2,$3,$4, 0); }
  720.       |    S_GET strarg    {  /* This tmp hack is because readfile
  721.                       * recurses back through yyparse. */
  722.                     char *tmp;
  723. --- 180,188 ----
  724.       |    S_FORMAT COL NUMBER NUMBER NUMBER
  725.                   { doformat($2,$2,$3,$4,$5); }
  726.           |       S_FORMAT COL ':' COL NUMBER NUMBER
  727. !                                 { doformat($2,$4,$5,$6, REFMTFIX); }
  728.           |       S_FORMAT COL NUMBER NUMBER
  729. !                                 { doformat($2,$2,$3,$4, REFMTFIX); }
  730.       |    S_GET strarg    {  /* This tmp hack is because readfile
  731.                       * recurses back through yyparse. */
  732.                     char *tmp;
  733. ***************
  734. *** 360,365 ****
  735. --- 365,372 ----
  736.       |    '-' term    { $$ = new ('m', ENULL, $2); }
  737.       |    NUMBER        { $$ = new_const(O_CONST, (double) $1); }
  738.       |    FNUMBER        { $$ = new_const(O_CONST, $1); }
  739. +     |    NUMBER '_' NUMBER '_' NUMBER
  740. +             { $$ = new_const(O_CONST, convert_date($1,$3,$5)); }
  741.       |    K_PI { $$ = new_const(O_CONST, (double)3.14159265358979323846); }
  742.       | '@'   K_PI { $$ = new_const(O_CONST, (double)3.14159265358979323846); }
  743.       |    STRING            { $$ = new_str($1); }
  744. ***************
  745. *** 463,468 ****
  746. --- 470,478 ----
  747.       |    K_TBLSTYLE '=' K_TEX    { tbl_style = TEX; }
  748.       |    K_RNDINFINITY        { rndinfinity = 1; FullUpdate++; }
  749.       |    '!' K_RNDINFINITY    { rndinfinity = 0; FullUpdate++; }
  750. +     |    K_CRACTION '=' NUMBER    { craction = $3; }
  751. +     |    K_ROWLIMIT '=' NUMBER    { rowlimit = $3; }
  752. +     |    K_COLLIMIT '=' NUMBER    { collimit = $3; }
  753.         ;
  754.   
  755.   /* types of errors, to 'goto' */
  756. *** 6.17    1991/09/04 14:57:00
  757. --- help.c    1991/09/09 22:02:27
  758. ***************
  759. *** 2,13 ****
  760.    * Help functions for sc 
  761.    * R. Bond, 1988
  762.    * J. Buhrt 1990
  763. !  * $Revision: 6.17 $
  764.    */
  765.   
  766.   #ifdef QREF
  767.   #include <stdio.h>
  768. ! char    *header = " Quick Reference\n\n$Revision: 6.17 $";
  769.   #else
  770.   #include <curses.h>
  771.   #include "sc.h"
  772. --- 2,13 ----
  773.    * Help functions for sc 
  774.    * R. Bond, 1988
  775.    * J. Buhrt 1990
  776. !  * $Revision: 6.18 $
  777.    */
  778.   
  779.   #ifdef QREF
  780.   #include <stdio.h>
  781. ! char    *header = " Quick Reference\n\n$Revision: 6.18 $";
  782.   #else
  783.   #include <curses.h>
  784.   #include "sc.h"
  785. ***************
  786. *** 18,48 ****
  787.   " Overview:",
  788.   " ",
  789.   " A:   This overview",
  790. ! " B:   Options",
  791. ! " C:   Cursor movement commands",
  792. ! " D:   Cell entry and editing commands",
  793. ! " E:   Line Editing",
  794. ! " F:   File commands",
  795. ! " G:   Row and column commands",
  796. ! " H:   Range commands",
  797. ! " I:   Miscellaneous commands",
  798. ! " J:   Variable names/Expressions",
  799. ! " K:   Range functions",
  800. ! " L:   Numeric functions",
  801. ! " M:   String functions",
  802. ! " N:   Financial functions",
  803. ! " O:   Time and date functions",
  804.   " ",
  805.   " Q:   Return to main spreadsheet",
  806.   (char *)0
  807.   };
  808.   
  809. ! char *options[] = {
  810.   " ",
  811. ! " B: Options",
  812.   " ",
  813.   "     ^To  Toggle options. Toggle one option selected by o:",
  814. - " ",
  815.   "          a    Recalculate automatically or on ``@'' commands.",
  816.   "          c    Current cell highlighting enable/disable.",  
  817.   "          e    External function execution enable/disable.",
  818. --- 18,48 ----
  819.   " Overview:",
  820.   " ",
  821.   " A:   This overview",
  822. ! " B:   Toggle Options",
  823. ! " C:   Set Options",
  824. ! " D:   Cursor movement commands",
  825. ! " E:   Cell entry and editing commands",
  826. ! " F:   Line Editing",
  827. ! " G:   File commands",
  828. ! " H:   Row and column commands",
  829. ! " I:   Range commands",
  830. ! " J:   Miscellaneous commands",
  831. ! " K:   Variable names/Expressions",
  832. ! " L:   Range functions",
  833. ! " M:   Numeric functions",
  834. ! " N:   String functions",
  835. ! " O:   Financial functions",
  836. ! " P:   Time and date functions",
  837.   " ",
  838.   " Q:   Return to main spreadsheet",
  839.   (char *)0
  840.   };
  841.   
  842. ! char *toggleoptions[] = {
  843.   " ",
  844. ! " B: Toggle Options",
  845.   " ",
  846.   "     ^To  Toggle options. Toggle one option selected by o:",
  847.   "          a    Recalculate automatically or on ``@'' commands.",
  848.   "          c    Current cell highlighting enable/disable.",  
  849.   "          e    External function execution enable/disable.",
  850. ***************
  851. *** 50,60 ****
  852.   "          n    If enabled, a digit starts a numeric value.",
  853.   "          t    Top line display enable/disable.",
  854.   "          x    Encrypt/decrypt database and listing files.",
  855. ! "          $    Dollar prescale.  If enabled, all numeric constants.",
  856.   "               (not expressions) entered are multipled by 0.01.",
  857.   " ",
  858. ! "     S    Set options.  Options include:",
  859.   " ",
  860.   "          byrows        Recalculate in row order. (default)",
  861.   "          bycols        Recalculate in column order.",
  862.   "          iterations=n  Set the number of iterations allowed. (10)",
  863. --- 50,69 ----
  864.   "          n    If enabled, a digit starts a numeric value.",
  865.   "          t    Top line display enable/disable.",
  866.   "          x    Encrypt/decrypt database and listing files.",
  867. ! "          $    Dollar prescale.  If enabled, all numeric constants",
  868.   "               (not expressions) entered are multipled by 0.01.",
  869. + "          r    Newline action.  Toggle between no action, move down",
  870. + "               after entry and move right after entry.",
  871. + "          z    Set the newline action limits to the current row and column",
  872. + "            (for r && z see also set rowlimit=n, collimit=n)",
  873. + (char *)0
  874. + };
  875. + 
  876. + char *setoptions[] = {
  877.   " ",
  878. ! " C: Set Options",
  879.   " ",
  880. + "     S  Set options.  Options include:",
  881.   "          byrows        Recalculate in row order. (default)",
  882.   "          bycols        Recalculate in column order.",
  883.   "          iterations=n  Set the number of iterations allowed. (10)",
  884. ***************
  885. *** 61,72 ****
  886.   "          tblstyle=xx   Set ``T'' output style to:",
  887.   "                        0 (none), tex, latex, slatex, or tbl.",
  888.   "          rndinfinity   Round to infinity (round .5 up vs to nearest even).",
  889.   (char *)0
  890.   };
  891.   
  892.   char *cursor[] = {
  893.   " ",
  894. ! " C: Cell cursor movement (always OK):",
  895.   " ",
  896.   "     ^N ^P ^B ^F Down, up, back, forward",
  897.   "     ^Ed         Go to end of range.  Follow ^E by a direction indicator",
  898. --- 70,84 ----
  899.   "          tblstyle=xx   Set ``T'' output style to:",
  900.   "                        0 (none), tex, latex, slatex, or tbl.",
  901.   "          rndinfinity   Round to infinity (round .5 up vs to nearest even).",
  902. + "          rowlimit=n    Set the remembered row limit for newline action.",
  903. + "          collimit=n    Set the remembered column limit for newline action.",
  904. + "                     (rowlimit and collimit can both be set by ^Tz)",
  905.   (char *)0
  906.   };
  907.   
  908.   char *cursor[] = {
  909.   " ",
  910. ! " D: Cell cursor movement (always OK):",
  911.   " ",
  912.   "     ^N ^P ^B ^F Down, up, back, forward",
  913.   "     ^Ed         Go to end of range.  Follow ^E by a direction indicator",
  914. ***************
  915. *** 93,103 ****
  916.   
  917.   char *cell[] = {
  918.   " ",
  919. ! " D: Cell entry and editing commands:",
  920.   " ",
  921.   "     =    Enter a numeric constant or expression.",
  922.   "     <    Enter a left justified string or string expression.",
  923. ! "     \",>  Enter a right justified string or string expression.",
  924.   "     e    Edit the current cell's numeric value.",
  925.   "     E    Edit the current cell's string part.",
  926.   "     F    Assign a format to the current cell's numeric value.",
  927. --- 105,116 ----
  928.   
  929.   char *cell[] = {
  930.   " ",
  931. ! " E: Cell entry and editing commands:",
  932.   " ",
  933.   "     =    Enter a numeric constant or expression.",
  934.   "     <    Enter a left justified string or string expression.",
  935. ! "     \"    Enter a centered label.",
  936. ! "     >    Enter a right justified string or string expression.",
  937.   "     e    Edit the current cell's numeric value.",
  938.   "     E    Edit the current cell's string part.",
  939.   "     F    Assign a format to the current cell's numeric value.",
  940. ***************
  941. *** 116,122 ****
  942.   
  943.   char *vi[] = {
  944.   " ",
  945. ! " E: Line Editor",
  946.   " ",
  947.   "     Hitting the ESC key while entering any command on the top line",
  948.   "     will start a one-line vi-style editor.  Supported commands:",
  949. --- 129,135 ----
  950.   
  951.   char *vi[] = {
  952.   " ",
  953. ! " F: Line Editor",
  954.   " ",
  955.   "     Hitting the ESC key while entering any command on the top line",
  956.   "     will start a one-line vi-style editor.  Supported commands:",
  957. ***************
  958. *** 142,148 ****
  959.   
  960.   char *file[] = {
  961.   " ",
  962. ! " F: File commands:",
  963.   " ",
  964.   "     G    Get a new database from a file. ",
  965.   "     M    Merge a new file into the current database.",
  966. --- 155,161 ----
  967.   
  968.   char *file[] = {
  969.   " ",
  970. ! " G: File commands:",
  971.   " ",
  972.   "     G    Get a new database from a file. ",
  973.   "     M    Merge a new file into the current database.",
  974. ***************
  975. *** 165,171 ****
  976.   
  977.   char *row[] = {
  978.   " ",
  979. ! " G: Row and column commands:",
  980.   " ",
  981.   "     ir, ic      Insert a new, empty row (column)",
  982.   "     ar, ac      Append a new copy of the current row (column)",
  983. --- 178,184 ----
  984.   
  985.   char *row[] = {
  986.   " ",
  987. ! " H: Row and column commands:",
  988.   " ",
  989.   "     ir, ic      Insert a new, empty row (column)",
  990.   "     ar, ac      Append a new copy of the current row (column)",
  991. ***************
  992. *** 192,199 ****
  993.   
  994.   char *range[] = {
  995.   " ",
  996. ! " H: Range commands:",
  997. ! " ",
  998.   "     /x   Clear a range. ",
  999.   "     /v   Remove the expressions from a range of cells, leaving ",
  1000.   "          just the values.",
  1001. --- 205,211 ----
  1002.   
  1003.   char *range[] = {
  1004.   " ",
  1005. ! " I: Range commands:",
  1006.   "     /x   Clear a range. ",
  1007.   "     /v   Remove the expressions from a range of cells, leaving ",
  1008.   "          just the values.",
  1009. ***************
  1010. *** 221,227 ****
  1011.   
  1012.   char *misc[] = {
  1013.   " ",
  1014. ! " I: Miscellaneous commands:",
  1015.   " ",
  1016.   "     Q q ^C   Exit from the program.",
  1017.   "     ^G ESC   Abort entry of the current command.",
  1018. --- 233,239 ----
  1019.   
  1020.   char *misc[] = {
  1021.   " ",
  1022. ! " J: Miscellaneous commands:",
  1023.   " ",
  1024.   "     Q q ^C   Exit from the program.",
  1025.   "     ^G ESC   Abort entry of the current command.",
  1026. ***************
  1027. *** 243,249 ****
  1028.   
  1029.   char *var[] = {
  1030.   " ",
  1031. ! " J: Variable names:",
  1032.   " ",
  1033.   "     K20    Row and column can vary on copies.",
  1034.   "     $K$20  Row and column stay fixed on copies.",
  1035. --- 255,261 ----
  1036.   
  1037.   char *var[] = {
  1038.   " ",
  1039. ! " K: Variable names:",
  1040.   " ",
  1041.   "     K20    Row and column can vary on copies.",
  1042.   "     $K$20  Row and column stay fixed on copies.",
  1043. ***************
  1044. *** 269,275 ****
  1045.   
  1046.   char *rangef[] = {
  1047.   " ",
  1048. ! " K: Range functions:",
  1049.   " ",
  1050.   "     @sum(r)           Sum all valid cells in the range.",
  1051.   "     @prod(r)          Multiply together all valid cells in the range.",
  1052. --- 281,287 ----
  1053.   
  1054.   char *rangef[] = {
  1055.   " ",
  1056. ! " L: Range functions:",
  1057.   " ",
  1058.   "     @sum(r)           Sum all valid cells in the range.",
  1059.   "     @prod(r)          Multiply together all valid cells in the range.",
  1060. ***************
  1061. *** 295,301 ****
  1062.   
  1063.   char *numericf[] = {
  1064.   " ",
  1065. ! " L: Numeric functions:",
  1066.   " ",
  1067.   "     @atan2(e1,e2)     Arc tangent of e1/e2.",
  1068.   "     @ceil(e)          Smallest integer not less than e.",
  1069. --- 307,313 ----
  1070.   
  1071.   char *numericf[] = {
  1072.   " ",
  1073. ! " M: Numeric functions:",
  1074.   " ",
  1075.   "     @atan2(e1,e2)     Arc tangent of e1/e2.",
  1076.   "     @ceil(e)          Smallest integer not less than e.",
  1077. ***************
  1078. *** 307,313 ****
  1079.   "     @max(e1,e2,...)   The maximum of the values of the e's.",
  1080.   "     @min(e1,e2,...)   The minimum of the values of the e's",
  1081.   "     @nval(se,e)       The numeric value of a named cell.",
  1082. ! "     pi                A constant quite close to pi.",
  1083.   "     @pow(e1,e2)       e1 raised to the power of e2.",
  1084.   "     @rnd(e)           Round e to the nearest integer.",
  1085.   "     @round(e,n)       Round e to n decimal places.",
  1086. --- 319,325 ----
  1087.   "     @max(e1,e2,...)   The maximum of the values of the e's.",
  1088.   "     @min(e1,e2,...)   The minimum of the values of the e's",
  1089.   "     @nval(se,e)       The numeric value of a named cell.",
  1090. ! "     pi       @pi      A constant quite close to pi.",
  1091.   "     @pow(e1,e2)       e1 raised to the power of e2.",
  1092.   "     @rnd(e)           Round e to the nearest integer.",
  1093.   "     @round(e,n)       Round e to n decimal places.",
  1094. ***************
  1095. *** 322,328 ****
  1096.   
  1097.   char *stringf[] = {
  1098.   " ",
  1099. ! " M: String functions:",
  1100.   "     #                 Concatenate strings.  For example, the",
  1101.   "                       string expression ``A0 # \"zy dog\"'' yields",
  1102.   "                       ``the lazy dog'' if A0 is ``the la''.",
  1103. --- 334,340 ----
  1104.   
  1105.   char *stringf[] = {
  1106.   " ",
  1107. ! " N: String functions:",
  1108.   "     #                 Concatenate strings.  For example, the",
  1109.   "                       string expression ``A0 # \"zy dog\"'' yields",
  1110.   "                       ``the lazy dog'' if A0 is ``the la''.",
  1111. ***************
  1112. *** 350,356 ****
  1113.   
  1114.   char *finf[] = {
  1115.   " ",
  1116. ! " N: Financial functions:",
  1117.   " ",
  1118.   "     @pmt(e1,e2,e3)    @pmt(60000,.01,360) computes the monthly",
  1119.   "                       payments for a $60000 mortgage at 12%",
  1120. --- 362,368 ----
  1121.   
  1122.   char *finf[] = {
  1123.   " ",
  1124. ! " O: Financial functions:",
  1125.   " ",
  1126.   "     @pmt(e1,e2,e3)    @pmt(60000,.01,360) computes the monthly",
  1127.   "                       payments for a $60000 mortgage at 12%",
  1128. ***************
  1129. *** 377,383 ****
  1130.   
  1131.   char *timef[] = {
  1132.   " ",
  1133. ! " O: Time and date functions:",
  1134.   " ",
  1135.   "     @now              Return the time encoded in seconds since 1970.",
  1136.   "     @dts(m,d,y)       Return m/d/y encoded in seconds since 1970.",
  1137. --- 389,395 ----
  1138.   
  1139.   char *timef[] = {
  1140.   " ",
  1141. ! " P: Time and date functions:",
  1142.   " ",
  1143.   "     @now              Return the time encoded in seconds since 1970.",
  1144.   "     @dts(m,d,y)       Return m/d/y encoded in seconds since 1970.",
  1145. ***************
  1146. *** 413,432 ****
  1147.       while((option = pscreen(ns)) != 'q' && option != 'Q') {
  1148.           switch (option) {
  1149.       case 'a': case 'A': ns = intro; break;
  1150. !     case 'b': case 'B': ns = options; break;
  1151. !     case 'c': case 'C': ns = cursor; break;
  1152. !     case 'd': case 'D': ns = cell; break;
  1153. !     case 'e': case 'E': ns = vi; break;
  1154. !     case 'f': case 'F': ns = file; break;
  1155. !     case 'g': case 'G': ns = row; break;
  1156. !     case 'h': case 'H': ns = range; break;
  1157. !     case 'i': case 'I': ns = misc; break;
  1158. !     case 'j': case 'J': ns = var; break;
  1159. !     case 'k': case 'K': ns = rangef; break;
  1160. !     case 'l': case 'L': ns = numericf; break;
  1161. !     case 'm': case 'M': ns = stringf; break;
  1162. !     case 'n': case 'N': ns = finf; break;
  1163. !     case 'o': case 'O': ns = timef; break;
  1164.       default: ns = intro; break;
  1165.       }
  1166.       }
  1167. --- 425,445 ----
  1168.       while((option = pscreen(ns)) != 'q' && option != 'Q') {
  1169.           switch (option) {
  1170.       case 'a': case 'A': ns = intro; break;
  1171. !     case 'b': case 'B': ns = toggleoptions; break;
  1172. !     case 'c': case 'C': ns = setoptions; break;
  1173. !     case 'd': case 'D': ns = cursor; break;
  1174. !     case 'e': case 'E': ns = cell; break;
  1175. !     case 'f': case 'F': ns = vi; break;
  1176. !     case 'g': case 'G': ns = file; break;
  1177. !     case 'h': case 'H': ns = row; break;
  1178. !     case 'i': case 'I': ns = range; break;
  1179. !     case 'j': case 'J': ns = misc; break;
  1180. !     case 'k': case 'K': ns = var; break;
  1181. !     case 'l': case 'L': ns = rangef; break;
  1182. !     case 'm': case 'M': ns = numericf; break;
  1183. !     case 'n': case 'N': ns = stringf; break;
  1184. !     case 'o': case 'O': ns = finf; break;
  1185. !     case 'p': case 'P': ns = timef; break;
  1186.       default: ns = intro; break;
  1187.       }
  1188.       }
  1189. ***************
  1190. *** 457,464 ****
  1191.       return(nmgetch());
  1192.   }
  1193.   #else
  1194. ! char    ** pages[] = { intro, options, cursor, cell, vi, file, row,
  1195. !             range, misc, var, rangef, numericf, stringf,
  1196.               finf, timef, NULL};
  1197.   
  1198.   void
  1199. --- 470,477 ----
  1200.       return(nmgetch());
  1201.   }
  1202.   #else
  1203. ! char    ** pages[] = { intro, toggleoptions, setoptions, cursor, cell, vi,
  1204. !             file, row, range, misc, var, rangef, numericf, stringf,
  1205.               finf, timef, NULL};
  1206.   
  1207.   void
  1208. *** 6.17    1991/09/04 14:20:49
  1209. --- interp.c    1991/09/09 19:15:04
  1210. ***************
  1211. *** 7,13 ****
  1212.    *
  1213.    *              More mods Robert Bond, 12/86
  1214.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1215. !  *        $Revision: 6.17 $
  1216.    */
  1217.   
  1218.   #define DEBUGDTS 1        /* REMOVE ME */
  1219. --- 7,13 ----
  1220.    *
  1221.    *              More mods Robert Bond, 12/86
  1222.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1223. !  *        $Revision: 6.18 $
  1224.    */
  1225.   
  1226.   #define DEBUGDTS 1        /* REMOVE ME */
  1227. ***************
  1228. *** 1046,1056 ****
  1229.       static char *prevstr = (char *)0;    /* previous result */
  1230.       static unsigned    prevlen = 0;
  1231.       char buff[FBUFLEN];        /* command line/return, not permanently alloc */
  1232.   
  1233.       if (!extfunc)    {
  1234.       error ("Warning: external functions disabled; using %s value",
  1235.           ((prevstr == NULL) || (*prevstr == '\0')) ?
  1236. !             "previous" : "null");
  1237.   
  1238.       if (command) xfree (command);
  1239.       } else {
  1240. --- 1046,1057 ----
  1241.       static char *prevstr = (char *)0;    /* previous result */
  1242.       static unsigned    prevlen = 0;
  1243.       char buff[FBUFLEN];        /* command line/return, not permanently alloc */
  1244. +     extern char *strchr();
  1245.   
  1246.       if (!extfunc)    {
  1247.       error ("Warning: external functions disabled; using %s value",
  1248.           ((prevstr == NULL) || (*prevstr == '\0')) ?
  1249. !             "null" : "previous");
  1250.   
  1251.       if (command) xfree (command);
  1252.       } else {
  1253. ***************
  1254. *** 1191,1196 ****
  1255. --- 1192,1200 ----
  1256.   
  1257.   /*
  1258.    * make proper capitals of every word in a string
  1259. +  * if the string has mixed case we say the string is lower
  1260. +  *    and we will upcase only first letters of words
  1261. +  * if the string is all upper we will lower rest of words.
  1262.    */
  1263.   
  1264.   char *
  1265. ***************
  1266. *** 1199,1207 ****
  1267. --- 1203,1214 ----
  1268.   {
  1269.       char *p;
  1270.       int skip = 1;
  1271. +     int AllUpper = 1;
  1272.   
  1273.       if (s == NULL)
  1274.       return(NULL);
  1275. +     for( p = s; *p != '\0' && AllUpper != 0; p++ )
  1276. +     if( isalpha(*p) && islower(*p) )  AllUpper = 0;
  1277.       for (p = s; *p != '\0'; p++) {
  1278.       if (!isalnum(*p))
  1279.           skip = 1;
  1280. ***************
  1281. *** 1212,1218 ****
  1282.               *p = toupper(*p);
  1283.       }
  1284.       else    /* if the string was all upper before */
  1285. !     if (isupper(*p))
  1286.           *p = tolower(*p);
  1287.       }
  1288.       return(s);
  1289. --- 1219,1225 ----
  1290.               *p = toupper(*p);
  1291.       }
  1292.       else    /* if the string was all upper before */
  1293. !         if (isupper(*p) && AllUpper != 0)
  1294.           *p = tolower(*p);
  1295.       }
  1296.       return(s);
  1297. ***************
  1298. *** 1940,1947 ****
  1299.       v->expr = se;
  1300.       v->flags |= (is_changed|is_strexpr);
  1301.       if (flushdir<0) v->flags |= is_leftflush;
  1302. -     else v->flags &= ~is_leftflush;
  1303.   
  1304.       FullUpdate++;
  1305.       changed++;
  1306.       modflg++;
  1307. --- 1947,1957 ----
  1308.       v->expr = se;
  1309.       v->flags |= (is_changed|is_strexpr);
  1310.       if (flushdir<0) v->flags |= is_leftflush;
  1311.   
  1312. +     if (flushdir==0)
  1313. +     v->flags |= is_label;
  1314. +     else v->flags &= ~is_label;
  1315. + 
  1316.       FullUpdate++;
  1317.       changed++;
  1318.       modflg++;
  1319. ***************
  1320. *** 2108,2113 ****
  1321. --- 2118,2125 ----
  1322.           v->label = (char *)0;
  1323.       if (flushdir<0) v->flags |= is_leftflush;
  1324.       else v->flags &= ~is_leftflush;
  1325. +     if (flushdir==0) v->flags |= is_label;
  1326. +     else v->flags &= ~is_label;
  1327.       FullUpdate++;
  1328.       modflg++;
  1329.       }
  1330. ***************
  1331. *** 2428,2433 ****
  1332. --- 2440,2448 ----
  1333.       register struct ent *p;
  1334.   
  1335.       p = lookat (row, col);
  1336. +     if( p->flags&is_label )
  1337. +     (void) sprintf( line, "label %s = ", v_name(row, col));
  1338. +     else
  1339.       (void) sprintf (line, "%sstring %s = ",
  1340.               ((p->flags&is_leftflush) ? "left" : "right"),
  1341.               v_name(row, col));
  1342. *** 6.17    1991/09/04 14:20:49
  1343. --- lex.c    1991/09/09 19:15:10
  1344. ***************
  1345. *** 7,13 ****
  1346.    *
  1347.    *              More mods Robert Bond, 12/86
  1348.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1349. !  *        $Revision: 6.17 $
  1350.    *
  1351.    */
  1352.   
  1353. --- 7,13 ----
  1354.    *
  1355.    *              More mods Robert Bond, 12/86
  1356.    *        More mods by Alan Silverstein, 3/88, see list of changes.
  1357. !  *        $Revision: 6.18 $
  1358.    *
  1359.    */
  1360.   
  1361. ***************
  1362. *** 545,550 ****
  1363. --- 545,551 ----
  1364.   initkbd()
  1365.   {
  1366.       keypad(stdscr, TRUE);
  1367. +     notimeout(stdscr,TRUE);
  1368.   }
  1369.   
  1370.   void
  1371. ***************
  1372. *** 551,556 ****
  1373. --- 552,558 ----
  1374.   kbd_again()
  1375.   {
  1376.       keypad(stdscr, TRUE);
  1377. +     notimeout(stdscr,TRUE);
  1378.   }
  1379.   
  1380.   void
  1381. ***************
  1382. *** 557,562 ****
  1383. --- 559,565 ----
  1384.   resetkbd()
  1385.   {
  1386.       keypad(stdscr, FALSE);
  1387. +     notimeout(stdscr, FALSE);
  1388.   }
  1389.   
  1390.   int
  1391. ***************
  1392. *** 564,570 ****
  1393.   {
  1394.       register int c;
  1395.   
  1396. !     c = getch();
  1397.       switch (c) {
  1398.   #ifdef KEY_LEFT
  1399.       case KEY_LEFT:  c = ctl('b'); break;
  1400. --- 567,573 ----
  1401.   {
  1402.       register int c;
  1403.   
  1404. !     c = wgetch(stdscr);
  1405.       switch (c) {
  1406.   #ifdef KEY_LEFT
  1407.       case KEY_LEFT:  c = ctl('b'); break;
  1408. *** 6.17    1991/09/04 14:20:49
  1409. --- sc.c    1991/09/09 19:15:13
  1410. ***************
  1411. *** 8,14 ****
  1412.    *              More mods Robert Bond, 12/86
  1413.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1414.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1415. !  *        $Revision: 6.17 $
  1416.    *
  1417.    */
  1418.   
  1419. --- 8,14 ----
  1420.    *              More mods Robert Bond, 12/86
  1421.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1422.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1423. !  *        $Revision: 6.18 $
  1424.    *
  1425.    */
  1426.   
  1427. ***************
  1428. *** 88,93 ****
  1429. --- 88,96 ----
  1430.   int  tbl_style = 0;    /* headers for T command output */
  1431.   int  rndinfinity = 0;
  1432.   int  numeric_field = 0; /* Started the line editing with a number */
  1433. + int  craction = 0;    /* 1 for down, 2 for right */
  1434. + int  rowlimit = -1;
  1435. + int  collimit = -1;
  1436.   #ifdef    SIGWINCH
  1437.   int  hitwinch = 0;    /* got a SIGWINCH? */
  1438.   #endif
  1439. ***************
  1440. *** 233,238 ****
  1441. --- 236,247 ----
  1442.           case 'r':
  1443.               Ropt = 1;
  1444.               break;
  1445. +         case 'C':
  1446. +             craction = CRCOLS;
  1447. +             break;
  1448. +         case 'R':
  1449. +             craction = CRROWS;
  1450. +             break;
  1451.           default:
  1452.               (void) fprintf(stderr,"%s: unrecognized option: \"%c\"\n",
  1453.               progname,argv[0][1]);
  1454. ***************
  1455. *** 443,448 ****
  1456. --- 452,479 ----
  1457.           case ctl('j'):
  1458.               numeric_field = 0;
  1459.               write_line(ctl('m'));
  1460. +             switch(craction) {
  1461. +               case CRROWS:
  1462. +             if ((rowlimit >= 0) && (currow >= rowlimit)) {
  1463. +                 forwcol(1);
  1464. +                 currow = 0;
  1465. +             }
  1466. +             else {
  1467. +                 forwrow(1);
  1468. +             }
  1469. +             break;
  1470. +               case CRCOLS:
  1471. +             if ((collimit >= 0) && (curcol >= collimit)) {
  1472. +                 forwrow(1);
  1473. +                 curcol = 0;
  1474. +             }
  1475. +             else {
  1476. +                 forwcol(1);
  1477. +             }
  1478. +             break;
  1479. +               default:
  1480. +             break;
  1481. +               }
  1482.               break;
  1483.   
  1484.           case ctl('n'):
  1485. ***************
  1486. *** 469,475 ****
  1487.   
  1488.           case ctl('t'):
  1489.               error(
  1490. ! "Toggle: a:auto  c:cell  e:ext funcs  n:numeric  t:top  x:encrypt  $:pre-scale");
  1491.               (void) refresh();
  1492.   
  1493.               switch (nmgetch()) {
  1494. --- 500,506 ----
  1495.   
  1496.           case ctl('t'):
  1497.               error(
  1498. ! "Toggle: a:auto,c:cell,e:ext funcs,n:numeric,t:top,x:encrypt,$:pre-scale,<MORE>");
  1499.               (void) refresh();
  1500.   
  1501.               switch (nmgetch()) {
  1502. ***************
  1503. *** 521,526 ****
  1504. --- 552,580 ----
  1505.               case ctl('g'):
  1506.                   --modflg;    /* negate the modflg++ */
  1507.                   break;
  1508. +             case 'r': case 'R':
  1509. +                 ++craction;
  1510. +                 if(craction >= 3)
  1511. +                 craction = 0;
  1512. +                 switch(craction) {
  1513. +                 default:
  1514. +                     craction = 0; /* fall through */
  1515. +                 case 0:
  1516. +                     error("No action after new line");
  1517. +                     break;
  1518. +                 case CRROWS:
  1519. +                     error("Down row after new line");
  1520. +                     break;
  1521. +                 case CRCOLS:
  1522. +                     error("Right column after new line");
  1523. +                     break;
  1524. +                 }
  1525. +                 break;
  1526. +             case 'z': case 'Z':
  1527. +                 rowlimit = currow;
  1528. +                 collimit = curcol;
  1529. +                 error("Row and column limits set");
  1530. +                 break;
  1531.               default:
  1532.                   error ("Invalid toggle command");
  1533.                   --modflg;    /* negate the modflg++ */
  1534. ***************
  1535. *** 1062,1068 ****
  1536.               break;
  1537.           case 'S':    /* set options */
  1538.               (void) sprintf (line, "set ");
  1539. !             error("Options:byrows,bycols,iterations=n,tblstyle=(0|tbl|latex|slatex|tex),rndinfinity");
  1540.               linelim = strlen (line);
  1541.               insert_mode();
  1542.               break;
  1543. --- 1116,1122 ----
  1544.               break;
  1545.           case 'S':    /* set options */
  1546.               (void) sprintf (line, "set ");
  1547. !             error("Options:byrows,bycols,iterations=n,tblstyle=(0|tbl|latex|slatex|tex),<MORE>");
  1548.               linelim = strlen (line);
  1549.               insert_mode();
  1550.               break;
  1551. *** 6.17    1991/09/04 14:20:49
  1552. --- sc.h    1991/09/09 19:15:16
  1553. ***************
  1554. *** 6,12 ****
  1555.    *            University of Maryland
  1556.    *        R. Bond  12/86
  1557.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1558. !  *        $Revision: 6.17 $
  1559.    *
  1560.    */
  1561.   
  1562. --- 6,12 ----
  1563.    *            University of Maryland
  1564.    *        R. Bond  12/86
  1565.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1566. !  *        $Revision: 6.18 $
  1567.    *
  1568.    */
  1569.   
  1570. ***************
  1571. *** 20,31 ****
  1572.   #define MINCOLS 30 
  1573.   #define    ABSMAXCOLS 702    /* absolute cols: ZZ (base 26) */
  1574.   
  1575.   #define RESCOL 4    /* columns reserved for row numbers */
  1576.   #define RESROW 3 /* rows reserved for prompt, error, and column numbers */
  1577.   
  1578.   #define DEFWIDTH 10    /* Default column width and precision */
  1579.   #define DEFPREC   2
  1580. ! #define DEFREFMT  0     /* Make default format fixed point  THA 10/14/90 */
  1581.   
  1582.   #define HISTLEN  10    /* Number of history entries for vi emulation */
  1583.   #ifdef PSC
  1584. --- 20,39 ----
  1585.   #define MINCOLS 30 
  1586.   #define    ABSMAXCOLS 702    /* absolute cols: ZZ (base 26) */
  1587.   
  1588. + #define CRROWS 1
  1589. + #define CRCOLS 2
  1590.   #define RESCOL 4    /* columns reserved for row numbers */
  1591.   #define RESROW 3 /* rows reserved for prompt, error, and column numbers */
  1592.   
  1593. + /* formats for engformat() */
  1594. + #define REFMTFIX    0
  1595. + #define REFMTFLT    1
  1596. + #define REFMTENG    2
  1597. + #define REFMTDATE    3
  1598. + 
  1599.   #define DEFWIDTH 10    /* Default column width and precision */
  1600.   #define DEFPREC   2
  1601. ! #define DEFREFMT  REFMTFIX /* Make default format fixed point  THA 10/14/90 */
  1602.   
  1603.   #define HISTLEN  10    /* Number of history entries for vi emulation */
  1604.   #ifdef PSC
  1605. ***************
  1606. *** 205,210 ****
  1607. --- 213,219 ----
  1608.   #define is_leftflush 0010
  1609.   #define is_deleted   0020
  1610.   #define is_locked    0040
  1611. + #define is_label     0100
  1612.   
  1613.   /* cell error (1st generation (ERROR) or 2nd+ (INVALID)) */
  1614.   #define    CELLOK        0
  1615. ***************
  1616. *** 390,395 ****
  1617. --- 399,407 ----
  1618.   extern    int tbl_style;
  1619.   extern    int rndinfinity;
  1620.   extern    char *progname;
  1621. + extern    int craction;
  1622. + extern    int rowlimit;
  1623. + extern    int collimit;
  1624.   
  1625.   #if BSD42 || SYSIII
  1626.   
  1627. *** 6.17    1991/09/04 14:20:49
  1628. --- screen.c    1991/09/09 19:15:18
  1629. ***************
  1630. *** 8,14 ****
  1631.    *              More mods Robert Bond, 12/86
  1632.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1633.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1634. !  *        $Revision: 6.17 $
  1635.    *
  1636.    */
  1637.   
  1638. --- 8,14 ----
  1639.    *              More mods Robert Bond, 12/86
  1640.    *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1641.    *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1642. !  *        $Revision: 6.18 $
  1643.    *
  1644.    */
  1645.   
  1646. ***************
  1647. *** 265,272 ****
  1648.           if ((showrange && (! showneed) && (! showexpr)
  1649.                  && (row >= minsr) && (row <= maxsr)
  1650.                  && (col >= minsc) && (col <= maxsc))
  1651. !             || (showneed && (*pp) && ((*pp) -> flags & is_valid)
  1652. !             && (((*pp) -> flags & is_strexpr) || !((*pp) -> expr)))
  1653.               || (showexpr && (*pp) && ((*pp) -> expr)))
  1654.           {
  1655.           (void) move(r, c);
  1656. --- 265,272 ----
  1657.           if ((showrange && (! showneed) && (! showexpr)
  1658.                  && (row >= minsr) && (row <= maxsr)
  1659.                  && (col >= minsc) && (col <= maxsc))
  1660. !             || (showneed && (*pp) && ((*pp) -> flags & is_valid) &&
  1661. !               (((*pp) -> flags & is_strexpr) || !((*pp) -> expr)))
  1662.               || (showexpr && (*pp) && ((*pp) -> expr)))
  1663.           {
  1664.           (void) move(r, c);
  1665. ***************
  1666. *** 283,289 ****
  1667.           else
  1668.           do_stand = 0;
  1669.   
  1670. !         if ((*pp) && ((*pp) -> flags & is_changed || FullUpdate) || do_stand) {
  1671.           if (do_stand) {
  1672.               (*pp) -> flags |= is_changed; 
  1673.           } else {
  1674. --- 283,289 ----
  1675.           else
  1676.           do_stand = 0;
  1677.   
  1678. !         if ((*pp) && (((*pp) -> flags & is_changed || FullUpdate) || do_stand)) {
  1679.           if (do_stand) {
  1680.               (*pp) -> flags |= is_changed; 
  1681.           } else {
  1682. ***************
  1683. *** 337,343 ****
  1684.   
  1685.               if ((*pp) -> label) {
  1686.               showstring((*pp) -> label,
  1687. !                     (*pp) -> flags & is_leftflush,
  1688.                       (*pp) -> flags & is_valid,
  1689.                       row, col, & nextcol, mxcol,
  1690.                       & fieldlen, r, c);
  1691. --- 337,343 ----
  1692.   
  1693.               if ((*pp) -> label) {
  1694.               showstring((*pp) -> label,
  1695. !                     (*pp) -> flags & (is_leftflush|is_label),
  1696.                       (*pp) -> flags & is_valid,
  1697.                       row, col, & nextcol, mxcol,
  1698.                       & fieldlen, r, c);
  1699. ***************
  1700. *** 405,411 ****
  1701.            */
  1702.   
  1703.           if ((p1 -> expr) && (p1 -> flags & is_strexpr)) {
  1704. !             (void) addstr((p1 -> flags & is_leftflush) ? "<{" : ">{");
  1705.               (void) addstr(line);
  1706.               (void) addstr("} ");    /* and this '}' is for vi % */
  1707.               printed = 1;
  1708. --- 405,414 ----
  1709.            */
  1710.   
  1711.           if ((p1 -> expr) && (p1 -> flags & is_strexpr)) {
  1712. !              if( (p1-> flags & is_label) )
  1713. !             (void) addstr("|{");
  1714. !             else
  1715. !             (void) addstr((p1 -> flags & is_leftflush) ? "<{" : ">{");
  1716.               (void) addstr(line);
  1717.               (void) addstr("} ");    /* and this '}' is for vi % */
  1718.               printed = 1;
  1719. ***************
  1720. *** 412,418 ****
  1721.   
  1722.           } else if (p1 -> label) {
  1723.               /* has constant label only */
  1724. !             (void) addstr ((p1 -> flags & is_leftflush) ? "<\"" : ">\"");
  1725.               (void) addstr (p1 -> label);
  1726.               (void) addstr ("\" ");
  1727.               printed = 1;
  1728. --- 415,424 ----
  1729.   
  1730.           } else if (p1 -> label) {
  1731.               /* has constant label only */
  1732. !             if( (p1-> flags & is_label) )
  1733. !             (void) addstr("|\"");
  1734. !             else
  1735. !             (void) addstr ((p1 -> flags & is_leftflush) ? "<\"" : ">\"");
  1736.               (void) addstr (p1 -> label);
  1737.               (void) addstr ("\" ");
  1738.               printed = 1;
  1739. ***************
  1740. *** 437,443 ****
  1741.           if (! printed)
  1742.           (void) addstr ("[]");
  1743.           /* Display if cell is locked */
  1744. !         if (p1->flags&is_locked)
  1745.           (void) addstr(" locked");
  1746.       }
  1747.       (void) move(lastmy, lastmx+fwidth[lastcol]);
  1748. --- 443,449 ----
  1749.           if (! printed)
  1750.           (void) addstr ("[]");
  1751.           /* Display if cell is locked */
  1752. !         if (p1 && p1->flags&is_locked)
  1753.           (void) addstr(" locked");
  1754.       }
  1755.       (void) move(lastmy, lastmx+fwidth[lastcol]);
  1756. *** 6.17    1991/09/04 14:20:49
  1757. --- version.c    1991/09/09 19:22:38
  1758. ***************
  1759. *** 4,7 ****
  1760.    * The part after the first colon, except the last char, appears on the screen.
  1761.    */
  1762.   
  1763. ! char *rev = "$Revision: 6.17 $";
  1764. --- 4,7 ----
  1765.    * The part after the first colon, except the last char, appears on the screen.
  1766.    */
  1767.   
  1768. ! char *rev = "$Revision: 6.18 $";
  1769. *** 6.17    1991/09/04 14:23:44
  1770. --- vi.c    1991/09/09 19:15:22
  1771. ***************
  1772. *** 1,7 ****
  1773.   /*    SC    A Spreadsheet Calculator
  1774.    *
  1775.    *    One line vi emulation
  1776. !  *    $Revision: 6.17 $
  1777.    */
  1778.   
  1779.   #include <sys/types.h>
  1780. --- 1,7 ----
  1781.   /*    SC    A Spreadsheet Calculator
  1782.    *
  1783.    *    One line vi emulation
  1784. !  *    $Revision: 6.18 $
  1785.    */
  1786.   
  1787.   #include <sys/types.h>
  1788. ***************
  1789. *** 661,667 ****
  1790.       prev_histp = histp;
  1791.       look_here = line;
  1792.       found_it = do_next = 0;
  1793. !     while ((look_here = strchr(look_here, last_search[0])) &&
  1794.                           !found_it && !do_next) {
  1795.   
  1796.           if (strncmp(look_here, last_search, strlen(last_search)) == 0)
  1797. --- 661,667 ----
  1798.       prev_histp = histp;
  1799.       look_here = line;
  1800.       found_it = do_next = 0;
  1801. !     while ((look_here = strchr(look_here, last_search[0])) != NULL &&
  1802.                           !found_it && !do_next) {
  1803.   
  1804.           if (strncmp(look_here, last_search, strlen(last_search)) == 0)
  1805.  
  1806. exit 0 # Just in case...
  1807. -- 
  1808. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1809. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1810. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1811. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1812. exit 0 # Just in case...
  1813. -- 
  1814. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1815. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1816. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1817. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1818.