home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fb.zip / octave / PATOS2.ZIP / PATCHES.OS2 < prev    next >
Text File  |  2000-01-15  |  151KB  |  5,989 lines
  1. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/cmd-edit.cc i:/project/C/octave-2.1.23/liboctave/cmd-edit.cc
  2. *** n:/project/C/octave-2.1.23.orig/liboctave/cmd-edit.cc    Wed Oct 13 08:05:22 1999
  3. --- i:/project/C/octave-2.1.23/liboctave/cmd-edit.cc    Fri Dec 24 18:44:34 1999
  4. ***************
  5. *** 20,25 ****
  6. --- 20,27 ----
  7.   
  8.   */
  9.   
  10. + /* Modified by Klaus Gebhardt, 1999 */
  11. + 
  12.   #ifdef HAVE_CONFIG_H
  13.   #include <config.h>
  14.   #endif
  15. ***************
  16. *** 52,57 ****
  17. --- 54,69 ----
  18.   
  19.   #include <readline/readline.h>
  20.   
  21. + #ifdef __EMX__
  22. + extern "C"
  23. + {
  24. +   extern void tputs ();
  25. +   extern char *term_clrpag;
  26. +   extern void _rl_output_character_function ();
  27. +   extern void rl_resize_terminal ();
  28. + }
  29. + #endif
  30. + 
  31.   // It would be nice if readline.h declared these, I think.
  32.   
  33.   extern int rl_blink_matching_paren;
  34. ***************
  35. *** 246,252 ****
  36. --- 258,276 ----
  37.   void
  38.   gnu_readline::do_clear_screen (void)
  39.   {
  40. + #ifdef __EMX__
  41. +   rl_beg_of_line ();
  42. +   rl_kill_line (1);
  43. + 
  44. +   if (term_clrpag)
  45. +     tputs (term_clrpag, 1, _rl_output_character_function);
  46. +   else
  47. +     crlf ();
  48. + 
  49. +   fflush (rl_outstream);
  50. + #else
  51.     rl_clear_screen ();
  52. + #endif
  53.   }
  54.   
  55.   void
  56. ***************
  57. *** 628,633 ****
  58. --- 652,664 ----
  59.   {
  60.     if (instance_ok ())
  61.       instance->command_number = n;
  62. + }
  63. + 
  64. + void
  65. + command_editor::add_current_command_number (int n)
  66. + {
  67. +   if (instance_ok ())
  68. +     instance->command_number += n;
  69.   }
  70.   
  71.   void
  72. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/cmd-edit.h i:/project/C/octave-2.1.23/liboctave/cmd-edit.h
  73. *** n:/project/C/octave-2.1.23.orig/liboctave/cmd-edit.h    Wed Oct 13 08:05:22 1999
  74. --- i:/project/C/octave-2.1.23/liboctave/cmd-edit.h    Fri Dec 24 13:35:56 1999
  75. ***************
  76. *** 99,104 ****
  77. --- 99,106 ----
  78.   
  79.     static void reset_current_command_number (int n);
  80.   
  81. +   static void add_current_command_number (int n);
  82. + 
  83.     static void increment_current_command_number (void);
  84.   
  85.   private:
  86. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/cmd-hist.cc i:/project/C/octave-2.1.23/liboctave/cmd-hist.cc
  87. *** n:/project/C/octave-2.1.23.orig/liboctave/cmd-hist.cc    Mon May  5 04:24:04 1997
  88. --- i:/project/C/octave-2.1.23/liboctave/cmd-hist.cc    Fri Dec 24 13:35:56 1999
  89. ***************
  90. *** 20,25 ****
  91. --- 20,27 ----
  92.   
  93.   */
  94.   
  95. + /* Modified by Klaus Gebhardt, 1999 */
  96. + 
  97.   #ifdef HAVE_CONFIG_H
  98.   #include <config.h>
  99.   #endif
  100. ***************
  101. *** 119,128 ****
  102.     if (! do_ignoring_entries ())
  103.       {
  104.         if (s.empty ()
  105. !       || (s.length () == 1 && (s[0] == '\r' || s[0] == '\n')))
  106.       return;
  107.   
  108. !       ::add_history (s.c_str ());
  109.   
  110.         lines_this_session++;
  111.       }
  112. --- 121,143 ----
  113.     if (! do_ignoring_entries ())
  114.       {
  115.         if (s.empty ()
  116. !       || (s.length () == 1 && (s[0] == '\r' || s[0] == '\n' || s[0] == ''))
  117. !       || (s.length () == 2 && (s[0] == '\r' && s[1] == '\n')))
  118.       return;
  119.   
  120. !       string t = s;
  121. !       int l    = t.length ();
  122. !       char c   = t[l-2];
  123. ! 
  124. !       if (c == '\n' || c == '\r' || c == '')
  125. !     {
  126. !       t.resize (l - 1);
  127. !       t[l-2] = '\n';
  128. ! 
  129. !       if (l == 2)  return;
  130. !     }
  131. ! 
  132. !       ::add_history (t.c_str ());
  133.   
  134.         lines_this_session++;
  135.       }
  136. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/file-ops.cc i:/project/C/octave-2.1.23/liboctave/file-ops.cc
  137. *** n:/project/C/octave-2.1.23.orig/liboctave/file-ops.cc    Thu Jul 24 20:33:34 1997
  138. --- i:/project/C/octave-2.1.23/liboctave/file-ops.cc    Sat Dec 25 14:04:24 1999
  139. ***************
  140. *** 20,25 ****
  141. --- 20,27 ----
  142.   
  143.   */
  144.   
  145. + /* Modified by Klaus Gebhardt, 1996 */
  146. + 
  147.   #ifdef HAVE_CONFIG_H
  148.   #include <config.h>
  149.   #endif
  150. ***************
  151. *** 39,44 ****
  152. --- 41,50 ----
  153.   #include <unistd.h>
  154.   #endif
  155.   
  156. + #ifdef OS2
  157. + #include <mkfifo.h>
  158. + #endif
  159. + 
  160.   #include "file-ops.h"
  161.   #include "oct-env.h"
  162.   #include "oct-passwd.h"
  163. ***************
  164. *** 488,493 ****
  165. --- 494,551 ----
  166.   #endif
  167.   
  168.     return status;
  169. + }
  170. + 
  171. + int
  172. + file_ops::close (int handle)
  173. + {
  174. +   string msg;
  175. +   return close (handle, msg);
  176. + }
  177. + 
  178. + int
  179. + file_ops::close (int handle, string& msg)
  180. + {
  181. +   msg = string ();
  182. + 
  183. +   int status = -1;
  184. + 
  185. + #if defined (HAVE_CLOSE)
  186. +   status = ::close (handle);
  187. + 
  188. +   if (status < 0)
  189. +     msg = ::strerror (errno);
  190. + #else
  191. +   msg = NOT_SUPPORTED ("close");
  192. + #endif
  193. + 
  194. +   return status;
  195. + }
  196. + 
  197. + void *
  198. + file_ops::fdopen (int handle, const string& mode)
  199. + {
  200. +   string msg;
  201. +   return fdopen (handle, mode.c_str (), msg);
  202. + }
  203. + 
  204. + void *
  205. + file_ops::fdopen (int handle, const string& mode, string& msg)
  206. + {
  207. +   msg = string ();
  208. + 
  209. +   void *ptr = NULL;
  210. + 
  211. + #if defined (HAVE_FDOPEN)
  212. +   ptr = static_cast<void *> (::fdopen (handle, mode.c_str ()));
  213. + 
  214. +   if (ptr == NULL)
  215. +     msg = ::strerror (errno);
  216. + #else
  217. +   msg = NOT_SUPPORTED ("fdopen");
  218. + #endif
  219. + 
  220. +   return ptr;
  221.   }
  222.   
  223.   /*
  224. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/file-ops.h i:/project/C/octave-2.1.23/liboctave/file-ops.h
  225. *** n:/project/C/octave-2.1.23.orig/liboctave/file-ops.h    Fri Jun  6 10:30:36 1997
  226. --- i:/project/C/octave-2.1.23/liboctave/file-ops.h    Sat Dec 25 12:42:28 1999
  227. ***************
  228. *** 20,25 ****
  229. --- 20,27 ----
  230.   
  231.   */
  232.   
  233. + /* Modified by Klaus Gebhardt, 1999 */
  234. + 
  235.   #if !defined (octave_file_ops_h)
  236.   #define octave_file_ops_h 1
  237.   
  238. ***************
  239. *** 66,71 ****
  240. --- 68,79 ----
  241.   
  242.     static int unlink (const string&);
  243.     static int unlink (const string&, string&);
  244. + 
  245. +   static int close (int);
  246. +   static int close (int, string&);
  247. + 
  248. +   static void *fdopen (int, const string&);
  249. +   static void *fdopen (int, const string&, string&);
  250.   };
  251.   
  252.   #endif
  253. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/file-stat.cc i:/project/C/octave-2.1.23/liboctave/file-stat.cc
  254. *** n:/project/C/octave-2.1.23.orig/liboctave/file-stat.cc    Mon Aug  2 22:56:42 1999
  255. --- i:/project/C/octave-2.1.23/liboctave/file-stat.cc    Fri Dec 24 13:35:56 1999
  256. ***************
  257. *** 20,25 ****
  258. --- 20,27 ----
  259.   
  260.   */
  261.   
  262. + /* Modified by Klaus Gebhardt, 1999 */
  263. + 
  264.   #ifdef HAVE_CONFIG_H
  265.   #include <config.h>
  266.   #endif
  267. ***************
  268. *** 37,42 ****
  269. --- 39,70 ----
  270.   #include "file-stat.h"
  271.   #include "statdefs.h"
  272.   
  273. + #ifdef __EMX__
  274. + // Normal stat and lstat does not work with EMX!
  275. + // Using old approach.
  276. + // Modified, by Klaus Gebhardt, 1998
  277. + static __inline int _stat (const char *name, struct stat *buf)
  278. + {
  279. +   int ret;
  280. + 
  281. +   do
  282. +     ret = stat (name, buf);
  283. +   while (ret < 0 && errno == EINTR);
  284. + 
  285. +   return ret;
  286. + }
  287. + 
  288. + static __inline int _lstat (const char *name, struct stat *buf)
  289. + {
  290. +   int ret;
  291. + 
  292. +   do
  293. +     ret = lstat (name, buf);
  294. +   while (ret < 0 && errno == EINTR);
  295. + 
  296. +   return ret;
  297. + }
  298. + #else
  299.   #if !defined (HAVE_LSTAT)
  300.   static inline int
  301.   lstat (const char *name, struct stat *buf)
  302. ***************
  303. *** 44,49 ****
  304. --- 72,78 ----
  305.     return stat (name, buf);
  306.   }
  307.   #endif
  308. + #endif
  309.   
  310.   // XXX FIXME XXX -- the is_* and mode_as_string functions are only valid
  311.   // for initialized objects.  If called for an object that is not
  312. ***************
  313. *** 158,164 ****
  314. --- 187,197 ----
  315.   
  316.         struct stat buf;
  317.   
  318. + #ifdef __EMX__
  319. +       int status = follow_links ? _stat (cname, &buf) : _lstat (cname, &buf);
  320. + #else
  321.         int status = follow_links ? stat (cname, &buf) : lstat (cname, &buf);
  322. + #endif
  323.   
  324.         if (status < 0)
  325.       {
  326. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/lo-mappers.cc i:/project/C/octave-2.1.23/liboctave/lo-mappers.cc
  327. *** n:/project/C/octave-2.1.23.orig/liboctave/lo-mappers.cc    Fri Sep 10 06:17:00 1999
  328. --- i:/project/C/octave-2.1.23/liboctave/lo-mappers.cc    Fri Dec 24 13:35:56 1999
  329. ***************
  330. *** 20,25 ****
  331. --- 20,27 ----
  332.   
  333.   */
  334.   
  335. + /* Modified by Klaus Gebhardt, 1997 - 1999 */
  336. + 
  337.   #ifdef HAVE_CONFIG_H
  338.   #include <config.h>
  339.   #endif
  340. ***************
  341. *** 49,54 ****
  342. --- 51,66 ----
  343.   #define finite(x) ((x) < DBL_MAX && (x) > -DBL_MAX)
  344.   #endif
  345.   
  346. + extern "C"
  347. + {
  348. +   double F77_FCN (dacosh, DACOSH) (const double*);
  349. +   double F77_FCN (dasinh, DASINH) (const double*);
  350. +   double F77_FCN (datanh, DATANH) (const double*);
  351. + 
  352. +   double F77_FCN (derf, DERF) (const double&);
  353. +   double F77_FCN (derfc, DERFC) (const double&);
  354. + }
  355. + 
  356.   #ifndef M_LOG10E
  357.   #define M_LOG10E 0.43429448190325182765
  358.   #endif
  359. ***************
  360. *** 123,135 ****
  361.   }
  362.   
  363.   double
  364.   xerf (double x)
  365.   {
  366.   #if defined (HAVE_ERF)
  367.     return erf (x);
  368.   #else
  369. !   (*current_liboctave_error_handler)
  370. !     ("erf (x) not available on this system");
  371.   #endif
  372.   }
  373.   
  374. --- 135,184 ----
  375.   }
  376.   
  377.   double
  378. + xacosh (double x)
  379. + {
  380. + #if defined (HAVE_ACOSH)
  381. +   return acosh (x);
  382. + #else
  383. +   double y;
  384. +   F77_YXFCN (dacosh, DACOSH, y, (&x));
  385. +   return y;
  386. + #endif
  387. + }
  388. + 
  389. + double
  390. + xasinh (double x)
  391. + {
  392. + #if defined (HAVE_ASINH)
  393. +   return asinh (x);
  394. + #else
  395. +   double y;
  396. +   F77_YXFCN (dasinh, DASINH, y, (&x));
  397. +   return y;
  398. + #endif
  399. + }
  400. + 
  401. + double
  402. + xatanh (double x)
  403. + {
  404. + #if defined (HAVE_ATANH)
  405. +   return atanh (x);
  406. + #else
  407. +   double y;
  408. +   F77_YXFCN (datanh, DATANH, y, (&x));
  409. +   return y;
  410. + #endif
  411. + }
  412. + 
  413. + double
  414.   xerf (double x)
  415.   {
  416.   #if defined (HAVE_ERF)
  417.     return erf (x);
  418.   #else
  419. !   double y;
  420. !   F77_YXFCN (derf, DERF, y, (x));
  421. !   return y;
  422.   #endif
  423.   }
  424.   
  425. ***************
  426. *** 139,146 ****
  427.   #if defined (HAVE_ERFC)
  428.     return erfc (x);
  429.   #else
  430. !   (*current_liboctave_error_handler)
  431. !     ("erfc (x) not available on this system");
  432.   #endif
  433.   }
  434.   
  435. --- 188,196 ----
  436.   #if defined (HAVE_ERFC)
  437.     return erfc (x);
  438.   #else
  439. !   double y;
  440. !   F77_YXFCN (derfc, DERFC, y, (x));
  441. !   return y;
  442.   #endif
  443.   }
  444.   
  445. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/lo-mappers.h i:/project/C/octave-2.1.23/liboctave/lo-mappers.h
  446. *** n:/project/C/octave-2.1.23.orig/liboctave/lo-mappers.h    Tue Jul 13 04:35:32 1999
  447. --- i:/project/C/octave-2.1.23/liboctave/lo-mappers.h    Fri Dec 24 14:45:02 1999
  448. ***************
  449. *** 20,25 ****
  450. --- 20,27 ----
  451.   
  452.   */
  453.   
  454. + /* Modified by Klaus Gebhardt, 1999 */
  455. + 
  456.   #if !defined (octave_liboctave_mappers_h)
  457.   #define octave_liboctave_mappers_h 1
  458.   
  459. ***************
  460. *** 32,37 ****
  461. --- 34,43 ----
  462.   extern double real (double x);
  463.   extern double round (double x);
  464.   extern double signum (double x);
  465. + 
  466. + extern double xacosh (double x);
  467. + extern double xasinh (double x);
  468. + extern double xatanh (double x);
  469.   extern double xerf (double x);
  470.   extern double xerfc (double x);
  471.   
  472. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/lo-specfun.cc i:/project/C/octave-2.1.23/liboctave/lo-specfun.cc
  473. *** n:/project/C/octave-2.1.23.orig/liboctave/lo-specfun.cc    Sat Dec  5 00:20:16 1998
  474. --- i:/project/C/octave-2.1.23/liboctave/lo-specfun.cc    Fri Dec 24 13:35:56 1999
  475. ***************
  476. *** 20,29 ****
  477. --- 20,35 ----
  478.   
  479.   */
  480.   
  481. + /* Modified by Klaus Gebhardt, 1997-1999 */
  482. + 
  483.   #ifdef HAVE_CONFIG_H
  484.   #include <config.h>
  485.   #endif
  486.   
  487. + #ifdef __EMX__
  488. + #include <float.h>
  489. + #endif
  490. + 
  491.   #include "Range.h"
  492.   #include "CColVector.h"
  493.   #include "CMatrix.h"
  494. ***************
  495. *** 91,97 ****
  496.   acosh (double x)
  497.   {
  498.     double retval;
  499. !   F77_XFCN (dacosh, DACOSH, (x, retval));
  500.     return retval;
  501.   }
  502.   #endif
  503. --- 97,103 ----
  504.   acosh (double x)
  505.   {
  506.     double retval;
  507. !   F77_XFCN (xdacosh, DACOSH, (x, retval));
  508.     return retval;
  509.   }
  510.   #endif
  511. ***************
  512. *** 101,107 ****
  513.   asinh (double x)
  514.   {
  515.     double retval;
  516. !   F77_XFCN (dasinh, DASINH, (x, retval));
  517.     return retval;
  518.   }
  519.   #endif
  520. --- 107,113 ----
  521.   asinh (double x)
  522.   {
  523.     double retval;
  524. !   F77_XFCN (xdasinh, DASINH, (x, retval));
  525.     return retval;
  526.   }
  527.   #endif
  528. ***************
  529. *** 111,117 ****
  530.   atanh (double x)
  531.   {
  532.     double retval;
  533. !   F77_XFCN (datanh, DATANH, (x, retval));
  534.     return retval;
  535.   }
  536.   #endif
  537. --- 117,123 ----
  538.   atanh (double x)
  539.   {
  540.     double retval;
  541. !   F77_XFCN (xdatanh, DATANH, (x, retval));
  542.     return retval;
  543.   }
  544.   #endif
  545. ***************
  546. *** 121,127 ****
  547.   erf (double x)
  548.   {
  549.     double retval;
  550. !   F77_XFCN (derf, DERF, (x, retval));
  551.     return retval;
  552.   }
  553.   #endif
  554. --- 127,133 ----
  555.   erf (double x)
  556.   {
  557.     double retval;
  558. !   F77_XFCN (xderf, DERF, (x, retval));
  559.     return retval;
  560.   }
  561.   #endif
  562. ***************
  563. *** 131,137 ****
  564.   erfc (double x)
  565.   {
  566.     double retval;
  567. !   F77_XFCN (derfc, DERFC, (x, retval));
  568.     return retval;
  569.   }
  570.   #endif
  571. --- 137,143 ----
  572.   erfc (double x)
  573.   {
  574.     double retval;
  575. !   F77_XFCN (xderfc, DERFC, (x, retval));
  576.     return retval;
  577.   }
  578.   #endif
  579. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/lo-sysdep.cc i:/project/C/octave-2.1.23/liboctave/lo-sysdep.cc
  580. *** n:/project/C/octave-2.1.23.orig/liboctave/lo-sysdep.cc    Thu Nov 27 03:02:26 1997
  581. --- i:/project/C/octave-2.1.23/liboctave/lo-sysdep.cc    Fri Dec 24 13:35:56 1999
  582. ***************
  583. *** 28,33 ****
  584. --- 28,35 ----
  585.   
  586.   */
  587.   
  588. + /* Modified by Klaus Gebhardt, 1999 */
  589. + 
  590.   #ifdef HAVE_CONFIG_H
  591.   #include <config.h>
  592.   #endif
  593. ***************
  594. *** 43,52 ****
  595. --- 45,59 ----
  596.   #include <unistd.h>
  597.   #endif
  598.   
  599. + #ifdef __EMX__
  600. + #include <stdlib.h>
  601. + #endif
  602. + 
  603.   #if ! defined (HAVE_GETHOSTNAME) && defined (HAVE_SYS_UTSNAME_H)
  604.   #include <sys/utsname.h>
  605.   #endif
  606.   
  607. + #include "lo-utils.h"
  608.   #include "lo-error.h"
  609.   #include "pathlen.h"
  610.   
  611. ***************
  612. *** 75,81 ****
  613.     return retval;
  614.   }
  615.   
  616. ! int
  617.   octave_chdir (const string& path)
  618.   {
  619.   #if defined (__EMX__)
  620. --- 82,88 ----
  621.     return retval;
  622.   }
  623.   
  624. ! bool
  625.   octave_chdir (const string& path)
  626.   {
  627.   #if defined (__EMX__)
  628. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/oct-shlib.cc i:/project/C/octave-2.1.23/liboctave/oct-shlib.cc
  629. *** n:/project/C/octave-2.1.23.orig/liboctave/oct-shlib.cc    Fri Oct 29 22:52:12 1999
  630. --- i:/project/C/octave-2.1.23/liboctave/oct-shlib.cc    Fri Dec 24 18:56:46 1999
  631. ***************
  632. *** 20,25 ****
  633. --- 20,27 ----
  634.   
  635.   */
  636.   
  637. + /* Modified by Klaus Gebhardt, 1999 */
  638. + 
  639.   #ifdef HAVE_CONFIG_H
  640.   #include <config.h>
  641.   #endif
  642. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/oct-syscalls.cc i:/project/C/octave-2.1.23/liboctave/oct-syscalls.cc
  643. *** n:/project/C/octave-2.1.23.orig/liboctave/oct-syscalls.cc    Fri Feb  6 22:27:10 1998
  644. --- i:/project/C/octave-2.1.23/liboctave/oct-syscalls.cc    Sat Dec 25 12:20:42 1999
  645. ***************
  646. *** 20,25 ****
  647. --- 20,27 ----
  648.   
  649.   */
  650.   
  651. + /* Modified by Klaus Gebhardt, 1999 */
  652. + 
  653.   #ifdef HAVE_CONFIG_H
  654.   #include <config.h>
  655.   #endif
  656. ***************
  657. *** 40,45 ****
  658. --- 42,49 ----
  659.   #include <fcntl.h>
  660.   #endif
  661.   
  662. + #include <process.h>
  663. + 
  664.   #include "oct-syscalls.h"
  665.   #include "str-vec.h"
  666.   #include "syswait.h"
  667. ***************
  668. *** 48,53 ****
  669. --- 52,83 ----
  670.     nm ## ": not supported on this system"
  671.   
  672.   int
  673. + octave_syscalls::dup (int old_fd)
  674. + {
  675. +   string msg;
  676. +   return dup (old_fd);
  677. + }
  678. + 
  679. + int
  680. + octave_syscalls::dup (int old_fd, string& msg)
  681. + {
  682. +   msg = string ();
  683. + 
  684. +   int status = -1;
  685. + 
  686. + #if defined (HAVE_DUP)
  687. +   status = ::dup (old_fd);
  688. + 
  689. +   if (status < 0)
  690. +     msg = ::strerror (errno);
  691. + #else
  692. +   msg = NOT_SUPPORTED ("dup");
  693. + #endif
  694. + 
  695. +   return status;
  696. + }
  697. + 
  698. + int
  699.   octave_syscalls::dup2 (int old_fd, int new_fd)
  700.   {
  701.     string msg;
  702. ***************
  703. *** 99,104 ****
  704. --- 129,180 ----
  705.       msg = ::strerror (errno);
  706.   #else
  707.     msg = NOT_SUPPORTED ("execvp");
  708. + #endif
  709. + 
  710. +   return status;
  711. + }
  712. + 
  713. + int
  714. + octave_syscalls::spawnvp (const string& mode, const string& file,
  715. +               const string_vector& argv)
  716. + {
  717. +   string msg;
  718. +   return spawnvp (mode, file, argv, msg);
  719. + }
  720. + 
  721. + int
  722. + octave_syscalls::spawnvp (const string& mode, const string& file,
  723. +               const string_vector& args,
  724. +               string& msg)
  725. + {
  726. +   msg = string ();
  727. + 
  728. +   int status = -1;
  729. + 
  730. + #if defined (HAVE_SPAWNVP)
  731. +   int m = P_WAIT;
  732. + 
  733. +   if (mode == "wait")         m = P_WAIT;
  734. +   else if (mode == "nowait")  m = P_NOWAIT;
  735. +   else if (mode == "detach")  m = P_DETACH;
  736. +   else if (mode == "session") m = P_SESSION;
  737. +   else if (mode == "pm")      m = P_PM;
  738. +   else
  739. +     {
  740. +       msg = "spawnvp: invalid mode specified.";
  741. +       return status;
  742. +     }
  743. + 
  744. +   char **argv = args.c_str_vec ();
  745. + 
  746. +   status = ::spawnvp (m, file.c_str (), argv);
  747. + 
  748. +   string_vector::delete_c_str_vec (argv);
  749. + 
  750. +   if (status < 0)
  751. +     msg = ::strerror (errno);
  752. + #else
  753. +   msg = NOT_SUPPORTED ("spawnvp");
  754.   #endif
  755.   
  756.     return status;
  757. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/oct-syscalls.h i:/project/C/octave-2.1.23/liboctave/oct-syscalls.h
  758. *** n:/project/C/octave-2.1.23.orig/liboctave/oct-syscalls.h    Fri Feb  6 07:00:08 1998
  759. --- i:/project/C/octave-2.1.23/liboctave/oct-syscalls.h    Sat Dec 25 10:52:34 1999
  760. ***************
  761. *** 20,25 ****
  762. --- 20,27 ----
  763.   
  764.   */
  765.   
  766. + /* Modified by Klaus Gebhardt, 1999 */
  767. + 
  768.   #if !defined (octave_syscalls_h)
  769.   #define octave_syscalls_h 1
  770.   
  771. ***************
  772. *** 34,44 ****
  773. --- 36,54 ----
  774.   struct
  775.   octave_syscalls
  776.   {
  777. +   static int dup (int);
  778. +   static int dup (int, string&);
  779. + 
  780.     static int dup2 (int, int);
  781.     static int dup2 (int, int, string&);
  782.   
  783.     static int execvp (const string&, const string_vector&);
  784.     static int execvp (const string&, const string_vector&, string&);
  785. + 
  786. +   static int spawnvp (const string&, const string&,
  787. +               const string_vector&);
  788. +   static int spawnvp (const string&, const string&,
  789. +               const string_vector&, string&);
  790.   
  791.     static int fcntl (int, int, long);
  792.     static int fcntl (int, int, long, string&);
  793. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/pathsearch.cc i:/project/C/octave-2.1.23/liboctave/pathsearch.cc
  794. *** n:/project/C/octave-2.1.23.orig/liboctave/pathsearch.cc    Thu Oct 29 00:11:10 1998
  795. --- i:/project/C/octave-2.1.23/liboctave/pathsearch.cc    Fri Dec 24 13:35:56 1999
  796. ***************
  797. *** 20,25 ****
  798. --- 20,27 ----
  799.   
  800.   */
  801.   
  802. + /* Modified by Klaus Gebhardt, 1998 */
  803. + 
  804.   #ifdef HAVE_CONFIG_H
  805.   #include <config.h>
  806.   #endif
  807. ***************
  808. *** 145,151 ****
  809. --- 147,157 ----
  810.   void
  811.   dir_path::set_program_name (const string& nm)
  812.   {
  813. + #ifndef __EMX__
  814. +   kpse_set_program_name (nm.c_str (), "octave");
  815. + #else
  816.     kpse_set_progname (nm.c_str ());
  817. + #endif
  818.   }
  819.   
  820.   void
  821. diff -cwr n:/project/C/octave-2.1.23.orig/liboctave/str-vec.cc i:/project/C/octave-2.1.23/liboctave/str-vec.cc
  822. *** n:/project/C/octave-2.1.23.orig/liboctave/str-vec.cc    Fri Jun  6 10:29:28 1997
  823. --- i:/project/C/octave-2.1.23/liboctave/str-vec.cc    Sat Dec 25 12:27:38 1999
  824. ***************
  825. *** 107,114 ****
  826.   void
  827.   string_vector::delete_c_str_vec (const char * const *v)
  828.   {
  829. !   while (*v)
  830. !     delete [] *v;
  831.   
  832.     delete [] v;
  833.   }
  834. --- 107,116 ----
  835.   void
  836.   string_vector::delete_c_str_vec (const char * const *v)
  837.   {
  838. !   int i = 0;
  839. ! 
  840. !   while (v[i])
  841. !     delete [] v[i++];
  842.   
  843.     delete [] v;
  844.   }
  845. diff -cwr n:/project/C/octave-2.1.23.orig/libcruft/misc/dostop.c i:/project/C/octave-2.1.23/libcruft/misc/dostop.c
  846. *** n:/project/C/octave-2.1.23.orig/libcruft/misc/dostop.c    Thu Mar 27 17:18:28 1997
  847. --- i:/project/C/octave-2.1.23/libcruft/misc/dostop.c    Fri Dec 24 13:35:58 1999
  848. ***************
  849. *** 21,26 ****
  850. --- 21,28 ----
  851.   
  852.   */
  853.   
  854. + /* Modified by Klaus Gebhardt, 1996 */
  855. + 
  856.   #ifdef HAVE_CONFIG_H
  857.   #include <config.h>
  858.   #endif
  859. ***************
  860. *** 30,35 ****
  861. --- 32,42 ----
  862.   
  863.   #include "f77-fcn.h"
  864.   #include "lo-error.h"
  865. + 
  866. + #ifdef __EMX__
  867. + int f77_exception_encountered;
  868. + jmp_buf f77_context;
  869. + #endif
  870.   
  871.   /* All the STOP statements in the Fortran routines have been replaced
  872.      with a call to XSTOPX, defined in the file libcruft/misc/xstopx.f.
  873. diff -cwr n:/project/C/octave-2.1.23.orig/libcruft/misc/f77-fcn.h i:/project/C/octave-2.1.23/libcruft/misc/f77-fcn.h
  874. *** n:/project/C/octave-2.1.23.orig/libcruft/misc/f77-fcn.h    Thu Mar 27 17:18:28 1997
  875. --- i:/project/C/octave-2.1.23/libcruft/misc/f77-fcn.h    Fri Dec 24 13:35:58 1999
  876. ***************
  877. *** 20,25 ****
  878. --- 20,27 ----
  879.   
  880.   */
  881.   
  882. + /* Modified by Klaus Gebhardt, 1997 */
  883. + 
  884.   #if !defined (octave_f77_fcn_h)
  885.   #define octave_f77_fcn_h 1
  886.   
  887. ***************
  888. *** 77,82 ****
  889. --- 79,103 ----
  890.       } \
  891.         else \
  892.       F77_FCN (f, F) args; \
  893. +       copy_f77_context ((char *) saved_f77_context, (char *) f77_context, \
  894. +             sizeof (jmp_buf)); \
  895. +     } \
  896. +   while (0)
  897. + 
  898. + #define F77_YXFCN(f, F, rc, args) \
  899. +   do \
  900. +     { \
  901. +       jmp_buf saved_f77_context; \
  902. +       f77_exception_encountered = 0; \
  903. +       copy_f77_context ((char *) f77_context, (char *) saved_f77_context, \
  904. +             sizeof (jmp_buf)); \
  905. +       if (setjmp (f77_context)) \
  906. +     { \
  907. +       f77_exception_encountered = 1; \
  908. +       F77_XFCN_ERROR (f, F); \
  909. +     } \
  910. +       else \
  911. +     rc = F77_FCN (f, F) args; \
  912.         copy_f77_context ((char *) saved_f77_context, (char *) f77_context, \
  913.               sizeof (jmp_buf)); \
  914.       } \
  915. diff -cwr n:/project/C/octave-2.1.23.orig/src/cutils.c i:/project/C/octave-2.1.23/src/cutils.c
  916. *** n:/project/C/octave-2.1.23.orig/src/cutils.c    Fri Nov 12 17:18:16 1999
  917. --- i:/project/C/octave-2.1.23/src/cutils.c    Fri Dec 24 15:50:58 1999
  918. ***************
  919. *** 48,53 ****
  920. --- 48,60 ----
  921.   
  922.     usleep (useconds);
  923.   
  924. + #elif defined (HAVE__SLEEP2)
  925. + 
  926. +   int delay = useconds / 1000;
  927. + 
  928. +   if (delay > 0)
  929. +     _sleep2 (delay);
  930. + 
  931.   #elif defined (HAVE_SELECT)
  932.   
  933.     struct timeval delay;
  934. diff -cwr n:/project/C/octave-2.1.23.orig/src/defaults.cc i:/project/C/octave-2.1.23/src/defaults.cc
  935. *** n:/project/C/octave-2.1.23.orig/src/defaults.cc    Tue Nov 23 21:54:24 1999
  936. --- i:/project/C/octave-2.1.23/src/defaults.cc    Fri Dec 24 13:35:58 1999
  937. ***************
  938. *** 20,25 ****
  939. --- 20,27 ----
  940.   
  941.   */
  942.   
  943. + /* Modified by Klaus Gebhardt, 1996 - 1997 */
  944. + 
  945.   #ifdef HAVE_CONFIG_H
  946.   #include <config.h>
  947.   #endif
  948. ***************
  949. *** 168,174 ****
  950.   
  951.         if (! shell_path.empty ())
  952.       {
  953. !       Vexec_path = string (":");
  954.         Vexec_path.append (shell_path);
  955.       }
  956.       }
  957. --- 170,176 ----
  958.   
  959.         if (! shell_path.empty ())
  960.       {
  961. !       Vexec_path = string (SEPCHAR_STR);
  962.         Vexec_path.append (shell_path);
  963.       }
  964.       }
  965. ***************
  966. *** 183,189 ****
  967.   
  968.     string oct_path = octave_env::getenv ("OCTAVE_PATH");
  969.   
  970. !   Vload_path = oct_path.empty () ? string (":") : oct_path;
  971.   
  972.     Vload_path_dir_path = dir_path (Vload_path, Vdefault_load_path);
  973.   }
  974. --- 185,191 ----
  975.   
  976.     string oct_path = octave_env::getenv ("OCTAVE_PATH");
  977.   
  978. !   Vload_path = oct_path.empty () ? string (SEPCHAR_STR) : oct_path;
  979.   
  980.     Vload_path_dir_path = dir_path (Vload_path, Vdefault_load_path);
  981.   }
  982. ***************
  983. *** 204,210 ****
  984.     string oct_info_prog = octave_env::getenv ("OCTAVE_INFO_PROGRAM");
  985.   
  986.     if (oct_info_prog.empty ())
  987. !     Vinfo_prog = "info";
  988.     else
  989.       Vinfo_prog = string (oct_info_prog);
  990.   }
  991. --- 206,219 ----
  992.     string oct_info_prog = octave_env::getenv ("OCTAVE_INFO_PROGRAM");
  993.   
  994.     if (oct_info_prog.empty ())
  995. !     {
  996. ! #if !defined (__EMX__)
  997. !       Vinfo_prog = Varch_lib_dir;
  998. !       Vinfo_prog.append ("/info");
  999. ! #else
  1000. !       Vinfo_prog = "";
  1001. ! #endif
  1002. !     }
  1003.     else
  1004.       Vinfo_prog = string (oct_info_prog);
  1005.   }
  1006. ***************
  1007. *** 212,218 ****
  1008. --- 221,231 ----
  1009.   static void
  1010.   set_default_editor (void)
  1011.   {
  1012. + #if defined (__EMX__) && defined (OS2)
  1013. +   Veditor = "e";
  1014. + #else
  1015.     Veditor = "emacs";
  1016. + #endif
  1017.   
  1018.     string env_editor = octave_env::getenv ("EDITOR");
  1019.   
  1020. ***************
  1021. *** 345,352 ****
  1022.   
  1023.         if (eplen > 0)
  1024.       {
  1025. !       bool prepend = (Vexec_path[0] == ':');
  1026. !       bool append = (eplen > 1 && Vexec_path[eplen-1] == ':');
  1027.   
  1028.         if (prepend)
  1029.           {
  1030. --- 358,365 ----
  1031.   
  1032.         if (eplen > 0)
  1033.       {
  1034. !       bool prepend = (Vexec_path[0] == SEPCHAR);
  1035. !       bool append = (eplen > 1 && Vexec_path[eplen-1] == SEPCHAR);
  1036.   
  1037.         if (prepend)
  1038.           {
  1039. diff -cwr n:/project/C/octave-2.1.23.orig/src/defun-int.h i:/project/C/octave-2.1.23/src/defun-int.h
  1040. *** n:/project/C/octave-2.1.23.orig/src/defun-int.h    Sat Nov 20 04:05:44 1999
  1041. --- i:/project/C/octave-2.1.23/src/defun-int.h    Fri Dec 24 16:08:58 1999
  1042. ***************
  1043. *** 20,25 ****
  1044. --- 20,27 ----
  1045.   
  1046.   */
  1047.   
  1048. + /* Modified by Klaus Gebhardt, 1999 */
  1049. + 
  1050.   #if !defined (octave_defun_int_h)
  1051.   #define octave_defun_int_h 1
  1052.   
  1053. ***************
  1054. *** 175,181 ****
  1055.     install_builtin_mapper \
  1056.       (new octave_mapper (ch_map, d_b_map, c_b_map, d_d_map, d_c_map, \
  1057.               c_c_map, lo, hi, \
  1058. !             can_ret_cmplx_for_real, #name))
  1059.   
  1060.   #endif /* ! MAKE_BUILTINS */
  1061.   
  1062. --- 177,183 ----
  1063.     install_builtin_mapper \
  1064.       (new octave_mapper (ch_map, d_b_map, c_b_map, d_d_map, d_c_map, \
  1065.               c_c_map, lo, hi, \
  1066. !             can_ret_cmplx_for_real, #name, #doc))
  1067.   
  1068.   #endif /* ! MAKE_BUILTINS */
  1069.   
  1070. diff -cwr n:/project/C/octave-2.1.23.orig/src/DLD-FUNCTIONS/qz.cc i:/project/C/octave-2.1.23/src/DLD-FUNCTIONS/qz.cc
  1071. *** n:/project/C/octave-2.1.23.orig/src/DLD-FUNCTIONS/qz.cc    Tue Nov 23 20:07:18 1999
  1072. --- i:/project/C/octave-2.1.23/src/DLD-FUNCTIONS/qz.cc    Fri Dec 24 13:35:58 1999
  1073. ***************
  1074. *** 20,25 ****
  1075. --- 20,27 ----
  1076.   
  1077.   */
  1078.   
  1079. + /* Modified by Klaus Gebhardt, 1999 */
  1080. + 
  1081.   // Generalized eigenvalue balancing via LAPACK
  1082.   // Written by A. S. Hodel <scotte@eng.auburn.edu>
  1083.   
  1084. ***************
  1085. *** 27,33 ****
  1086. --- 29,37 ----
  1087.   #undef DEBUG_SORT
  1088.   #undef DEBUG_EIG
  1089.   
  1090. + #ifdef HAVE_CONFIG_H
  1091.   #include "config.h"
  1092. + #endif
  1093.   
  1094.   #include <cfloat>
  1095.   #include <iostream.h>
  1096. diff -cwr n:/project/C/octave-2.1.23.orig/src/DLD-FUNCTIONS/rand.cc i:/project/C/octave-2.1.23/src/DLD-FUNCTIONS/rand.cc
  1097. *** n:/project/C/octave-2.1.23.orig/src/DLD-FUNCTIONS/rand.cc    Sun Nov 21 17:26:06 1999
  1098. --- i:/project/C/octave-2.1.23/src/DLD-FUNCTIONS/rand.cc    Fri Dec 24 13:35:58 1999
  1099. ***************
  1100. *** 20,25 ****
  1101. --- 20,27 ----
  1102.   
  1103.   */
  1104.   
  1105. + /* Modified by Klaus Gebhardt, 1997 */
  1106. + 
  1107.   #ifdef HAVE_CONFIG_H
  1108.   #include <config.h>
  1109.   #endif
  1110. diff -cwr n:/project/C/octave-2.1.23.orig/src/dynamic-ld.cc i:/project/C/octave-2.1.23/src/dynamic-ld.cc
  1111. *** n:/project/C/octave-2.1.23.orig/src/dynamic-ld.cc    Tue Nov 23 21:54:24 1999
  1112. --- i:/project/C/octave-2.1.23/src/dynamic-ld.cc    Fri Dec 24 18:47:56 1999
  1113. ***************
  1114. *** 57,67 ****
  1115.     static void *search (const string& fcn_name, octave_shlib& shl,
  1116.                  octave_shlib::name_mangler mangler = 0);
  1117.   
  1118. ! private:
  1119.   
  1120.     octave_shlib_list (void) { }
  1121.   
  1122.     ~octave_shlib_list (void) { }
  1123.   
  1124.     void do_append (const octave_shlib& shl);
  1125.   
  1126. --- 57,69 ----
  1127.     static void *search (const string& fcn_name, octave_shlib& shl,
  1128.                  octave_shlib::name_mangler mangler = 0);
  1129.   
  1130. ! protected:
  1131.   
  1132.     octave_shlib_list (void) { }
  1133.   
  1134.     ~octave_shlib_list (void) { }
  1135. + 
  1136. + private:
  1137.   
  1138.     void do_append (const octave_shlib& shl);
  1139.   
  1140. diff -cwr n:/project/C/octave-2.1.23.orig/src/file-io.cc i:/project/C/octave-2.1.23/src/file-io.cc
  1141. *** n:/project/C/octave-2.1.23.orig/src/file-io.cc    Wed Dec 15 21:48:44 1999
  1142. --- i:/project/C/octave-2.1.23/src/file-io.cc    Fri Dec 24 13:35:58 1999
  1143. ***************
  1144. *** 34,39 ****
  1145. --- 34,41 ----
  1146.   // Completely rewritten by John W. Eaton <jwe@bevo.che.wisc.edu>,
  1147.   // April 1996.
  1148.   
  1149. + /* Modified by Klaus Gebhardt, 1997 */
  1150. + 
  1151.   #ifdef HAVE_CONFIG_H
  1152.   #include <config.h>
  1153.   #endif
  1154. ***************
  1155. *** 62,67 ****
  1156. --- 64,70 ----
  1157.   #include "oct-stream.h"
  1158.   #include "oct-strstrm.h"
  1159.   #include "pager.h"
  1160. + #include "sighandlers.h"
  1161.   #include "sysdep.h"
  1162.   #include "utils.h"
  1163.   #include "variables.h"
  1164. ***************
  1165. *** 1479,1484 ****
  1166. --- 1482,1522 ----
  1167.   }
  1168.   
  1169.   DEFALIAS (octave_tmp_file_name, tmpnam);
  1170. + 
  1171. + DEFUN (child_purge_temp, args, ,
  1172. +  "child_purge_temp (pid, name)\n\
  1173. + Remove the file NAME, when child PID dies.")
  1174. + {
  1175. +   octave_value retval = -1.0;
  1176. + 
  1177. +   if (args.length () == 2)
  1178. +     {
  1179. +       if (args(1).is_string ())
  1180. +     {
  1181. +       double d_pid = args(0).double_value ();
  1182. +       string name  = args(1).string_value ();
  1183. + 
  1184. +       if (!error_state)
  1185. +         {
  1186. +           if (D_NINT (d_pid) == d_pid)
  1187. +         {
  1188. +           int i_pid = NINT (d_pid);
  1189. + 
  1190. +           octave_child_list::insert (i_pid, 0, name);
  1191. +           retval = 0.0;
  1192. +         }
  1193. +           else
  1194. +         error ("child_purge_temp: pid must be an integer");
  1195. +         }
  1196. +     }
  1197. +       else
  1198. +     error ("child_purge_temp: second argument must be a string");
  1199. +     }
  1200. +   else
  1201. +     print_usage ("child_purge_temp");
  1202. + 
  1203. +   return retval;
  1204. + }
  1205.   
  1206.   static int
  1207.   convert (int x, int ibase, int obase)
  1208. diff -cwr n:/project/C/octave-2.1.23.orig/src/help.cc i:/project/C/octave-2.1.23/src/help.cc
  1209. *** n:/project/C/octave-2.1.23.orig/src/help.cc    Tue Nov 23 21:54:24 1999
  1210. --- i:/project/C/octave-2.1.23/src/help.cc    Sat Dec 25 19:24:36 1999
  1211. ***************
  1212. *** 20,25 ****
  1213. --- 20,27 ----
  1214.   
  1215.   */
  1216.   
  1217. + /* Modified by Klaus Gebhardt, 1996 */
  1218. + 
  1219.   #ifdef HAVE_CONFIG_H
  1220.   #include <config.h>
  1221.   #endif
  1222. ***************
  1223. *** 69,74 ****
  1224. --- 71,94 ----
  1225.   #include "variables.h"
  1226.   #include "version.h"
  1227.   
  1228. + #if defined (__EMX__)
  1229. + extern "C"
  1230. + {
  1231. + #include "info/info.h"
  1232. + #include "info/dribble.h"
  1233. + #include "info/terminal.h"
  1234. + 
  1235. +   extern int external_info_search ();
  1236. +   extern int index_entry_exists ();
  1237. +   extern int do_info_index_search ();
  1238. +   extern void finish_info_session ();
  1239. +   extern char *replace_in_documentation ();
  1240. + 
  1241. + #include <process.h>
  1242. +   int _IO_system (const char *, int);
  1243. + }
  1244. + #endif
  1245. + 
  1246.   // Name of the info file specified on command line.
  1247.   // (--info-file file)
  1248.   string Vinfo_file;
  1249. ***************
  1250. *** 499,504 ****
  1251. --- 519,526 ----
  1252.   static int
  1253.   try_info (const string& nm)
  1254.   {
  1255. +   if (Vinfo_prog.length () > 0)
  1256. +     {
  1257.         int status = 0;
  1258.   
  1259.         static char *cmd_str = 0;
  1260. ***************
  1261. *** 529,551 ****
  1262.     volatile octave_interrupt_handler old_interrupt_handler
  1263.       = octave_ignore_interrupts ();
  1264.   
  1265.     status = system (cmd_str);
  1266.   
  1267.     octave_set_interrupt_handler (old_interrupt_handler);
  1268.   
  1269.     if (WIFEXITED (status))
  1270.       status = WEXITSTATUS (status);
  1271.     else
  1272.       status = 127;
  1273.   
  1274.     return status;
  1275.   }
  1276.   
  1277.   static void
  1278.   help_from_info (const string_vector& argv, int idx, int argc)
  1279.   {
  1280.     if (idx == argc)
  1281. !     try_info (string ());
  1282.     else
  1283.       {
  1284.         for (int i = idx; i < argc; i++)
  1285. --- 551,646 ----
  1286.         volatile octave_interrupt_handler old_interrupt_handler
  1287.       = octave_ignore_interrupts ();
  1288.   
  1289. + #ifdef __EMX__
  1290. +       status = _IO_system (cmd_str, P_WAIT);
  1291. + #else
  1292.         status = system (cmd_str);
  1293. + #endif
  1294.   
  1295.         octave_set_interrupt_handler (old_interrupt_handler);
  1296.   
  1297. + #ifndef __EMX__
  1298.         if (WIFEXITED (status))
  1299.       status = WEXITSTATUS (status);
  1300.         else
  1301.       status = 127;
  1302. + #else
  1303. +       if (status > 127) status -= 256;
  1304. + #endif
  1305. + 
  1306. +       return status;
  1307. +     }
  1308. +   else
  1309. +     {
  1310. +       volatile octave_interrupt_handler old_interrupt_handler
  1311. +     = octave_ignore_interrupts ();
  1312. + 
  1313. +       int status = 0;
  1314. + 
  1315. +       char *directory_name = strdup (Vinfo_file.c_str ());
  1316. +       char *temp = filename_non_directory (directory_name);
  1317. + 
  1318. +       if (temp != directory_name)
  1319. +     {
  1320. +       *temp = 0;
  1321. +       info_add_path (directory_name, INFOPATH_PREPEND);
  1322. +     }
  1323. + 
  1324. +       delete [] directory_name;
  1325. + 
  1326. +       NODE *initial_node = info_get_node (Vinfo_file.c_str (), 0);
  1327. + 
  1328. +       if (! initial_node)  status = 127;
  1329. +       else
  1330. +     {
  1331. +       status = external_info_search(initial_node, 0,
  1332. +                     Vinfo_file.c_str (), nm.c_str ());
  1333. +       if (status == 1)
  1334. +         {
  1335. +           char *format = replace_in_documentation
  1336. +         ("Type \"\\[quit]\" to quit, \"\\[get-help-window]\" for help.");
  1337. +           window_message_in_echo_area (format);
  1338. + 
  1339. +           info_read_and_dispatch ();
  1340. + 
  1341. + #ifdef __EMX__
  1342. +           terminal_goto_xy (0, screenheight - 2);
  1343. + #else
  1344. +           terminal_goto_xy (0, screenheight - 1);
  1345. + #endif
  1346. +           terminal_clear_to_eol ();
  1347. +           terminal_unprep_terminal ();
  1348. +         }
  1349. + 
  1350. +       status = status * status - 1;
  1351. + 
  1352. +       _finish_info_session (initial_node, 0);
  1353. +     }
  1354. + 
  1355. +       octave_set_interrupt_handler (old_interrupt_handler);
  1356.   
  1357.         return status;
  1358.       }
  1359. + }
  1360.   
  1361.   static void
  1362.   help_from_info (const string_vector& argv, int idx, int argc)
  1363.   {
  1364.     if (idx == argc)
  1365. !     {
  1366. !       int status = try_info (string ());
  1367. ! 
  1368. !       if (status)
  1369. !     {
  1370. !       if (status < 0)
  1371. !         {
  1372. !           message ("help", "sorry, `%s' is not indexed in the manual",
  1373. !                string ().c_str ());
  1374. !           sleep (2);
  1375. !         }
  1376. !       else  error ("help: unable to find info!");
  1377. !     }
  1378. !     }
  1379.     else
  1380.       {
  1381.         for (int i = idx; i < argc; i++)
  1382. ***************
  1383. *** 597,604 ****
  1384.   
  1385.     if (looks_like_texinfo (msg, pos))
  1386.       {
  1387. -       string tmp_file_name = file_ops::tempnam ("", "");
  1388. - 
  1389.         int cols = command_editor::terminal_cols ();
  1390.   
  1391.         if (cols > 16)
  1392. --- 692,697 ----
  1393. ***************
  1394. *** 611,616 ****
  1395. --- 704,745 ----
  1396.       cols = 72;
  1397.   
  1398.         ostrstream buf;
  1399. + 
  1400. + #ifdef __EMX__
  1401. +       string tmp_file_name_1 = file_ops::tempnam ("", "hlp-");
  1402. +       string tmp_file_name_2 = file_ops::tempnam ("", "hlp-");
  1403. + 
  1404. +       ofstream tmp_file_1 (tmp_file_name_1.c_str ());
  1405. +       tmp_file_1 << msg.substr (pos+1);
  1406. +       tmp_file_1.close ();
  1407. + 
  1408. +       buf << "sed -e \"s/^[#%]* *//g\" "
  1409. +       << tmp_file_name_1
  1410. +       << " | makeinfo"
  1411. +       << " -D \"VERSION " << OCTAVE_VERSION << "\""
  1412. +       << " -D \"OCTAVEHOME " << OCTAVE_PREFIX << "\""
  1413. +       << " -D \"TARGETHOSTTYPE " << CANONICAL_HOST_TYPE << "\""
  1414. +       << " --fill-column " << cols
  1415. +       << " --no-warn"
  1416. +       << " --no-validate"
  1417. +       << " --no-headers"
  1418. +       << " --output " << tmp_file_name_2
  1419. +       << " >NUL 2>&1"
  1420. +       << ends;
  1421. + 
  1422. +       _IO_system (buf.str(), P_WAIT);
  1423. + 
  1424. +       ifstream tmp_file_2 (tmp_file_name_2.c_str ());
  1425. + 
  1426. +       int c;
  1427. +       while ((c = tmp_file_2.get ()) != EOF)
  1428. +     os << (char) c;
  1429. + 
  1430. +       tmp_file_2.close ();
  1431. + 
  1432. +       file_ops::unlink (tmp_file_name_2);
  1433. +       file_ops::unlink (tmp_file_name_1);
  1434. + #else
  1435.         buf << "sed 's/^[#%]+ *//' | makeinfo"
  1436.         << " -D \"VERSION " << OCTAVE_VERSION << "\""
  1437.         << " -D \"OCTAVEHOME " << OCTAVE_PREFIX << "\""
  1438. ***************
  1439. *** 624,629 ****
  1440. --- 753,760 ----
  1441.         << " > /dev/null 2>&1"
  1442.         << ends;
  1443.   
  1444. +       string tmp_file_name = file_ops::tempnam ("", "");
  1445. + 
  1446.         char *cmd = buf.str ();
  1447.   
  1448.         oprocstream filter (cmd);
  1449. ***************
  1450. *** 648,653 ****
  1451. --- 779,785 ----
  1452.       }
  1453.         else
  1454.       os << msg;
  1455. + #endif
  1456.       }
  1457.     else
  1458.       os << msg;
  1459. ***************
  1460. *** 1018,1023 ****
  1461. --- 1150,1156 ----
  1462.   
  1463.     string s = builtin_string_variable ("INFO_PROGRAM");
  1464.   
  1465. + #ifndef __EMX__
  1466.     if (s.empty ())
  1467.       {
  1468.         gripe_invalid_value_specified ("INFO_PROGRAM");
  1469. ***************
  1470. *** 1025,1030 ****
  1471. --- 1158,1166 ----
  1472.       }
  1473.     else
  1474.       Vinfo_prog = s;
  1475. + #else
  1476. +   Vinfo_prog = s;
  1477. + #endif
  1478.   
  1479.     return status;
  1480.   }
  1481. diff -cwr n:/project/C/octave-2.1.23.orig/src/input.cc i:/project/C/octave-2.1.23/src/input.cc
  1482. *** n:/project/C/octave-2.1.23.orig/src/input.cc    Tue Nov 23 21:54:24 1999
  1483. --- i:/project/C/octave-2.1.23/src/input.cc    Fri Dec 24 13:35:58 1999
  1484. ***************
  1485. *** 20,25 ****
  1486. --- 20,27 ----
  1487.   
  1488.   */
  1489.   
  1490. + /* Modified by Klaus Gebhardt, 1996-1999 */
  1491. + 
  1492.   // Get command input interactively or from files.
  1493.   
  1494.   #ifdef HAVE_CONFIG_H
  1495. ***************
  1496. *** 119,124 ****
  1497. --- 121,130 ----
  1498.   // TRUE means the user forced this shell to be interactive (-i).
  1499.   bool forced_interactive = false;
  1500.   
  1501. + // Nonzero means the user forced this shell to be really interactive (-i),
  1502. + // but without using the pager.
  1503. + int really_forced_interactive = 0;
  1504. + 
  1505.   // Should we issue a prompt?
  1506.   int promptflag = 1;
  1507.   
  1508. ***************
  1509. *** 173,179 ****
  1510.       }
  1511.     else
  1512.       {
  1513. !       if (! s.empty () && (interactive || forced_interactive))
  1514.       {
  1515.         FILE *stream = command_editor::get_output_stream ();
  1516.   
  1517. --- 179,186 ----
  1518.       }
  1519.     else
  1520.       {
  1521. !       if (! s.empty () &&
  1522. !       (interactive || forced_interactive || really_forced_interactive))
  1523.       {
  1524.         FILE *stream = command_editor::get_output_stream ();
  1525.   
  1526. ***************
  1527. *** 199,205 ****
  1528.   
  1529.     Vlast_prompt_time.stamp ();
  1530.   
  1531. !   if ((interactive || forced_interactive)
  1532.         && (! (reading_fcn_file || reading_script_file)))
  1533.       {
  1534.         string ps = (promptflag > 0) ? Vps1 : Vps2;
  1535. --- 206,212 ----
  1536.   
  1537.     Vlast_prompt_time.stamp ();
  1538.   
  1539. !   if ((interactive || forced_interactive || really_forced_interactive)
  1540.         && (! (reading_fcn_file || reading_script_file)))
  1541.       {
  1542.         string ps = (promptflag > 0) ? Vps1 : Vps2;
  1543. ***************
  1544. *** 344,350 ****
  1545.     FILE *instream = 0;
  1546.   
  1547.     if (name.length () > 0)
  1548. !     instream = fopen (name.c_str (), "r");
  1549.   
  1550.     if (! instream && warn)
  1551.       warning ("%s: no such file or directory", name.c_str ());
  1552. --- 351,357 ----
  1553.     FILE *instream = 0;
  1554.   
  1555.     if (name.length () > 0)
  1556. !     instream = fopen (name.c_str (), "rb");
  1557.   
  1558.     if (! instream && warn)
  1559.       warning ("%s: no such file or directory", name.c_str ());
  1560. ***************
  1561. *** 521,526 ****
  1562. --- 528,538 ----
  1563.     flush_octave_stdout ();
  1564.   
  1565.     string input_buf = gnu_readline (prompt.c_str (), true);
  1566. + 
  1567. + #ifdef __EMX__
  1568. +   if (reading_fcn_file || reading_script_file)
  1569. +     octave_diary << prompt.c_str () << input_buf << "\n";
  1570. + #endif
  1571.   
  1572.     if (! input_buf.empty ())
  1573.       {
  1574. diff -cwr n:/project/C/octave-2.1.23.orig/src/input.h i:/project/C/octave-2.1.23/src/input.h
  1575. *** n:/project/C/octave-2.1.23.orig/src/input.h    Thu Jul 15 21:54:26 1999
  1576. --- i:/project/C/octave-2.1.23/src/input.h    Fri Dec 24 13:35:58 1999
  1577. ***************
  1578. *** 20,25 ****
  1579. --- 20,27 ----
  1580.   
  1581.   */
  1582.   
  1583. + /* Modified by Klaus Gebhardt, 1996 */
  1584. + 
  1585.   // Use the GNU readline library for command line editing and hisory.
  1586.   
  1587.   #if !defined (octave_input_h)
  1588. ***************
  1589. *** 61,66 ****
  1590. --- 63,72 ----
  1591.   
  1592.   // TRUE means the user forced this shell to be interactive (-i).
  1593.   extern bool forced_interactive;
  1594. + 
  1595. + // Nonzero means the user forced this shell to be really interactive (-i),
  1596. + // but without using the pager.
  1597. + extern int really_forced_interactive;
  1598.   
  1599.   // Should we issue a prompt?
  1600.   extern int promptflag;
  1601. diff -cwr n:/project/C/octave-2.1.23.orig/src/lex.l i:/project/C/octave-2.1.23/src/lex.l
  1602. *** n:/project/C/octave-2.1.23.orig/src/lex.l    Thu Dec 16 05:51:46 1999
  1603. --- i:/project/C/octave-2.1.23/src/lex.l    Fri Dec 24 16:33:16 1999
  1604. ***************
  1605. *** 20,25 ****
  1606. --- 20,27 ----
  1607.   
  1608.   */
  1609.   
  1610. + /* Modified by Klaus Gebhardt, 1996 - 1999 */
  1611. + 
  1612.   %s TEXT_FCN
  1613.   %s MATRIX
  1614.   
  1615. ***************
  1616. *** 194,200 ****
  1617.   
  1618.   D    [0-9]
  1619.   S    [ \t]
  1620. ! NL    ((\n)|(\r\n))
  1621.   SNL    ({S}|{NL})
  1622.   EL    (\.\.\.)
  1623.   BS    (\\)
  1624. --- 196,202 ----
  1625.   
  1626.   D    [0-9]
  1627.   S    [ \t]
  1628. ! NL    ((\n)|(\r)|(\r\n)|())
  1629.   SNL    ({S}|{NL})
  1630.   EL    (\.\.\.)
  1631.   BS    (\\)
  1632. ***************
  1633. *** 247,253 ****
  1634.       return handle_string (yytext[0], true);
  1635.     }
  1636.   
  1637. ! <TEXT_FCN>[^ \t\n\;\,\"\'][^ \t\n\;\,]*{S}* {
  1638.       string tok = strip_trailing_whitespace (yytext);
  1639.       TOK_PUSH_AND_RETURN (tok, TEXT);
  1640.     }
  1641. --- 249,255 ----
  1642.       return handle_string (yytext[0], true);
  1643.     }
  1644.   
  1645. ! <TEXT_FCN>[^ \t\r\n\;\,\"\'][^ \t\r\n\;\,]*{S}* {
  1646.       string tok = strip_trailing_whitespace (yytext);
  1647.       TOK_PUSH_AND_RETURN (tok, TEXT);
  1648.     }
  1649. ***************
  1650. *** 568,574 ****
  1651.       else
  1652.         {
  1653.       int c;
  1654. !     while ((c = yyinput ()) != EOF && c != '\n')
  1655.         ; // Eat comment.
  1656.         }
  1657.   
  1658. --- 570,576 ----
  1659.       else
  1660.         {
  1661.       int c;
  1662. !     while ((c = yyinput ()) != EOF && c != '\n' && c != '\r' && c != '')
  1663.         ; // Eat comment.
  1664.         }
  1665.   
  1666. ***************
  1667. *** 757,763 ****
  1668.   
  1669.     // Only ask for input from stdin if we are expecting interactive
  1670.     // input.
  1671. !   if ((interactive || forced_interactive)
  1672.         && ! (reading_fcn_file || get_input_from_eval_string
  1673.           || input_from_startup_file))
  1674.       yyrestart (stdin);
  1675. --- 759,765 ----
  1676.   
  1677.     // Only ask for input from stdin if we are expecting interactive
  1678.     // input.
  1679. !   if ((interactive || forced_interactive || really_forced_interactive)
  1680.         && ! (reading_fcn_file || get_input_from_eval_string
  1681.           || input_from_startup_file))
  1682.       yyrestart (stdin);
  1683. ***************
  1684. *** 778,784 ****
  1685.     char c;
  1686.     while ((c = *s++) != '\0')
  1687.       {
  1688. !       if (c == '\n')
  1689.         current_input_column = 1;
  1690.         else
  1691.       current_input_column++;
  1692. --- 780,786 ----
  1693.     char c;
  1694.     while ((c = *s++) != '\0')
  1695.       {
  1696. !       if (c == '\n' || c == '\r' || c == '')
  1697.         current_input_column = 1;
  1698.         else
  1699.       current_input_column++;
  1700. ***************
  1701. *** 1180,1186 ****
  1702.   
  1703.     bool begin_comment = true;
  1704.     bool in_comment = true;
  1705. !   int c = 0;
  1706.   
  1707.     while ((c = yyinput ()) != EOF)
  1708.       {
  1709. --- 1182,1188 ----
  1710.   
  1711.     bool begin_comment = true;
  1712.     bool in_comment = true;
  1713. !   int c = 0, d, ct;
  1714.   
  1715.     while ((c = yyinput ()) != EOF)
  1716.       {
  1717. ***************
  1718. *** 1194,1205 ****
  1719.   
  1720.         if (in_comment)
  1721.       {
  1722. !       help_buf += (char) c;
  1723.   
  1724. -       if (c == '\n')
  1725.           in_comment = false;
  1726.       }
  1727.         else
  1728.       {
  1729.         switch (c)
  1730.           {
  1731. --- 1196,1225 ----
  1732.   
  1733.         if (in_comment)
  1734.       {
  1735. !       if (c == '\n' || c == '\r' || c == '')
  1736. !         {
  1737. !           ct = 0;
  1738. !           d  = c;
  1739. ! 
  1740. !           do
  1741. !         {
  1742. !           if (d == '\n' || d == '')
  1743. !             {
  1744. !               if (++ct > 1)  break;
  1745. !               help_buf += (char) '\n';
  1746. !             }
  1747. !         }
  1748. !           while (((d = yyinput ()) != EOF) &&
  1749. !              (d == '\n' || d == '\r' || d == ''));
  1750. ! 
  1751. !           if (d != EOF)  yyunput (d, yytext);
  1752.   
  1753.           in_comment = false;
  1754.       }
  1755.         else
  1756. +         help_buf += (char) c;
  1757. +     }
  1758. +       else
  1759.       {
  1760.         switch (c)
  1761.           {
  1762. ***************
  1763. *** 1278,1284 ****
  1764.       unput (c2);
  1765.       }
  1766.     else
  1767. !     retval = match_any (c1, ",;\n]");
  1768.   
  1769.     unput (c1);
  1770.   
  1771. --- 1298,1304 ----
  1772.       unput (c2);
  1773.       }
  1774.     else
  1775. !     retval = match_any (c1, ",;\n\r]");
  1776.   
  1777.     unput (c1);
  1778.   
  1779. ***************
  1780. *** 1468,1473 ****
  1781. --- 1488,1495 ----
  1782.         retval |= ATE_SPACE_OR_TAB;
  1783.         break;
  1784.   
  1785. +     case '':
  1786. +     case '\r':
  1787.       case '\n':
  1788.         retval |= ATE_NEWLINE;
  1789.         in_comment = false;
  1790. ***************
  1791. *** 1600,1605 ****
  1792. --- 1622,1628 ----
  1793.           goto cleanup;
  1794.         break;
  1795.   
  1796. +     case '':
  1797.       case '\n':
  1798.         current_input_column = 0;
  1799.         promptflag--;
  1800. ***************
  1801. *** 1720,1726 ****
  1802.         if (! have_ellipsis_continuation (false))
  1803.           buf << (char) c;
  1804.       }
  1805. !       else if (c == '\n')
  1806.       {
  1807.         error ("unterminated string constant");
  1808.         break;
  1809. --- 1743,1749 ----
  1810.         if (! have_ellipsis_continuation (false))
  1811.           buf << (char) c;
  1812.       }
  1813. !       else if (c == '\n' || c == '\r' || c == '')
  1814.       {
  1815.         error ("unterminated string constant");
  1816.         break;
  1817. ***************
  1818. *** 2133,2138 ****
  1819. --- 2156,2163 ----
  1820.       case ',':
  1821.         break;
  1822.   
  1823. +     case '':
  1824. +     case '\r':
  1825.       case '\n':
  1826.         if (in_comment)
  1827.           in_comment = false;
  1828. diff -cwr n:/project/C/octave-2.1.23.orig/src/mappers.cc i:/project/C/octave-2.1.23/src/mappers.cc
  1829. *** n:/project/C/octave-2.1.23.orig/src/mappers.cc    Wed Dec 15 21:48:44 1999
  1830. --- i:/project/C/octave-2.1.23/src/mappers.cc    Fri Dec 24 15:36:04 1999
  1831. ***************
  1832. *** 20,25 ****
  1833. --- 20,27 ----
  1834.   
  1835.   */
  1836.   
  1837. + /* Modified by Klaus Gebhardt, 1999 */
  1838. + 
  1839.   #ifdef HAVE_CONFIG_H
  1840.   #include <config.h>
  1841.   #endif
  1842. ***************
  1843. *** 160,166 ****
  1844.   acos (X): compute the inverse cosine of X for each element of X\n\
  1845.   @end deftypefn");
  1846.   
  1847. !   DEFUN_MAPPER (acosh, 0, 0, 0, acosh, 0, acosh, 1.0, DBL_MAX, 1,
  1848.       "-*- texinfo -*-\n\
  1849.   @deftypefn {Mapping Function} {} acosh (@var{X})\n\
  1850.   acosh (X): compute the inverse hyperbolic cosine of X for each element of X.\n\
  1851. --- 162,168 ----
  1852.   acos (X): compute the inverse cosine of X for each element of X\n\
  1853.   @end deftypefn");
  1854.   
  1855. !   DEFUN_MAPPER (acosh, 0, 0, 0, xacosh, 0, acosh, 1.0, DBL_MAX, 1,
  1856.       "-*- texinfo -*-\n\
  1857.   @deftypefn {Mapping Function} {} acosh (@var{X})\n\
  1858.   acosh (X): compute the inverse hyperbolic cosine of X for each element of X.\n\
  1859. ***************
  1860. *** 201,207 ****
  1861.   asin (X): compute inverse sin (X) for each element of X\n\
  1862.   @end deftypefn");
  1863.   
  1864. !   DEFUN_MAPPER (asinh, 0, 0, 0, asinh, 0, asinh, 0.0, 0.0, 0,
  1865.       "-*- texinfo -*-\n\
  1866.   @deftypefn {Mapping Function} {} asinh (@var{X})\n\
  1867.   asinh (X): compute the inverse hyperbolic sin (X) for each element of X\n\
  1868. --- 203,209 ----
  1869.   asin (X): compute inverse sin (X) for each element of X\n\
  1870.   @end deftypefn");
  1871.   
  1872. !   DEFUN_MAPPER (asinh, 0, 0, 0, xasinh, 0, asinh, 0.0, 0.0, 0,
  1873.       "-*- texinfo -*-\n\
  1874.   @deftypefn {Mapping Function} {} asinh (@var{X})\n\
  1875.   asinh (X): compute the inverse hyperbolic sin (X) for each element of X\n\
  1876. ***************
  1877. *** 213,219 ****
  1878.   atan (X): compute the inverse tangent of (X) for each element of X\n\
  1879.   @end deftypefn");
  1880.   
  1881. !   DEFUN_MAPPER (atanh, 0, 0, 0, atanh, 0, atanh, -1.0, 1.0, 1,
  1882.       "-*- texinfo -*-\n\
  1883.   @deftypefn {Mapping Function} {} atanh (@var{X})\n\
  1884.   atanh (X): compute the inverse hyperbolic tanget of X for each element of X\n\
  1885. --- 215,221 ----
  1886.   atan (X): compute the inverse tangent of (X) for each element of X\n\
  1887.   @end deftypefn");
  1888.   
  1889. !   DEFUN_MAPPER (atanh, 0, 0, 0, xatanh, 0, atanh, -1.0, 1.0, 1,
  1890.       "-*- texinfo -*-\n\
  1891.   @deftypefn {Mapping Function} {} atanh (@var{X})\n\
  1892.   atanh (X): compute the inverse hyperbolic tanget of X for each element of X\n\
  1893. diff -cwr n:/project/C/octave-2.1.23.orig/src/mkbuiltins i:/project/C/octave-2.1.23/src/mkbuiltins
  1894. *** n:/project/C/octave-2.1.23.orig/src/mkbuiltins    Sat Nov 20 04:05:44 1999
  1895. --- i:/project/C/octave-2.1.23/src/mkbuiltins    Fri Dec 24 13:35:58 1999
  1896. ***************
  1897. *** 56,62 ****
  1898.   for file in $DEF_FILES; do
  1899.     fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'`
  1900.     echo "static void"
  1901. !   echo "install_${fcn}_fcns (void)"
  1902.     echo "{"
  1903.     cat $file
  1904.     echo "}"
  1905. --- 56,62 ----
  1906.   for file in $DEF_FILES; do
  1907.     fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'`
  1908.     echo "static void"
  1909. !   echo "install_${fcn##*/}_fcns (void)"
  1910.     echo "{"
  1911.     cat $file
  1912.     echo "}"
  1913. ***************
  1914. *** 65,71 ****
  1915.   
  1916.   for file in $VAR_FILES; do
  1917.     f=`echo $file | sed 's,^\./,,; s/-/_/g'`
  1918. !   echo "extern void symbols_of_${f} (void);"
  1919.   done
  1920.   
  1921.   cat << \EOF
  1922. --- 65,71 ----
  1923.   
  1924.   for file in $VAR_FILES; do
  1925.     f=`echo $file | sed 's,^\./,,; s/-/_/g'`
  1926. !   echo "extern void symbols_of_${f##*/} (void);"
  1927.   done
  1928.   
  1929.   cat << \EOF
  1930. ***************
  1931. *** 77,83 ****
  1932.   
  1933.   for file in $VAR_FILES; do
  1934.     f=`echo $file | sed 's,^\./,,; s/-/_/g'`
  1935. !   echo "  symbols_of_${f} ();"
  1936.   done
  1937.   
  1938.   cat << \EOF
  1939. --- 77,83 ----
  1940.   
  1941.   for file in $VAR_FILES; do
  1942.     f=`echo $file | sed 's,^\./,,; s/-/_/g'`
  1943. !   echo "  symbols_of_${f##*/} ();"
  1944.   done
  1945.   
  1946.   cat << \EOF
  1947. ***************
  1948. *** 90,96 ****
  1949.   
  1950.   for file in $DEF_FILES; do
  1951.     fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'`
  1952. !   echo "  install_${fcn}_fcns ();"
  1953.   done
  1954.   
  1955.   cat << \EOF
  1956. --- 90,96 ----
  1957.   
  1958.   for file in $DEF_FILES; do
  1959.     fcn=`echo $file | sed 's,^\./,,; s/\.df//; s/-/_/g'`
  1960. !   echo "  install_${fcn##*/}_fcns ();"
  1961.   done
  1962.   
  1963.   cat << \EOF
  1964. diff -cwr n:/project/C/octave-2.1.23.orig/src/mkops i:/project/C/octave-2.1.23/src/mkops
  1965. *** n:/project/C/octave-2.1.23.orig/src/mkops    Sat Dec  5 00:20:22 1998
  1966. --- i:/project/C/octave-2.1.23/src/mkops    Fri Dec 24 13:35:58 1999
  1967. ***************
  1968. *** 13,19 ****
  1969.   
  1970.   for file in "$@"; do
  1971.     f=`echo $file | sed 's,^\./,,; s%^OPERATORS/op-%%; s%\.cc%%; s%-%_%g'`
  1972. !   echo "extern void install_${f}_ops (void);"
  1973.   done
  1974.   
  1975.   cat << \EOF
  1976. --- 13,19 ----
  1977.   
  1978.   for file in "$@"; do
  1979.     f=`echo $file | sed 's,^\./,,; s%^OPERATORS/op-%%; s%\.cc%%; s%-%_%g'`
  1980. !   echo "extern void install_${f#op_}_ops (void);"
  1981.   done
  1982.   
  1983.   cat << \EOF
  1984. ***************
  1985. *** 27,33 ****
  1986.   
  1987.   for file in "$@"; do
  1988.     f=`echo $file | sed 's,^\./,,; s%^OPERATORS/op-%%; s%\.cc%%; s%-%_%g'`
  1989. !   echo "  install_${f}_ops ();"
  1990.   done
  1991.   
  1992.   cat << \EOF
  1993. --- 27,33 ----
  1994.   
  1995.   for file in "$@"; do
  1996.     f=`echo $file | sed 's,^\./,,; s%^OPERATORS/op-%%; s%\.cc%%; s%-%_%g'`
  1997. !   echo "  install_${f#op_}_ops ();"
  1998.   done
  1999.   
  2000.   cat << \EOF
  2001. diff -cwr n:/project/C/octave-2.1.23.orig/src/oct-hist.cc i:/project/C/octave-2.1.23/src/oct-hist.cc
  2002. *** n:/project/C/octave-2.1.23.orig/src/oct-hist.cc    Tue Nov 23 21:54:28 1999
  2003. --- i:/project/C/octave-2.1.23/src/oct-hist.cc    Fri Dec 24 13:35:58 1999
  2004. ***************
  2005. *** 31,36 ****
  2006. --- 31,38 ----
  2007.   
  2008.   */
  2009.   
  2010. + /* Modified by Klaus Gebhardt, 1996 */
  2011. + 
  2012.   #ifdef HAVE_CONFIG_H
  2013.   #include <config.h>
  2014.   #endif
  2015. ***************
  2016. *** 72,77 ****
  2017. --- 74,87 ----
  2018.   #include "utils.h"
  2019.   #include "variables.h"
  2020.   
  2021. + #ifdef __EMX__
  2022. + extern "C"
  2023. + {
  2024. + #include <process.h>
  2025. +   int _IO_system (const char *, int);
  2026. + }
  2027. + #endif
  2028. + 
  2029.   // TRUE means input is coming from temporary history file.
  2030.   bool input_from_tmp_history_file = false;
  2031.   
  2032. ***************
  2033. *** 303,309 ****
  2034.   
  2035.             int cmd_len = cmd.length ();
  2036.   
  2037. !           if (cmd[cmd_len - 1] == '\n')
  2038.           cmd.resize (cmd_len - 1);
  2039.   
  2040.             if (! cmd.empty ())
  2041. --- 313,320 ----
  2042.   
  2043.             int cmd_len = cmd.length ();
  2044.   
  2045. !           if (cmd[cmd_len - 1] == '\n' || cmd[cmd_len - 1] == '\r'
  2046. !           || cmd[cmd_len - 1] == '')
  2047.           cmd.resize (cmd_len - 1);
  2048.   
  2049.             if (! cmd.empty ())
  2050. ***************
  2051. *** 322,328 ****
  2052.   
  2053.         int len = tmp.length ();
  2054.       
  2055. !       if (len > 0 && tmp[len-1] == '\n')
  2056.       tmp.resize (len - 1);
  2057.   
  2058.         if (! tmp.empty ())
  2059. --- 333,340 ----
  2060.   
  2061.         int len = tmp.length ();
  2062.       
  2063. !       if (len > 0 &&
  2064. !       (tmp[len-1] == '\n' || tmp[len-1] == '\r' || tmp[len-1] == ''))
  2065.       tmp.resize (len - 1);
  2066.   
  2067.         if (! tmp.empty ())
  2068. ***************
  2069. *** 450,456 ****
  2070. --- 462,472 ----
  2071.     volatile octave_interrupt_handler old_interrupt_handler
  2072.       = octave_ignore_interrupts ();
  2073.   
  2074. + #ifdef __EMX__
  2075. +   _IO_system (cmd.c_str (), P_WAIT);
  2076. + #else
  2077.     system (cmd.c_str ());
  2078. + #endif
  2079.   
  2080.     octave_set_interrupt_handler (old_interrupt_handler);
  2081.   
  2082. diff -cwr n:/project/C/octave-2.1.23.orig/src/oct-stream.cc i:/project/C/octave-2.1.23/src/oct-stream.cc
  2083. *** n:/project/C/octave-2.1.23.orig/src/oct-stream.cc    Fri Nov  5 17:55:18 1999
  2084. --- i:/project/C/octave-2.1.23/src/oct-stream.cc    Sat Dec 25 16:26:22 1999
  2085. ***************
  2086. *** 20,25 ****
  2087. --- 20,27 ----
  2088.   
  2089.   */
  2090.   
  2091. + /* Modified by Klaus Gebhardt, 1999 */
  2092. + 
  2093.   #ifdef HAVE_CONFIG_H
  2094.   #include <config.h>
  2095.   #endif
  2096. ***************
  2097. *** 30,35 ****
  2098. --- 32,38 ----
  2099.   #include <iomanip.h>
  2100.   #include <strstream.h>
  2101.   
  2102. + #include "file-ops.h"
  2103.   #include "lo-ieee.h"
  2104.   #include "lo-mappers.h"
  2105.   #include "lo-utils.h"
  2106. ***************
  2107. *** 762,767 ****
  2108. --- 765,781 ----
  2109.   }
  2110.   
  2111.   void
  2112. + octave_base_stream::close (void)
  2113. + {
  2114. +   int status = file_ops::close (file_number ());
  2115. +   if (status >= 0)  open_state = false;
  2116. + }
  2117. + 
  2118. + 
  2119. + 
  2120. + 
  2121. + 
  2122. + void
  2123.   octave_base_stream::error (const string& msg)
  2124.   {
  2125.     fail = true;
  2126. ***************
  2127. *** 1273,1279 ****
  2128.   
  2129.             // XXX FIXME XXX -- is this the right thing to do?
  2130.   
  2131. !           if (interactive && name () == "stdin")
  2132.               {
  2133.                 is.clear ();
  2134.   
  2135. --- 1287,1293 ----
  2136.   
  2137.             // XXX FIXME XXX -- is this the right thing to do?
  2138.   
  2139. !           if ((interactive || really_forced_interactive) && name () == "stdin")
  2140.               {
  2141.                 is.clear ();
  2142.   
  2143. ***************
  2144. *** 1353,1359 ****
  2145.   
  2146.               // XXX FIXME XXX -- is this the right thing to do?
  2147.   
  2148. !             if (interactive && name () == "stdin")
  2149.                 {
  2150.               is.clear ();
  2151.   
  2152. --- 1367,1373 ----
  2153.   
  2154.               // XXX FIXME XXX -- is this the right thing to do?
  2155.   
  2156. !             if ((interactive || really_forced_interactive) && name () == "stdin")
  2157.                 {
  2158.               is.clear ();
  2159.   
  2160. ***************
  2161. *** 1536,1542 ****
  2162.         
  2163.         // XXX FIXME XXX -- is this the right thing to do?
  2164.   
  2165. !       if (interactive && name () == "stdin")
  2166.           {
  2167.             is.clear ();
  2168.   
  2169. --- 1550,1556 ----
  2170.         
  2171.         // XXX FIXME XXX -- is this the right thing to do?
  2172.   
  2173. !       if ((interactive || really_forced_interactive) && name () == "stdin")
  2174.           {
  2175.             is.clear ();
  2176.   
  2177. ***************
  2178. *** 1588,1594 ****
  2179.   
  2180.               // XXX FIXME XXX -- is this the right thing to do?
  2181.   
  2182. !             if (interactive && name () == "stdin")
  2183.                 {
  2184.               is.clear ();
  2185.   
  2186. --- 1602,1608 ----
  2187.   
  2188.               // XXX FIXME XXX -- is this the right thing to do?
  2189.   
  2190. !             if ((interactive || really_forced_interactive) && name () == "stdin")
  2191.                 {
  2192.               is.clear ();
  2193.   
  2194. ***************
  2195. *** 1923,1928 ****
  2196. --- 1937,1943 ----
  2197.   template void
  2198.   do_printf_conv (ostream&, const char*, int, int, int, bool, const char*);
  2199.   
  2200. + 
  2201.   int
  2202.   octave_base_stream::do_printf (printf_format_list& fmt_list,
  2203.                      const octave_value_list& args)
  2204. ***************
  2205. *** 2870,2877 ****
  2206.     ostrstream buf;
  2207.   
  2208.     buf << "\n"
  2209. !       << "  number  mode  arch       name\n"
  2210. !       << "  ------  ----  ----       ----\n";
  2211.   
  2212.     for (int i = 0; i < curr_len; i++)
  2213.       {
  2214. --- 2885,2892 ----
  2215.     ostrstream buf;
  2216.   
  2217.     buf << "\n"
  2218. !       << "  number  file handle  mode  arch       name\n"
  2219. !       << "  ------  -----------  ----  ----       ----\n";
  2220.   
  2221.     for (int i = 0; i < curr_len; i++)
  2222.       {
  2223. ***************
  2224. *** 2889,2894 ****
  2225. --- 2904,2910 ----
  2226.         buf << "  "
  2227.             << setiosflags (ios::right)
  2228.             << setw (4) << i << "     "
  2229. +           << setw (8) << os.file_number () << "     "
  2230.             << setiosflags (ios::left)
  2231.             << setw (3) << mode.c_str () << "  "
  2232.             << setw (9) << arch.c_str () << "  "
  2233. diff -cwr n:/project/C/octave-2.1.23.orig/src/oct-stream.h i:/project/C/octave-2.1.23/src/oct-stream.h
  2234. *** n:/project/C/octave-2.1.23.orig/src/oct-stream.h    Fri Nov  5 09:11:58 1999
  2235. --- i:/project/C/octave-2.1.23/src/oct-stream.h    Sat Dec 25 13:53:04 1999
  2236. ***************
  2237. *** 20,25 ****
  2238. --- 20,27 ----
  2239.   
  2240.   */
  2241.   
  2242. + /* Modified by Klaus Gebhardt, 1999 */
  2243. + 
  2244.   #if !defined (octave_octave_stream_h)
  2245.   #define octave_octave_stream_h 1
  2246.   
  2247. ***************
  2248. *** 32,37 ****
  2249. --- 34,43 ----
  2250.   class ostream;
  2251.   class ostrstream;
  2252.   
  2253. + #ifdef __EMX__
  2254. + #include <iostream.h>
  2255. + #endif
  2256. + 
  2257.   #include <string>
  2258.   
  2259.   #include "Array.h"
  2260. ***************
  2261. *** 262,268 ****
  2262.   
  2263.     bool is_open (void) const { return open_state; }
  2264.   
  2265. !   void close (void) { open_state = false; }
  2266.   
  2267.     int file_number (void);
  2268.   
  2269. --- 268,274 ----
  2270.   
  2271.     bool is_open (void) const { return open_state; }
  2272.   
  2273. !   void close (void);
  2274.   
  2275.     int file_number (void);
  2276.   
  2277. diff -cwr n:/project/C/octave-2.1.23.orig/src/octave.cc i:/project/C/octave-2.1.23/src/octave.cc
  2278. *** n:/project/C/octave-2.1.23.orig/src/octave.cc    Fri Oct 29 22:39:24 1999
  2279. --- i:/project/C/octave-2.1.23/src/octave.cc    Fri Dec 24 18:58:02 1999
  2280. ***************
  2281. *** 22,27 ****
  2282. --- 22,29 ----
  2283.   
  2284.   // Born February 20, 1992.
  2285.   
  2286. + /* Modified by Klaus Gebhardt, 1996 */
  2287. + 
  2288.   #ifdef HAVE_CONFIG_H
  2289.   #include <config.h>
  2290.   #endif
  2291. ***************
  2292. *** 43,48 ****
  2293. --- 45,55 ----
  2294.   #include <unistd.h>
  2295.   #endif
  2296.   
  2297. + #ifdef __EMX__
  2298. + #include <float.h>
  2299. + #include <sys/uflags.h>
  2300. + #endif
  2301. + 
  2302.   #include "cmd-edit.h"
  2303.   #include "file-stat.h"
  2304.   #include "lo-error.h"
  2305. ***************
  2306. *** 104,110 ****
  2307.   
  2308.   // Usage message
  2309.   static const char *usage_string = 
  2310. !   "octave [-?HVdfhiqvx] [--debug] [--echo-commands] [--exec-path path]\n\
  2311.          [--help] [--info-file file] [--info-program prog] [--interactive]\n\
  2312.          [--no-history] [--no-init-file] [--no-line-editing] [--no-site-file]\n\
  2313.          [-p path] [--path path] [--silent] [--traditional] [--verbose]\n\
  2314. --- 111,117 ----
  2315.   
  2316.   // Usage message
  2317.   static const char *usage_string = 
  2318. !   "octave [-?HVdfhiIqvx] [--debug] [--echo-commands] [--exec-path path]\n\
  2319.          [--help] [--info-file file] [--info-program prog] [--interactive]\n\
  2320.          [--no-history] [--no-init-file] [--no-line-editing] [--no-site-file]\n\
  2321.          [-p path] [--path path] [--silent] [--traditional] [--verbose]\n\
  2322. ***************
  2323. *** 113,119 ****
  2324.   // This is here so that it's more likely that the usage message and
  2325.   // the real set of options will agree.  Note: the `+' must come first
  2326.   // to prevent getopt from permuting arguments!
  2327. ! static const char *short_opts = "+?HVdfhip:qvx";
  2328.   
  2329.   // Long options.  See the comments in getopt.h for the meanings of the
  2330.   // fields in this structure.
  2331. --- 120,126 ----
  2332.   // This is here so that it's more likely that the usage message and
  2333.   // the real set of options will agree.  Note: the `+' must come first
  2334.   // to prevent getopt from permuting arguments!
  2335. ! static const char *short_opts = "+?HVdfhiIp:qvx";
  2336.   
  2337.   // Long options.  See the comments in getopt.h for the meanings of the
  2338.   // fields in this structure.
  2339. ***************
  2340. *** 184,190 ****
  2341.       odb = octave_env::getenv ("OCTAVE_DB_DIR");
  2342.   
  2343.     if (odb.empty ())
  2344. !     odb = Vdata_dir + string ("/octave:") + Vlibexec_dir + string ("/octave");
  2345.   
  2346.     octave_env::putenv ("TEXMFDBS", odb);
  2347.   }
  2348. --- 191,198 ----
  2349.       odb = octave_env::getenv ("OCTAVE_DB_DIR");
  2350.   
  2351.     if (odb.empty ())
  2352. !     odb = Vdata_dir + string ("/octave") + string (SEPCHAR_STR)
  2353. !       + Vlibexec_dir + string ("/octave");
  2354.   
  2355.     octave_env::putenv ("TEXMFDBS", odb);
  2356.   }
  2357. ***************
  2358. *** 277,282 ****
  2359. --- 285,291 ----
  2360.     --info-file FILE        Use top-level info file FILE.\n\
  2361.     --info-program PROGRAM  Use PROGRAM for reading info files.\n\
  2362.     --interactive, -i       Force interactive behavior.\n\
  2363. +   -I                      Force really interactive behavior, but no pager.\n\
  2364.     --no-history, -H        Don't save commands to the history list\n\
  2365.     --no-init-file          Don't read the ~/.octaverc or .octaverc files.\n\
  2366.     --no-line-editing       Don't use readline for command-line editing.\n\
  2367. ***************
  2368. *** 418,423 ****
  2369. --- 427,436 ----
  2370.         forced_interactive = true;
  2371.         break;
  2372.   
  2373. +     case 'I':
  2374. +       really_forced_interactive = true;
  2375. +       break;
  2376. + 
  2377.       case 'p':
  2378.         if (args.optarg ())
  2379.           bind_builtin_variable ("LOADPATH", args.optarg ());
  2380. ***************
  2381. *** 501,506 ****
  2382. --- 514,526 ----
  2383.     if (! inhibit_startup_message && reading_startup_message_printed)
  2384.       cout << endl;
  2385.   
  2386. + #if defined (__EMX__)
  2387. +   _control87 (EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW |
  2388. +           EM_UNDERFLOW | EM_INEXACT, MCW_EM);
  2389. + 
  2390. +   _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  2391. + #endif
  2392. + 
  2393.     // Avoid counting commands executed from startup files.
  2394.   
  2395.     command_editor::reset_current_command_number (1);
  2396. ***************
  2397. *** 560,576 ****
  2398.     // Force input to be echoed if not really interactive, but the user
  2399.     // has forced interactive behavior.
  2400.   
  2401. !   if (! interactive && forced_interactive)
  2402.       {
  2403.         command_editor::blink_matching_paren (false);
  2404.   
  2405.         // XXX FIXME XXX -- is this the right thing to do?
  2406.   
  2407.         bind_builtin_variable ("echo_executing_commands",
  2408.                    static_cast<double> (ECHO_CMD_LINE));
  2409.       }
  2410.   
  2411. !   if (! interactive)
  2412.       line_editing = false;
  2413.   
  2414.     int retval = main_loop ();
  2415. --- 580,598 ----
  2416.     // Force input to be echoed if not really interactive, but the user
  2417.     // has forced interactive behavior.
  2418.   
  2419. !   if (! interactive && (forced_interactive || really_forced_interactive))
  2420.       {
  2421.         command_editor::blink_matching_paren (false);
  2422.   
  2423.         // XXX FIXME XXX -- is this the right thing to do?
  2424.   
  2425. + #if ! defined (__EMX__)
  2426.         bind_builtin_variable ("echo_executing_commands",
  2427.                    static_cast<double> (ECHO_CMD_LINE));
  2428. + #endif
  2429.       }
  2430.   
  2431. !   if (! (interactive || really_forced_interactive))
  2432.       line_editing = false;
  2433.   
  2434.     int retval = main_loop ();
  2435. diff -cwr n:/project/C/octave-2.1.23.orig/src/OPERATORS/op-str-str.cc i:/project/C/octave-2.1.23/src/OPERATORS/op-str-str.cc
  2436. *** n:/project/C/octave-2.1.23.orig/src/OPERATORS/op-str-str.cc    Fri Oct 30 21:26:30 1998
  2437. --- i:/project/C/octave-2.1.23/src/OPERATORS/op-str-str.cc    Fri Dec 24 13:36:00 1999
  2438. ***************
  2439. *** 20,25 ****
  2440. --- 20,27 ----
  2441.   
  2442.   */
  2443.   
  2444. + /* Modified by Klaus Gebhardt, 1997 */
  2445. + 
  2446.   #if defined (__GNUG__)
  2447.   #pragma implementation
  2448.   #endif
  2449. ***************
  2450. *** 58,77 ****
  2451.         if (cm2.rows () == 1 && cm2.columns () == 1)
  2452.       return octave_value (cm1 (0, 0) == cm2 (0, 0));
  2453.         else
  2454. !     SC_MX_BOOL_OP (char, c, cm1 (0, 0), charMatrix, m, cm2,
  2455.                  c == m (i, j), 0.0);
  2456.       }
  2457.     else
  2458.       {
  2459. !       int cm2_nr = cm2.rows ();
  2460. !       int cm2_nc = cm2.cols ();
  2461. ! 
  2462. !       if (cm2_nr == 1 && cm2_nc == 1)
  2463. !     MX_SC_BOOL_OP (charMatrix, m, cm1, char, c, cm2 (0, 0),
  2464.                  c == m (i, j), 0.0);
  2465.         else
  2466. !     MX_MX_BOOL_OP (charMatrix, m1, cm1, charMatrix, m2, cm2,
  2467. !                m1 (i, j) == m2 (i, j), "==", 0.0, 1.0);
  2468.       }
  2469.   }
  2470.   
  2471. --- 60,80 ----
  2472.         if (cm2.rows () == 1 && cm2.columns () == 1)
  2473.       return octave_value (cm1 (0, 0) == cm2 (0, 0));
  2474.         else
  2475. !     SC_MX_BOOL_OP (char, c, cm1 (0, 0), \
  2476. !                charMatrix, m, cm2, \
  2477.                  c == m (i, j), 0.0);
  2478.       }
  2479.     else
  2480.       {
  2481. !       if (cm2.rows () == 1 && cm2.columns () == 1)
  2482. !     MX_SC_BOOL_OP (charMatrix, m, cm1, \
  2483. !                char, c, cm2 (0, 0), \
  2484.                  c == m (i, j), 0.0);
  2485.         else
  2486. !     MX_MX_BOOL_OP (charMatrix, m1, cm1, \
  2487. !                charMatrix, m2, cm2, \
  2488. !                m1 (i, j) == m2 (i, j), \
  2489. !                "==", 0.0, 1.0);
  2490.       }
  2491.   }
  2492.   
  2493. diff -cwr n:/project/C/octave-2.1.23.orig/src/pager.cc i:/project/C/octave-2.1.23/src/pager.cc
  2494. *** n:/project/C/octave-2.1.23.orig/src/pager.cc    Tue Nov 23 21:54:28 1999
  2495. --- i:/project/C/octave-2.1.23/src/pager.cc    Fri Dec 24 13:36:00 1999
  2496. ***************
  2497. *** 20,25 ****
  2498. --- 20,27 ----
  2499.   
  2500.   */
  2501.   
  2502. + /* Modified by Klaus Gebhardt, 1996 */
  2503. + 
  2504.   #ifdef HAVE_CONFIG_H
  2505.   #include <config.h>
  2506.   #endif
  2507. ***************
  2508. *** 221,227 ****
  2509.   int
  2510.   octave_pager_buf::sync (void)
  2511.   {
  2512. !   if (! interactive
  2513.         || really_flush_to_pager
  2514.         || (Vpage_screen_output && Vpage_output_immediately)
  2515.         || ! Vpage_screen_output)
  2516. --- 223,229 ----
  2517.   int
  2518.   octave_pager_buf::sync (void)
  2519.   {
  2520. !   if ((! interactive || really_forced_interactive)
  2521.         || really_flush_to_pager
  2522.         || (Vpage_screen_output && Vpage_output_immediately)
  2523.         || ! Vpage_screen_output)
  2524. ***************
  2525. *** 230,236 ****
  2526.   
  2527.         int len = pptr () - buf;
  2528.   
  2529. !       bool bypass_pager = (! interactive
  2530.                  || ! Vpage_screen_output
  2531.                  || (really_flush_to_pager
  2532.                      && Vpage_screen_output
  2533. --- 232,238 ----
  2534.   
  2535.         int len = pptr () - buf;
  2536.   
  2537. !       bool bypass_pager = ((! interactive || really_forced_interactive)
  2538.                  || ! Vpage_screen_output
  2539.                  || (really_flush_to_pager
  2540.                      && Vpage_screen_output
  2541. diff -cwr n:/project/C/octave-2.1.23.orig/src/parse.y i:/project/C/octave-2.1.23/src/parse.y
  2542. *** n:/project/C/octave-2.1.23.orig/src/parse.y    Thu Dec 16 05:51:46 1999
  2543. --- i:/project/C/octave-2.1.23/src/parse.y    Sat Dec 25 10:50:00 1999
  2544. ***************
  2545. *** 20,25 ****
  2546. --- 20,27 ----
  2547.   
  2548.   */
  2549.   
  2550. + /* Modified by Klaus Gebhardt, 1996 */
  2551. + 
  2552.   // Parser for Octave.
  2553.   
  2554.   // C decarations.
  2555. ***************
  2556. *** 40,45 ****
  2557. --- 42,49 ----
  2558.   
  2559.   #include <strstream.h>
  2560.   
  2561. + #include <setjmp.h>
  2562. + 
  2563.   #include "Matrix.h"
  2564.   #include "cmd-edit.h"
  2565.   #include "cmd-hist.h"
  2566. ***************
  2567. *** 57,68 ****
  2568. --- 61,76 ----
  2569.   #include "pager.h"
  2570.   #include "parse.h"
  2571.   #include "pt-all.h"
  2572. + #include "sighandlers.h"
  2573.   #include "symtab.h"
  2574.   #include "token.h"
  2575.   #include "unwind-prot.h"
  2576.   #include "utils.h"
  2577.   #include "variables.h"
  2578.   
  2579. + // Top level context (?)
  2580. + extern jmp_buf toplevel;
  2581. + 
  2582.   // TRUE means we print 
  2583.   static bool Vdefault_eval_print_flag = true;
  2584.   
  2585. ***************
  2586. *** 283,289 ****
  2587.       { \
  2588.         global_command = 0; \
  2589.         yyerrok; \
  2590. !       if (interactive || forced_interactive) \
  2591.       YYACCEPT; \
  2592.         else \
  2593.       YYABORT; \
  2594. --- 291,297 ----
  2595.       { \
  2596.         global_command = 0; \
  2597.         yyerrok; \
  2598. !       if (interactive || forced_interactive || really_forced_interactive) \
  2599.       YYACCEPT; \
  2600.         else \
  2601.       YYABORT; \
  2602. ***************
  2603. *** 405,411 ****
  2604.   %type <subplot_axes_type> axes
  2605.   
  2606.   // Precedence and associativity.
  2607. ! %left ';' ',' '\n'
  2608.   %right '=' ADD_EQ SUB_EQ MUL_EQ DIV_EQ LEFTDIV_EQ EMUL_EQ EDIV_EQ ELEFTDIV_EQ OR_EQ AND_EQ LSHIFT_EQ RSHIFT_EQ
  2609.   %left EXPR_AND_AND EXPR_OR_OR
  2610.   %left EXPR_AND EXPR_OR
  2611. --- 413,419 ----
  2612.   %type <subplot_axes_type> axes
  2613.   
  2614.   // Precedence and associativity.
  2615. ! %left ';' ',' '\n' '\r' ''
  2616.   %right '=' ADD_EQ SUB_EQ MUL_EQ DIV_EQ LEFTDIV_EQ EMUL_EQ EDIV_EQ ELEFTDIV_EQ OR_EQ AND_EQ LSHIFT_EQ RSHIFT_EQ
  2617.   %left EXPR_AND_AND EXPR_OR_OR
  2618.   %left EXPR_AND EXPR_OR
  2619. ***************
  2620. *** 448,457 ****
  2621. --- 456,473 ----
  2622.   
  2623.   input1        : '\n'
  2624.             { $$ = 0; }
  2625. +         | '\r'
  2626. +           { $$ = 0; }
  2627. +         | ''
  2628. +           { $$ = 0; }
  2629.           | simple_list
  2630.             { $$ = $1; }
  2631.           | simple_list '\n'
  2632.             { $$ = $1; }
  2633. +         | simple_list '\r'
  2634. +           { $$ = $1; }
  2635. +         | simple_list ''
  2636. +           { $$ = $1; }
  2637.           | simple_list END_OF_INPUT
  2638.             { $$ = $1; }
  2639.           ;
  2640. ***************
  2641. *** 1039,1050 ****
  2642. --- 1055,1068 ----
  2643.             }
  2644.           | param_list1 param_list_end
  2645.             {
  2646. +                     lexer_flags.looking_at_parameter_list = false;
  2647.               lexer_flags.quote_is_transpose = false;
  2648.               $1->mark_as_formal_parameters ();
  2649.               $$ = $1;
  2650.             }
  2651.           | param_list1 ',' ELLIPSIS param_list_end
  2652.             {
  2653. +                     lexer_flags.looking_at_parameter_list = false;
  2654.               lexer_flags.quote_is_transpose = false;
  2655.               $1->mark_as_formal_parameters ();
  2656.               $1->mark_varargs ();
  2657. ***************
  2658. *** 1367,1378 ****
  2659. --- 1385,1400 ----
  2660.             { $$ = ';'; }
  2661.           | '\n'
  2662.             { $$ = '\n'; }
  2663. +         | '\r'
  2664. +           { $$ = '\r'; }
  2665.           | sep ','
  2666.             { $$ = $1; }
  2667.           | sep ';'
  2668.             { $$ = $1; }
  2669.           | sep '\n'
  2670.             { $$ = $1; }
  2671. +         | sep '\r'
  2672. +           { $$ = $1; }
  2673.           ;
  2674.   
  2675.   opt_sep        : // empty
  2676. ***************
  2677. *** 2593,2598 ****
  2678. --- 2615,2621 ----
  2679.       case 0:
  2680.       case ',':
  2681.       case '\n':
  2682. +     case '\r':
  2683.         if (warn_missing_semi)
  2684.       maybe_warn_missing_semi (list);
  2685.         break;
  2686. ***************
  2687. *** 2606,2611 ****
  2688. --- 2629,2639 ----
  2689.   void
  2690.   parse_and_execute (FILE *f)
  2691.   {
  2692. +   volatile octave_interrupt_handler old_interrupt_handler
  2693. +     = octave_ignore_interrupts ();
  2694. + 
  2695. +   volatile jmp_buf old_toplevel = toplevel;
  2696. + 
  2697.     unwind_protect::begin_frame ("parse_and_execute");
  2698.     
  2699.     YY_BUFFER_STATE old_buf = current_buffer ();
  2700. ***************
  2701. *** 2624,2629 ****
  2702. --- 2652,2661 ----
  2703.   
  2704.     unwind_protect_ptr (curr_sym_tab);
  2705.   
  2706. +   if (setjmp(toplevel) == 0)
  2707. +   {
  2708. +   octave_set_interrupt_handler (old_interrupt_handler);
  2709. + 
  2710.     int retval;
  2711.     do
  2712.       {
  2713. ***************
  2714. *** 2661,2668 ****
  2715. --- 2693,2706 ----
  2716.       }
  2717.       }
  2718.     while (retval == 0);
  2719. +   }
  2720. +   else  error ("script execution interrupted ...");
  2721.   
  2722.     unwind_protect::run_frame ("parse_and_execute");
  2723. + 
  2724. +   octave_ignore_interrupts ();
  2725. +   toplevel = old_toplevel;
  2726. +   octave_set_interrupt_handler (old_interrupt_handler);
  2727.   }
  2728.   
  2729.   static void
  2730. ***************
  2731. *** 2675,2680 ****
  2732. --- 2713,2721 ----
  2733.   void
  2734.   parse_and_execute (const string& s, bool verbose, const char *warn_for)
  2735.   {
  2736. +   volatile octave_interrupt_handler old_interrupt_handler
  2737. +     = octave_ignore_interrupts ();
  2738. + 
  2739.     unwind_protect::begin_frame ("parse_and_execute_2");
  2740.   
  2741.     unwind_protect_bool (reading_script_file);
  2742. ***************
  2743. *** 2711,2716 ****
  2744. --- 2752,2759 ----
  2745.       error ("%s: unable to open file `%s'", warn_for, s.c_str ());
  2746.   
  2747.     unwind_protect::run_frame ("parse_and_execute_2");
  2748. + 
  2749. +   octave_set_interrupt_handler (old_interrupt_handler);
  2750.   }
  2751.   
  2752.   static bool
  2753. ***************
  2754. *** 2782,2791 ****
  2755.         if (! have_help_text)
  2756.           {
  2757.             first_comments_seen = true;
  2758. !           help_txt += (char) c;
  2759.           }
  2760.   
  2761. !       if (c == '\n')
  2762.           {
  2763.             if (update_pos)
  2764.           {
  2765. --- 2825,2846 ----
  2766.         if (! have_help_text)
  2767.           {
  2768.             first_comments_seen = true;
  2769. !               if (c == '\r')
  2770. !                 {
  2771. !                   int d = getc (ffile);
  2772. !                   if (c != '\n' && c != '\r' && c != '')
  2773. !                     help_txt += (char) '\n';
  2774. ! #if defined (EMX09C)
  2775. !                   fseek (ffile, -1l, SEEK_CUR);
  2776. ! #else
  2777. !                   ungetc (d, ffile);
  2778. ! #endif
  2779. !                 }
  2780. !               else if (c == '')  help_txt += (char) '\n';
  2781. !               else                 help_txt += (char) c;
  2782.           }
  2783.   
  2784. !       if ((c == '\n') || (c == ''))
  2785.           {
  2786.             if (update_pos)
  2787.           {
  2788. ***************
  2789. *** 2800,2807 ****
  2790.               {
  2791.                 if (update_pos)
  2792.               current_input_column--;
  2793.                 ungetc (c, ffile);
  2794. !               if (c == '\n')
  2795.               break;
  2796.               }
  2797.             else
  2798. --- 2855,2866 ----
  2799.               {
  2800.                 if (update_pos)
  2801.               current_input_column--;
  2802. + #if defined (EMX09C)
  2803. +                       fseek (ffile, -1l, SEEK_CUR);
  2804. + #else
  2805.                 ungetc (c, ffile);
  2806. ! #endif
  2807. !               if ((c == '\n') || (c == '\r') || (c == ''))
  2808.               break;
  2809.               }
  2810.             else
  2811. ***************
  2812. *** 2819,2824 ****
  2813. --- 2878,2889 ----
  2814.           have_help_text = true;
  2815.             break;
  2816.   
  2817. +             case '\r':
  2818. +               if (first_comments_seen)  have_help_text = true;
  2819. +               if (update_pos)           current_input_column = 0;
  2820. +               continue;
  2821. + 
  2822. +             case '':
  2823.           case '\n':
  2824.             if (first_comments_seen)
  2825.           have_help_text = true;
  2826. ***************
  2827. *** 2838,2844 ****
  2828. --- 2903,2913 ----
  2829.           default:
  2830.             if (update_pos)
  2831.           current_input_column--;
  2832. + #if defined (EMX09C)
  2833. +               fseek (ffile, -1l, SEEK_CUR);
  2834. + #else
  2835.             ungetc (c, ffile);
  2836. + #endif
  2837.             goto done;
  2838.           }
  2839.       }
  2840. ***************
  2841. *** 2865,2871 ****
  2842.   
  2843.     if (! path.empty ())
  2844.       {
  2845. !       FILE *fptr = fopen (path.c_str (), "r");
  2846.   
  2847.         if (fptr)
  2848.       {
  2849. --- 2934,2940 ----
  2850.   
  2851.     if (! path.empty ())
  2852.       {
  2853. !       FILE *fptr = fopen (path.c_str (), "rb");
  2854.   
  2855.         if (fptr)
  2856.       {
  2857. ***************
  2858. *** 3256,3262 ****
  2859.   
  2860.     octave_value_list tmp = eval_string (s, silent, parse_status, 1);
  2861.   
  2862. -   if (! tmp.empty ())
  2863.       retval = tmp(0);
  2864.   
  2865.     return retval;
  2866. --- 3325,3330 ----
  2867. diff -cwr n:/project/C/octave-2.1.23.orig/src/pt-plot.cc i:/project/C/octave-2.1.23/src/pt-plot.cc
  2868. *** n:/project/C/octave-2.1.23.orig/src/pt-plot.cc    Tue Nov 23 21:54:28 1999
  2869. --- i:/project/C/octave-2.1.23/src/pt-plot.cc    Fri Dec 24 13:36:00 1999
  2870. ***************
  2871. *** 20,25 ****
  2872. --- 20,27 ----
  2873.   
  2874.   */
  2875.   
  2876. + /* Modified by Klaus Gebhardt, 1996 */
  2877. + 
  2878.   #if defined (__GNUG__)
  2879.   #pragma implementation
  2880.   #endif
  2881. ***************
  2882. *** 150,162 ****
  2883.         sigemptyset (&set);
  2884.         sigaddset (&set, SIGINT);
  2885.         sigprocmask (SIG_BLOCK, &set, &oset);
  2886.   #else
  2887.        volatile octave_interrupt_handler old_interrupt_handler
  2888.       = octave_ignore_interrupts ();
  2889.   #endif
  2890. - 
  2891.         plot_stream = new oprocstream (plot_prog.c_str ());
  2892. ! 
  2893.         if (plot_stream)
  2894.       {
  2895.         if (! *plot_stream)
  2896. --- 152,168 ----
  2897.         sigemptyset (&set);
  2898.         sigaddset (&set, SIGINT);
  2899.         sigprocmask (SIG_BLOCK, &set, &oset);
  2900. + #endif
  2901. + 
  2902. + #if defined (__EMX__) && defined (OS2)
  2903. +       plot_stream = new oprocstream (plot_prog.c_str (), ios::out);
  2904.   #else
  2905. + #if !defined (HAVE_POSIX_SIGNALS)
  2906.        volatile octave_interrupt_handler old_interrupt_handler
  2907.       = octave_ignore_interrupts ();
  2908.   #endif
  2909.         plot_stream = new oprocstream (plot_prog.c_str ());
  2910. ! #endif
  2911.         if (plot_stream)
  2912.       {
  2913.         if (! *plot_stream)
  2914. ***************
  2915. *** 179,186 ****
  2916. --- 185,194 ----
  2917.   #if defined (HAVE_POSIX_SIGNALS)
  2918.         sigprocmask (SIG_SETMASK, &oset, 0);
  2919.   #else
  2920. + #if ! defined (__EMX__) || ! defined (OS2)
  2921.         octave_set_interrupt_handler (old_interrupt_handler);
  2922.   #endif
  2923. + #endif
  2924.       }
  2925.   
  2926.     if (! error_state && plot_stream && *plot_stream && ! initialized)
  2927. ***************
  2928. *** 1132,1137 ****
  2929. --- 1140,1146 ----
  2930.   
  2931.     char *plot_command = plot_buf.str ();
  2932.     send_to_plot_stream (plot_command);
  2933. +   sleep (2);
  2934.   
  2935.     delete [] plot_command;
  2936.   
  2937. diff -cwr n:/project/C/octave-2.1.23.orig/src/sighandlers.cc i:/project/C/octave-2.1.23/src/sighandlers.cc
  2938. *** n:/project/C/octave-2.1.23.orig/src/sighandlers.cc    Fri Nov  5 20:34:28 1999
  2939. --- i:/project/C/octave-2.1.23/src/sighandlers.cc    Fri Dec 24 16:41:02 1999
  2940. ***************
  2941. *** 20,25 ****
  2942. --- 20,27 ----
  2943.   
  2944.   */
  2945.   
  2946. + /* Modified by Klaus Gebhardt, 1995 - 1996 */
  2947. + 
  2948.   #ifdef HAVE_CONFIG_H
  2949.   #include <config.h>
  2950.   #endif
  2951. ***************
  2952. *** 40,45 ****
  2953. --- 42,52 ----
  2954.   
  2955.   #include "cmd-edit.h"
  2956.   
  2957. + #ifdef __EMX__
  2958. + #include <float.h>
  2959. + #include <sys/uflags.h>
  2960. + #endif
  2961. + 
  2962.   #include "error.h"
  2963.   #include "load-save.h"
  2964.   #include "pager.h"
  2965. ***************
  2966. *** 84,90 ****
  2967.   
  2968.   #if defined (__EMX__)
  2969.   #define MAYBE_ACK_SIGNAL(sig) \
  2970. !   octave_set_signal_handler (sig, SIG_ACK)
  2971.   #define ACK_USES_SIG 1
  2972.   #else
  2973.   #define MAYBE_ACK_SIGNAL(sig) \
  2974. --- 91,97 ----
  2975.   
  2976.   #if defined (__EMX__)
  2977.   #define MAYBE_ACK_SIGNAL(sig) \
  2978. !   signal (sig, SIG_ACK)
  2979.   #define ACK_USES_SIG 1
  2980.   #else
  2981.   #define MAYBE_ACK_SIGNAL(sig) \
  2982. ***************
  2983. *** 132,138 ****
  2984.       {
  2985.         been_there_done_that = true;
  2986.   
  2987. !       cerr << "error: " << sig_name << " -- stopping myself...\n";
  2988.   
  2989.         save_user_variables ();
  2990.   
  2991. --- 139,145 ----
  2992.       {
  2993.         been_there_done_that = true;
  2994.   
  2995. !       cerr << "\n\nerror: " << sig_name << " -- stopping myself...\n";
  2996.   
  2997.         save_user_variables ();
  2998.   
  2999. ***************
  3000. *** 156,161 ****
  3001. --- 163,171 ----
  3002.   
  3003.     if (can_interrupt)
  3004.       {
  3005. + #ifdef __EMX__
  3006. +       _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  3007. + #endif
  3008.         jump_to_top_level ();
  3009.         panic_impossible ();
  3010.       }
  3011. ***************
  3012. *** 174,179 ****
  3013. --- 184,193 ----
  3014.     sigemptyset (&oact.sa_mask);
  3015.     sigaction (sig, &act, &oact);
  3016.     return oact.sa_handler;
  3017. + #elif defined (__EMX__)
  3018. +   sig_handler *signal_handler = signal (sig, handler);
  3019. +   MAYBE_ACK_SIGNAL(sig);
  3020. +   return signal_handler;
  3021.   #else
  3022.     return signal (sig, handler);
  3023.   #endif
  3024. ***************
  3025. *** 190,196 ****
  3026.   // Handle SIGCHLD.
  3027.   
  3028.   static RETSIGTYPE
  3029. ! sigchld_handler (int /* sig */)
  3030.   {
  3031.     volatile octave_interrupt_handler saved_interrupt_handler
  3032.        = octave_ignore_interrupts ();
  3033. --- 204,210 ----
  3034.   // Handle SIGCHLD.
  3035.   
  3036.   static RETSIGTYPE
  3037. ! sigchld_handler (int sig)
  3038.   {
  3039.     volatile octave_interrupt_handler saved_interrupt_handler
  3040.        = octave_ignore_interrupts ();
  3041. ***************
  3042. *** 202,216 ****
  3043.   #if defined (__EMX__)
  3044.     volatile sig_handler *saved_sigchld_handler
  3045.       = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  3046. ! #endif
  3047. ! 
  3048.     sigset_t set, oset;
  3049.   
  3050.     BLOCK_CHILD (set, oset);
  3051.   
  3052.     int n = octave_child_list::length ();
  3053.   
  3054. !   for (int i = 0; i < n; i++)
  3055.       {
  3056.         octave_child& elt = octave_child_list::elem (i);
  3057.   
  3058. --- 216,231 ----
  3059.   #if defined (__EMX__)
  3060.     volatile sig_handler *saved_sigchld_handler
  3061.       = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  3062. ! #else
  3063.     sigset_t set, oset;
  3064.   
  3065.     BLOCK_CHILD (set, oset);
  3066. + #endif
  3067.   
  3068. +   int i = 0;
  3069.     int n = octave_child_list::length ();
  3070.   
  3071. !   for (i = 0; i < n; i++)
  3072.       {
  3073.         octave_child& elt = octave_child_list::elem (i);
  3074.   
  3075. ***************
  3076. *** 226,244 ****
  3077.   
  3078.             octave_child::dead_child_handler f = elt.handler;
  3079.   
  3080. !           if (f)
  3081. !         f (pid, status);
  3082.   
  3083.             break;
  3084.           }
  3085.       }
  3086.       }
  3087.   
  3088.     octave_set_interrupt_handler (saved_interrupt_handler);
  3089.   
  3090.     UNBLOCK_CHILD (oset);
  3091. ! 
  3092. ! #ifdef __EMX__
  3093.     octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  3094.   #endif
  3095.   
  3096. --- 241,265 ----
  3097.   
  3098.             octave_child::dead_child_handler f = elt.handler;
  3099.   
  3100. !           if (f)  f (pid, status);
  3101. !           else
  3102. !         {
  3103. !           string file = elt.filename;
  3104. !           unlink (file.c_str ());
  3105. !         }
  3106.   
  3107.             break;
  3108.           }
  3109.       }
  3110.       }
  3111.   
  3112. +   if (i == n)  waitpid (-1, NULL, WNOHANG);
  3113. + 
  3114.     octave_set_interrupt_handler (saved_interrupt_handler);
  3115.   
  3116. + #ifndef __EMX__
  3117.     UNBLOCK_CHILD (oset);
  3118. ! #else
  3119.     octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  3120.   #endif
  3121.   
  3122. ***************
  3123. *** 251,257 ****
  3124.   
  3125.   #if defined (__alpha__)
  3126.   static RETSIGTYPE
  3127. ! sigfpe_handler (int /* sig */)
  3128.   {
  3129.     MAYBE_ACK_SIGNAL (SIGFPE);
  3130.   
  3131. --- 272,278 ----
  3132.   
  3133.   #if defined (__alpha__)
  3134.   static RETSIGTYPE
  3135. ! sigfpe_handler (int sig)
  3136.   {
  3137.     MAYBE_ACK_SIGNAL (SIGFPE);
  3138.   
  3139. ***************
  3140. *** 261,266 ****
  3141. --- 282,291 ----
  3142.   
  3143.     if (can_interrupt)
  3144.       {
  3145. + #if defined (__EMX__)
  3146. +       _control87 (EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW |
  3147. +           EM_UNDERFLOW | EM_INEXACT, MCW_EM);
  3148. + #endif
  3149.         jump_to_top_level ();
  3150.         panic_impossible ();
  3151.       }
  3152. ***************
  3153. *** 312,318 ****
  3154.   }
  3155.   
  3156.   static RETSIGTYPE
  3157. ! sigpipe_handler (int /* sig */)
  3158.   {
  3159.     MAYBE_ACK_SIGNAL (SIGPIPE);
  3160.   
  3161. --- 337,343 ----
  3162.   }
  3163.   
  3164.   static RETSIGTYPE
  3165. ! sigpipe_handler (int sig)
  3166.   {
  3167.     MAYBE_ACK_SIGNAL (SIGPIPE);
  3168.   
  3169. ***************
  3170. *** 335,345 ****
  3171.     octave_interrupt_handler retval;
  3172.   
  3173.   #ifdef SIGINT
  3174. !   retval.int_handler = octave_set_signal_handler (SIGINT, sigint_handler);
  3175.   #endif
  3176.   
  3177.   #ifdef SIGBREAK
  3178. !   retval.brk_handler = octave_set_signal_handler (SIGBREAK, sigint_handler);
  3179.   #endif
  3180.   
  3181.     return retval;
  3182. --- 360,374 ----
  3183.     octave_interrupt_handler retval;
  3184.   
  3185.   #ifdef SIGINT
  3186. !   octave_set_signal_handler (SIGINT, sigint_handler);
  3187. !   retval.int_handler = sigint_handler;
  3188. !   MAYBE_ACK_SIGNAL (SIGINT);
  3189.   #endif
  3190.   
  3191.   #ifdef SIGBREAK
  3192. !   octave_set_signal_handler (SIGBREAK, sigint_handler);
  3193. !   retval.brk_handler = sigint_handler;
  3194. !   MAYBE_ACK_SIGNAL (SIGBREAK);
  3195.   #endif
  3196.   
  3197.     return retval;
  3198. ***************
  3199. *** 362,377 ****
  3200. --- 391,429 ----
  3201.   }
  3202.   
  3203.   octave_interrupt_handler
  3204. + octave_set_interrupt_handler (RETSIGTYPE (*f)(int))
  3205. + {
  3206. +   octave_interrupt_handler retval;
  3207. + 
  3208. +   if (f)
  3209. +     {
  3210. + #ifdef SIGINT
  3211. +       retval.int_handler = octave_set_signal_handler (SIGINT, f);
  3212. +       MAYBE_ACK_SIGNAL (SIGINT);
  3213. + #endif
  3214. + 
  3215. + #ifdef SIGBREAK
  3216. +       retval.brk_handler = octave_set_signal_handler (SIGBREAK, f);
  3217. +       MAYBE_ACK_SIGNAL (SIGBREAK);
  3218. + #endif
  3219. +     }
  3220. + 
  3221. +   return retval;
  3222. + }
  3223. + 
  3224. + octave_interrupt_handler
  3225.   octave_set_interrupt_handler (const volatile octave_interrupt_handler& h)
  3226.   {
  3227.     octave_interrupt_handler retval;
  3228.   
  3229.   #ifdef SIGINT
  3230.     retval.int_handler = octave_set_signal_handler (SIGINT, h.int_handler);
  3231. +   MAYBE_ACK_SIGNAL (SIGINT);
  3232.   #endif
  3233.   
  3234.   #ifdef SIGBREAK
  3235.     retval.brk_handler = octave_set_signal_handler (SIGBREAK, h.brk_handler);
  3236. +   MAYBE_ACK_SIGNAL (SIGBREAK);
  3237.   #endif
  3238.   
  3239.     return retval;
  3240. ***************
  3241. *** 465,472 ****
  3242. --- 517,528 ----
  3243.   #endif
  3244.   
  3245.   #ifdef SIGTERM
  3246. + #ifdef __EMX__
  3247. +   signal (SIGTERM, SIG_DFL);
  3248. + #else
  3249.     octave_set_signal_handler (SIGTERM, generic_sig_handler);
  3250.   #endif
  3251. + #endif
  3252.   
  3253.   #ifdef SIGTRAP
  3254.     octave_set_signal_handler (SIGTRAP, generic_sig_handler);
  3255. ***************
  3256. *** 639,648 ****
  3257.   }
  3258.   
  3259.   void
  3260. ! octave_child_list::insert (pid_t pid, octave_child::dead_child_handler f)
  3261.   {
  3262.     if (instance_ok ())
  3263. !     instance->do_insert (pid, f);
  3264.   }
  3265.   
  3266.   void
  3267. --- 695,705 ----
  3268.   }
  3269.   
  3270.   void
  3271. ! octave_child_list::insert (pid_t pid, octave_child::dead_child_handler f,
  3272. !                string name)
  3273.   {
  3274.     if (instance_ok ())
  3275. !     instance->do_insert (pid, f, name);
  3276.   }
  3277.   
  3278.   void
  3279. ***************
  3280. *** 667,673 ****
  3281.   }
  3282.   
  3283.   void
  3284. ! octave_child_list::do_insert (pid_t pid, octave_child::dead_child_handler f)
  3285.   {
  3286.     // Insert item in first open slot, increasing size of list if
  3287.     // necessary.
  3288. --- 724,731 ----
  3289.   }
  3290.   
  3291.   void
  3292. ! octave_child_list::do_insert (pid_t pid, octave_child::dead_child_handler f,
  3293. !                   string name)
  3294.   {
  3295.     // Insert item in first open slot, increasing size of list if
  3296.     // necessary.
  3297. ***************
  3298. *** 680,686 ****
  3299.   
  3300.         if (tmp.pid < 0)
  3301.       {
  3302. !       list (i) = octave_child (pid, f);
  3303.         enlarge = false;
  3304.         break;
  3305.       }
  3306. --- 738,744 ----
  3307.   
  3308.         if (tmp.pid < 0)
  3309.       {
  3310. !       list (i) = octave_child (pid, f, name);
  3311.         enlarge = false;
  3312.         break;
  3313.       }
  3314. ***************
  3315. *** 698,704 ****
  3316.           list.resize (total_len * 2);
  3317.       }
  3318.   
  3319. !       list (curr_len) = octave_child (pid, f);
  3320.         curr_len++;
  3321.       }
  3322.   }
  3323. --- 756,762 ----
  3324.           list.resize (total_len * 2);
  3325.       }
  3326.   
  3327. !       list (curr_len) = octave_child (pid, f, name);
  3328.         curr_len++;
  3329.       }
  3330.   }
  3331. ***************
  3332. *** 715,720 ****
  3333. --- 773,795 ----
  3334.         if (tmp.pid == pid)
  3335.       {
  3336.         tmp.pid = -1;
  3337. + 
  3338. +       octave_child::dead_child_handler f = tmp.handler;
  3339. + 
  3340. +       if (f)
  3341. +         {
  3342. +           int status;
  3343. + 
  3344. +           if (waitpid (pid, &status, WNOHANG) <= 0)  status = 127;
  3345. + 
  3346. +           f (pid, status);
  3347. +         }
  3348. +       else
  3349. +         {
  3350. +           string file = tmp.filename;
  3351. +           unlink (file.c_str ());
  3352. +         }
  3353. + 
  3354.         break;
  3355.       }
  3356.       }
  3357. diff -cwr n:/project/C/octave-2.1.23.orig/src/sighandlers.h i:/project/C/octave-2.1.23/src/sighandlers.h
  3358. *** n:/project/C/octave-2.1.23.orig/src/sighandlers.h    Tue Jun  3 22:56:14 1997
  3359. --- i:/project/C/octave-2.1.23/src/sighandlers.h    Fri Dec 24 13:36:00 1999
  3360. ***************
  3361. *** 30,38 ****
  3362. --- 30,42 ----
  3363.   
  3364.   // This file should always be included after config.h!
  3365.   
  3366. + /* Modified by Klaus Gebhardt, 1996 */
  3367. + 
  3368.   #if !defined (octave_sighandlers_h)
  3369.   #define octave_sighandlers_h 1
  3370.   
  3371. + #include <string>
  3372. + 
  3373.   #include <Array.h>
  3374.   
  3375.   #include "syswait.h"
  3376. ***************
  3377. *** 65,72 ****
  3378.   
  3379.   typedef RETSIGTYPE sig_handler (int);
  3380.   
  3381. - // XXX FIXME XXX -- the data should probably be private...
  3382. - 
  3383.   struct
  3384.   octave_interrupt_handler
  3385.   {
  3386. --- 69,74 ----
  3387. ***************
  3388. *** 118,128 ****
  3389.   
  3390.     typedef void (*dead_child_handler) (pid_t, int);
  3391.   
  3392. !   octave_child (pid_t id = -1, dead_child_handler f = 0)
  3393. !     : pid (id), handler (f) { }
  3394.   
  3395.     octave_child (const octave_child& oc)
  3396. !     : pid (oc.pid), handler (oc.handler) { }
  3397.   
  3398.     octave_child& operator = (const octave_child& oc)
  3399.       {
  3400. --- 120,130 ----
  3401.   
  3402.     typedef void (*dead_child_handler) (pid_t, int);
  3403.   
  3404. !   octave_child (pid_t id = -1, dead_child_handler f = 0, string name = "")
  3405. !     : pid (id), handler (f), filename (name) { }
  3406.   
  3407.     octave_child (const octave_child& oc)
  3408. !     : pid (oc.pid), handler (oc.handler), filename (oc.filename) { }
  3409.   
  3410.     octave_child& operator = (const octave_child& oc)
  3411.       {
  3412. ***************
  3413. *** 130,135 ****
  3414. --- 132,138 ----
  3415.       {
  3416.         pid = oc.pid;
  3417.         handler = oc.handler;
  3418. +       filename = oc.filename;
  3419.       }
  3420.         return *this;
  3421.       }
  3422. ***************
  3423. *** 141,146 ****
  3424. --- 144,152 ----
  3425.   
  3426.     // The function we call if this child dies.
  3427.     dead_child_handler handler;
  3428. + 
  3429. +   // The file to remove if this child dies.
  3430. +   string filename;
  3431.   };
  3432.   
  3433.   class
  3434. ***************
  3435. *** 156,162 ****
  3436.   
  3437.     static bool instance_ok (void);
  3438.   
  3439. !   static void insert (pid_t pid, octave_child::dead_child_handler f);
  3440.   
  3441.     static void remove (pid_t pid);
  3442.   
  3443. --- 162,169 ----
  3444.   
  3445.     static bool instance_ok (void);
  3446.   
  3447. !   static void insert (pid_t pid, octave_child::dead_child_handler f,
  3448. !               string name = "");
  3449.   
  3450.     static void remove (pid_t pid);
  3451.   
  3452. ***************
  3453. *** 172,178 ****
  3454.   
  3455.     static octave_child_list *instance;
  3456.   
  3457. !   void do_insert (pid_t pid, octave_child::dead_child_handler f);
  3458.   
  3459.     void do_remove (pid_t pid);
  3460.   
  3461. --- 179,186 ----
  3462.   
  3463.     static octave_child_list *instance;
  3464.   
  3465. !   void do_insert (pid_t pid, octave_child::dead_child_handler f,
  3466. !           string name = "");
  3467.   
  3468.     void do_remove (pid_t pid);
  3469.   
  3470. diff -cwr n:/project/C/octave-2.1.23.orig/src/syscalls.cc i:/project/C/octave-2.1.23/src/syscalls.cc
  3471. *** n:/project/C/octave-2.1.23.orig/src/syscalls.cc    Fri Nov 19 06:15:26 1999
  3472. --- i:/project/C/octave-2.1.23/src/syscalls.cc    Sat Dec 25 12:58:02 1999
  3473. ***************
  3474. *** 25,30 ****
  3475. --- 25,32 ----
  3476.   //
  3477.   //   mkfifo  unlink  waitpid
  3478.   
  3479. + /* Modified by Klaus Gebhardt, 1996 */
  3480. + 
  3481.   #ifdef HAVE_CONFIG_H
  3482.   #include <config.h>
  3483.   #endif
  3484. ***************
  3485. *** 32,37 ****
  3486. --- 34,40 ----
  3487.   #include <cerrno>
  3488.   #include <cstdio>
  3489.   #include <cstring>
  3490. + #include <csignal>
  3491.   
  3492.   #ifdef HAVE_UNISTD_H
  3493.   #ifdef HAVE_SYS_TYPES_H
  3494. ***************
  3495. *** 48,53 ****
  3496. --- 51,58 ----
  3497.   #include "file-stat.h"
  3498.   #include "oct-syscalls.h"
  3499.   
  3500. + #include <process.h>
  3501. + 
  3502.   #include "defun.h"
  3503.   #include "error.h"
  3504.   #include "gripes.h"
  3505. ***************
  3506. *** 56,61 ****
  3507. --- 61,68 ----
  3508.   #include "oct-obj.h"
  3509.   #include "oct-stdstrm.h"
  3510.   #include "oct-stream.h"
  3511. + #include "oct-fstrm.h"
  3512. + #include "sighandlers.h"
  3513.   #include "sysdep.h"
  3514.   #include "syswait.h"
  3515.   #include "utils.h"
  3516. ***************
  3517. *** 89,95 ****
  3518.     return m;
  3519.   }
  3520.   
  3521. ! DEFUN (dup2, args, ,
  3522.    "-*- texinfo -*-\n\
  3523.   @deftypefn {Built-in Function} {[@var{fid}, @var{msg}] =} dup2 (@var{old}, @var{new})\n\
  3524.   Duplicate a file descriptor.\n\
  3525. --- 96,154 ----
  3526.     return m;
  3527.   }
  3528.   
  3529. ! #if defined (__EMX__) && defined (OS2)
  3530. ! DEFUN (_dup, args, ,
  3531. !  "[FID, MSG] = _dup (old): duplicate a file descriptor")
  3532. ! {
  3533. !   octave_value_list retval;
  3534. ! 
  3535. !   retval(1) = string ();
  3536. !   retval(0) = -1.0;
  3537. ! 
  3538. !   int nargin = args.length ();
  3539. ! 
  3540. !   if (nargin == 1)
  3541. !     {
  3542. ! #if defined (HAVE_DUP)
  3543. !       double d_old = args(0).double_value ();
  3544. ! 
  3545. !       if (! error_state)
  3546. !     {
  3547. !       if (static_cast<int> (d_old) == d_old)
  3548. !         {
  3549. !           int i_old = static_cast<int> (d_old);
  3550. ! 
  3551. !           // XXX FIXME XXX -- are these checks sufficient?
  3552. !           if (i_old >= 0)
  3553. !         {
  3554. !           string msg;
  3555. ! 
  3556. !           int status = octave_syscalls::dup (i_old, msg);
  3557. ! 
  3558. !           retval(0) = static_cast<double> (status);
  3559. ! 
  3560. !           if (status < 0)
  3561. !             retval(1) = msg;
  3562. !         }
  3563. !           else
  3564. !         error ("_dup: invalid file id");
  3565. !         }
  3566. !       else
  3567. !         error ("_dup: argument must be integer value");
  3568. !     }
  3569. !       else
  3570. !     error ("_dup: argument must be integer value");
  3571. ! #else
  3572. !       gripe_not_supported ("_dup");
  3573. ! #endif
  3574. !     }
  3575. !   else
  3576. !     print_usage ("_dup");
  3577. ! 
  3578. !   return retval;
  3579. ! }
  3580. ! 
  3581. ! DEFUN (_dup2, args, ,
  3582.    "-*- texinfo -*-\n\
  3583.   @deftypefn {Built-in Function} {[@var{fid}, @var{msg}] =} dup2 (@var{old}, @var{new})\n\
  3584.   Duplicate a file descriptor.\n\
  3585. ***************
  3586. *** 108,125 ****
  3587.   
  3588.     if (nargin == 2)
  3589.       {
  3590. !       octave_stream old_stream
  3591. !     = octave_stream_list::lookup (args(0), "dup2");
  3592.   
  3593.         if (! error_state)
  3594.       {
  3595. !       octave_stream new_stream
  3596. !         = octave_stream_list::lookup (args(1), "dup2");
  3597. ! 
  3598. !       if (! error_state)
  3599.           {
  3600. !           int i_old = old_stream.file_number ();
  3601. !           int i_new = new_stream.file_number ();
  3602.   
  3603.             if (i_old >= 0 && i_new >= 0)
  3604.           {
  3605. --- 167,182 ----
  3606.   
  3607.     if (nargin == 2)
  3608.       {
  3609. !       double d_old = args(0).double_value ();
  3610. !       double d_new = args(1).double_value ();
  3611.   
  3612.         if (! error_state)
  3613.       {
  3614. !       if ((static_cast<int> (d_old) == d_old) &&
  3615. !           (static_cast<int> (d_new) == d_new))
  3616.           {
  3617. !           int i_old = static_cast<int> (d_old);
  3618. !           int i_new = static_cast<int> (d_new);
  3619.   
  3620.             if (i_old >= 0 && i_new >= 0)
  3621.           {
  3622. ***************
  3623. *** 128,142 ****
  3624.             int status = octave_syscalls::dup2 (i_old, i_new, msg);
  3625.   
  3626.             retval(0) = static_cast<double> (status);
  3627.             retval(1) = msg;
  3628.           }
  3629.           }
  3630.       }
  3631.         else
  3632. !     error ("dup2: invalid stream");
  3633.       }
  3634.     else
  3635. !     print_usage ("dup2");
  3636.   
  3637.     return retval;
  3638.   }
  3639. --- 185,382 ----
  3640.             int status = octave_syscalls::dup2 (i_old, i_new, msg);
  3641.   
  3642.             retval(0) = static_cast<double> (status);
  3643. + 
  3644. +           if (status < 0)
  3645. +             retval(1) = msg;
  3646. +         }
  3647. +             else
  3648. +         error ("_dup2: invalid file id");
  3649. +           }
  3650. +         else
  3651. +          error ("_dup2: arguments must be integer values");
  3652. +     }
  3653. +       else
  3654. +     error ("_dup2: invalid stream");
  3655. +     }
  3656. +   else
  3657. +     print_usage ("_dup2");
  3658. + 
  3659. +   return retval;
  3660. + }
  3661. + 
  3662. + DEFUN (_close, args, ,
  3663. +  "[RETVAL, MSG] = _close (fid): close a file handle")
  3664. + {
  3665. +   octave_value_list retval;
  3666. + 
  3667. +   retval(1) = string ();
  3668. +   retval(0) = -1.0;
  3669. + 
  3670. +   int nargin = args.length ();
  3671. + 
  3672. +   if (nargin == 1)
  3673. +     {
  3674. +       double d_old = args(0).double_value ();
  3675. + 
  3676. +       if (! error_state)
  3677. +     {
  3678. +       if (static_cast<int> (d_old) == d_old)
  3679. +         {
  3680. +           int i_old = static_cast<int> (d_old);
  3681. + 
  3682. +           // XXX FIXME XXX -- are these checks sufficient?
  3683. +           if (i_old >= 0)
  3684. +         {
  3685. +           int status = file_ops::close (i_old);
  3686. + 
  3687. +           retval(0) = (double) status;
  3688. + 
  3689. +           if (status < 0)
  3690. +             retval(1) = strerror (errno);
  3691. +         }
  3692. +           else
  3693. +         error ("_close: invalid file id");
  3694. +         }
  3695. +       else
  3696. +         error ("_close: argument must be integer value");
  3697. +     }
  3698. +     }
  3699. +   else
  3700. +     print_usage ("_close");
  3701. + 
  3702. +   return retval;
  3703. + }
  3704. + 
  3705. + DEFUN (_fdopen, args, ,
  3706. +  "[FID, MSG] = _fdopen (fid, mode): create a stream for file handle")
  3707. + {
  3708. +   octave_value_list retval;
  3709. + 
  3710. +   retval(1) = string ();
  3711. +   retval(0) = -1.0;
  3712. + 
  3713. +   int nargin = args.length ();
  3714. + 
  3715. +   if (nargin == 2)
  3716. +     {
  3717. +       if (args(1).is_string ())
  3718. +     {
  3719. +       string mode = args(1).string_value ();
  3720. + 
  3721. +       double d_old = args(0).double_value ();
  3722. + 
  3723. +       if (! error_state)
  3724. +         {
  3725. +           if (static_cast<int> (d_old) == d_old)
  3726. +         {
  3727. +           int i_old = static_cast<int> (d_old);
  3728. + 
  3729. +           // XXX FIXME XXX -- are these checks sufficient?
  3730. +           if (i_old >= 0)
  3731. +             {
  3732. +               string msg;
  3733. + 
  3734. +               FILE *f = static_cast<FILE *> (file_ops::fdopen (i_old, mode, msg));
  3735.                 retval(1) = msg;
  3736. + 
  3737. +               if (f)
  3738. +             {
  3739. +               if (mode[0] == 'r')
  3740. +                 {
  3741. +                   octave_istdiostream *is
  3742. +                 = new octave_istdiostream ("fdopen", f);
  3743. +                   retval(0) = octave_stream_list::insert (is);
  3744. +                 }
  3745. +               else if (mode[0] == 'w')
  3746. +                 {
  3747. +                   octave_ostdiostream *os
  3748. +                 = new octave_ostdiostream ("fdopen", f);
  3749. +                   retval(0) = octave_stream_list::insert (os);
  3750. +                 }
  3751. +               else
  3752. +                 error ("_fdopen: invalid mode");
  3753. +             }
  3754. +               else
  3755. +             error ("_fdopen: error opening file id");
  3756. +             }
  3757. +           else
  3758. +             error ("_fdopen: invalid file id");
  3759. +         }
  3760. +           else
  3761. +         error ("_fdopen: argument must be integer value");
  3762. +         }
  3763. +       else
  3764. +         error ("_fdopen: argument must be integer value");
  3765. +     }
  3766. +       else
  3767. +     error ("_fdopen: mode must be a string");
  3768. +     }
  3769. +   else
  3770. +     print_usage ("_fdopen");
  3771. + 
  3772. +   return retval;
  3773. + }
  3774. + #endif
  3775. + 
  3776. + DEFUN (spawn, args, ,
  3777. +  "[STATUS, MSG] = spawn (mode, file, args): run a program")
  3778. + {
  3779. +   octave_value_list retval;
  3780. + 
  3781. +   retval(1) = string ();
  3782. +   retval(0) = -1.0;
  3783. + 
  3784. +   int nargin = args.length ();
  3785. + 
  3786. +   if (nargin == 2 || nargin == 3)
  3787. +     {
  3788. +       string mode_strg = args(0).string_value ();
  3789. +       string exec_file = args(1).string_value ();
  3790. + 
  3791. +       if (! error_state)
  3792. +     {
  3793. +       string_vector exec_args;
  3794. + 
  3795. +       if (nargin == 3)
  3796. +         {
  3797. +           string_vector tmp = args(2).all_strings ();
  3798. + 
  3799. +           if (! error_state)
  3800. +         {
  3801. +           int len = tmp.length ();
  3802. + 
  3803. +           exec_args.resize (len + 1);
  3804. + 
  3805. +           exec_args[0] = exec_file;
  3806. + 
  3807. +           for (int i = 0; i < len; i++)
  3808. +             exec_args[i+1] = tmp[i];
  3809. +         }
  3810. +           else
  3811. +         error ("exec: arguments must be strings");
  3812.           }
  3813. +       else
  3814. +         {
  3815. +           exec_args.resize (1);
  3816. + 
  3817. +           exec_args[0] = exec_file;
  3818. +         }
  3819. + 
  3820. +       if (! error_state)
  3821. +         {
  3822. +           string msg;
  3823. + 
  3824. +           int status = octave_syscalls::spawnvp (mode_strg, exec_file, exec_args, msg);
  3825. + 
  3826. +           retval(0) = static_cast<double> (status);
  3827. +           retval(1) = msg;
  3828.           }
  3829.       }
  3830.         else
  3831. !     error ("spawn: first two arguments must be strings");
  3832.       }
  3833.     else
  3834. !     print_usage ("spawn");
  3835.     
  3836.     return retval;
  3837.   }
  3838. ***************
  3839. *** 219,227 ****
  3840.     return retval;
  3841.   }
  3842.   
  3843. ! DEFUN (fcntl, args, ,
  3844.    "-*- texinfo -*-\n\
  3845. ! @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} fcntl (@var{fid}, @var{request}, @var{arg})\n\
  3846.   Change the properties of the open file @var{fid}.  The following values\n\
  3847.   may be passed as @var{request}:\n\
  3848.   \n\
  3849. --- 459,468 ----
  3850.     return retval;
  3851.   }
  3852.   
  3853. ! #if defined (__EMX__) && defined (OS2)
  3854. ! DEFUN (_fcntl, args, ,
  3855.    "-*- texinfo -*-\n\
  3856. ! @deftypefn {Built-in Function} {[@var{err}, @var{msg}] =} _fcntl (@var{fid}, @var{request}, @var{arg})\n\
  3857.   Change the properties of the open file @var{fid}.  The following values\n\
  3858.   may be passed as @var{request}:\n\
  3859.   \n\
  3860. ***************
  3861. *** 290,296 ****
  3862.       {
  3863.         // XXX FIXME XXX -- Need better checking here?
  3864.         if (fid < 0)
  3865. !         error ("fcntl: invalid file id");
  3866.         else
  3867.           {
  3868.             string msg;
  3869. --- 531,537 ----
  3870.       {
  3871.         // XXX FIXME XXX -- Need better checking here?
  3872.         if (fid < 0)
  3873. !         error ("_fcntl: invalid file id");
  3874.         else
  3875.           {
  3876.             string msg;
  3877. ***************
  3878. *** 302,314 ****
  3879.           }
  3880.       }
  3881.         else
  3882. !     error ("fcntl: file id, request, and argument must be integers");
  3883.       }
  3884.     else
  3885. !     print_usage ("fcntl");
  3886.   
  3887.     return retval;
  3888.   }
  3889.   
  3890.   DEFUN (fork, args, ,
  3891.    "-*- texinfo -*-\n\
  3892. --- 543,556 ----
  3893.           }
  3894.       }
  3895.         else
  3896. !     error ("_fcntl: file id, request, and argument must be integers");
  3897.       }
  3898.     else
  3899. !     print_usage ("_fcntl");
  3900.   
  3901.     return retval;
  3902.   }
  3903. + #endif
  3904.   
  3905.   DEFUN (fork, args, ,
  3906.    "-*- texinfo -*-\n\
  3907. ***************
  3908. *** 572,577 ****
  3909. --- 814,870 ----
  3910.     return retval;
  3911.   }
  3912.   
  3913. + #if defined (__EMX__) && defined (OS2)
  3914. + DEFUN (_pipe, args, ,
  3915. +   "[FIDS, STATUS, MSG] = _pipe (): create an interprocess channel.\n\
  3916. + \n\
  3917. + Return the FIDS corresponding to the reading and writing ends of\n\
  3918. + the pipe, as a vector.\n\
  3919. + \n\
  3920. + You must open the FIDS using _fdopen!\n\
  3921. + \n\
  3922. + If successful, STATUS is 0 and MSG is an empty string.  Otherwise,\n\
  3923. + STATUS is nonzero and MSG contains a system-dependent error message.")
  3924. + {
  3925. +   octave_value_list retval;
  3926. + 
  3927. +   retval(2) = string ();
  3928. +   retval(1) = -1.0;
  3929. +   retval(0) = Matrix ();
  3930. + 
  3931. +   int nargin = args.length ();
  3932. + 
  3933. +   if (nargin == 0)
  3934. +     {
  3935. + #if defined (HAVE_PIPE)
  3936. +       int fid[2];
  3937. + 
  3938. +       string msg;
  3939. + 
  3940. +       int status = octave_syscalls::pipe (fid, msg);
  3941. + 
  3942. +       if (status < 0)  retval(2) = msg;
  3943. +       else
  3944. +     {
  3945. +       Matrix file_ids (1, 2);
  3946. + 
  3947. +       file_ids (0, 0) = (double) fid[0];
  3948. +       file_ids (0, 1) = (double) fid[1];
  3949. + 
  3950. +           retval(0) = file_ids;
  3951. +       retval(1) = (double) status;
  3952. +     }      
  3953. + #else
  3954. +       gripe_not_supported ("_pipe");
  3955. + #endif
  3956. +     }
  3957. +   else
  3958. +     print_usage ("_pipe");
  3959. + 
  3960. +   return retval;
  3961. + }
  3962. + #endif
  3963. + 
  3964.   DEFUN (pipe, args, ,
  3965.     "-*- texinfo -*-\n\
  3966.   @deftypefn {Built-in Function} {[@var{file_ids}, @var{err}, @var{msg}] =} pipe ()\n\
  3967. ***************
  3968. *** 854,860 ****
  3969. --- 1147,1166 ----
  3970.           {
  3971.             string msg;
  3972.   
  3973. + #ifdef __EMX__
  3974. +           volatile octave_interrupt_handler saved_interrupt_handler
  3975. +         = octave_ignore_interrupts ();
  3976. + 
  3977. +           volatile sig_handler *saved_sigchld_handler
  3978. +         = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  3979. + #endif
  3980. + 
  3981.             pid_t status = octave_syscalls::waitpid (pid, options, msg);
  3982. + 
  3983. + #ifdef __EMX__
  3984. +           octave_set_interrupt_handler (saved_interrupt_handler);
  3985. +           octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  3986. + #endif
  3987.   
  3988.             retval(0) = static_cast<double> (status);
  3989.             retval(1) = msg;
  3990. diff -cwr n:/project/C/octave-2.1.23.orig/src/sysdep.cc i:/project/C/octave-2.1.23/src/sysdep.cc
  3991. *** n:/project/C/octave-2.1.23.orig/src/sysdep.cc    Tue Nov 23 20:07:14 1999
  3992. --- i:/project/C/octave-2.1.23/src/sysdep.cc    Fri Dec 24 13:37:50 1999
  3993. ***************
  3994. *** 20,25 ****
  3995. --- 20,27 ----
  3996.   
  3997.   */
  3998.   
  3999. + /* Modified by Klaus Gebhardt, 1996 */
  4000. + 
  4001.   #ifdef HAVE_CONFIG_H
  4002.   #include <config.h>
  4003.   #endif
  4004. ***************
  4005. *** 56,61 ****
  4006. --- 58,68 ----
  4007.   #include <sys/ioctl.h>
  4008.   #endif
  4009.   
  4010. + #ifdef __EMX__
  4011. + #include <float.h>
  4012. + #include <sys/uflags.h>
  4013. + #endif
  4014. + 
  4015.   #if defined (HAVE_FLOATINGPOINT_H)
  4016.   #include <floatingpoint.h>
  4017.   #endif
  4018. ***************
  4019. *** 68,73 ****
  4020. --- 75,92 ----
  4021.   #include <sys/utsname.h>
  4022.   #endif
  4023.   
  4024. + #ifdef __EMX__
  4025. + #include <readline/readline.h>
  4026. + #include <readline/tilde.h>
  4027. + #include <sys/ioctl.h>
  4028. + extern "C"
  4029. + {
  4030. +   extern void tputs ();
  4031. +   extern char *term_clrpag;
  4032. +   extern void _rl_output_character_function ();
  4033. + }
  4034. + #endif
  4035. + 
  4036.   #include "cmd-edit.h"
  4037.   #include "file-ops.h"
  4038.   #include "lo-mappers.h"
  4039. ***************
  4040. *** 127,132 ****
  4041. --- 146,153 ----
  4042.   {
  4043.     _control87 ((EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW
  4044.              | EM_UNDERFLOW | EM_INEXACT), MCW_EM);
  4045. + 
  4046. +   _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  4047.   }
  4048.   #endif
  4049.   
  4050. ***************
  4051. *** 313,318 ****
  4052. --- 334,340 ----
  4053.   kbhit (void)
  4054.   {
  4055.     int c;
  4056. +   flush_octave_stdout ();
  4057.     raw_mode (1);
  4058.     c = cin.get ();
  4059.     raw_mode (0);
  4060. ***************
  4061. *** 415,421 ****
  4062.   
  4063.     // XXX FIXME XXX -- add timeout and default value args?
  4064.   
  4065. !   if (interactive)
  4066.       {
  4067.         int c = kbhit ();
  4068.         char *s = new char [2];
  4069. --- 437,443 ----
  4070.   
  4071.     // XXX FIXME XXX -- add timeout and default value args?
  4072.   
  4073. !   if (interactive || really_forced_interactive)
  4074.       {
  4075.         int c = kbhit ();
  4076.         char *s = new char [2];
  4077. ***************
  4078. *** 609,614 ****
  4079. --- 631,657 ----
  4080.   
  4081.   DEFALIAS (EXTPROC, extproc);
  4082.   
  4083. + DEFUN (add_to_command_number, args, ,
  4084. +        "add_to_command_number: add argument to the current command number")
  4085. + {
  4086. +   octave_value_list retval;
  4087. +   int nargin;
  4088. + 
  4089. +   if ((nargin = args.length ()) != 1)
  4090. +     {
  4091. +       print_usage ("add_to_command_number");
  4092. +       return retval;
  4093. +     }
  4094. + 
  4095. +   double tmp_d = args(0).double_value ();
  4096. + 
  4097. +   if (error_state || (static_cast<int> (tmp_d) != tmp_d))
  4098. +     error ("add_to_command_number: expecting integer as argument");
  4099. +   else
  4100. +     command_editor::add_current_command_number (static_cast<int> (tmp_d));
  4101. + 
  4102. +   return retval;
  4103. + }
  4104.   #endif
  4105.   
  4106.   /*
  4107. diff -cwr n:/project/C/octave-2.1.23.orig/src/toplev.cc i:/project/C/octave-2.1.23/src/toplev.cc
  4108. *** n:/project/C/octave-2.1.23.orig/src/toplev.cc    Wed Nov  3 20:54:52 1999
  4109. --- i:/project/C/octave-2.1.23/src/toplev.cc    Sat Dec 25 19:15:42 1999
  4110. ***************
  4111. *** 20,25 ****
  4112. --- 20,27 ----
  4113.   
  4114.   */
  4115.   
  4116. + /* Modified by Klaus Gebhardt, 1996 - 1999 */
  4117. + 
  4118.   #ifdef HAVE_CONFIG_H
  4119.   #include <config.h>
  4120.   #endif
  4121. ***************
  4122. *** 77,82 ****
  4123. --- 79,92 ----
  4124.   #include "variables.h"
  4125.   #include <version.h>
  4126.   
  4127. + #ifdef __EMX__
  4128. + extern "C"
  4129. + {
  4130. + #include <process.h>
  4131. +   int _IO_system (const char *, int);
  4132. + }
  4133. + #endif
  4134. + 
  4135.   // TRUE means we are exiting via the builtin exit or quit functions.
  4136.   static bool quitting_gracefully = false;
  4137.   
  4138. ***************
  4139. *** 98,103 ****
  4140. --- 108,117 ----
  4141.   
  4142.     if (setjmp (toplevel) != 0)
  4143.       {
  4144. + #if defined (__EMX__) && defined (OS2)
  4145. +       unwind_protect::run_all ();
  4146. + #endif
  4147. + 
  4148.         raw_mode (0);
  4149.   
  4150.         cout << "\n";
  4151. ***************
  4152. *** 114,119 ****
  4153. --- 128,138 ----
  4154.     int retval;
  4155.     do
  4156.       {
  4157. + #ifdef __EMX__
  4158. +       can_interrupt = 1;
  4159. +       octave_catch_interrupts ();
  4160. + #endif
  4161. + 
  4162.         curr_sym_tab = top_level_sym_tab;
  4163.   
  4164.         reset_parser ();
  4165. ***************
  4166. *** 128,134 ****
  4167.   
  4168.         global_command = 0;
  4169.   
  4170. !       if (! (interactive || forced_interactive))
  4171.           {
  4172.             bool quit = (tree_return_command::returning
  4173.                  || tree_break_command::breaking);
  4174. --- 147,154 ----
  4175.   
  4176.         global_command = 0;
  4177.   
  4178. !       if (! (interactive || forced_interactive
  4179. !          || really_forced_interactive))
  4180.           {
  4181.             bool quit = (tree_return_command::returning
  4182.                  || tree_break_command::breaking);
  4183. ***************
  4184. *** 145,151 ****
  4185.   
  4186.         if (error_state)
  4187.           {
  4188. !           if (! (interactive || forced_interactive))
  4189.           break;
  4190.           }
  4191.         else
  4192. --- 165,172 ----
  4193.   
  4194.         if (error_state)
  4195.           {
  4196. !           if (! (interactive || forced_interactive
  4197. !              || really_forced_interactive))
  4198.           break;
  4199.           }
  4200.         else
  4201. ***************
  4202. *** 169,174 ****
  4203. --- 190,199 ----
  4204.   {
  4205.     do_octave_atexit ();
  4206.   
  4207. + #if defined (__EMX__)
  4208. +   _sleep2 (500);
  4209. + #endif
  4210. + 
  4211.     exit (retval == EOF ? 0 : retval);
  4212.   }
  4213.   
  4214. ***************
  4215. *** 296,307 ****
  4216.   
  4217.   // Execute a shell command.
  4218.   
  4219.   static void
  4220.   cleanup_iprocstream (void *p)
  4221.   {
  4222.     iprocstream *cmd = static_cast<iprocstream *> (p);
  4223.   
  4224. !   octave_child_list::remove (cmd->pid ());
  4225.   
  4226.     delete cmd;
  4227.   }
  4228. --- 321,341 ----
  4229.   
  4230.   // Execute a shell command.
  4231.   
  4232. + static int cmd_status = -1;
  4233. + static int cmd_pid    = -1;
  4234. + 
  4235. + static void
  4236. + cmd_death_handler (pid_t, int status)
  4237. + {
  4238. +   cmd_status = status;
  4239. + }
  4240. + 
  4241.   static void
  4242.   cleanup_iprocstream (void *p)
  4243.   {
  4244.     iprocstream *cmd = static_cast<iprocstream *> (p);
  4245.   
  4246. !   octave_child_list::remove (cmd_pid);
  4247.   
  4248.     delete cmd;
  4249.   }
  4250. ***************
  4251. *** 313,320 ****
  4252. --- 347,359 ----
  4253.   
  4254.     iprocstream *cmd = new iprocstream (cmd_str.c_str ());
  4255.   
  4256. +   cmd_status = -1;
  4257. + 
  4258.     if (cmd)
  4259.       {
  4260. +       cmd_pid = cmd->pid ();
  4261. +       octave_child_list::insert (cmd_pid, cmd_death_handler);
  4262. + 
  4263.         unwind_protect::add (cleanup_iprocstream, cmd);
  4264.   
  4265.         if (*cmd)
  4266. ***************
  4267. *** 344,350 ****
  4268.         while (cmd->get (ch))
  4269.           output_buf.put (ch);
  4270.   
  4271. !       int cmd_status = cmd->close ();
  4272.   
  4273.         if (WIFEXITED (cmd_status))
  4274.           cmd_status = WEXITSTATUS (cmd_status);
  4275. --- 383,389 ----
  4276.         while (cmd->get (ch))
  4277.           output_buf.put (ch);
  4278.   
  4279. !       cmd_status = cmd->close ();
  4280.   
  4281.         if (WIFEXITED (cmd_status))
  4282.           cmd_status = WEXITSTATUS (cmd_status);
  4283. ***************
  4284. *** 421,427 ****
  4285. --- 460,470 ----
  4286.   
  4287.         string cmd_str = args(0).string_value ();
  4288.   
  4289. + #if defined (__EMX__) && defined (OS2)
  4290. +       enum exec_type { sync, async, pm };
  4291. + #else
  4292.         enum exec_type { sync, async };
  4293. + #endif
  4294.   
  4295.         exec_type type = sync;
  4296.   
  4297. ***************
  4298. *** 437,444 ****
  4299. --- 480,495 ----
  4300.               type = sync;
  4301.             else if (type_str == "async")
  4302.               type = async;
  4303. + #if defined (__EMX__) && defined (OS2)
  4304. +           else if (type_str == "pm")
  4305. +             type = pm;
  4306. +           else
  4307. +             error ("system: third arg must be \"sync\" , \"async\""
  4308. +                "or \"pm\"");
  4309. + #else
  4310.             else
  4311.               error ("system: third arg must be \"sync\" or \"async\"");
  4312. + #endif
  4313.           }
  4314.             else
  4315.           error ("system: third argument must be a string");
  4316. ***************
  4317. *** 449,456 ****
  4318. --- 500,512 ----
  4319.   
  4320.         if (! error_state)
  4321.       {
  4322. + #if defined (__EMX__) && defined (OS2)
  4323. +       if (type == async || type == pm)
  4324. + #else
  4325.         if (type == async)
  4326. + #endif
  4327.           {
  4328. + #ifndef __EMX__
  4329.             pid_t pid = fork ();
  4330.   
  4331.             if (pid < 0) 
  4332. ***************
  4333. *** 466,478 ****
  4334. --- 522,555 ----
  4335.           }
  4336.             else
  4337.           retval(0) = static_cast<double> (pid);
  4338. + #else
  4339. +           pid_t pid;
  4340. +           int p_mode;
  4341. + #ifdef OS2
  4342. +           if (type == pm)  p_mode = P_PM;
  4343. +           else             p_mode = P_NOWAIT;
  4344. + #else
  4345. +           p_mode = P_NOWAIT;
  4346. + #endif
  4347. +           pid = _IO_system (cmd_str.c_str (), p_mode);
  4348. + 
  4349. +           if (pid < 0)
  4350. +         error ("system: spawn failed -- can't create child process");
  4351. +           else
  4352. +         retval(0) = (double) pid;
  4353. + #endif
  4354.           }
  4355.         else if (return_output)
  4356.           retval = run_command_and_return_output (cmd_str);
  4357.         else
  4358.           {
  4359. + #ifdef __EMX__
  4360. +           int status = _IO_system (cmd_str.c_str (), P_WAIT);
  4361. + #else
  4362.             int status = system (cmd_str.c_str ());
  4363. + #endif
  4364.   
  4365. + #ifndef __EMX__
  4366.             // The value in status is as returned by waitpid.  If
  4367.             // the process exited normally, extract the actual exit
  4368.             // status of the command.  Otherwise, return 127 as a
  4369. ***************
  4370. *** 480,485 ****
  4371. --- 557,565 ----
  4372.   
  4373.             if (WIFEXITED (status))
  4374.           status = WEXITSTATUS (status);
  4375. +           else
  4376. +         status = 127;
  4377. + #endif
  4378.   
  4379.             retval = static_cast<double> (status);
  4380.           }
  4381. ***************
  4382. *** 493,501 ****
  4383.   
  4384.   DEFALIAS (shell_cmd, system);
  4385.   
  4386. ! // XXX FIXME XXX -- this should really be static, but that causes
  4387. ! // problems on some systems.
  4388. ! SLStack<string> octave_atexit_functions;
  4389.   
  4390.   void
  4391.   do_octave_atexit (void)
  4392. --- 573,579 ----
  4393.   
  4394.   DEFALIAS (shell_cmd, system);
  4395.   
  4396. ! static SLStack<string> octave_atexit_functions;
  4397.   
  4398.   void
  4399.   do_octave_atexit (void)
  4400. ***************
  4401. *** 530,536 ****
  4402.   
  4403.         flush_octave_stdout ();
  4404.   
  4405. !       if (!quitting_gracefully && (interactive || forced_interactive))
  4406.       cout << "\n";
  4407.       }
  4408.   }
  4409. --- 608,615 ----
  4410.   
  4411.         flush_octave_stdout ();
  4412.   
  4413. !       if (!quitting_gracefully &&
  4414. !       (interactive || forced_interactive || really_forced_interactive))
  4415.       cout << "\n";
  4416.       }
  4417.   }
  4418. diff -cwr n:/project/C/octave-2.1.23.orig/src/utils.cc i:/project/C/octave-2.1.23/src/utils.cc
  4419. *** n:/project/C/octave-2.1.23.orig/src/utils.cc    Tue Nov 23 21:54:30 1999
  4420. --- i:/project/C/octave-2.1.23/src/utils.cc    Fri Dec 24 13:37:50 1999
  4421. ***************
  4422. *** 20,25 ****
  4423. --- 20,27 ----
  4424.   
  4425.   */
  4426.   
  4427. + /* Modified by Klaus Gebhardt, 1996 */
  4428. + 
  4429.   #ifdef HAVE_CONFIG_H
  4430.   #include <config.h>
  4431.   #endif
  4432. ***************
  4433. *** 90,96 ****
  4434. --- 92,100 ----
  4435.   void
  4436.   jump_to_top_level (void)
  4437.   {
  4438. + #if ! defined (__EMX__) || ! defined (OS2)
  4439.     unwind_protect::run_all ();
  4440. + #endif
  4441.   
  4442.     longjmp (toplevel, 1);
  4443.   }
  4444. diff -cwr n:/project/C/octave-2.1.23.orig/src/variables.cc i:/project/C/octave-2.1.23/src/variables.cc
  4445. *** n:/project/C/octave-2.1.23.orig/src/variables.cc    Tue Dec 14 08:11:52 1999
  4446. --- i:/project/C/octave-2.1.23/src/variables.cc    Fri Dec 24 16:46:12 1999
  4447. ***************
  4448. *** 20,25 ****
  4449. --- 20,27 ----
  4450.   
  4451.   */
  4452.   
  4453. + /* Modified by Klaus Gebhardt, 1996 - 1998 */
  4454. + 
  4455.   #ifdef HAVE_CONFIG_H
  4456.   #include <config.h>
  4457.   #endif
  4458. ***************
  4459. *** 33,38 ****
  4460. --- 35,41 ----
  4461.   #include "oct-env.h"
  4462.   #include "glob-match.h"
  4463.   #include "str-vec.h"
  4464. + #include "lo-mappers.h"
  4465.   
  4466.   #include <defaults.h>
  4467.   #include "defun.h"
  4468. ***************
  4469. *** 44,49 ****
  4470. --- 47,55 ----
  4471.   #include "lex.h"
  4472.   #include "oct-map.h"
  4473.   #include "oct-obj.h"
  4474. + #ifndef __EMX__
  4475. + #include "oct-procbuf.h"
  4476. + #endif
  4477.   #include "ov.h"
  4478.   #include "pager.h"
  4479.   #include "parse.h"
  4480. ***************
  4481. *** 1221,1226 ****
  4482. --- 1227,1267 ----
  4483.   
  4484.     return retval;
  4485.   }
  4486. + 
  4487. + #ifdef __EMX__
  4488. + // We are using a general procbuf!
  4489. + // So this has to be defined here.
  4490. + // Klaus Gebhardt, 1998
  4491. + 
  4492. + static int Vkluge_procbuf_delay = 0;
  4493. + 
  4494. + static int
  4495. + kluge_procbuf_delay (void)
  4496. + {
  4497. +   double val;
  4498. +   if (builtin_real_scalar_variable ("kluge_procbuf_delay", val)
  4499. +       && ! xisnan (val))
  4500. +     {
  4501. +       int ival = NINT (val);
  4502. +       if (ival >= 0 && (double) ival == val)
  4503. +         {
  4504. +           Vkluge_procbuf_delay = ival;
  4505. +           return 0;
  4506. +         }
  4507. +     }
  4508. +   gripe_invalid_value_specified ("kluge_procbuf_delay");
  4509. +   return -1;
  4510. + }
  4511. + 
  4512. + void
  4513. + symbols_of_oct_procbuf (void)
  4514. + {
  4515. +   DEFVAR (kluge_procbuf_delay, static_cast<double> (Vkluge_procbuf_delay),
  4516. +           kluge_procbuf_delay,
  4517. +     "number of microseconds to delay in the parent after forking\n\
  4518. + (not used under OS/2)");
  4519. + }
  4520. + #endif
  4521.   
  4522.   DEFUN (__dump_symtab_info__, args, ,
  4523.     "__dump_symtab_info__ (): print raw symbol table statistices")
  4524. diff -cwr n:/project/C/octave-2.1.23.orig/src/version.h i:/project/C/octave-2.1.23/src/version.h
  4525. *** n:/project/C/octave-2.1.23.orig/src/version.h    Sat Dec 18 03:06:04 1999
  4526. --- i:/project/C/octave-2.1.23/src/version.h    Fri Dec 24 13:37:52 1999
  4527. ***************
  4528. *** 23,28 ****
  4529. --- 23,59 ----
  4530.   #if !defined (octave_version_h)
  4531.   #define octave_version_h 1
  4532.   
  4533. + /* Modified by Klaus Gebhardt, 1996 - 1998 */
  4534. + 
  4535. + #if defined (__EMX__) && defined (OS2)
  4536. + #define OCTAVE_VERSION "2.1.23"
  4537. + #define OCTAVE_OS2_PATCHLEVEL "2.1.23-b01"
  4538. + 
  4539. + #define OCTAVE_COPYRIGHT \
  4540. + "Copyright (C) 1996, 1997, 1998 John W. Eaton.\n\
  4541. + OS/2-Port by Klaus Gebhardt, 1996 - 1999."
  4542. + 
  4543. + #define OCTAVE_NAME_AND_VERSION \
  4544. + "Octave " OCTAVE_VERSION " for OS/2 2.x, Warp 3 and Warp 4.\n(Patchlevel " \
  4545. + OCTAVE_OS2_PATCHLEVEL ")"
  4546. + 
  4547. + #define OCTAVE_NAME_VERSION_AND_COPYRIGHT \
  4548. +   OCTAVE_NAME_AND_VERSION ".\n" OCTAVE_COPYRIGHT "\n\
  4549. + This is free software with ABSOLUTELY NO WARRANTY."
  4550. + 
  4551. + #define OCTAVE_STARTUP_MESSAGE \
  4552. +   OCTAVE_NAME_VERSION_AND_COPYRIGHT "\n\
  4553. + For details, type `warranty'.\n\
  4554. + \n\
  4555. + *** This is a development version of Octave.  Development releases\n\
  4556. + *** are provided for people who want to help test, debug, and improve\n\
  4557. + *** Octave.\n\
  4558. + ***\n\
  4559. + *** If you want a stable, well-tested version of Octave, you should be\n\
  4560. + *** using one of the stable releases (when this development release\n\
  4561. + *** was made, the latest stable version was 2.0.13)."
  4562. + 
  4563. + #else
  4564.   #define OCTAVE_VERSION "2.1.23"
  4565.   
  4566.   #define OCTAVE_COPYRIGHT \
  4567. ***************
  4568. *** 47,52 ****
  4569. --- 78,84 ----
  4570.   *** using one of the stable releases (when this development release\n\
  4571.   *** was made, the latest stable version was 2.0.14)."
  4572.   
  4573. + #endif
  4574.   #endif
  4575.   
  4576.   /*
  4577. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/colormap.m i:/project/C/octave-2.1.23/scripts/image/colormap.m
  4578. *** n:/project/C/octave-2.1.23.orig/scripts/image/colormap.m    Wed Dec 15 21:48:40 1999
  4579. --- i:/project/C/octave-2.1.23/scripts/image/colormap.m    Fri Dec 24 20:47:06 1999
  4580. ***************
  4581. *** 1,4 ****
  4582. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4583.   ##
  4584.   ## This file is part of Octave.
  4585.   ##
  4586. --- 1,4 ----
  4587. ! ## Copyright (C) 1996 John W. Eaton
  4588.   ##
  4589.   ## This file is part of Octave.
  4590.   ##
  4591. ***************
  4592. *** 33,39 ****
  4593.   ## With no arguments, @code{colormap} returns the current color map.
  4594.   ## @end deftypefn
  4595.   
  4596. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4597.   ## Created: July 1994
  4598.   ## Adapted-By: jwe
  4599.   
  4600. --- 33,39 ----
  4601.   ## With no arguments, @code{colormap} returns the current color map.
  4602.   ## @end deftypefn
  4603.   
  4604. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4605.   ## Created: July 1994
  4606.   ## Adapted-By: jwe
  4607.   
  4608. ***************
  4609. *** 46,80 ****
  4610.     endif
  4611.   
  4612.     if (nargin == 1)
  4613. - 
  4614.       if (isstr (map))
  4615.         if (strcmp (map, "default"))
  4616. !         map = gray ();
  4617.         else
  4618. !     unwind_protect
  4619. !       save_default_eval_print_flag = default_eval_print_flag;
  4620. !       default_eval_print_flag = 0;
  4621. !       map = eval (map);
  4622. !     unwind_protect_cleanup
  4623. !       default_eval_print_flag = save_default_eval_print_flag;
  4624. !     end_unwind_protect
  4625. !       endif
  4626. !     endif
  4627. ! 
  4628. !     if (! isempty (map))
  4629. !       if (columns (map) != 3)
  4630. !     error( "colormap: map must have 3 columns: [R,G,B]." );
  4631. !       endif
  4632. !       if (min (min (map)) < 0 || max (max (map)) > 1)
  4633. !         error( "colormap: map must have values in [0,1]." );
  4634.         endif
  4635.         ## Set the new color map
  4636.         __current_color_map__ = map;
  4637.       endif
  4638. - 
  4639.     endif
  4640.   
  4641.     ## Return current color map.
  4642.     cmap = __current_color_map__;
  4643.   
  4644.   endfunction
  4645. --- 46,65 ----
  4646.     endif
  4647.   
  4648.     if (nargin == 1)
  4649.       if (isstr (map))
  4650.         if (strcmp (map, "default"))
  4651. !         __current_color_map__ = gray ();
  4652.         else
  4653. !         error ("invalid argument");
  4654.         endif
  4655. +     else
  4656.         ## Set the new color map
  4657.         __current_color_map__ = map;
  4658.       endif
  4659.     endif
  4660.   
  4661.     ## Return current color map.
  4662. + 
  4663.     cmap = __current_color_map__;
  4664.   
  4665.   endfunction
  4666. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/gray.m i:/project/C/octave-2.1.23/scripts/image/gray.m
  4667. *** n:/project/C/octave-2.1.23.orig/scripts/image/gray.m    Wed Dec 15 21:48:40 1999
  4668. --- i:/project/C/octave-2.1.23/scripts/image/gray.m    Fri Dec 24 20:47:06 1999
  4669. ***************
  4670. *** 1,4 ****
  4671. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4672.   ##
  4673.   ## This file is part of Octave.
  4674.   ##
  4675. --- 1,4 ----
  4676. ! ## Copyright (C) 1996 John W. Eaton
  4677.   ##
  4678.   ## This file is part of Octave.
  4679.   ##
  4680. ***************
  4681. *** 24,30 ****
  4682.   ## omitted, 64 is assumed.
  4683.   ## @end deftypefn
  4684.   
  4685. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4686.   ## Created: July 1994
  4687.   ## Adapted-By: jwe
  4688.   
  4689. --- 24,30 ----
  4690.   ## omitted, 64 is assumed.
  4691.   ## @end deftypefn
  4692.   
  4693. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4694.   ## Created: July 1994
  4695.   ## Adapted-By: jwe
  4696.   
  4697. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/gray2ind.m i:/project/C/octave-2.1.23/scripts/image/gray2ind.m
  4698. *** n:/project/C/octave-2.1.23.orig/scripts/image/gray2ind.m    Wed Dec 15 21:48:40 1999
  4699. --- i:/project/C/octave-2.1.23/scripts/image/gray2ind.m    Fri Dec 24 20:47:06 1999
  4700. ***************
  4701. *** 1,4 ****
  4702. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4703.   ##
  4704.   ## This file is part of Octave.
  4705.   ##
  4706. --- 1,4 ----
  4707. ! ## Copyright (C) 1996 John W. Eaton
  4708.   ##
  4709.   ## This file is part of Octave.
  4710.   ##
  4711. ***************
  4712. *** 22,28 ****
  4713.   ## Convert a gray scale intensity image to an Octave indexed image.
  4714.   ## @end deftypefn
  4715.   
  4716. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4717.   ## Created: July 1994
  4718.   ## Adapted-By: jwe
  4719.   
  4720. --- 22,28 ----
  4721.   ## Convert a gray scale intensity image to an Octave indexed image.
  4722.   ## @end deftypefn
  4723.   
  4724. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4725.   ## Created: July 1994
  4726.   ## Adapted-By: jwe
  4727.   
  4728. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/image.m i:/project/C/octave-2.1.23/scripts/image/image.m
  4729. *** n:/project/C/octave-2.1.23.orig/scripts/image/image.m    Wed Dec 15 21:48:40 1999
  4730. --- i:/project/C/octave-2.1.23/scripts/image/image.m    Fri Dec 24 21:01:04 1999
  4731. ***************
  4732. *** 1,4 ****
  4733. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4734.   ##
  4735.   ## This file is part of Octave.
  4736.   ##
  4737. --- 1,4 ----
  4738. ! ## Copyright (C) 1996 John W. Eaton
  4739.   ##
  4740.   ## This file is part of Octave.
  4741.   ##
  4742. ***************
  4743. *** 21,27 ****
  4744.   ## @deftypefn {Function File} {} image (@var{x}, @var{zoom})
  4745.   ## Display a matrix as a color image.  The elements of @var{x} are indices
  4746.   ## into the current colormap and should have values between 1 and the
  4747. ! ## length of the colormap.  If @var{zoom} is omitted, a value of 4 is
  4748.   ## assumed. 
  4749.   ## @end deftypefn
  4750.   
  4751. --- 21,27 ----
  4752.   ## @deftypefn {Function File} {} image (@var{x}, @var{zoom})
  4753.   ## Display a matrix as a color image.  The elements of @var{x} are indices
  4754.   ## into the current colormap and should have values between 1 and the
  4755. ! ## length of the colormap.  If @var{zoom} is omitted, a value of 1 is
  4756.   ## assumed. 
  4757.   ## @end deftypefn
  4758.   
  4759. ***************
  4760. *** 30,66 ****
  4761.   ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4762.   ## Created: July 1994
  4763.   ## Adapted-By: jwe
  4764.   
  4765.   function image (x, zoom)
  4766.   
  4767.     if (nargin == 0)
  4768.       ## Load Bobbie Jo Richardson (Born 3/16/94)
  4769. !     x = loadimage ("default.img");
  4770. !     zoom = 2;
  4771.     elseif (nargin == 1)
  4772. !     zoom = 4;
  4773.     elseif (nargin > 2)
  4774.       usage ("image (matrix, [zoom])");
  4775.     endif
  4776.   
  4777. !   ppm_name = tmpnam ();
  4778.   
  4779. !   saveimage (ppm_name, x, "ppm");
  4780.   
  4781. !   ## Start the viewer.  Try xv, then xloadimage.
  4782.   
  4783. !   xv = sprintf ("xv -expand %f %s", zoom, ppm_name);
  4784. ! 
  4785. !   xloadimage = sprintf ("xloadimage -zoom %f %s", zoom*100, ppm_name);
  4786. ! 
  4787. !   rm = sprintf ("rm -f %s", ppm_name);
  4788. ! 
  4789. !   ## Need to let the shell clean up the tmp file because we are putting
  4790. !   ## the viewer in the background.
  4791. ! 
  4792. !   command = sprintf ("( %s || %s && %s ) > /dev/null 2>&1 &",
  4793. !              xv, xloadimage, rm);
  4794. ! 
  4795. !   system (command);
  4796.   
  4797.   endfunction
  4798. --- 30,56 ----
  4799.   ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4800.   ## Created: July 1994
  4801.   ## Adapted-By: jwe
  4802. + ## Modified by Klaus Gebhardt, 1996 - 1997
  4803.   
  4804.   function image (x, zoom)
  4805.   
  4806.     if (nargin == 0)
  4807.       ## Load Bobbie Jo Richardson (Born 3/16/94)
  4808. !     [x, map] = loadimage ("default.img");
  4809.     elseif (nargin == 1)
  4810. !     zoom = 1;
  4811.     elseif (nargin > 2)
  4812.       usage ("image (matrix, [zoom])");
  4813.     endif
  4814.   
  4815. !   pnm_name = tmpnam ();
  4816.   
  4817. !   saveimage (pnm_name, x, "pnm");
  4818.   
  4819. !   ## Start the viewer.
  4820. !   i = findstr (pnm_name, "/");
  4821. !   pnm_name (i) = "\\";
  4822.   
  4823. !   system (sprintf ("oct-view %s %f", pnm_name, zoom));
  4824.   
  4825.   endfunction
  4826. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/imagesc.m i:/project/C/octave-2.1.23/scripts/image/imagesc.m
  4827. *** n:/project/C/octave-2.1.23.orig/scripts/image/imagesc.m    Wed Dec 15 21:48:40 1999
  4828. --- i:/project/C/octave-2.1.23/scripts/image/imagesc.m    Fri Dec 24 20:47:06 1999
  4829. ***************
  4830. *** 1,4 ****
  4831. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4832.   ##
  4833.   ## This file is part of Octave.
  4834.   ##
  4835. --- 1,4 ----
  4836. ! ## Copyright (C) 1996 John W. Eaton
  4837.   ##
  4838.   ## This file is part of Octave.
  4839.   ##
  4840. ***************
  4841. *** 27,40 ****
  4842.   
  4843.   ## SEE ALSO: image, imshow
  4844.   
  4845. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4846.   ## Created: July 1994
  4847.   ## Adapted-By: jwe
  4848.   
  4849. ! function y = imagesc (x, zoom)
  4850.   
  4851.     if (nargin < 1 || nargin > 2)
  4852. !     usage ("imagesc (matrix, [zoom])");
  4853.     elseif (nargin == 1)
  4854.       zoom = 4;
  4855.     endif
  4856. --- 27,40 ----
  4857.   
  4858.   ## SEE ALSO: image, imshow
  4859.   
  4860. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4861.   ## Created: July 1994
  4862.   ## Adapted-By: jwe
  4863.   
  4864. ! function x = imagesc (x, zoom)
  4865.   
  4866.     if (nargin < 1 || nargin > 2)
  4867. !     usage ("image (matrix, [zoom])");
  4868.     elseif (nargin == 1)
  4869.       zoom = 4;
  4870.     endif
  4871. ***************
  4872. *** 48,59 ****
  4873.     ## length (colormap) inclusive.
  4874.   
  4875.     if (maxval == minval)
  4876. !     y = ones (high, wide);
  4877.     else
  4878.       ## Rescale values to between 1 and length (colormap) inclusive.
  4879. !     y = round ((x - minval) / (maxval - minval) * (rows (colormap) - 1)) + 1;
  4880.     endif
  4881.   
  4882. !   image (y, zoom);
  4883.   
  4884.   endfunction
  4885. --- 48,59 ----
  4886.     ## length (colormap) inclusive.
  4887.   
  4888.     if (maxval == minval)
  4889. !     x = ones (high, wide);
  4890.     else
  4891.       ## Rescale values to between 1 and length (colormap) inclusive.
  4892. !     x = fix ((x - minval) / (maxval - minval) * (length (colormap) - 1)) + 1;
  4893.     endif
  4894.   
  4895. !   image (x, zoom);
  4896.   
  4897.   endfunction
  4898. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/imshow.m i:/project/C/octave-2.1.23/scripts/image/imshow.m
  4899. *** n:/project/C/octave-2.1.23.orig/scripts/image/imshow.m    Wed Dec 15 21:48:40 1999
  4900. --- i:/project/C/octave-2.1.23/scripts/image/imshow.m    Fri Dec 24 20:47:06 1999
  4901. ***************
  4902. *** 1,4 ****
  4903. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4904.   ##
  4905.   ## This file is part of Octave.
  4906.   ##
  4907. --- 1,4 ----
  4908. ! ## Copyright (C) 1996 John W. Eaton
  4909.   ##
  4910.   ## This file is part of Octave.
  4911.   ##
  4912. ***************
  4913. *** 37,43 ****
  4914.   
  4915.   ## SEE ALSO: image, imagesc, colormap, gray2ind, rgb2ind.
  4916.   
  4917. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4918.   ## Created: July 1994
  4919.   ## Adapted-By: jwe
  4920.   
  4921. --- 37,43 ----
  4922.   
  4923.   ## SEE ALSO: image, imagesc, colormap, gray2ind, rgb2ind.
  4924.   
  4925. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4926.   ## Created: July 1994
  4927.   ## Adapted-By: jwe
  4928.   
  4929. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/ind2gray.m i:/project/C/octave-2.1.23/scripts/image/ind2gray.m
  4930. *** n:/project/C/octave-2.1.23.orig/scripts/image/ind2gray.m    Wed Dec 15 21:48:40 1999
  4931. --- i:/project/C/octave-2.1.23/scripts/image/ind2gray.m    Fri Dec 24 20:47:08 1999
  4932. ***************
  4933. *** 1,4 ****
  4934. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4935.   ##
  4936.   ## This file is part of Octave.
  4937.   ##
  4938. --- 1,4 ----
  4939. ! ## Copyright (C) 1996 John W. Eaton
  4940.   ##
  4941.   ## This file is part of Octave.
  4942.   ##
  4943. ***************
  4944. *** 26,32 ****
  4945.   
  4946.   ## SEE ALSO: gray2ind, rgb2ntsc, image, colormap
  4947.   
  4948. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4949.   ## Created: July 1994
  4950.   ## Adapted-By: jwe
  4951.   
  4952. --- 26,32 ----
  4953.   
  4954.   ## SEE ALSO: gray2ind, rgb2ntsc, image, colormap
  4955.   
  4956. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4957.   ## Created: July 1994
  4958.   ## Adapted-By: jwe
  4959.   
  4960. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/ind2rgb.m i:/project/C/octave-2.1.23/scripts/image/ind2rgb.m
  4961. *** n:/project/C/octave-2.1.23.orig/scripts/image/ind2rgb.m    Wed Dec 15 21:48:42 1999
  4962. --- i:/project/C/octave-2.1.23/scripts/image/ind2rgb.m    Fri Dec 24 20:47:08 1999
  4963. ***************
  4964. *** 1,4 ****
  4965. ! ## Copyright (C) 1996, 1997 John W. Eaton
  4966.   ##
  4967.   ## This file is part of Octave.
  4968.   ##
  4969. --- 1,4 ----
  4970. ! ## Copyright (C) 1996 John W. Eaton
  4971.   ##
  4972.   ## This file is part of Octave.
  4973.   ##
  4974. ***************
  4975. *** 25,31 ****
  4976.   
  4977.   ## SEE ALSO: rgb2ind, image, imshow, ind2gray, gray2ind.
  4978.   
  4979. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  4980.   ## Created: July 1994
  4981.   ## Adapted-By: jwe
  4982.   
  4983. --- 25,31 ----
  4984.   
  4985.   ## SEE ALSO: rgb2ind, image, imshow, ind2gray, gray2ind.
  4986.   
  4987. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4988.   ## Created: July 1994
  4989.   ## Adapted-By: jwe
  4990.   
  4991. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/loadimage.m i:/project/C/octave-2.1.23/scripts/image/loadimage.m
  4992. *** n:/project/C/octave-2.1.23.orig/scripts/image/loadimage.m    Wed Dec 15 21:48:42 1999
  4993. --- i:/project/C/octave-2.1.23/scripts/image/loadimage.m    Fri Dec 24 20:53:40 1999
  4994. ***************
  4995. *** 25,64 ****
  4996.   
  4997.   ## SEE ALSO: saveimage, load, save
  4998.   
  4999. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5000. ! ## Created: July 1994
  5001. ! ## Adapted-By: jwe
  5002.   
  5003. ! function [img_retval, map_retval] = loadimage (filename)
  5004.   
  5005. !   if (nargin != 1)
  5006. !     usage ("[img, map] = loadimage (filename)");
  5007.     elseif (! isstr (filename))
  5008.       error ("loadimage: expecting filename as a string");
  5009.     endif
  5010.   
  5011. !   file = file_in_path (IMAGEPATH, filename);
  5012. ! 
  5013. !   if (isempty (file))
  5014. !     error ("loadimage: unable to find image file");
  5015.     endif
  5016.   
  5017. !   ## The file is assumed to have variables img and map, or X and map.
  5018.   
  5019. !   eval (['load ', file]);
  5020.   
  5021. !   if (exist ("img"))
  5022. !     img_retval = img;
  5023. !   elseif (exist ("X"))
  5024. !     img_retval = X;
  5025. !   else
  5026. !     error ("loadimage: invalid image file found");
  5027.     endif
  5028.   
  5029. !   if (exist ("map"))
  5030. !     map_retval = map;
  5031. !   else
  5032. !     error ("loadimage: invalid image file found");
  5033. !   endif
  5034.   
  5035.   endfunction
  5036. --- 25,55 ----
  5037.   
  5038.   ## SEE ALSO: saveimage, load, save
  5039.   
  5040. ! ## Author: Klaus Gebhardt <110114.1371@compuserve.com>
  5041. ! ## Created: November 1996
  5042.   
  5043. ! function [X, map] = loadimage (filename, fmt)
  5044.   
  5045. !   if (nargin != 1 && nargin != 2)
  5046. !     usage ("loadimage (filename[, fmt])");
  5047.     elseif (! isstr (filename))
  5048.       error ("loadimage: expecting filename as a string");
  5049.     endif
  5050.   
  5051. !   if (nargin == 1)
  5052. !     fmt = "img";
  5053.     endif
  5054.   
  5055. !   if (! isstr (fmt))
  5056. !     error ("loadimage: expecting fmt as a string");
  5057. !   endif
  5058.   
  5059. !   file = file_in_path (IMAGEPATH, filename);
  5060.   
  5061. !   if (isempty (file))
  5062. !     error ("loadimage: unable to find image file");
  5063.     endif
  5064.   
  5065. !   eval (sprintf ("[X, map] = %s_dec (file);", fmt));
  5066.   
  5067.   endfunction
  5068. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/ntsc2rgb.m i:/project/C/octave-2.1.23/scripts/image/ntsc2rgb.m
  5069. *** n:/project/C/octave-2.1.23.orig/scripts/image/ntsc2rgb.m    Wed Dec 15 21:48:42 1999
  5070. --- i:/project/C/octave-2.1.23/scripts/image/ntsc2rgb.m    Fri Dec 24 20:47:08 1999
  5071. ***************
  5072. *** 1,4 ****
  5073. ! ## Copyright (C) 1996, 1997 John W. Eaton
  5074.   ##
  5075.   ## This file is part of Octave.
  5076.   ##
  5077. --- 1,4 ----
  5078. ! ## Copyright (C) 1996 John W. Eaton
  5079.   ##
  5080.   ## This file is part of Octave.
  5081.   ##
  5082. ***************
  5083. *** 22,28 ****
  5084.   ## Image format conversion.
  5085.   ## @end deftypefn
  5086.   
  5087. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5088.   ## Created: July 1994
  5089.   ## Adapted-By: jwe
  5090.   
  5091. --- 22,28 ----
  5092.   ## Image format conversion.
  5093.   ## @end deftypefn
  5094.   
  5095. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  5096.   ## Created: July 1994
  5097.   ## Adapted-By: jwe
  5098.   
  5099. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/ocean.m i:/project/C/octave-2.1.23/scripts/image/ocean.m
  5100. *** n:/project/C/octave-2.1.23.orig/scripts/image/ocean.m    Wed Dec 15 21:48:42 1999
  5101. --- i:/project/C/octave-2.1.23/scripts/image/ocean.m    Fri Dec 24 20:47:08 1999
  5102. ***************
  5103. *** 1,4 ****
  5104. ! ## Copyright (C) 1996, 1997 John W. Eaton
  5105.   ##
  5106.   ## This file is part of Octave.
  5107.   ##
  5108. --- 1,4 ----
  5109. ! ## Copyright (C) 1996 John W. Eaton
  5110.   ##
  5111.   ## This file is part of Octave.
  5112.   ##
  5113. ***************
  5114. *** 23,29 ****
  5115.   ## is omitted, 64 is assumed.
  5116.   ## @end deftypefn
  5117.   
  5118. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5119.   ## Created: July 1994
  5120.   ## Adapted-By: jwe
  5121.   
  5122. --- 23,29 ----
  5123.   ## is omitted, 64 is assumed.
  5124.   ## @end deftypefn
  5125.   
  5126. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  5127.   ## Created: July 1994
  5128.   ## Adapted-By: jwe
  5129.   
  5130. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/rgb2ind.m i:/project/C/octave-2.1.23/scripts/image/rgb2ind.m
  5131. *** n:/project/C/octave-2.1.23.orig/scripts/image/rgb2ind.m    Wed Dec 15 21:48:42 1999
  5132. --- i:/project/C/octave-2.1.23/scripts/image/rgb2ind.m    Fri Dec 24 20:47:08 1999
  5133. ***************
  5134. *** 1,4 ****
  5135. ! ## Copyright (C) 1996, 1997 John W. Eaton
  5136.   ##
  5137.   ## This file is part of Octave.
  5138.   ##
  5139. --- 1,4 ----
  5140. ! ## Copyright (C) 1996 John W. Eaton
  5141.   ##
  5142.   ## This file is part of Octave.
  5143.   ##
  5144. ***************
  5145. *** 26,32 ****
  5146.   ##
  5147.   ## Bugs: The color map may have duplicate entries.
  5148.   
  5149. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5150.   ## Created: July 1994
  5151.   ## Adapted-By: jwe
  5152.   
  5153. --- 26,32 ----
  5154.   ##
  5155.   ## Bugs: The color map may have duplicate entries.
  5156.   
  5157. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  5158.   ## Created: July 1994
  5159.   ## Adapted-By: jwe
  5160.   
  5161. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/rgb2ntsc.m i:/project/C/octave-2.1.23/scripts/image/rgb2ntsc.m
  5162. *** n:/project/C/octave-2.1.23.orig/scripts/image/rgb2ntsc.m    Wed Dec 15 21:48:42 1999
  5163. --- i:/project/C/octave-2.1.23/scripts/image/rgb2ntsc.m    Fri Dec 24 20:47:08 1999
  5164. ***************
  5165. *** 1,4 ****
  5166. ! ## Copyright (C) 1996, 1997 John W. Eaton
  5167.   ##
  5168.   ## This file is part of Octave.
  5169.   ##
  5170. --- 1,4 ----
  5171. ! ## Copyright (C) 1996 John W. Eaton
  5172.   ##
  5173.   ## This file is part of Octave.
  5174.   ##
  5175. ***************
  5176. *** 22,28 ****
  5177.   ## Image format conversion.
  5178.   ## @end deftypefn
  5179.   
  5180. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5181.   ## Created: July 1994
  5182.   ## Adapted-By: jwe
  5183.   
  5184. --- 22,28 ----
  5185.   ## Image format conversion.
  5186.   ## @end deftypefn
  5187.   
  5188. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  5189.   ## Created: July 1994
  5190.   ## Adapted-By: jwe
  5191.   
  5192. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/image/saveimage.m i:/project/C/octave-2.1.23/scripts/image/saveimage.m
  5193. *** n:/project/C/octave-2.1.23.orig/scripts/image/saveimage.m    Tue Dec 14 21:40:06 1999
  5194. --- i:/project/C/octave-2.1.23/scripts/image/saveimage.m    Fri Dec 24 20:58:58 1999
  5195. ***************
  5196. *** 19,41 ****
  5197.   
  5198.   ## -*- texinfo -*-
  5199.   ## @deftypefn {Function File} {} saveimage (@var{file}, @var{x}, @var{fmt}, @var{map})
  5200. ! ## Save the matrix @var{x} to @var{file} in image format @var{fmt}.  Valid
  5201. ! ## values for @var{fmt} are
  5202. ! ## 
  5203. ! ## @table @code
  5204. ! ## @item "img"
  5205. ! ## Octave's image format.  The current colormap is also saved in the file.
  5206. ! ## 
  5207. ! ## @item "ppm"
  5208. ! ## Portable pixmap format.
  5209. ! ## 
  5210. ! ## @item "ps"
  5211. ! ## PostScript format.  Note that images saved in PostScript format can not
  5212. ! ## be read back into Octave with loadimage.
  5213. ! ## @end table
  5214. ! ## 
  5215. ! ## If the fourth argument is supplied, the specified colormap will also be
  5216. ! ## saved along with the image.
  5217.   ## 
  5218.   ## Note: if the colormap contains only two entries and these entries are
  5219.   ## black and white, the bitmap ppm and PostScript formats are used.  If the
  5220. --- 19,25 ----
  5221.   
  5222.   ## -*- texinfo -*-
  5223.   ## @deftypefn {Function File} {} saveimage (@var{file}, @var{x}, @var{fmt}, @var{map})
  5224. ! ## Save the matrix @var{x} to @var{file} in image format @var{fmt}.
  5225.   ## 
  5226.   ## Note: if the colormap contains only two entries and these entries are
  5227.   ## black and white, the bitmap ppm and PostScript formats are used.  If the
  5228. ***************
  5229. *** 44,104 ****
  5230.   ## otherwise the full color formats are used.
  5231.   ## @end deftypefn
  5232.   
  5233. ! ## The conversion to PostScript is based on pbmtolps.c, which was
  5234. ! ## written by
  5235. ! ##
  5236. ! ##   George Phillips <phillips@cs.ubc.ca>
  5237. ! ##   Department of Computer Science
  5238. ! ##   University of British Columbia
  5239. ! ##
  5240. ! ## and is part of the portable bitmap utilities,
  5241. ! 
  5242. ! ## SEE ALSO: loadimage, save, load, colormap
  5243. ! 
  5244. ! ## Author: Tony Richardson <arichard@stark.cc.oh.us>
  5245. ! ## Created: July 1994
  5246. ! ## Adapted-By: jwe
  5247. ! 
  5248. ! ## Rewritten by jwe to avoid using octoppm and pbm routines so that
  5249. ! ## people who don't have the the pbm stuff installed can still use this
  5250. ! ## function.
  5251. ! ##
  5252. ! ## The conversion to PostScript is based on pnmtops.c, which is part of
  5253. ! ## the portable bitmap utilties and bears this copyright notice:
  5254. ! ##
  5255. ! ## Copyright (C) 1989 by Jef Poskanzer.
  5256. ! ##
  5257. ! ## Permission to use, copy, modify, and distribute this software and its
  5258. ! ## documentation for any purpose and without fee is hereby granted, provided
  5259. ! ## that the above copyright notice appear in all copies and that both that
  5260. ! ## copyright notice and this permission notice appear in supporting
  5261. ! ## documentation.  This software is provided "as is" without express or
  5262. ! ## implied warranty.
  5263.   
  5264. ! function saveimage (filename, img, img_form, map)
  5265.   
  5266. !   if (nargin < 2 || nargin > 4)
  5267. !     usage ("saveimage (filename, matrix, [format, [colormap]])");
  5268.     endif
  5269.   
  5270.     if (nargin < 4)
  5271.       map = colormap ();
  5272.     endif
  5273.   
  5274. -   [map_nr, map_nc] = size (map);
  5275. - 
  5276. -   if (map_nc != 3)
  5277. -     error ("colormap should be an N x 3 matrix");
  5278. -   endif
  5279. - 
  5280.     if (nargin < 3)
  5281.       img_form = "img";
  5282.     elseif (! isstr (img_form))
  5283.       error ("image format specification must be a string");
  5284. -   elseif (! (strcmp (img_form, "img")
  5285. -              || strcmp (img_form, "ppm")
  5286. -          || strcmp (img_form, "ps")))
  5287. -     error ("unsupported image format specification");
  5288.     endif
  5289.   
  5290.     if (! is_matrix (img))
  5291. --- 28,50 ----
  5292.   ## otherwise the full color formats are used.
  5293.   ## @end deftypefn
  5294.   
  5295. ! ## Author: Klaus Gebhardt <100114.1371@compuserve.com>
  5296. ! ## Created: November 1996
  5297.   
  5298. ! function saveimage (filename, img, img_form, map, opt)
  5299.   
  5300. !   if (nargin < 2 || nargin > 5)
  5301. !     usage ("saveimage (filename, matrix, [format, [colormap, [opt]]])");
  5302.     endif
  5303.   
  5304.     if (nargin < 4)
  5305.       map = colormap ();
  5306.     endif
  5307.   
  5308.     if (nargin < 3)
  5309.       img_form = "img";
  5310.     elseif (! isstr (img_form))
  5311.       error ("image format specification must be a string");
  5312.     endif
  5313.   
  5314.     if (! is_matrix (img))
  5315. ***************
  5316. *** 109,307 ****
  5317.       error ("file name must be a string");
  5318.     endif
  5319.   
  5320. !   ## If we just want Octave image format, save and return.
  5321. ! 
  5322. !   if (strcmp (img_form, "img"))
  5323. !     eval (strcat ("save -ascii ", filename, " map img"));
  5324. !     return;
  5325. !   endif
  5326. ! 
  5327. !   ## Convert to another format if requested.
  5328. ! 
  5329. !   grey = all (map(:,1) == map(:,2) && map(:,1) == map (:,3));
  5330. ! 
  5331. !   pbm = pgm = ppm = 0;
  5332. ! 
  5333. !   map_sz = map_nr * map_nc;
  5334. ! 
  5335. !   map = reshape (map, map_sz, 1);
  5336. ! 
  5337. !   idx = find (map > 1);
  5338. !   map (idx) = ones (size (idx));
  5339. ! 
  5340. !   idx = find (map < 0);
  5341. !   map (idx) = zeros (size (idx));
  5342. ! 
  5343. !   map = round (255 * map);
  5344. ! 
  5345. !   bw = (map_nr == 2
  5346. !         && ((map(1,1) == 0 && map(2,1) == 255)
  5347. !             || (map(1,1) == 255 && map(2,1) == 0)));
  5348. ! 
  5349. !   img = round (img');
  5350. !   [img_nr, img_nc] = size (img);
  5351. ! 
  5352. !   img_sz = img_nr * img_nc;
  5353. !   img = reshape (img, img_sz, 1);
  5354. ! 
  5355. !   idx = find (img > map_nr);
  5356. !   img (idx) = ones (size (idx)) * map_nr;
  5357. ! 
  5358. !   idx = find (img <= 0);
  5359. !   img (idx) = ones (size (idx));
  5360. ! 
  5361. !   if (strcmp (img_form, "ppm"))
  5362. !     if (grey && map_nr == 2 && bw)
  5363. ! 
  5364. !       if (map(1) != 0)
  5365. !           map = [1; 0];
  5366. !       else
  5367. !           map = [0; 1];
  5368. !       endif
  5369. ! 
  5370. !       n_long = rem (img_nc, 8);
  5371. !       tmp = zeros (ceil (img_nc/8), img_nr);
  5372. ! 
  5373. !       for i = 1:img_nr
  5374. !     idx = (i-1)*img_nc+1:i*img_nc;
  5375. !           if (n_long > 0)
  5376. !       img_row = [map(img(idx)); (zeros (8-n_long, 1))];
  5377. !     else
  5378. !             img_row = map(img(idx));
  5379. !     endif
  5380. !     img_row
  5381. !     tmp
  5382. !     if (img_nc < 8)
  5383. !       for j = 1:8
  5384. !         tmp(:,i) = tmp(:,i) + img_row (j) * 2^(8-j);
  5385. !       endfor
  5386. !     else
  5387. !       for j = 1:8
  5388. !         tmp(:,i) = tmp(:,i) + img_row (j:8:img_nc) * 2^(8-j);
  5389. !       endfor
  5390. !     endif
  5391. !       endfor
  5392. ! 
  5393. !       fid = fopen (filename, "w");
  5394. !       fprintf (fid, "P4\n%d %d\n", img_nr, img_nc);
  5395. !       fwrite (fid, tmp, "char");
  5396. !       fprintf (fid, "\n");
  5397. !       fclose (fid);
  5398. ! 
  5399. !     elseif (grey)
  5400. ! 
  5401. !       fid = fopen (filename, "w");
  5402. !       fprintf (fid, "P5\n%d %d\n255\n", img_nr, img_nc);
  5403. !       fwrite (fid, map(img), "uchar");
  5404. !       fprintf (fid, "\n");
  5405. !       fclose (fid);
  5406. ! 
  5407. !     else
  5408. ! 
  5409. !       img_idx = ((1:3:3*img_sz)+2)';
  5410. !       map_idx = ((2*map_nr+1):map_sz)';
  5411. ! 
  5412. !       tmap = map(map_idx);
  5413. !       tmp(img_idx--) = tmap(img);
  5414. ! 
  5415. !       map_idx = map_idx - map_nr;
  5416. !       tmap = map(map_idx);
  5417. !       tmp(img_idx--) = tmap(img);
  5418. ! 
  5419. !       map_idx = map_idx - map_nr;
  5420. !       tmap = map(map_idx);
  5421. !       tmp(img_idx--) = tmap(img);
  5422. ! 
  5423. !       fid = fopen (filename, "w");
  5424. !       fprintf (fid, "P6\n%d %d\n255\n", img_nr, img_nc);
  5425. !       fwrite (fid, tmp, "uchar");
  5426. !       fprintf (fid, "\n");
  5427. !       fclose (fid);
  5428. ! 
  5429. !     endif
  5430. ! 
  5431. !   elseif (strcmp (img_form, "ps") == 1)
  5432. ! 
  5433. !     if (! grey)
  5434. !       error ("must have a greyscale color map for conversion to PostScript");
  5435. !     endif
  5436. ! 
  5437. !     bps = 8;
  5438. !     dpi = 300;
  5439. !     pagewid = 612;
  5440. !     pagehgt = 762;
  5441. !     MARGIN = 0.95;
  5442. !     devpix = dpi / 72.0 + 0.5;
  5443. !     pixfac = 72.0 / dpi * devpix;
  5444. ! 
  5445. !     ## Compute padding to round cols * bps up to the nearest multiple of 8
  5446. !     ## (nr and nc are switched because we transposed the image above).
  5447. ! 
  5448. !     padright = (((img_nr * bps + 7) / 8) * 8 - img_nr * bps) / bps;
  5449. ! 
  5450. !     scols = img_nr * pixfac;
  5451. !     srows = img_nc * pixfac;
  5452. !     scale = 1;
  5453. ! 
  5454. !     if (scols > pagewid * MARGIN || srows > pagehgt * MARGIN)
  5455. !       if (scols > pagewid * MARGIN)
  5456. !     scale = scale * (pagewid / scols * MARGIN);
  5457. !     scols = scale * img_nr * pixfac;
  5458. !     srows = scale * img_nc * pixfac;
  5459. !       endif
  5460. !       if (srows > pagehgt * MARGIN)
  5461. !     scale = scale * (pagehgt / srows * MARGIN);
  5462. !     scols = scale * img_nr * pixfac;
  5463. !     srows = scale * img_nc * pixfac;
  5464. !       endif
  5465. !       warning ("image too large for page, rescaling to %g", scale);
  5466. !     endif
  5467. ! 
  5468. !     llx = (pagewid - scols) / 2;
  5469. !     lly = (pagehgt - srows) / 2;
  5470. !     urx = llx + fix (scols + 0.5);
  5471. !     ury = lly + fix (srows + 0.5);
  5472. ! 
  5473. !     fid = fopen (filename, "w");
  5474. ! 
  5475. !     fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n");
  5476. !     fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION);
  5477. !     fprintf (fid, "%%%%Title: %s\n", filename);
  5478. !     fprintf (fid, "%%%%Pages: 1\n");
  5479. !     fprintf (fid, "%%%%BoundingBox: %d %d %d %d\n",
  5480. !              fix (llx), fix (lly), fix (urx), fix (ury));
  5481. !     fprintf (fid, "%%%%EndComments\n" );
  5482. !     fprintf (fid, "/readstring {\n");
  5483. !     fprintf (fid, "  currentfile exch readhexstring pop\n");
  5484. !     fprintf (fid, "} bind def\n");
  5485. !     fprintf (fid, "/picstr %d string def\n",
  5486. !              fix ((img_nr + padright) * bps / 8));
  5487. !     fprintf (fid, "%%%%EndProlog\n");
  5488. !     fprintf (fid, "%%%%Page: 1 1\n");
  5489. !     fprintf (fid, "gsave\n");
  5490. !     fprintf (fid, "%g %g translate\n", llx, lly);
  5491. !     fprintf (fid, "%g %g scale\n", scols, srows);
  5492. !     fprintf (fid, "%d %d %d\n", img_nr, img_nc, bps);
  5493. !     fprintf (fid, "[ %d 0 0 -%d 0 %d ]\n", img_nr, img_nc, img_nc);
  5494. !     fprintf (fid, "{ picstr readstring }\n" );
  5495. !     fprintf (fid, "image\n" );
  5496. ! 
  5497. !     img = map(img);
  5498. ! 
  5499. !     fmt = "%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x\n";
  5500. !     fprintf (fid, fmt, img);
  5501. ! 
  5502. !     if (rem (img_sz, 30) != 0)
  5503. !       fprintf (fid, "\n" );
  5504. !     endif
  5505. ! 
  5506. !     fprintf (fid, "grestore\n" );
  5507. !     fprintf (fid, "showpage\n" );
  5508. !     fprintf (fid, "%%%%Trailer\n" );
  5509. !     fclose (fid);
  5510. ! 
  5511.     else
  5512. !     error ("saveimage: what happened to the image type?");
  5513.     endif
  5514.   
  5515.   endfunction
  5516. --- 55,64 ----
  5517.       error ("file name must be a string");
  5518.     endif
  5519.   
  5520. !   if (nargin < 5)
  5521. !     eval (sprintf ("%s_enc (filename, map, img);", img_form));
  5522.     else
  5523. !     eval (sprintf ("%s_enc (filename, map, img, opt);", img_form));
  5524.     endif
  5525.   
  5526.   endfunction
  5527. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/miscellaneous/bug_report.m i:/project/C/octave-2.1.23/scripts/miscellaneous/bug_report.m
  5528. *** n:/project/C/octave-2.1.23.orig/scripts/miscellaneous/bug_report.m    Tue Feb  3 09:11:14 1998
  5529. --- i:/project/C/octave-2.1.23/scripts/miscellaneous/bug_report.m    Fri Dec 24 20:47:08 1999
  5530. ***************
  5531. *** 24,29 ****
  5532. --- 24,30 ----
  5533.   ## you are finished editing.
  5534.   
  5535.   ## Author: jwe
  5536. + ## Modified by Klaus Gebhardt, 1997
  5537.   
  5538.   function bug_report ()
  5539.   
  5540. ***************
  5541. *** 49,55 ****
  5542.         endif
  5543.       endif
  5544.   
  5545. !     cmd = "octave-bug";
  5546.   
  5547.       if (length (subject) > 0)
  5548.         cmd = sprintf ("%s -s \"%s\"", cmd, subject);
  5549. --- 50,56 ----
  5550.         endif
  5551.       endif
  5552.   
  5553. !     cmd = "/octave-bug";
  5554.   
  5555.       if (length (subject) > 0)
  5556.         cmd = sprintf ("%s -s \"%s\"", cmd, subject);
  5557. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/miscellaneous/popen2.m i:/project/C/octave-2.1.23/scripts/miscellaneous/popen2.m
  5558. *** n:/project/C/octave-2.1.23.orig/scripts/miscellaneous/popen2.m    Wed Oct 20 05:49:38 1999
  5559. --- i:/project/C/octave-2.1.23/scripts/miscellaneous/popen2.m    Sat Dec 25 12:59:36 1999
  5560. ***************
  5561. *** 46,52 ****
  5562.   ## @end example
  5563.   ## @end deftypefn
  5564.   
  5565. ! ## Author: jwe
  5566.   
  5567.   function [in, out, pid] = popen2 (command, args)
  5568.   
  5569. --- 46,52 ----
  5570.   ## @end example
  5571.   ## @end deftypefn
  5572.   
  5573. ! ## Author: Klaus Gebhardt, 1997
  5574.   
  5575.   function [in, out, pid] = popen2 (command, args)
  5576.   
  5577. ***************
  5578. *** 56,106 ****
  5579.   
  5580.     if (nargin == 1 || nargin == 2)
  5581.   
  5582. -     if (nargin == 1)
  5583. -       args = "";
  5584. -     endif
  5585. - 
  5586.       if (isstr (command))
  5587.   
  5588. !       [stdin_pipe, stdin_status] = pipe ();
  5589. !       [stdout_pipe, stdout_status] = pipe ();
  5590.   
  5591. !       if (stdin_status == 0 && stdout_status == 0)
  5592.   
  5593. !     pid = fork ();
  5594.   
  5595. !     if (pid == 0)
  5596.   
  5597. !       fclose (stdin_pipe (2));
  5598. !       fclose (stdout_pipe (1));
  5599.   
  5600. !       dup2 (stdin_pipe (1), stdin);
  5601. !       fclose (stdin_pipe (1));
  5602.   
  5603. !       dup2 (stdout_pipe (2), stdout);
  5604. !       fclose (stdout_pipe (2));
  5605.   
  5606. !       if (exec (command, args) < 0)
  5607. !         error ("popen2: unable to start process `%s'", command);
  5608. !         exit (0);
  5609.         endif
  5610.   
  5611. !     elseif (pid)
  5612.   
  5613. !       fclose (stdin_pipe (1));
  5614. !       fclose (stdout_pipe (2));
  5615.   
  5616. -       if (fcntl (stdout_pipe (1), __F_SETFL__, __O_NONBLOCK__) < 0)
  5617. -         error ("popen2: error setting file mode");
  5618.         else
  5619. !         in = stdin_pipe (2);
  5620. !         out = stdout_pipe (1);
  5621.         endif
  5622.   
  5623. !     elseif (pid < 0)
  5624. !       error ("popen2: fork failed -- unable to create child process");
  5625.       endif
  5626. !       else
  5627.       error ("popen2: pipe creation failed");
  5628.         endif
  5629.       else
  5630. --- 56,122 ----
  5631.   
  5632.     if (nargin == 1 || nargin == 2)
  5633.   
  5634.       if (isstr (command))
  5635.   
  5636. !       [r_pipe,  r_status]  = _pipe ();
  5637. !       [w_pipe,  w_status]  = _pipe ();
  5638.   
  5639. !       if ((r_status != -1) && (w_status != -1))
  5640.   
  5641. !     r_parent_end = r_pipe(1);
  5642. !     r_child_end  = r_pipe(2);
  5643. !     _fcntl (r_parent_end, F_SETFD, 1);
  5644. !     r_org = _dup (1);
  5645.   
  5646. !     w_parent_end = w_pipe(2);
  5647. !     w_child_end  = w_pipe(1);
  5648. !     _fcntl (w_parent_end, F_SETFD, 1);
  5649. !     w_org = _dup (0);
  5650.   
  5651. !     if ((r_org != -1) && (w_org != -1))
  5652.   
  5653. !       _dup2 (r_child_end, 1);  _close (r_child_end);  r_child_end = -1;
  5654. !       _dup2 (w_child_end, 0);  _close (w_child_end);  w_child_end = -1;
  5655.   
  5656. !       if (nargin == 1)
  5657. !         pid = spawn ("nowait", command);
  5658. !       else
  5659. !         pid = spawn ("nowait", command, args);
  5660. !       endif
  5661.   
  5662. !       _dup2 (r_org, 1);  _close (r_org);
  5663. !       _dup2 (w_org, 0);  _close (w_org);
  5664. !     endif
  5665. ! 
  5666. !     if (r_child_end != -1)
  5667. !       _close (r_child_end);
  5668.         endif
  5669.   
  5670. !     if (w_child_end != -1)
  5671. !       _close (w_child_end);
  5672. !     endif
  5673.   
  5674. !     if (pid < 0)
  5675. !       _close (r_parent_end);
  5676. !       _close (w_parent_end);
  5677. !       error ("popen2: unable to start process `%s'", command);
  5678. !     else
  5679. !       out = _fdopen (r_parent_end, "r");
  5680. !       in  = _fdopen (w_parent_end, "w");
  5681. !     endif
  5682.   
  5683.         else
  5684. ! 
  5685. !     if (r_status != -1)
  5686. !       _close (r_pipe(1));
  5687. !       _close (r_pipe(2));
  5688.         endif
  5689.   
  5690. !     if (w_status != -1)
  5691. !       _close (w_pipe(1));
  5692. !       _close (w_pipe(2));
  5693.       endif
  5694. ! 
  5695.       error ("popen2: pipe creation failed");
  5696.         endif
  5697.       else
  5698. diff -cwr n:/project/C/octave-2.1.23.orig/scripts/startup/octaverc i:/project/C/octave-2.1.23/scripts/startup/octaverc
  5699. *** n:/project/C/octave-2.1.23.orig/scripts/startup/octaverc    Wed Jul 24 19:05:42 1996
  5700. --- i:/project/C/octave-2.1.23/scripts/startup/octaverc    Fri Dec 24 21:06:24 1999
  5701. ***************
  5702. *** 2,4 ****
  5703. --- 2,37 ----
  5704.   ##
  5705.   ## This file should contain any commands that should be executed each
  5706.   ## time Octave starts for every user at this site.
  5707. + 
  5708. + ## System-wide startup file
  5709. + ## Octave 2.1.23 for OS/2
  5710. + ## (c) 1996 - 1999, Klaus Gebhardt
  5711. + 
  5712. + PS1 = "octave:\\#>";
  5713. + 
  5714. + EDITOR = "e";
  5715. + 
  5716. + oct_home = "h:/apps/science/octave";
  5717. + if length(getenv("OCTAVE_HOME"))
  5718. +   oct_home = getenv("OCTAVE_HOME");
  5719. + endif
  5720. + 
  5721. + LOADPATH  = sprintf ("%s/scripts//;%s/dlfcn/examples", oct_home, oct_home);
  5722. + INFO_FILE = sprintf ("%s/doc/octave", oct_home);
  5723. + 
  5724. + if length(file_in_path(getenv("PATH"),"less.exe"))
  5725. +   PAGER = sprintf("%s -ce",file_in_path(getenv("PATH"),"less.exe"));
  5726. + else
  5727. +   PAGER = "more";
  5728. + endif
  5729. + 
  5730. + if length(getenv("GNUPLOT"))
  5731. +   gnuplot_binary = sprintf ("%s/gnuplot.exe", getenv("GNUPLOT"));
  5732. + else
  5733. +   gnuplot_binary = "gnuplot";
  5734. + endif
  5735. + 
  5736. + implicit_str_to_num_ok     = 1;
  5737. + ok_to_lose_imaginary_part  = 1;
  5738. + ignore_function_time_stamp = 1;
  5739. + auto_unload_dot_oct_files  = 1;
  5740. diff -cwr n:/project/C/octave-2.1.23.orig/doc/conf.tex i:/project/C/octave-2.1.23/doc/conf.tex
  5741. *** n:/project/C/octave-2.1.23.orig/doc/conf.tex    Fri Dec 24 11:01:34 1999
  5742. --- i:/project/C/octave-2.1.23/doc/conf.tex    Fri Dec 24 13:37:54 1999
  5743. ***************
  5744. *** 2,7 ****
  5745.   @c This is part of the Octave manual.
  5746.   @c For copying conditions, see the file gpl.tex.
  5747.   
  5748. ! @set VERSION 2.0.5
  5749. ! @set OCTAVEHOME /usr/local
  5750. ! @set TARGETHOSTTYPE i586-pc-linux-gnu
  5751. --- 2,7 ----
  5752.   @c This is part of the Octave manual.
  5753.   @c For copying conditions, see the file gpl.tex.
  5754.   
  5755. ! @set VERSION 2.1.23
  5756. ! @set OCTAVEHOME 
  5757. ! @set TARGETHOSTTYPE i486-pc-os/2
  5758. diff -cwr n:/project/C/octave-2.1.23.orig/doc/faq/oct-faq.tex i:/project/C/octave-2.1.23/doc/faq/oct-faq.tex
  5759. *** n:/project/C/octave-2.1.23.orig/doc/faq/oct-faq.tex    Fri Dec 24 11:01:34 1999
  5760. --- i:/project/C/octave-2.1.23/doc/faq/oct-faq.tex    Fri Dec 24 13:37:54 1999
  5761. ***************
  5762. *** 1,3 ****
  5763. --- 1,4 ----
  5764. + % Modified by Klaus Gebhardt, 1997
  5765.   \input texinfo.tex      @c -*-texinfo-*-
  5766.   
  5767.   @setfilename oct-faq.
  5768. ***************
  5769. *** 19,24 ****
  5770. --- 20,33 ----
  5771.   @top
  5772.   @unnumbered Preface
  5773.   @cindex FAQ for Octave, latest version
  5774. + 
  5775. + @macro email{text}
  5776. + (\text\)
  5777. + @end macro
  5778. + 
  5779. + @macro url{text}
  5780. + (\text\)
  5781. + @end macro
  5782.   @end ifinfo
  5783.   
  5784.   This is a list of frequently asked questions (FAQ) for Octave users.
  5785. diff -cwr n:/project/C/octave-2.1.23.orig/doc/interpreter/control.tex i:/project/C/octave-2.1.23/doc/interpreter/control.tex
  5786. *** n:/project/C/octave-2.1.23.orig/doc/interpreter/control.tex    Fri Dec 24 11:01:34 1999
  5787. --- i:/project/C/octave-2.1.23/doc/interpreter/control.tex    Fri Dec 24 13:37:54 1999
  5788. ***************
  5789. *** 330,338 ****
  5790.               default: 
  5791.   @table @var
  5792.   @item tsam = 0  
  5793. ! @math{outlist = []}
  5794.   @item tsam > 0  
  5795. ! @math{outlist = 1:@code{rows}(@var{c})}
  5796.   @end table
  5797.    
  5798.    Unlike states, discrete/continous outputs may appear in any order.
  5799. --- 330,338 ----
  5800.               default: 
  5801.   @table @var
  5802.   @item tsam = 0  
  5803. ! @code{outlist = []}
  5804.   @item tsam > 0  
  5805. ! @code{outlist = 1:@code{rows}(@var{c})}
  5806.   @end table
  5807.    
  5808.    Unlike states, discrete/continous outputs may appear in any order.
  5809. diff -cwr n:/project/C/octave-2.1.23.orig/doc/interpreter/install.tex i:/project/C/octave-2.1.23/doc/interpreter/install.tex
  5810. *** n:/project/C/octave-2.1.23.orig/doc/interpreter/install.tex    Fri Dec 24 11:01:36 1999
  5811. --- i:/project/C/octave-2.1.23/doc/interpreter/install.tex    Fri Dec 24 13:37:54 1999
  5812. ***************
  5813. *** 444,449 ****
  5814. --- 444,457 ----
  5815.   @email{bug-octave@@bevo.che.wisc.edu} if you are interested in helping
  5816.   make a binary distribution available for your system.)
  5817.   
  5818. + Also, binary distributions are limited to static binaries that do not
  5819. + support dynamic linking.  For earlier versions of Octave, I tried
  5820. + distributing dynamically linked binaries but that proved to be too much
  5821. + trouble to support.  If you want to have a copy of Octave that includes
  5822. + all the features described in this manual, you will have to build it
  5823. + from the sources yourself, or find someone else who is willing to do it
  5824. + for you.
  5825. + 
  5826.   @menu
  5827.   * Installing Octave from a Binary Distribution::  
  5828.   * Creating a Binary Distribution::  
  5829. ***************
  5830. *** 563,568 ****
  5831.   @end example
  5832.   
  5833.   This will create a compressed tar file ready for distribution.
  5834. ! It will have a name like
  5835.   @file{octave-@value{VERSION}-@value{TARGETHOSTTYPE}.tar.gz}
  5836.   @end itemize
  5837. --- 571,576 ----
  5838.   @end example
  5839.   
  5840.   This will create a compressed tar file ready for distribution.
  5841. ! It will contain statically linked binaries and have a name like
  5842.   @file{octave-@value{VERSION}-@value{TARGETHOSTTYPE}.tar.gz}
  5843.   @end itemize
  5844. diff -cwr n:/project/C/octave-2.1.23.orig/doc/interpreter/octave.tex i:/project/C/octave-2.1.23/doc/interpreter/octave.tex
  5845. *** n:/project/C/octave-2.1.23.orig/doc/interpreter/octave.tex    Fri Dec 24 11:01:38 1999
  5846. --- i:/project/C/octave-2.1.23/doc/interpreter/octave.tex    Fri Dec 24 13:37:54 1999
  5847. ***************
  5848. *** 3,8 ****
  5849. --- 3,9 ----
  5850.   % Copyright (C) 1996, 1997 John W. Eaton
  5851.   % This is part of the Octave manual.
  5852.   % For copying conditions, see the file gpl.tex.
  5853. + % Modified by Klaus Gebhardt, 1997
  5854.   
  5855.   \input texinfo
  5856.   @setfilename octave.
  5857. ***************
  5858. *** 13,18 ****
  5859. --- 14,27 ----
  5860.   * Octave: (octave).    Interactive language for numerical computations.
  5861.   END-INFO-DIR-ENTRY
  5862.   @end format
  5863. + 
  5864. + @macro email{text}
  5865. + (\text\)
  5866. + @end macro
  5867. + 
  5868. + @macro url{text}
  5869. + (\text\)
  5870. + @end macro
  5871.   @end ifinfo
  5872.   
  5873.   @c Settings for printing on 8-1/2 by 11 inch paper:
  5874. ***************
  5875. *** 38,44 ****
  5876.   @c This file doesn't include a chapter, so it must not be included
  5877.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  5878.   
  5879. ! @include conf.tex
  5880.   
  5881.   @settitle GNU Octave
  5882.   
  5883. --- 47,53 ----
  5884.   @c This file doesn't include a chapter, so it must not be included
  5885.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  5886.   
  5887. ! @include ../conf.tex
  5888.   
  5889.   @settitle GNU Octave
  5890.   
  5891. diff -cwr n:/project/C/octave-2.1.23.orig/doc/interpreter/poly.tex i:/project/C/octave-2.1.23/doc/interpreter/poly.tex
  5892. *** n:/project/C/octave-2.1.23.orig/doc/interpreter/poly.tex    Fri Dec 24 11:01:38 1999
  5893. --- i:/project/C/octave-2.1.23/doc/interpreter/poly.tex    Fri Dec 24 13:37:54 1999
  5894. ***************
  5895. *** 10,24 ****
  5896.   In Octave, a polynomial is represented by its coefficients (arranged
  5897.   in descending order).  For example, a vector
  5898.   @iftex
  5899.   @end iftex
  5900.   @ifinfo
  5901. !  $c$
  5902.   @end ifinfo
  5903.   of length
  5904.   @iftex
  5905.   @tex
  5906.    $N+1$
  5907.   @end tex
  5908.   @ifinfo
  5909.    @var{N+1}
  5910.   @end ifinfo
  5911. --- 10,26 ----
  5912.   In Octave, a polynomial is represented by its coefficients (arranged
  5913.   in descending order).  For example, a vector
  5914.   @iftex
  5915. +  $c$
  5916.   @end iftex
  5917.   @ifinfo
  5918. !  @var{c}
  5919.   @end ifinfo
  5920.   of length
  5921.   @iftex
  5922.   @tex
  5923.    $N+1$
  5924.   @end tex
  5925. + @end iftex
  5926.   @ifinfo
  5927.    @var{N+1}
  5928.   @end ifinfo
  5929. diff -cwr n:/project/C/octave-2.1.23.orig/doc/liboctave/gpl.tex i:/project/C/octave-2.1.23/doc/liboctave/gpl.tex
  5930. *** n:/project/C/octave-2.1.23.orig/doc/liboctave/gpl.tex    Fri Dec 24 11:01:42 1999
  5931. --- i:/project/C/octave-2.1.23/doc/liboctave/gpl.tex    Fri Dec 24 13:37:54 1999
  5932. ***************
  5933. *** 1,4 ****
  5934. ! @c Copyright (C) 1996, 1997 John W. Eaton
  5935.   @c This is part of the Octave manual.
  5936.   @c For copying conditions, see the file gpl.tex.
  5937.   
  5938. --- 1,4 ----
  5939. ! @c Copyright (C) 1996 John W. Eaton
  5940.   @c This is part of the Octave manual.
  5941.   @c For copying conditions, see the file gpl.tex.
  5942.   
  5943. diff -cwr n:/project/C/octave-2.1.23.orig/doc/liboctave/liboct.tex i:/project/C/octave-2.1.23/doc/liboctave/liboct.tex
  5944. *** n:/project/C/octave-2.1.23.orig/doc/liboctave/liboct.tex    Fri Dec 24 11:01:42 1999
  5945. --- i:/project/C/octave-2.1.23/doc/liboctave/liboct.tex    Fri Dec 24 13:37:54 1999
  5946. ***************
  5947. *** 1,6 ****
  5948. --- 1,7 ----
  5949.   % Copyright (C) 1996, 1997 John W. Eaton
  5950.   % This is part of the Octave manual.
  5951.   % For copying conditions, see the file gpl.tex.
  5952. + % Modified by Klaus Gebhardt, 1997
  5953.   
  5954.   \input texinfo  @c -*-texinfo-*-
  5955.   @setfilename liboct.
  5956. ***************
  5957. *** 28,38 ****
  5958.   @c This file doesn't include a chapter, so it must not be included
  5959.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  5960.   
  5961. ! @c @include conf.tex
  5962.   
  5963.   @settitle Octave C++ Classes
  5964.   
  5965.   @ifinfo
  5966.   
  5967.   Copyright (C) 1996, 1997 John W. Eaton.
  5968.   
  5969. --- 29,47 ----
  5970.   @c This file doesn't include a chapter, so it must not be included
  5971.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  5972.   
  5973. ! @include ../conf.tex
  5974.   
  5975.   @settitle Octave C++ Classes
  5976.   
  5977.   @ifinfo
  5978. + 
  5979. + @macro email{text}
  5980. + (\text\)
  5981. + @end macro
  5982. + 
  5983. + @macro url{text}
  5984. + (\text\)
  5985. + @end macro
  5986.   
  5987.   Copyright (C) 1996, 1997 John W. Eaton.
  5988.   
  5989.