home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume16 / ms_sh-1.6 / patch02 < prev    next >
Internet Message Format  |  1991-01-19  |  27KB
  1. From: istewart@datlog.co.uk (Ian Stewartson)
  2. Newsgroups: comp.sources.misc
  3. Subject: v16i079:  MSDOS Shell (sh) Implementation 1.6.4, Patch02/02
  4. Message-ID: <1991Jan16.195307.11545@sparky.IMD.Sterling.COM>
  5. Date: 16 Jan 91 19:53:07 GMT
  6. Approved: kent@sparky.imd.sterling.com
  7. X-Checksum-Snefru: f39d290a 126a326c 64f70703 d46e6659
  8.  
  9. Submitted-by: istewart@datlog.co.uk (Ian Stewartson)
  10. Posting-number: Volume 16, Issue 79
  11. Archive-name: ms_sh-1.6/patch02
  12. Patch-To: ms_sh-1.6: Volume 12, Issue 19-26
  13.  
  14. # this is SH.02 (part 2 of a multipart archive)
  15. # do not concatenate these parts, unpack them in order with /bin/sh
  16. # file Patch1.6.4 continued
  17. #
  18. if test ! -r _shar_seq_.tmp; then
  19.     echo 'Please unpack part 1 first!'
  20.     exit 1
  21. fi
  22. (read Scheck
  23.  if test "$Scheck" != 2; then
  24.     echo Please unpack part "$Scheck" next!
  25.     exit 1
  26.  else
  27.     exit 0
  28.  fi
  29. ) < _shar_seq_.tmp || exit 1
  30. if test ! -f _shar_wnt_.tmp; then
  31.     echo 'x - still skipping Patch1.6.4'
  32. else
  33. echo 'x - continuing file Patch1.6.4'
  34. sed 's/^X//' << 'SHAR_EOF' >> 'Patch1.6.4' &&
  35. X      {
  36. !     if ((cp = evalstr (*(wp++), DOSUB)) && gmatch (w, cp, FALSE))
  37. X          return &t1->left;
  38. X      }
  39. X  
  40. --- 861,868 ----
  41. X  
  42. X      for (wp = t1->words; *wp != (char *)NULL;)
  43. X      {
  44. !     if ((cp = evalstr (*(wp++), DOSUB)) &&
  45. !         gmatch (w, cp, FALSE, (char **)NULL, GM_ALL))
  46. X          return &t1->left;
  47. X      }
  48. X  
  49. ***************
  50. *** 922,928 ****
  51. X          {
  52. X  
  53. X  /* No entry for the file - if the file exists, execute it as a shell
  54. !  * script
  55. X   */
  56. X          case ENOENT:
  57. X              if ((res = O_for_execute (p_name, ¶ms, &nargc)) >= 0)
  58. --- 949,955 ----
  59. X          {
  60. X  
  61. X  /* No entry for the file - if the file exists, execute it as a shell
  62. !  * script.  If we never find the file, return the error
  63. X   */
  64. X          case ENOENT:
  65. X              if ((res = O_for_execute (p_name, ¶ms, &nargc)) >= 0)
  66. ***************
  67. *** 933,939 ****
  68. X  
  69. X              else if (!Check_for_bat_file (p_name))
  70. X              {
  71. !             em = "not found";
  72. X              eloop = FALSE;
  73. X              break;
  74. X              }
  75. --- 960,966 ----
  76. X  
  77. X              else if (!Check_for_bat_file (p_name))
  78. X              {
  79. !             errno = ENOENT;
  80. X              eloop = FALSE;
  81. X              break;
  82. X              }
  83. ***************
  84. *** 953,958 ****
  85. --- 980,986 ----
  86. X                    == (char **)NULL)
  87. X              {
  88. X              em = strerror (ENOMEM);
  89. +             errno = ENOMEM;
  90. X              break;
  91. X              }
  92. X  
  93. ***************
  94. *** 1017,1022 ****
  95. --- 1045,1051 ----
  96. X  
  97. X              em = "no Shell";
  98. X              eloop = FALSE;
  99. +             errno = ENOEXEC;
  100. X              break;
  101. X  
  102. X          case ENOEXEC:
  103. ***************
  104. *** 1039,1048 ****
  105. X      } while ((sp != (char *)NULL) && !eloop);
  106. X      }
  107. X  
  108. !     print_warn ("%s: %s\n", c, em);
  109. X  
  110. !     if (!d_flag)
  111. !     exit (-1);
  112. X  
  113. X      return -1;
  114. X  }
  115. --- 1068,1082 ----
  116. X      } while ((sp != (char *)NULL) && !eloop);
  117. X      }
  118. X  
  119. ! /* If we found the program - report the error */
  120. X  
  121. !     if (errno != ENOENT)
  122. !     {
  123. !     print_warn (EF_msg, c, em);
  124. ! 
  125. !     if (!d_flag)
  126. !         exit (-1);
  127. !     }
  128. X  
  129. X      return -1;
  130. X  }
  131. Index: shell/sh4.c
  132. Prereq: 1.9
  133. *** ../sh16.3/shell/sh4.c    Fri Aug 17 21:34:51 1990
  134. --- shell/sh4.c    Tue Nov  6 19:22:00 1990
  135. ***************
  136. *** 13,21 ****
  137. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  138. X   *     (or parts of sources) cannot be sold under any circumstances.
  139. X   *
  140. !  *    $Header: C:/SRC/SHELL/RCS/sh4.c 1.9 90/08/16 10:29:27 Ian_Stewartson Exp $
  141. X   *
  142. X   *    $Log:    sh4.c $
  143. X   * Revision 1.9  90/08/16  10:29:27  Ian_Stewartson
  144. X   * Add support from String length option in ${}.
  145. X   * Restore the memcpys
  146. --- 13,27 ----
  147. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  148. X   *     (or parts of sources) cannot be sold under any circumstances.
  149. X   *
  150. !  *    $Header: C:/SRC/SHELL/RCS/sh4.c 1.11 90/09/11 20:01:23 Ian_Stewartson Exp $
  151. X   *
  152. X   *    $Log:    sh4.c $
  153. +  * Revision 1.11  90/09/11  20:01:23  Ian_Stewartson
  154. +  * Fix ${#*} functionality to match POSIX
  155. +  * 
  156. +  * Revision 1.10  90/08/24  21:56:18  Ian_Stewartson
  157. +  * Add support for POSIX macro commands {x#y} and {x%y}
  158. +  * 
  159. X   * Revision 1.9  90/08/16  10:29:27  Ian_Stewartson
  160. X   * Add support from String length option in ${}.
  161. X   * Restore the memcpys
  162. ***************
  163. *** 505,511 ****
  164. X  
  165. X      *e.linep = 0;
  166. X  
  167. ! /* Scan for =-+? in string */
  168. X  
  169. X      if (*s)
  170. X      {
  171. --- 511,517 ----
  172. X  
  173. X      *e.linep = 0;
  174. X  
  175. ! /* Scan for =-+?%# in string */
  176. X  
  177. X      if (*s)
  178. X      {
  179. ***************
  180. *** 514,526 ****
  181. X  
  182. X  /* Check for end character other than null (=-+?) */
  183. X  
  184. !         if (any (*cp, "=-+?"))
  185. X          {
  186. X          c = *cp;
  187. X  
  188. ! /* Check for case of :[=-+?].  If found - set flag */
  189. ! 
  190. !         if (*(cp - 1) == ':')
  191. X          {
  192. X              colon_f = TRUE;
  193. X              *(cp - 1) = 0;
  194. --- 520,533 ----
  195. X  
  196. X  /* Check for end character other than null (=-+?) */
  197. X  
  198. !         if (any (*cp, "=-+?%#"))
  199. X          {
  200. X          c = *cp;
  201. X  
  202. ! /* Skip next section in case of % or #.  Check for case of :[=-+?]. 
  203. !  * If found - set flag
  204. !  */
  205. !         if ((c != '%') && (c != '#') && (*(cp - 1) == ':'))
  206. X          {
  207. X              colon_f = TRUE;
  208. X              *(cp - 1) = 0;
  209. ***************
  210. *** 553,564 ****
  211. X  
  212. X          if (hash_f)
  213. X          {
  214. !         int    slen, n;
  215. ! 
  216. !         for (n = 1, slen = 0; dolv[n] != (char *)NULL;
  217. !              slen += (strlen (dolv[n++]) + 1));
  218. ! 
  219. !         dolp = strsave (putn (slen - 1), areanum);
  220. X          PUSHIO (aword, dolp, quoted ? qstrchar : strchar);
  221. X          }
  222. X  
  223. --- 560,566 ----
  224. X  
  225. X          if (hash_f)
  226. X          {
  227. !         dolp = strsave (putn (dolc - 1), areanum);
  228. X          PUSHIO (aword, dolp, quoted ? qstrchar : strchar);
  229. X          }
  230. X  
  231. ***************
  232. *** 628,638 ****
  233. X      }
  234. X      }
  235. X  
  236. !     else if (c == '+')
  237. !     dolp = strsave (cp, areanum);
  238. X  
  239. ! /* Check for unset values */
  240. X  
  241. X      if (FL_TEST ('u') && dolp == null)
  242. X      {
  243. X      print_error ("sh: unset variable %s\n", s);
  244. --- 630,678 ----
  245. X      }
  246. X      }
  247. X  
  248. ! /* String exists - other processing */
  249. X  
  250. !     else
  251. !     {
  252. !     char        *pos;        /* Position for substitute    */
  253. !     char        *tsp;
  254. !     int        mode;        /* Mode for substitute        */
  255. X  
  256. +     switch (c)
  257. +     {
  258. +         case '+':
  259. +         dolp = strsave (cp, areanum);
  260. +         break;
  261. + 
  262. +         case '#':            /* Remove prefix */
  263. +         case '%':            /* Remove suffix */
  264. +         mode = GM_SHORTEST;
  265. + 
  266. +         if (*cp == c)
  267. +         {
  268. +             mode = GM_LONGEST;
  269. +             ++cp;
  270. +         }
  271. + 
  272. +         if (c == '#')
  273. +         {
  274. +             if (gmatch (dolp, cp, FALSE, &pos, mode))
  275. +             dolp = strsave (pos, areanum);
  276. +         }
  277. + 
  278. +         else if (gmatch_suffix (dolp, cp, FALSE, &pos, mode))
  279. +         {
  280. +             tsp = strsave (dolp, areanum);
  281. +             tsp[pos - dolp] = 0;
  282. +             dolp = tsp;
  283. +         }
  284. + 
  285. +         break;
  286. +     }
  287. +     }
  288. + 
  289. + /* Check for unset values */
  290. + 
  291. X      if (FL_TEST ('u') && dolp == null)
  292. X      {
  293. X      print_error ("sh: unset variable %s\n", s);
  294. ***************
  295. *** 964,970 ****
  296. X  
  297. X  /* Check for a match */
  298. X  
  299. !     if (gmatch (dname, gp, TRUE))
  300. X      {
  301. X  
  302. X  /* If there are no special characters in the new full name, the file must
  303. --- 1004,1010 ----
  304. X  
  305. X  /* Check for a match */
  306. X  
  307. !     if (gmatch (dname, gp, TRUE, (char **)NULL, GM_ALL))
  308. X      {
  309. X  
  310. X  /* If there are no special characters in the new full name, the file must
  311. ***************
  312. *** 1191,1197 ****
  313. X  
  314. X          *t_drive = (char)(s_drive + 'a' - 1);
  315. X  
  316. !         if ((y_drive == s_drive) && gmatch (t_drive, pattern, TRUE))
  317. X          {
  318. X          *new_pattern = *t_drive;
  319. X          globname (new_pattern, &new_pattern[2]);
  320. --- 1231,1238 ----
  321. X  
  322. X          *t_drive = (char)(s_drive + 'a' - 1);
  323. X  
  324. !         if ((y_drive == s_drive) &&
  325. !          gmatch (t_drive, pattern, TRUE, (char **)NULL, GM_ALL))
  326. X          {
  327. X          *new_pattern = *t_drive;
  328. X          globname (new_pattern, &new_pattern[2]);
  329. Index: shell/sh8.c
  330. Prereq: 1.12
  331. *** ../sh16.3/shell/sh8.c    Fri Aug 17 21:35:41 1990
  332. --- shell/sh8.c    Tue Nov  6 19:22:21 1990
  333. ***************
  334. *** 12,18 ****
  335. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  336. X   *     (or parts of sources) cannot be sold under any circumstances.
  337. X   *
  338. !  *    $Header: C:/SRC/SHELL/RCS/sh8.c 1.12 90/08/14 23:31:08 Ian_Stewartson Exp $
  339. X   *
  340. X   *    $Log:    sh8.c $
  341. X   * Revision 1.12  90/08/14  23:31:08  Ian_Stewartson
  342. --- 12,18 ----
  343. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  344. X   *     (or parts of sources) cannot be sold under any circumstances.
  345. X   *
  346. !  *    $Header: C:/SRC/SHELL/RCS/sh8.c 1.12 90/08/14 23:31:08 Ian_Stewartson Exp Locker: Ian_Stewartson $
  347. X   *
  348. X   *    $Log:    sh8.c $
  349. X   * Revision 1.12  90/08/14  23:31:08  Ian_Stewartson
  350. Index: shell/sh6.c
  351. Prereq: 1.14
  352. *** ../sh16.3/shell/sh6.c    Fri Aug 17 21:35:10 1990
  353. --- shell/sh6.c    Tue Nov  6 19:22:29 1990
  354. ***************
  355. *** 13,21 ****
  356. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  357. X   *     (or parts of sources) cannot be sold under any circumstances.
  358. X   *
  359. !  *    $Header: C:/SRC/SHELL/RCS/sh6.c 1.14 90/08/14 23:34:49 MS_user Exp $
  360. X   *
  361. X   *    $Log:    sh6.c $
  362. X   * Revision 1.14  90/08/14  23:34:49  MS_user
  363. X   * Changed for release 1.6.3
  364. X   * 
  365. --- 13,24 ----
  366. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  367. X   *     (or parts of sources) cannot be sold under any circumstances.
  368. X   *
  369. !  *    $Header: D:/SRC/SHELL/RCS/sh6.c 1.15 90/09/11 19:42:15 Ian_Stewartson Exp $
  370. X   *
  371. X   *    $Log:    sh6.c $
  372. +  * Revision 1.15  90/09/11  19:42:15  Ian_Stewartson
  373. +  * Version 1.6.4
  374. +  * 
  375. X   * Revision 1.14  90/08/14  23:34:49  MS_user
  376. X   * Changed for release 1.6.3
  377. X   * 
  378. ***************
  379. *** 73,79 ****
  380. X  #include <string.h>
  381. X  #include "sh.h"
  382. X  
  383. ! static char    *Copy_Right1 = "MS-DOS SH Version 1.6.3 - %s (DOS %d.%d)\n";
  384. X  static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  385. X  char        **dolv;        /* Parameter array            */
  386. X  int        dolc;        /* Number of entries in parameter array    */
  387. --- 76,82 ----
  388. X  #include <string.h>
  389. X  #include "sh.h"
  390. X  
  391. ! static char    *Copy_Right1 = "MS-DOS SH Version 1.6.4 - %s (DOS %d.%d)\n";
  392. X  static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  393. X  char        **dolv;        /* Parameter array            */
  394. X  int        dolc;        /* Number of entries in parameter array    */
  395. Index: shell/sh2.c
  396. Prereq: 1.6
  397. *** ../sh16.3/shell/sh2.c    Fri Aug 17 21:34:11 1990
  398. --- shell/sh2.c    Tue Nov  6 19:22:53 1990
  399. ***************
  400. *** 13,21 ****
  401. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  402. X   *     (or parts of sources) cannot be sold under any circumstances.
  403. X   *
  404. !  *    $Header: C:/SRC/SHELL/RCS/sh2.c 1.6 90/08/14 23:30:26 Ian_Stewartson Exp $
  405. X   *
  406. X   *    $Log:    sh2.c $
  407. X   * Revision 1.6  90/08/14  23:30:26  Ian_Stewartson
  408. X   * Add support for read/write IO
  409. X   * 
  410. --- 13,24 ----
  411. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  412. X   *     (or parts of sources) cannot be sold under any circumstances.
  413. X   *
  414. !  *    $Header: C:/SRC/SHELL/RCS/sh2.c 1.7 90/09/11 20:00:01 Ian_Stewartson Exp $
  415. X   *
  416. X   *    $Log:    sh2.c $
  417. +  * Revision 1.7  90/09/11  20:00:01  Ian_Stewartson
  418. +  * Add support for $() POSIX functionality
  419. +  * 
  420. X   * Revision 1.6  90/08/14  23:30:26  Ian_Stewartson
  421. X   * Add support for read/write IO
  422. X   * 
  423. ***************
  424. *** 733,744 ****
  425. X      case 0:
  426. X          return c;
  427. X  
  428. X      case '$':
  429. X          *e.linep++ = (char)c;
  430. X  
  431. !         if ((c = Getc(0)) == '{') 
  432. X          {
  433. !         if ((c = collect (c, '}')) != '\0')
  434. X              return (c);
  435. X  
  436. X          goto pack;
  437. --- 736,749 ----
  438. X      case 0:
  439. X          return c;
  440. X  
  441. + /* Allow $name, ${name}, $(command) and support $[arthmetic functions] */
  442. + 
  443. X      case '$':
  444. X          *e.linep++ = (char)c;
  445. X  
  446. !         if (((c = Getc(0)) == '{') || (c == '('))
  447. X          {
  448. !         if ((c = collect (c, (c == '{') ? '}' : ')')) != '\0')
  449. X              return (c);
  450. X  
  451. X          goto pack;
  452. ***************
  453. *** 823,829 ****
  454. X      return c;
  455. X      }
  456. X  
  457. !     yylval.cp = strsave (e.cline, areanum);
  458. X      return WORD;
  459. X  }
  460. X  
  461. --- 828,857 ----
  462. X      return c;
  463. X      }
  464. X  
  465. ! /* Special processing for $(command) to convert it to `command` */
  466. ! 
  467. !     if (strncmp (e.cline, "$(", 2) == 0)
  468. !     {
  469. !     yylval.cp = strsave (e.cline + 1, areanum);
  470. !     *yylval.cp = '`';
  471. !     yylval.cp[strlen (yylval.cp) - 1] = '`';
  472. !     }
  473. ! 
  474. ! /* Otherwise, handle words beginning with a ~ */
  475. ! 
  476. !     else if (*e.cline == '~')
  477. !     {
  478. !     char    *dir = lookup (home, FALSE)->value;
  479. ! 
  480. !     yylval.cp = tree (strlen (e.cline) + strlen (dir));
  481. !     strcat (strcpy (yylval.cp, dir), e.cline + 1);
  482. !     }
  483. ! 
  484. ! /* Otherwise, just save it */
  485. ! 
  486. !     else
  487. !     yylval.cp = strsave (e.cline, areanum);
  488. ! 
  489. X      return WORD;
  490. X  }
  491. X  
  492. Index: shell/sh7.c
  493. Prereq: 1.18
  494. *** ../sh16.3/shell/sh7.c    Fri Aug 17 21:35:57 1990
  495. --- shell/sh7.c    Tue Nov  6 19:24:17 1990
  496. ***************
  497. *** 15,81 ****
  498. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  499. X   *     (or parts of sources) cannot be sold under any circumstances.
  500. X   *
  501. !  *    $Header: C:/SRC/SHELL/RCS/sh7.c 1.18 90/08/14 23:34:55 MS_user Exp $
  502. X   *
  503. X   *    $Log:    sh7.c $
  504. X   * Revision 1.18  90/08/14  23:34:55  MS_user
  505. X   * Fix directory display on change directory
  506. X   * Fix spelling mistake.
  507. !  * 
  508. X   * Revision 1.17  90/05/31  09:50:05  MS_user
  509. X   * Implement partial write when swapping to disk
  510. !  * 
  511. X   * Revision 1.16  90/04/30  19:50:44  MS_user
  512. X   * Stop search path if second character of name is colon
  513. !  * 
  514. X   * Revision 1.15  90/04/25  22:35:53  MS_user
  515. X   * Fix bug in doread to stop multi-line reads
  516. !  * 
  517. X   * Revision 1.14  90/04/25  09:21:11  MS_user
  518. X   * Change version message processing
  519. !  * 
  520. X   * Revision 1.13  90/04/03  17:59:43  MS_user
  521. X   * type didnot check for functions before searching PATH
  522. !  * 
  523. X   * Revision 1.12  90/03/27  20:33:58  MS_user
  524. X   * Clear extended file name on interrupt
  525. !  * 
  526. X   * Revision 1.11  90/03/26  20:57:38  MS_user
  527. X   * Change I/O restore so that "exec >filename" works
  528. !  * 
  529. X   * Revision 1.10  90/03/14  19:32:05  MS_user
  530. X   * Change buffered output to be re-entrant and add it to getopt
  531. !  * 
  532. X   * Revision 1.9  90/03/14  16:45:52  MS_user
  533. X   * New Open_buffer parameter
  534. !  * 
  535. X   * Revision 1.8  90/03/13  21:19:50  MS_user
  536. X   * Use the new Buffered Output routines in doecho
  537. !  * 
  538. X   * Revision 1.7  90/03/12  20:43:52  MS_user
  539. X   * Change bell test to check initialisation file
  540. !  * 
  541. X   * Revision 1.6  90/03/12  17:09:38  MS_user
  542. X   * Add a missing cast
  543. !  * 
  544. X   * Revision 1.5  90/03/09  16:06:41  MS_user
  545. X   * Add SH_BELL processing
  546. !  * 
  547. X   * Revision 1.4  90/03/06  16:50:10  MS_user
  548. X   * Add disable history option
  549. !  * 
  550. X   * Revision 1.3  90/03/05  13:52:49  MS_user
  551. X   * Changes to eval and dot functionality
  552. X   * Fix bug in escape processing in doecho
  553. X   * Add some array size checks
  554. !  * 
  555. X   * Revision 1.2  90/01/30  14:43:34  MS_user
  556. X   * Add missing author note
  557. !  * 
  558. X   * Revision 1.1  90/01/29  17:46:25  MS_user
  559. X   * Initial revision
  560. !  * 
  561. !  * 
  562. X   */
  563. X  
  564. X  #include <sys/types.h>
  565. --- 15,87 ----
  566. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  567. X   *     (or parts of sources) cannot be sold under any circumstances.
  568. X   *
  569. !  *    $Header: C:/SRC/SHELL/RCS/sh7.c 1.20 90/09/19 15:33:07 Ian_Stewartson Exp $
  570. X   *
  571. X   *    $Log:    sh7.c $
  572. +  * Revision 1.20  90/09/19  15:33:07  Ian_Stewartson
  573. +  * Allow builtin commands to selected/de-selected
  574. +  * 
  575. +  * Revision 1.19  90/09/11  19:42:59  Ian_Stewartson
  576. +  * Implement builtin command
  577. +  *
  578. X   * Revision 1.18  90/08/14  23:34:55  MS_user
  579. X   * Fix directory display on change directory
  580. X   * Fix spelling mistake.
  581. !  *
  582. X   * Revision 1.17  90/05/31  09:50:05  MS_user
  583. X   * Implement partial write when swapping to disk
  584. !  *
  585. X   * Revision 1.16  90/04/30  19:50:44  MS_user
  586. X   * Stop search path if second character of name is colon
  587. !  *
  588. X   * Revision 1.15  90/04/25  22:35:53  MS_user
  589. X   * Fix bug in doread to stop multi-line reads
  590. !  *
  591. X   * Revision 1.14  90/04/25  09:21:11  MS_user
  592. X   * Change version message processing
  593. !  *
  594. X   * Revision 1.13  90/04/03  17:59:43  MS_user
  595. X   * type didnot check for functions before searching PATH
  596. !  *
  597. X   * Revision 1.12  90/03/27  20:33:58  MS_user
  598. X   * Clear extended file name on interrupt
  599. !  *
  600. X   * Revision 1.11  90/03/26  20:57:38  MS_user
  601. X   * Change I/O restore so that "exec >filename" works
  602. !  *
  603. X   * Revision 1.10  90/03/14  19:32:05  MS_user
  604. X   * Change buffered output to be re-entrant and add it to getopt
  605. !  *
  606. X   * Revision 1.9  90/03/14  16:45:52  MS_user
  607. X   * New Open_buffer parameter
  608. !  *
  609. X   * Revision 1.8  90/03/13  21:19:50  MS_user
  610. X   * Use the new Buffered Output routines in doecho
  611. !  *
  612. X   * Revision 1.7  90/03/12  20:43:52  MS_user
  613. X   * Change bell test to check initialisation file
  614. !  *
  615. X   * Revision 1.6  90/03/12  17:09:38  MS_user
  616. X   * Add a missing cast
  617. !  *
  618. X   * Revision 1.5  90/03/09  16:06:41  MS_user
  619. X   * Add SH_BELL processing
  620. !  *
  621. X   * Revision 1.4  90/03/06  16:50:10  MS_user
  622. X   * Add disable history option
  623. !  *
  624. X   * Revision 1.3  90/03/05  13:52:49  MS_user
  625. X   * Changes to eval and dot functionality
  626. X   * Fix bug in escape processing in doecho
  627. X   * Add some array size checks
  628. !  *
  629. X   * Revision 1.2  90/01/30  14:43:34  MS_user
  630. X   * Add missing author note
  631. !  *
  632. X   * Revision 1.1  90/01/29  17:46:25  MS_user
  633. X   * Initial revision
  634. !  *
  635. !  *
  636. X   */
  637. X  
  638. X  #include <sys/types.h>
  639. ***************
  640. *** 210,215 ****
  641. --- 216,222 ----
  642. X  static int        doread (C_Op *);
  643. X  static int        doeval (C_Op *);
  644. X  static int        dotrap (C_Op *);
  645. + static int        dobuiltin (C_Op *);
  646. X  static int        getsig (char *);
  647. X  static int        dobreak (C_Op *);
  648. X  static int        docontinue (C_Op *);
  649. ***************
  650. *** 225,230 ****
  651. --- 232,238 ----
  652. X  static void        setsig (int, int (*)());
  653. X  static int        rdexp (char **, int, char *);
  654. X  
  655. + static char        *not_builtin = "%s: not a builtin\n";
  656. X  static char        **test_alist;
  657. X  static struct test_op    *test_op;
  658. X  static jmp_buf        test_jmp;
  659. ***************
  660. *** 1777,1784 ****
  661. X      char        *xp;            /* In file name pointers */
  662. X      char        *xp1;
  663. X      int            n = 1;            /* Argument count    */
  664. !     int            i, fp;    
  665. X      bool        found;            /* Found flag        */
  666. X      char        *l_path;
  667. X      Fun_Ops        *fops;
  668. X  
  669. --- 1785,1793 ----
  670. X      char        *xp;            /* In file name pointers */
  671. X      char        *xp1;
  672. X      int            n = 1;            /* Argument count    */
  673. !     int            i, fp;
  674. X      bool        found;            /* Found flag        */
  675. +     bool        inb;            /* Inbuilt function    */
  676. X      char        *l_path;
  677. X      Fun_Ops        *fops;
  678. X  
  679. ***************
  680. *** 1794,1800 ****
  681. X  
  682. X      while ((cp = t->words[n++]) != (char *)NULL)
  683. X      {
  684. !     if (inbuilt (cp))
  685. X      {
  686. X          v1_puts (cp);
  687. X          v1a_puts (" is a shell internal command");
  688. --- 1803,1812 ----
  689. X  
  690. X      while ((cp = t->words[n++]) != (char *)NULL)
  691. X      {
  692. ! 
  693. ! /* Check for currently use inbuilt version */
  694. ! 
  695. !     if (inbuilt (cp, &inb) && inb)
  696. X      {
  697. X          v1_puts (cp);
  698. X          v1a_puts (" is a shell internal command");
  699. ***************
  700. *** 1825,1831 ****
  701. X  
  702. X          if ((xp1 = strrchr (l_path, '/')) == (char *)NULL)
  703. X          xp1 = l_path;
  704. !         
  705. X          else
  706. X          ++xp1;
  707. X  
  708. --- 1837,1843 ----
  709. X  
  710. X          if ((xp1 = strrchr (l_path, '/')) == (char *)NULL)
  711. X          xp1 = l_path;
  712. ! 
  713. X          else
  714. X          ++xp1;
  715. X  
  716. ***************
  717. *** 1862,1925 ****
  718. X          }
  719. X      } while ((sp != (char *)NULL) && !found);
  720. X  
  721. !     if (!found)
  722. !         print_error ("%s not found\n", cp);
  723. !     }
  724. X  
  725. X      return 0;
  726. X  }
  727. X  
  728. X  /* Table of internal commands */
  729. X  
  730. X  static struct    builtin    builtin[] = {
  731. !     ".",        dodot,
  732. !     ":",        dolabel,
  733. !     "[",        dotest,
  734. !     "break",    dobreak,
  735. !     "cd",        dochdir,
  736. !     "continue",    docontinue,
  737. !     "echo",        doecho,
  738. !     "eval",        doeval,
  739. !     "exec",        doexec,
  740. !     "exit",        doexit,
  741. !     "export",    doexport,
  742. !     "getopt",    dogetopt,
  743. X  #ifndef NO_HISTORY
  744. !     "history",    dohistory,
  745. X  #endif
  746. !     "msdos",    domsdos,
  747. !     "pwd",        dopwd,
  748. !     "read",        doread,
  749. !     "readonly",    doreadonly,
  750. !     "return",    doreturn,
  751. !     "set",        doset,
  752. !     "shift",    doshift,
  753. !     "swap",        doswap,
  754. !     "test",        dotest,
  755. !     "trap",        dotrap,
  756. !     "type",        dotype,
  757. !     "umask",    doumask,
  758. !     "unset",    dounset,
  759. !     "ver",        dover,
  760. !     (char *)NULL,
  761. X  };
  762. X  
  763. X  /*
  764. X   * Look up a built in command
  765. X   */
  766. X  
  767. ! int        (*inbuilt (s))()
  768. X  register char    *s;
  769. X  {
  770. X      register struct builtin    *bp;
  771. X  
  772. X      if ((strlen (s) == 2) && isalpha (*s) && (*s != '_') && (*(s + 1) == ':'))
  773. X      return dodrive;
  774. X  
  775. X      for (bp = builtin; bp->command != (char *)NULL; bp++)
  776. X      {
  777. X      if (stricmp (bp->command, s) == 0)
  778. X          return bp->fn;
  779. X      }
  780. X  
  781. X      return (int (*)())NULL;
  782. --- 1874,1959 ----
  783. X          }
  784. X      } while ((sp != (char *)NULL) && !found);
  785. X  
  786. ! /* If not found, check for inbuilt version */
  787. X  
  788. +     if (!found)
  789. +     {
  790. +         if (inbuilt (cp, &inb))
  791. +         {
  792. +         v1_puts (cp);
  793. +         v1a_puts (" is a shell internal command");
  794. +         }
  795. + 
  796. +         else
  797. +         print_error ("%s not found\n", cp);
  798. +     }
  799. +     }
  800. + 
  801. X      return 0;
  802. X  }
  803. X  
  804. X  /* Table of internal commands */
  805. X  
  806. X  static struct    builtin    builtin[] = {
  807. !     ".",        dodot,        (BLT_ALWAYS | BLT_CURRENT),
  808. !     ":",        dolabel,    (BLT_ALWAYS | BLT_CURRENT),
  809. !     "[",        dotest,        BLT_CURRENT,
  810. !     "break",    dobreak,    BLT_CURRENT,
  811. !     "builtin",    dobuiltin,    (BLT_ALWAYS | BLT_CURRENT),
  812. !     "cd",        dochdir,    BLT_CURRENT,
  813. !     "continue",    docontinue,    BLT_CURRENT,
  814. !     "echo",        doecho,        BLT_CURRENT,
  815. !     "eval",        doeval,        BLT_CURRENT,
  816. !     "exec",        doexec,        BLT_CURRENT,
  817. !     "exit",        doexit,        BLT_CURRENT,
  818. !     "export",    doexport,    BLT_CURRENT,
  819. !     "getopt",    dogetopt,    BLT_CURRENT,
  820. X  #ifndef NO_HISTORY
  821. !     "history",    dohistory,    BLT_CURRENT,
  822. X  #endif
  823. !     "msdos",    domsdos,    BLT_CURRENT,
  824. !     "pwd",        dopwd,        BLT_CURRENT,
  825. !     "read",        doread,        BLT_CURRENT,
  826. !     "readonly",    doreadonly,    BLT_CURRENT,
  827. !     "return",    doreturn,    BLT_CURRENT,
  828. !     "set",        doset,        BLT_CURRENT,
  829. !     "shift",    doshift,    BLT_CURRENT,
  830. !     "swap",        doswap,        BLT_CURRENT,
  831. !     "test",        dotest,        BLT_CURRENT,
  832. !     "trap",        dotrap,        BLT_CURRENT,
  833. !     "type",        dotype,        BLT_CURRENT,
  834. !     "umask",    doumask,    BLT_CURRENT,
  835. !     "unset",    dounset,    BLT_CURRENT,
  836. !     "ver",        dover,        BLT_CURRENT,
  837. !     (char *)NULL,    (int (*)())NULL,    0
  838. X  };
  839. X  
  840. X  /*
  841. X   * Look up a built in command
  842. X   */
  843. X  
  844. ! int        (*inbuilt (s, b))()
  845. X  register char    *s;
  846. + bool        *b;
  847. X  {
  848. X      register struct builtin    *bp;
  849. X  
  850. + /* Check for change drive */
  851. + 
  852. +     *b = TRUE;
  853. X      if ((strlen (s) == 2) && isalpha (*s) && (*s != '_') && (*(s + 1) == ':'))
  854. X      return dodrive;
  855. X  
  856. + /* Search for command */
  857. + 
  858. +     *b = FALSE;
  859. X      for (bp = builtin; bp->command != (char *)NULL; bp++)
  860. X      {
  861. X      if (stricmp (bp->command, s) == 0)
  862. +     {
  863. +         *b = (bp->mode & BLT_CURRENT) ? TRUE : FALSE;
  864. X          return bp->fn;
  865. +     }
  866. X      }
  867. X  
  868. X      return (int (*)())NULL;
  869. ***************
  870. *** 1975,1978 ****
  871. --- 2009,2114 ----
  872. X  {
  873. X      if ((c != 0x07) || Ring_Bell ())
  874. X      write (STDOUT_FILENO, &c, 1);
  875. + }
  876. + 
  877. + /*
  878. +  * Builtin - either list builtins or execute it
  879. +  */
  880. + 
  881. + static int    dobuiltin (t)
  882. + register C_Op    *t;
  883. + {
  884. +     register struct builtin    *bp;
  885. +     int                (*shcom)(C_Op *) = (int (*)())NULL;
  886. +     int                rv = 0;
  887. +     bool            mode;
  888. +     int                action;
  889. +     int                i;
  890. + 
  891. +     if (t->words[1] == (char *)NULL)
  892. +     {
  893. +     for (bp = builtin; bp->command != (char *)NULL; bp++)
  894. +         v1printf ("builtin %s%s", bp->command,
  895. +               (bp->mode & BLT_CURRENT) ? " - preferred\n" : "\n");
  896. +     }
  897. + 
  898. + /* Check for changing options */
  899. + 
  900. +     else if (*t->words[1] == '-')
  901. +     {
  902. +     if (!strcmp (t->words[1], "-s"))
  903. +         action = 0;
  904. + 
  905. +     else if (!strcmp (t->words[1], "-a"))
  906. +         action = 1;
  907. + 
  908. +     else if (!strcmp (t->words[1], "-d"))
  909. +         action = 2;
  910. + 
  911. +     else
  912. +     {
  913. +         print_warn ("builtin: invalid flag %s\n", t->words[1]);
  914. +         return 1;
  915. +     }
  916. + 
  917. + /* Process the commands */
  918. + 
  919. +     for (i = 2; t->words[i] != (char *)NULL; ++i)
  920. +     {
  921. +         for (bp = builtin; bp->command != (char *)NULL; bp++)
  922. +         {
  923. +         if (stricmp (bp->command, t->words[i]) == 0)
  924. +         {
  925. +             switch (action)
  926. +             {
  927. +             case 0:
  928. +                 print_warn ("%s: %s\n", t->words[i],
  929. +                     (bp->mode |= BLT_CURRENT)
  930. +                         ? "builtin" : "external");
  931. +                 break;
  932. + 
  933. +             case 1:
  934. +                 bp->mode |= BLT_CURRENT;
  935. +                 break;
  936. + 
  937. +             case 2:
  938. +                 if (bp->mode & BLT_ALWAYS)
  939. +                 print_warn ("%s: always builtin\n",
  940. +                         t->words[i]);
  941. +                 else
  942. +                 bp->mode &= ~BLT_CURRENT;
  943. + 
  944. +                 break;
  945. +             }
  946. + 
  947. +             break;
  948. +         }
  949. +         }
  950. + 
  951. +         if (bp->command == (char *)NULL)
  952. +         {
  953. +         print_warn (not_builtin, t->words[i]);
  954. +         rv = 1;
  955. +         }
  956. +     }
  957. +     }
  958. + 
  959. + /* Check to see if we know about the builtin version */
  960. + 
  961. +     else if ((shcom = inbuilt (t->words[1], &mode)) == (int (*)())NULL)
  962. +     {
  963. +     print_warn (not_builtin, t->words[i]);
  964. +     rv = 1;
  965. +     }
  966. + 
  967. + /* Set up the word list correctly */
  968. + 
  969. +     else
  970. +     {
  971. +     t->words++;
  972. +     rv = (*shcom)(t);
  973. +     t->words--;
  974. +     }
  975. + 
  976. +     return rv;
  977. X  }
  978. Index: shell/sh10.c
  979. Prereq: 1.4
  980. *** ../sh16.3/shell/sh10.c    Fri Aug 17 21:32:51 1990
  981. --- shell/sh10.c    Tue Nov  6 19:25:21 1990
  982. ***************
  983. *** 12,20 ****
  984. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  985. X   *     (or parts of sources) cannot be sold under any circumstances.
  986. X   *
  987. !  *    $Header: C:/SRC/SHELL/RCS/sh10.c 1.4 90/08/14 23:33:32 MS_user Exp $
  988. X   *
  989. X   *    $Log:    sh10.c $
  990. X   * Revision 1.4  90/08/14  23:33:32  MS_user
  991. X   * Fix memory bugs - Add Copy function code to code a function tree
  992. X   * before it is executed.
  993. --- 12,23 ----
  994. X   * 2.  The sources (or parts thereof) or objects generated from the sources
  995. X   *     (or parts of sources) cannot be sold under any circumstances.
  996. X   *
  997. !  *    $Header: C:/SRC/SHELL/RCS/sh10.c 1.5 90/09/11 19:40:46 Ian_Stewartson Exp $
  998. X   *
  999. X   *    $Log:    sh10.c $
  1000. +  * Revision 1.5  90/09/11  19:40:46  Ian_Stewartson
  1001. +  * Fix bug in case printing/deletion in functions
  1002. +  * 
  1003. X   * Revision 1.4  90/08/14  23:33:32  MS_user
  1004. X   * Fix memory bugs - Add Copy function code to code a function tree
  1005. X   * before it is executed.
  1006. ***************
  1007. *** 186,192 ****
  1008. X      case TCASE:            /* CASE function        */
  1009. X          Print_IString ("case ", 1);
  1010. X          v1_puts (t->str);
  1011. !         v1a_puts (" do");
  1012. X          Print_Case (t->left);
  1013. X          Print_IString (" esac\n", -1);
  1014. X          return;
  1015. --- 189,195 ----
  1016. X      case TCASE:            /* CASE function        */
  1017. X          Print_IString ("case ", 1);
  1018. X          v1_puts (t->str);
  1019. !         v1a_puts (" in");
  1020. X          Print_Case (t->left);
  1021. X          Print_IString (" esac\n", -1);
  1022. X          return;
  1023. ***************
  1024. *** 624,629 ****
  1025. --- 627,633 ----
  1026. X      if (t->type == TLIST) 
  1027. X      {
  1028. X      Set_Free_Case (t->left, func);
  1029. +     (*func)((char *)t->left);
  1030. X      t1 = t->right;
  1031. X      }
  1032. X      
  1033. ***************
  1034. *** 638,643 ****
  1035. --- 642,650 ----
  1036. X      (*func)((char *)t1->words);
  1037. X  
  1038. X      Set_Free_ExTree (t1->left, func);
  1039. +     
  1040. +     if (t1 == t->right)
  1041. +     (*func)((char *)t->right);
  1042. X  }
  1043. X  
  1044. X  /*
  1045. SHAR_EOF
  1046. echo 'File Patch1.6.4 is complete' &&
  1047. chmod 0644 Patch1.6.4 ||
  1048. echo 'restore of Patch1.6.4 failed'
  1049. Wc_c="`wc -c < 'Patch1.6.4'`"
  1050. test 63614 -eq "$Wc_c" ||
  1051.     echo 'Patch1.6.4: original size 63614, current size' "$Wc_c"
  1052. rm -f _shar_wnt_.tmp
  1053. fi
  1054. rm -f _shar_seq_.tmp
  1055. echo You have unpacked the last part
  1056. exit 0
  1057.  
  1058. exit 0 # Just in case...
  1059. -- 
  1060. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1061. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1062. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1063. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1064.