home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume22 / sc / patch01b < prev    next >
Encoding:
Text File  |  1991-09-20  |  26.2 KB  |  1,133 lines
  1. Newsgroups: comp.sources.misc
  2. From: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  3. Subject:  REPOST: v22i096:  sc - The SC Spreadsheet, release 6.16, Patch01b/2
  4. Message-ID: <1991Sep20.143406.6061@sparky.imd.sterling.com>
  5. X-Md4-Signature: e1b770411fc08e86cafebaec1e697876
  6. Date: Fri, 20 Sep 1991 14:34:06 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  10. Posting-number: Volume 22, Issue 96
  11. Archive-name: sc/patch01b
  12. Environment: UNIX, VMS, MS-DOS
  13. Patch-To: sc: Volume 20, Issue 35-41
  14.  
  15. #!/bin/sh
  16. # this is sc-P.02 (part 2 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file pch616-617 continued
  19. #
  20. if test ! -r _shar_seq_.tmp; then
  21.     echo 'Please unpack part 1 first!'
  22.     exit 1
  23. fi
  24. (read Scheck
  25.  if test "$Scheck" != 2; then
  26.     echo Please unpack part "$Scheck" next!
  27.     exit 1
  28.  else
  29.     exit 0
  30.  fi
  31. ) < _shar_seq_.tmp || exit 1
  32. if test ! -f _shar_wnt_.tmp; then
  33.     echo 'x - still skipping pch616-617'
  34. else
  35. echo 'x - continuing file pch616-617'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'pch616-617' &&
  37. X          }
  38. X          if ((p->cellerror = cellerror) || (v != p->v)) {
  39. X          p->v = v;
  40. --- 1372,1379 ----
  41. X          v = (double)0.0;
  42. X          } else {
  43. X          cellerror = CELLOK;
  44. X          gmyrow=i; gmycol=j;
  45. +         v = eval (p->expr);
  46. X          }
  47. X          if ((p->cellerror = cellerror) || (v != p->v)) {
  48. X          p->v = v;
  49. ***************
  50. *** 1379,1385 ****
  51. X  double a1;
  52. X  {
  53. X      register struct enode *p;
  54. !     if (freeenodes)
  55. X      {    p = freeenodes;
  56. X      freeenodes = p->e.o.left;
  57. X      }
  58. --- 1443,1449 ----
  59. X  double a1;
  60. X  {
  61. X      register struct enode *p;
  62. !     if (freeenodes)    /* reuse an already free'd enode */
  63. X      {    p = freeenodes;
  64. X      freeenodes = p->e.o.left;
  65. X      }
  66. ***************
  67. *** 1396,1402 ****
  68. X  {
  69. X      register struct enode *p;
  70. X  
  71. !     if (freeenodes)
  72. X      {    p = freeenodes;
  73. X      freeenodes = p->e.o.left;
  74. X      }
  75. --- 1460,1466 ----
  76. X  {
  77. X      register struct enode *p;
  78. X  
  79. !     if (freeenodes)    /* reuse an already free'd enode */
  80. X      {    p = freeenodes;
  81. X      freeenodes = p->e.o.left;
  82. X      }
  83. ***************
  84. *** 1466,1471 ****
  85. --- 1530,1536 ----
  86. X      for (dc=vc, sc=minsc; sc<=maxsc; sc++, dc++) {
  87. X          if (p = *ATBL(tbl, sr, sc))
  88. X          {    n = lookat (dr, dc);
  89. +         if (n->flags&is_locked) continue;
  90. X          (void) clearent(n);
  91. X          copyent( n, p, dr - sr, dc - sc);
  92. X          }
  93. ***************
  94. *** 1692,1697 ****
  95. --- 1757,1763 ----
  96. X      for (r = minr; r<=maxr; r++)
  97. X      for (c = minc; c<=maxc; c++) {
  98. X          n = lookat (r, c);
  99. +         if (n->flags&is_locked) continue;
  100. X          (void) clearent(n);
  101. X          n->v = start;
  102. X          start += inc;
  103. ***************
  104. *** 1712,1717 ****
  105. --- 1778,1839 ----
  106. X      changed++;
  107. X  }
  108. X  
  109. + /* lock a range of cells */
  110. + 
  111. + void
  112. + lock_cells (v1, v2)
  113. + struct ent *v1, *v2;
  114. + {
  115. +     register r,c;
  116. +     register struct ent *n;
  117. +     int maxr, maxc;
  118. +     int minr, minc;
  119. + 
  120. +     maxr = v2->row;
  121. +     maxc = v2->col;
  122. +     minr = v1->row;
  123. +     minc = v1->col;
  124. +     if (minr>maxr) r = maxr, maxr = minr, minr = r;
  125. +     if (minc>maxc) c = maxc, maxc = minc, minc = c;
  126. +     checkbounds(&maxr, &maxc);
  127. +     if (minr < 0) minr = 0;
  128. +     if (minc < 0) minc = 0;
  129. + 
  130. +     for (r = minr; r<=maxr; r++)
  131. +     for (c = minc; c<=maxc; c++) {
  132. +         n = lookat (r, c);
  133. +         n->flags |= is_locked;
  134. +     }
  135. + }
  136. + 
  137. + /* unlock a range of cells */
  138. + 
  139. + void
  140. + unlock_cells (v1, v2)
  141. + struct ent *v1, *v2;
  142. + {
  143. +     register r,c;
  144. +     register struct ent *n;
  145. +     int maxr, maxc;
  146. +     int minr, minc;
  147. + 
  148. +     maxr = v2->row;
  149. +     maxc = v2->col;
  150. +     minr = v1->row;
  151. +     minc = v1->col;
  152. +     if (minr>maxr) r = maxr, maxr = minr, minr = r;
  153. +     if (minc>maxc) c = maxc, maxc = minc, minc = c;
  154. +     checkbounds(&maxr, &maxc);
  155. +     if (minr < 0) minr = 0;
  156. +     if (minc < 0) minc = 0;
  157. + 
  158. +     for (r = minr; r<=maxr; r++)
  159. +     for (c = minc; c<=maxc; c++) {
  160. +         n = lookat (r, c);
  161. +         n->flags &= ~is_locked;
  162. +     }
  163. + }
  164. + 
  165. X  /* set the numeric part of a cell */
  166. X  void
  167. X  let (v, e)
  168. ***************
  169. *** 1749,1756 ****
  170. X      }
  171. X  
  172. X      if (isconstant) {
  173. !     if (!loading && prescale < (double)0.9999999)
  174. X          val *= prescale;
  175. X      v->v = val;
  176. X  
  177. X      if (!(v->flags & is_strexpr)) {
  178. --- 1871,1881 ----
  179. X      }
  180. X  
  181. X      if (isconstant) {
  182. !     /* prescale input unless it has a decimal */
  183. !     if (!loading && (prescale < (double)0.9999999) &&
  184. !                 (fmod(val, (double)1.0) == (double)0))
  185. X          val *= prescale;
  186. + 
  187. X      v->v = val;
  188. X  
  189. X      if (!(v->flags & is_strexpr)) {
  190. ***************
  191. *** 1847,1852 ****
  192. --- 1972,1981 ----
  193. X      for (r = minr; r <= maxr; r++)
  194. X      for (c = minc; c <= maxc; c++) {
  195. X          n = lookat (r, c);
  196. +         if (n->flags&is_locked) {
  197. +         error("Cell %s%d is locked", coltoa(n->col), n->row);
  198. +         continue;
  199. +         }
  200. X          if (n->format)
  201. X          xfree(n->format);
  202. X          n->format = 0;
  203. ***************
  204. *** 2109,2114 ****
  205. --- 2238,2246 ----
  206. X      case DAY:    one_arg( "@day(", e); break;
  207. X      case YEAR:    one_arg( "@year(", e); break;
  208. X      case DATE:    one_arg( "@date(", e); break;
  209. +     case UPPER:    one_arg( "@upper(", e); break;
  210. +     case LOWER:    one_arg( "@lower(", e); break;
  211. +     case CAPITAL:    one_arg( "@capital(", e); break;
  212. X      case DTS:    three_arg( "@dts(", e); break;
  213. X      case TTS:    three_arg( "@tts(", e); break;
  214. X      case STON:    one_arg( "@ston(", e); break;
  215. *** 6.16    1991/06/04 18:55:36
  216. --- lex.c    1991/09/04 14:28:14
  217. ***************
  218. *** 7,13 ****
  219. X   *
  220. X   *              More mods Robert Bond, 12/86
  221. X   *        More mods by Alan Silverstein, 3/88, see list of changes.
  222. !  *        $Revision: 6.16 $
  223. X   *
  224. X   */
  225. X  
  226. --- 7,13 ----
  227. X   *
  228. X   *              More mods Robert Bond, 12/86
  229. X   *        More mods by Alan Silverstein, 3/88, see list of changes.
  230. !  *        $Revision: 6.17 $
  231. X   *
  232. X   */
  233. X  
  234. ***************
  235. *** 48,56 ****
  236. --- 48,64 ----
  237. X  extern YYSTYPE yylval;
  238. X  extern int VMS_read_raw;   /*sigh*/
  239. X  #else    /* VMS */
  240. + #if defined(MSDOS)
  241. + #include "y_tab.h"
  242. + #else
  243. X  #include "y.tab.h"
  244. + #endif /* MSDOS */
  245. X  #endif /* VMS */
  246. X  
  247. + #ifdef hpux
  248. + extern YYSTYPE yylval;
  249. + #endif /* hpux */
  250. + 
  251. X  char *strtof();
  252. X  
  253. X  jmp_buf wakeup;
  254. ***************
  255. *** 201,218 ****
  256. X      (void) signal(SIGFPE, sig_save);
  257. X      } else if (*p=='"') {
  258. X      char *ptr;
  259. !         ptr = p+1;
  260. !         while(*ptr && *ptr++ != '"');
  261. X          ptr = xmalloc((unsigned)(ptr-p));
  262. X      yylval.sval = ptr;
  263. X      p += 1;
  264. !     while (*p && *p!='"') *ptr++ = *p++;
  265. X      *ptr = 0;
  266. !     if (*p) p += 1;
  267. X      ret = STRING;
  268. X      } else if (*p=='[') {
  269. !     while (*p && *p!=']') p++;
  270. !     if (*p) p++;
  271. X      linelim = p-line;
  272. X      return yylex();
  273. X      } else ret = *p++;
  274. --- 209,231 ----
  275. X      (void) signal(SIGFPE, sig_save);
  276. X      } else if (*p=='"') {
  277. X      char *ptr;
  278. !         ptr = p+1;    /* "string" or "string\"quoted\"" */
  279. !         while(*ptr && ((*ptr != '"') || (*(ptr-1) == '\\')))
  280. !         ptr++;
  281. X          ptr = xmalloc((unsigned)(ptr-p));
  282. X      yylval.sval = ptr;
  283. X      p += 1;
  284. !     while (*p && ((*p != '"') || (*(p-1) == '\\')))
  285. !         *ptr++ = *p++;
  286. X      *ptr = 0;
  287. !     if (*p)
  288. !         p += 1;
  289. X      ret = STRING;
  290. X      } else if (*p=='[') {
  291. !     while (*p && *p!=']')
  292. !         p++;
  293. !     if (*p)
  294. !         p++;
  295. X      linelim = p-line;
  296. X      return yylex();
  297. X      } else ret = *p++;
  298. ***************
  299. *** 300,306 ****
  300. X      case SMG$K_TRM_RIGHT: c = ctl('f'); break;
  301. X      case SMG$K_TRM_UP:    c = ctl('p'); break;
  302. X      case SMG$K_TRM_DOWN:  c = ctl('n'); break;
  303. !     default:   c = c & 0x7f;
  304. X      }
  305. X      return (c);
  306. X  }
  307. --- 313,319 ----
  308. X      case SMG$K_TRM_RIGHT: c = ctl('f'); break;
  309. X      case SMG$K_TRM_UP:    c = ctl('p'); break;
  310. X      case SMG$K_TRM_DOWN:  c = ctl('n'); break;
  311. !     default:   c = c & A_CHARTEXT;
  312. X      }
  313. X      return (c);
  314. X  }
  315. ***************
  316. *** 526,532 ****
  317. X  
  318. X  #endif
  319. X  
  320. ! #if defined(SYSV2) || defined(SYSV3)
  321. X  
  322. X  void
  323. X  initkbd()
  324. --- 539,545 ----
  325. X  
  326. X  #endif
  327. X  
  328. ! #if defined(SYSV2) || defined(SYSV3) || defined(MSDOS)
  329. X  
  330. X  void
  331. X  initkbd()
  332. ***************
  333. *** 553,563 ****
  334. --- 566,595 ----
  335. X  
  336. X      c = getch();
  337. X      switch (c) {
  338. + #ifdef KEY_LEFT
  339. X      case KEY_LEFT:  c = ctl('b'); break;
  340. + #endif
  341. + #ifdef KEY_RIGHT
  342. X      case KEY_RIGHT: c = ctl('f'); break;
  343. + #endif
  344. + #ifdef KEY_UP
  345. X      case KEY_UP:    c = ctl('p'); break;
  346. + #endif
  347. + #ifdef KEY_DOWN
  348. X      case KEY_DOWN:  c = ctl('n'); break;
  349. + #endif
  350. + #ifdef KEY_BACKSPACE
  351. X      case KEY_BACKSPACE:  c = ctl('h'); break;
  352. + #endif
  353. + #ifdef KEY_NPAGE
  354. +     case KEY_NPAGE:    break;
  355. + #endif
  356. + #ifdef KEY_PPAGE
  357. +     case KEY_PPAGE:    break;
  358. + #endif
  359. + #ifdef KEY_HOME
  360. +     case KEY_HOME:    break;
  361. + #endif
  362. X  #ifdef KEY_C1
  363. X  /* This stuff works for a wyse wy75 in ANSI mode under 5.3.  Good luck. */
  364. X  /* It is supposed to map the curses keypad back to the numeric equiv. */
  365. *** 6.16    1991/06/04 18:57:22
  366. --- psc.c    1991/09/04 14:28:15
  367. ***************
  368. *** 17,23 ****
  369. X   *  Author: Robert Bond
  370. X   *  Adjustments: Jeff Buhrt and Eric Putz
  371. X   */
  372. ! char *rev = "$Revision: 6.16 $";
  373. X  
  374. X  #include <ctype.h>
  375. X  #include <stdio.h>
  376. --- 17,23 ----
  377. X   *  Author: Robert Bond
  378. X   *  Adjustments: Jeff Buhrt and Eric Putz
  379. X   */
  380. ! char *rev = "$Revision: 6.17 $";
  381. X  
  382. X  #include <ctype.h>
  383. X  #include <stdio.h>
  384. ***************
  385. *** 30,38 ****
  386. X  #define EOL    4
  387. X  
  388. X  extern char *optarg;
  389. ! extern int   optind;
  390. ! char *coltoa();
  391. ! char *progname;
  392. X  
  393. X  #ifdef SYSV3
  394. X  extern void exit();
  395. --- 30,39 ----
  396. X  #define EOL    4
  397. X  
  398. X  extern char *optarg;
  399. ! extern int   optind, getopt(), atoi();
  400. ! char    *coltoa();
  401. ! char    *progname;
  402. ! int    getrow(), getcol(), scan();
  403. X  
  404. X  #ifdef SYSV3
  405. X  extern void exit();
  406. ***************
  407. *** 240,245 ****
  408. --- 241,247 ----
  409. X      }
  410. X  }
  411. X  
  412. + int
  413. X  scan()
  414. X  {
  415. X      register int c;
  416. ***************
  417. *** 310,315 ****
  418. --- 312,318 ----
  419. X  }
  420. X      
  421. X  /* turns [A-Z][A-Z] into a number */
  422. + int
  423. X  getcol(p)
  424. X  char *p;
  425. X  {
  426. ***************
  427. *** 329,334 ****
  428. --- 332,338 ----
  429. X  }
  430. X  
  431. X  /* given a string turn it into a row number */
  432. + int
  433. X  getrow(p)
  434. X  char *p;
  435. X  {
  436. *** 6.16    1991/06/04 18:57:22
  437. --- range.c    1991/09/04 14:28:15
  438. ***************
  439. *** 4,10 ****
  440. X   *
  441. X   *              Robert Bond, 4/87
  442. X   *
  443. !  *        $Revision: 6.16 $
  444. X   */
  445. X  
  446. X  #include <sys/types.h>
  447. --- 4,10 ----
  448. X   *
  449. X   *              Robert Bond, 4/87
  450. X   *
  451. !  *        $Revision: 6.17 $
  452. X   */
  453. X  
  454. X  #include <sys/types.h>
  455. *** 6.16    1991/06/04 18:55:36
  456. --- sc.c    1991/09/04 14:28:17
  457. ***************
  458. *** 8,14 ****
  459. X   *              More mods Robert Bond, 12/86
  460. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  461. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  462. !  *        $Revision: 6.16 $
  463. X   *
  464. X   */
  465. X  
  466. --- 8,14 ----
  467. X   *              More mods Robert Bond, 12/86
  468. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  469. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  470. !  *        $Revision: 6.17 $
  471. X   *
  472. X   */
  473. X  
  474. ***************
  475. *** 149,154 ****
  476. --- 149,155 ----
  477. X      p->next = to_fix;
  478. X      to_fix = p;
  479. X      p->flags |= is_deleted;
  480. +     p->flags &= ~is_locked;
  481. X  }
  482. X  
  483. X  /* free deleted cells */
  484. ***************
  485. *** 199,205 ****
  486. --- 200,210 ----
  487. X  
  488. X      int tempx, tempy;     /* Temp versions of curx, cury */
  489. X  
  490. + #if defined(MSDOS)
  491. +     if ((revi = strrchr(argv[0], '\\')) != NULL)
  492. + #else
  493. X      if ((revi = strrchr(argv[0], '/')) != NULL)
  494. + #endif
  495. X      progname = revi+1;
  496. X      else
  497. X      progname = argv[0];
  498. ***************
  499. *** 209,216 ****
  500. X      argc--;
  501. X          switch (argv[0][1]) {
  502. X          case 'x':
  503. ! #ifdef VMS
  504. !             (void) fprintf(stderr, "Crypt not available for VMS\n");
  505. X              exit(1);
  506. X  #else 
  507. X              Crypt = 1;
  508. --- 214,221 ----
  509. X      argc--;
  510. X          switch (argv[0][1]) {
  511. X          case 'x':
  512. ! #if defined(VMS) || defined(MSDOS)
  513. !             (void) fprintf(stderr, "Crypt not available for VMS or MS-DOS\n");
  514. X              exit(1);
  515. X  #else 
  516. X              Crypt = 1;
  517. ***************
  518. *** 293,299 ****
  519. X  #ifdef    SIGWINCH
  520. X      /* got a SIGWINCH? */
  521. X      if (hitwinch)
  522. !     {    stopdisp();
  523. X          startdisp();
  524. X          FullUpdate++;
  525. X      }
  526. --- 298,305 ----
  527. X  #ifdef    SIGWINCH
  528. X      /* got a SIGWINCH? */
  529. X      if (hitwinch)
  530. !     {    hitwinch = 0;
  531. !         stopdisp();
  532. X          startdisp();
  533. X          FullUpdate++;
  534. X      }
  535. ***************
  536. *** 321,327 ****
  537. X  #if    pyr
  538. X         if ( iscntrl(c) || (c >= 011 && c <= 015) )    /* iscntrl broken in OSx4.1 */
  539. X  #else
  540. !        if ( iscntrl(c) )
  541. X  #endif
  542. X          switch (c) {
  543. X  #ifdef SIGTSTP
  544. --- 327,333 ----
  545. X  #if    pyr
  546. X         if ( iscntrl(c) || (c >= 011 && c <= 015) )    /* iscntrl broken in OSx4.1 */
  547. X  #else
  548. !        if ( iscntrl(c) || (c == 020 ) )    /* iscntrl broken in OSx4.1 */
  549. X  #endif
  550. X          switch (c) {
  551. X  #ifdef SIGTSTP
  552. ***************
  553. *** 340,345 ****
  554. --- 346,354 ----
  555. X              FullUpdate++;
  556. X              ClearScreen++;
  557. X              (void) clearok(stdscr,1);
  558. +             /* Centering the display with cursor for middle */
  559. +             if(currow > (LINES-RESROW)/2)
  560. +             strow = currow - ((LINES-RESROW)/2);
  561. X              break;
  562. X          case ctl('x'):
  563. X              FullUpdate++;
  564. ***************
  565. *** 629,634 ****
  566. --- 638,645 ----
  567. X          case '0': case '1': case '2': case '3': case '4':
  568. X          case '5': case '6': case '7': case '8': case '9':
  569. X          case '-': case '.': case '+':
  570. +             if (locked_cell(currow, curcol))
  571. +             break;
  572. X              numeric_field = 1;
  573. X              (void) sprintf(line,"let %s = %c",
  574. X                  v_name(currow, curcol), c);
  575. ***************
  576. *** 637,642 ****
  577. --- 648,655 ----
  578. X              break;
  579. X  
  580. X          case '=':
  581. +             if (locked_cell(currow, curcol))
  582. +             break;
  583. X              (void) sprintf(line,"let %s = ",
  584. X                      v_name(currow, curcol));
  585. X              linelim = strlen (line);
  586. ***************
  587. *** 650,657 ****
  588. X               *  "!"    forks a shell
  589. X               *  "!!" repeats last command
  590. X               */
  591. ! #ifdef VMS
  592. !             error("Not implemented on VMS");
  593. X  #else /* VMS */
  594. X              char *shl;
  595. X              int pid, temp;
  596. --- 663,670 ----
  597. X               *  "!"    forks a shell
  598. X               *  "!!" repeats last command
  599. X               */
  600. ! #if VMS || MSDOS
  601. !             error("Not implemented on VMS or MS-DOS");
  602. X  #else /* VMS */
  603. X              char *shl;
  604. X              int pid, temp;
  605. ***************
  606. *** 703,712 ****
  607. X  
  608. X          case '/':
  609. X              error (
  610. ! "Range:  x:erase  v:value  c:copy  f:fill  d:define  s:show  u:undefine  F:fmt");
  611. X              (void) refresh();
  612. X  
  613. X              switch (nmgetch()) {
  614. X              case 'c':
  615. X              (void) sprintf(line,"copy [dest_range src_range] ");
  616. X              linelim = strlen(line);
  617. --- 716,737 ----
  618. X  
  619. X          case '/':
  620. X              error (
  621. ! "Range: x:erase v:value c:copy f:fill d:def l:lock U:unlock s:show u:undef F:fmt");
  622. X              (void) refresh();
  623. X  
  624. X              switch (nmgetch()) {
  625. +             case 'l':
  626. +             (void) sprintf(line,"lock [range] ");
  627. +             linelim = strlen(line);
  628. +             startshow();
  629. +             insert_mode();
  630. +             break;
  631. +             case 'U':
  632. +             (void) sprintf(line,"unlock [range] ");
  633. +             linelim = strlen(line);
  634. +             startshow();
  635. +             insert_mode();
  636. +             break;
  637. X              case 'c':
  638. X              (void) sprintf(line,"copy [dest_range src_range] ");
  639. X              linelim = strlen(line);
  640. ***************
  641. *** 926,955 ****
  642. X              help();
  643. X              break;
  644. X          case '"':
  645. !             (void) sprintf (line, "label %s = \"",
  646. !                     v_name(currow, curcol));
  647. !             linelim = strlen (line);
  648. !             insert_mode();
  649. X              break;
  650. X          case '<':
  651. !             (void) sprintf (line, "leftstring %s = \"",
  652. !                 v_name(currow, curcol));
  653. !             linelim = strlen (line);
  654. !             insert_mode();
  655. X              break;
  656. X          case '>':
  657. !             (void) sprintf (line, "rightstring %s = \"",
  658. !                v_name(currow, curcol));
  659. !             linelim = strlen (line);
  660. !             insert_mode();
  661. X              break;
  662. X          case 'e':
  663. !             editv (currow, curcol);
  664. !             edit_mode();
  665. X              break;
  666. X          case 'E':
  667. !             edits (currow, curcol);
  668. !             edit_mode();
  669. X              break;
  670. X          case 'f':
  671. X              if (arg == 1)
  672. --- 951,992 ----
  673. X              help();
  674. X              break;
  675. X          case '"':
  676. !             if (!locked_cell(currow, curcol)) {
  677. !                (void) sprintf (line, "label %s = \"",
  678. !                        v_name(currow, curcol));
  679. !                linelim = strlen (line);
  680. !                insert_mode();
  681. !             }
  682. X              break;
  683. + 
  684. X          case '<':
  685. !             if (!locked_cell(currow, curcol)) {
  686. !                (void) sprintf (line, "leftstring %s = \"",
  687. !                    v_name(currow, curcol));
  688. !                linelim = strlen (line);
  689. !                insert_mode();
  690. !             }
  691. X              break;
  692. + 
  693. X          case '>':
  694. !             if (!locked_cell(currow, curcol)) {
  695. !                (void) sprintf (line, "rightstring %s = \"",
  696. !                   v_name(currow, curcol));
  697. !                linelim = strlen (line);
  698. !                insert_mode();
  699. !             }
  700. X              break;
  701. X          case 'e':
  702. !             if (!locked_cell(currow, curcol)) {
  703. !                editv (currow, curcol);
  704. !                edit_mode();
  705. !             }
  706. X              break;
  707. X          case 'E':
  708. !             if (!locked_cell(currow, curcol)) {
  709. !                edits (currow, curcol);
  710. !                edit_mode();
  711. !             }
  712. X              break;
  713. X          case 'f':
  714. X              if (arg == 1)
  715. ***************
  716. *** 1043,1061 ****
  717. X              if(calc_order == BYROWS) {
  718. X                for (c1 = curcol; arg-- && c1 < maxcols; c1++) {
  719. X              pp = ATBL(tbl, currow, c1);
  720. !             if (*pp) {
  721. !                 free_ent(*pp);
  722. !                 *pp = (struct ent *)0;
  723. !             }
  724. X                }
  725. X              }
  726. X              else {
  727. X                for (c1 = currow; arg-- && c1 < maxrows; c1++) {
  728. X              pp = ATBL(tbl, c1, curcol);
  729. !             if (*pp) {
  730. !                 free_ent(*pp);
  731. !                 *pp = (struct ent *)0;
  732. !             }
  733. X                }
  734. X              }
  735. X              sync_refs();
  736. --- 1080,1102 ----
  737. X              if(calc_order == BYROWS) {
  738. X                for (c1 = curcol; arg-- && c1 < maxcols; c1++) {
  739. X              pp = ATBL(tbl, currow, c1);
  740. !                 if ((*pp) && !locked_cell(currow, curcol)) {
  741. !                if (*pp) {
  742. !                    free_ent(*pp);
  743. !                    *pp = (struct ent *)0;
  744. !                }
  745. !                 }
  746. X                }
  747. X              }
  748. X              else {
  749. X                for (c1 = currow; arg-- && c1 < maxrows; c1++) {
  750. X              pp = ATBL(tbl, c1, curcol);
  751. !                 if ((*pp) && !locked_cell(currow, curcol)) {
  752. !                if (*pp) {
  753. !                    free_ent(*pp);
  754. !                    *pp = (struct ent *)0;
  755. !                }
  756. !                 }
  757. X                }
  758. X              }
  759. X              sync_refs();
  760. ***************
  761. *** 1091,1096 ****
  762. --- 1132,1144 ----
  763. X          case 'K':
  764. X              backrow((currow-strow+1)+3);
  765. X              break;
  766. + #ifdef KEY_HOME
  767. +         case KEY_HOME:
  768. +             currow = 0;
  769. +             curcol = 0;
  770. +             FullUpdate++;
  771. +             break;
  772. + #endif
  773. X          case 'L':
  774. X              forwcol(cols-(curcol-stcol)+1);
  775. X              break;
  776. ***************
  777. *** 1197,1208 ****
  778. X  #endif
  779. X  
  780. X      (void) signal(SIGINT, SIG_IGN);
  781. X      (void) signal(SIGQUIT, dump_me);
  782. X      (void) signal(SIGPIPE, quit);
  783. -     (void) signal(SIGTERM, quit);
  784. X      (void) signal(SIGALRM, time_out);
  785. -     (void) signal(SIGFPE, quit);
  786. X      (void) signal(SIGBUS, quit);
  787. X  #ifdef    SIGWINCH
  788. X      (void) signal(SIGWINCH, winchg);
  789. X  #endif
  790. --- 1245,1258 ----
  791. X  #endif
  792. X  
  793. X      (void) signal(SIGINT, SIG_IGN);
  794. + #if !defined(MSDOS)
  795. X      (void) signal(SIGQUIT, dump_me);
  796. X      (void) signal(SIGPIPE, quit);
  797. X      (void) signal(SIGALRM, time_out);
  798. X      (void) signal(SIGBUS, quit);
  799. + #endif
  800. +     (void) signal(SIGTERM, quit);
  801. +     (void) signal(SIGFPE, quit);
  802. X  #ifdef    SIGWINCH
  803. X      (void) signal(SIGWINCH, winchg);
  804. X  #endif
  805. ***************
  806. *** 1216,1221 ****
  807. --- 1266,1272 ----
  808. X  #endif
  809. X  winchg()
  810. X  {    hitwinch++;
  811. +     (void) signal(SIGWINCH, winchg);
  812. X  }
  813. X  #endif
  814. X  
  815. ***************
  816. *** 1285,1288 ****
  817. --- 1336,1369 ----
  818. X          return(yn_ans);
  819. X      }
  820. X      return(0);
  821. + }
  822. + 
  823. + /* Returns 1 if cell is locked, 0 otherwise */
  824. + int
  825. + locked_cell (r, c)
  826. +     int r, c;
  827. + {
  828. +     struct ent *p = *ATBL(tbl, r, c);
  829. +     if (p && (p->flags & is_locked)) {
  830. +         error("Cell %s%d is locked", coltoa(c), r) ;
  831. +         return(1);
  832. +     }
  833. +     return(0);
  834. + }
  835. + 
  836. + /* Check if area contains locked cells */
  837. + int
  838. + any_locked_cells(r1, c1, r2, c2)
  839. +     int r1, c1, r2, c2 ;
  840. + {
  841. +     int r, c;
  842. +     struct ent *p ;
  843. + 
  844. +     for (r=r1; r<=r2; r++)
  845. +         for (c=c1; c<=c2; c++) {
  846. +             p = *ATBL(tbl, r, c);
  847. +             if (p->flags&is_locked)
  848. +                 return(1);
  849. +         }
  850. +     return(0);
  851. X  }
  852. *** 6.16    1991/06/04 18:57:22
  853. --- sc.h    1991/09/04 14:28:18
  854. ***************
  855. *** 6,15 ****
  856. X   *            University of Maryland
  857. X   *        R. Bond  12/86
  858. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  859. !  *        $Revision: 6.16 $
  860. X   *
  861. X   */
  862. X  
  863. X  #define    ATBL(tbl, row, col)    (*(tbl + row) + (col))
  864. X  
  865. X  #define MINROWS 100     /* minimum size at startup */
  866. --- 6,19 ----
  867. X   *            University of Maryland
  868. X   *        R. Bond  12/86
  869. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  870. !  *        $Revision: 6.17 $
  871. X   *
  872. X   */
  873. X  
  874. + #if defined(MSDOS)
  875. + #include <stdio.h>
  876. + #endif
  877. + 
  878. X  #define    ATBL(tbl, row, col)    (*(tbl + row) + (col))
  879. X  
  880. X  #define MINROWS 100     /* minimum size at startup */
  881. ***************
  882. *** 78,83 ****
  883. --- 82,88 ----
  884. X  /*
  885. X   * Some not too obvious things about the flags:
  886. X   *    is_valid means there is a valid number in v.
  887. +  *    is_locked means that the cell cannot be edited.
  888. X   *    label set means it points to a valid constant string.
  889. X   *    is_strexpr set means expr yields a string expression.
  890. X   *    If is_strexpr is not set, and expr points to an expression tree, the
  891. ***************
  892. *** 189,194 ****
  893. --- 194,202 ----
  894. X  #define MYROW OP_BASE + 52
  895. X  #define MYCOL OP_BASE + 53
  896. X  #define COLTOA OP_BASE + 54
  897. + #define UPPER OP_BASE + 55
  898. + #define LOWER OP_BASE + 56
  899. + #define CAPITAL OP_BASE + 57
  900. X  
  901. X  /* flag values */
  902. X  #define is_valid     0001
  903. ***************
  904. *** 196,201 ****
  905. --- 204,210 ----
  906. X  #define is_strexpr   0004
  907. X  #define is_leftflush 0010
  908. X  #define is_deleted   0020
  909. + #define is_locked    0040
  910. X  
  911. X  /* cell error (1st generation (ERROR) or 2nd+ (INVALID)) */
  912. X  #define    CELLOK        0
  913. ***************
  914. *** 247,252 ****
  915. --- 256,262 ----
  916. X  extern    int showsc, showsr;
  917. X  
  918. X  extern    FILE *openout();
  919. + extern    FILE *fdopen(), *fopen();
  920. X  extern    char *coltoa();
  921. X  extern    char *findhome();
  922. X  extern    char *r_name();
  923. ***************
  924. *** 254,259 ****
  925. --- 264,270 ----
  926. X  extern    char *v_name();
  927. X  extern    char *xmalloc();
  928. X  extern    char *xrealloc();
  929. + extern    int any_locked_cells();
  930. X  extern    int are_ranges();
  931. X  extern    int atocol();
  932. X  extern    int cwritefile();
  933. ***************
  934. *** 263,268 ****
  935. --- 274,280 ----
  936. X  extern    int format();
  937. X  extern    int get_rcqual();
  938. X  extern    int growtbl();
  939. + extern    int locked_cell();
  940. X  extern    int modcheck();
  941. X  extern    int nmgetch();
  942. X  extern    int writefile();
  943. ***************
  944. *** 327,332 ****
  945. --- 339,345 ----
  946. X  extern    void label();
  947. X  extern    void let();
  948. X  extern    void list_range();
  949. + extern    void lock_cells();
  950. X  extern    void moveto();
  951. X  extern    void num_search();
  952. X  extern    void opencol();
  953. ***************
  954. *** 349,354 ****
  955. --- 362,368 ----
  956. X  extern    void sync_ranges();
  957. X  extern    void sync_refs();
  958. X  extern    void tblprintfile();
  959. + extern    void unlock_cells();
  960. X  extern    void valueize_area();
  961. X  extern    void write_fd();
  962. X  extern    void write_line();
  963. *** 6.16    1991/06/04 18:55:36
  964. --- screen.c    1991/09/04 14:28:18
  965. ***************
  966. *** 8,14 ****
  967. X   *              More mods Robert Bond, 12/86
  968. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  969. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  970. !  *        $Revision: 6.16 $
  971. X   *
  972. X   */
  973. X  
  974. --- 8,14 ----
  975. X   *              More mods Robert Bond, 12/86
  976. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  977. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  978. !  *        $Revision: 6.17 $
  979. X   *
  980. X   */
  981. X  
  982. ***************
  983. *** 436,441 ****
  984. --- 436,444 ----
  985. X          }
  986. X          if (! printed)
  987. X          (void) addstr ("[]");
  988. +         /* Display if cell is locked */
  989. +         if (p1->flags&is_locked)
  990. +         (void) addstr(" locked");
  991. X      }
  992. X      (void) move(lastmy, lastmx+fwidth[lastcol]);
  993. X      }
  994. ***************
  995. *** 486,495 ****
  996. --- 489,517 ----
  997. X  void
  998. X  startdisp()
  999. X  {
  1000. + #if sun
  1001. +     int     fd;
  1002. +     fd = dup(0);
  1003. + #endif
  1004. + #ifdef TIOCGSIZE
  1005. +     {    struct ttysize size;
  1006. +     if (ioctl(0, TIOCGSIZE, &size) == 0)
  1007. +     { 
  1008. +         LINES = size.ts_lines;
  1009. +         COLS = size.ts_cols;
  1010. +     }
  1011. +     }
  1012. + #endif
  1013. + 
  1014. X  #ifdef XENIX2_3
  1015. X      (void) ioctl (fileno (stdin), TCGETA, & tmio);
  1016. X  #endif
  1017. X      (void) initscr();
  1018. + #if sun
  1019. +     close(0);
  1020. +     dup(fd);
  1021. +     close(fd);
  1022. + #endif
  1023. X      (void) clear();
  1024. X  #ifdef VMS
  1025. X      VMS_read_raw = 1;
  1026. *** 6.16    1991/06/04 18:57:22
  1027. --- version.c    1991/09/04 14:28:19
  1028. ***************
  1029. *** 4,7 ****
  1030. X   * The part after the first colon, except the last char, appears on the screen.
  1031. X   */
  1032. X  
  1033. ! char *rev = "$Revision: 6.16 $";
  1034. --- 4,7 ----
  1035. X   * The part after the first colon, except the last char, appears on the screen.
  1036. X   */
  1037. X  
  1038. ! char *rev = "$Revision: 6.17 $";
  1039. *** 6.16    1991/06/04 18:57:22
  1040. --- vi.c    1991/09/04 14:28:20
  1041. ***************
  1042. *** 1,7 ****
  1043. X  /*    SC    A Spreadsheet Calculator
  1044. X   *
  1045. X   *    One line vi emulation
  1046. !  *    $Revision: 6.16 $
  1047. X   */
  1048. X  
  1049. X  #include <sys/types.h>
  1050. --- 1,7 ----
  1051. X  /*    SC    A Spreadsheet Calculator
  1052. X   *
  1053. X   *    One line vi emulation
  1054. !  *    $Revision: 6.17 $
  1055. X   */
  1056. X  
  1057. X  #include <sys/types.h>
  1058. *** 6.16    1991/06/04 18:57:22
  1059. --- vmtbl.c    1991/09/04 14:28:21
  1060. ***************
  1061. *** 8,14 ****
  1062. X   *              More mods Robert Bond, 12/86
  1063. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1064. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1065. !  *        $Revision: 6.16 $
  1066. X   *
  1067. X   */
  1068. X  #ifdef PSC
  1069. --- 8,14 ----
  1070. X   *              More mods Robert Bond, 12/86
  1071. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1072. X   *        Currently supported by sequent!sawmill!buhrt (Jeff Buhrt)
  1073. !  *        $Revision: 6.17 $
  1074. X   *
  1075. X   */
  1076. X  #ifdef PSC
  1077. *** 6.16    1991/06/04 18:57:22
  1078. --- xmalloc.c    1991/09/04 14:28:22
  1079. ***************
  1080. *** 1,6 ****
  1081. X  /*
  1082. X   * A safer saner malloc, for careless programmers
  1083. !  * $Revision: 6.16 $
  1084. X   */
  1085. X  
  1086. X  #include <stdio.h>
  1087. --- 1,6 ----
  1088. X  /*
  1089. X   * A safer saner malloc, for careless programmers
  1090. !  * $Revision: 6.17 $
  1091. X   */
  1092. X  
  1093. X  #include <stdio.h>
  1094. SHAR_EOF
  1095. echo 'File pch616-617 is complete' &&
  1096. chmod 0666 pch616-617 ||
  1097. echo 'restore of pch616-617 failed'
  1098. Wc_c="`wc -c < 'pch616-617'`"
  1099. test 72450 -eq "$Wc_c" ||
  1100.     echo 'pch616-617: original size 72450, current size' "$Wc_c"
  1101. rm -f _shar_wnt_.tmp
  1102. fi
  1103. # ============= torev ==============
  1104. if test -f 'torev' -a X"$1" != X"-c"; then
  1105.     echo 'x - skipping torev (File already exists)'
  1106.     rm -f _shar_wnt_.tmp
  1107. else
  1108. > _shar_wnt_.tmp
  1109. echo 'x - extracting torev (Text)'
  1110. sed 's/^X//' << 'SHAR_EOF' > 'torev' &&
  1111. REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: \([0-9.]*\) .*/\1/' version.c` 
  1112. sed -e s/pname/$name/g -e s/PNAME/$NAME/g \
  1113. X    -e "s%#LIBDIR#%$LIBDIR%g" \
  1114. X    -e "s/#REVISION#/$REVISION/" $1
  1115. SHAR_EOF
  1116. chmod 0444 torev ||
  1117. echo 'restore of torev failed'
  1118. Wc_c="`wc -c < 'torev'`"
  1119. test 189 -eq "$Wc_c" ||
  1120.     echo 'torev: original size 189, current size' "$Wc_c"
  1121. rm -f _shar_wnt_.tmp
  1122. fi
  1123. rm -f _shar_seq_.tmp
  1124. echo You have unpacked the last part
  1125. exit 0
  1126. exit 0 # Just in case...
  1127. exit 0 # Just in case...
  1128. -- 
  1129. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1130. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1131. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1132. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1133.