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