# HG changeset patch # User jwe # Date 877074768 0 # Node ID 4bb976b250bf30485d9a66f23d1e97931b85be2a # Parent b06dcbb6b3b106fc70b2607e9103b77c3de3c35b [project @ 1997-10-17 07:48:48 by jwe] diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +Tue Oct 14 10:48:28 1997 Kurt Hornik + + * emacs/octave-mod.el (octave-block-match-alist): Move + `otherwise' to right after `case' to have octave-close-block() + correctly close a `switch' block by `endswitch'. + Thu Oct 2 01:37:15 1997 John W. Eaton * aclocal.m4 (OCTAVE_FLIBS): Ignore -lc and -lgcc. diff --git a/PROJECTS b/PROJECTS --- a/PROJECTS +++ b/PROJECTS @@ -466,6 +466,10 @@ write it in terms of the existing vector/matrix operators as much as possible. + * Make it possible to write a function that gets a reference to a + matrix in memory and change one or more elements without + generating a second copy of the data. + ------- History: ------- @@ -473,6 +477,9 @@ * Add an option to allow saving input from script files in the history list. + * The history command should accept two numeric arguments to + indicate a range of history entries to display, save or read. + * Add an option to include information about the Octave session in the history list. Possibly a time/date stamp and the current Octave line number, appended as a comment (users should probably diff --git a/emacs/octave-mod.el b/emacs/octave-mod.el --- a/emacs/octave-mod.el +++ b/emacs/octave-mod.el @@ -328,7 +328,7 @@ '(("for" . ("end" "endfor")) ("function" . ("end" "endfunction")) ("if" . ("else" "elseif" "end" "endif")) - ("switch" . ("case" "end" "endswitch" "otherwise")) + ("switch" . ("case" "otherwise" "end" "endswitch")) ("try" . ("catch" "end" "end_try_catch")) ("unwind_protect" . ("unwind_protect_cleanup" "end" "end_unwind_protect")) diff --git a/liboctave/CRowVector.cc b/liboctave/CRowVector.cc --- a/liboctave/CRowVector.cc +++ b/liboctave/CRowVector.cc @@ -785,10 +785,10 @@ if (n > 0) { retval.resize (n); - Complex delta = (x2 - x1) / (n - 1); + Complex delta = (x2 - x1) / (n - 1.0); retval.elem (0) = x1; for (int i = 1; i < n-1; i++) - retval.elem (i) = x1 + i * delta; + retval.elem (i) = x1 + 1.0 * i * delta; retval.elem (n-1) = x2; } diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog --- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,10 @@ +Thu Oct 2 17:13:02 1997 Mumit Khan + + * CRowVector.cc (linspace): Removed attempt for implicit conversion + to complex(int) instead of complex(double). + + * lo-mappers.cc (atanh): Ditto. + Thu Jul 31 22:13:54 1997 John W. Eaton * idx-vector.cc (IDX_VEC_REP::sort): New function. diff --git a/liboctave/lo-mappers.cc b/liboctave/lo-mappers.cc --- a/liboctave/lo-mappers.cc +++ b/liboctave/lo-mappers.cc @@ -266,7 +266,7 @@ Complex atanh (const Complex& x) { - return log ((1 + x) / (1 - x)) / 2.0; + return log ((1.0 + x) / (1.0 - x)) / 2.0; } Complex diff --git a/scripts/ChangeLog b/scripts/ChangeLog --- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,5 +1,8 @@ Fri Oct 10 11:18:10 1997 John W. Eaton + * specfun/gammai.m: Avoid problems with whitespace when + constructing matrices. + * polynomial/polyfit.m: Compute yf correctly. From Seung Lee . Also return yf in the same orientation as the original y vector. diff --git a/scripts/polynomial/polyfit.m b/scripts/polynomial/polyfit.m --- a/scripts/polynomial/polyfit.m +++ b/scripts/polynomial/polyfit.m @@ -1,4 +1,4 @@ -## Copyright (C) 1996 John W. Eaton +## Copyright (C) 1996, 1997 John W. Eaton ## ## This file is part of Octave. ## diff --git a/scripts/specfun/gammai.m b/scripts/specfun/gammai.m --- a/scripts/specfun/gammai.m +++ b/scripts/specfun/gammai.m @@ -75,8 +75,10 @@ k = find ((x >= a + 1) & (x < Inf) & (a > 0)); if any (k) len = length (k); - u = [zeros (1, len); ones (1, len)]; - v = [ones (1, len); x(k)]; + t0 = zeros (1, len); + t1 = ones (1, len); + u = [t0; t1]; + v = [t1; x(k)]; c_old = 0; c_new = v(1, :) ./ v(2, :); n = 1; diff --git a/src/ChangeLog b/src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +Tue Oct 7 16:51:01 1997 John W. Eaton + + * defun-int.h (DEFINE_FUN_INSTALLER_FUN): Set installed to true + after installing the function. + Thu Sep 25 10:17:26 1997 John W. Eaton * DLD-FUNCTIONS/filter.cc (Ffilter): Return second output value diff --git a/src/defun-int.h b/src/defun-int.h --- a/src/defun-int.h +++ b/src/defun-int.h @@ -88,7 +88,7 @@ #endif /* ! MAKE_BUILTINS */ -// Define the structure that will be used to insert this function into +// Define the code that will be used to insert the new function into // the symbol table. #define DEFINE_FUN_INSTALLER_FUN(name, doc) \ @@ -100,6 +100,7 @@ { \ check_version (OCTAVE_VERSION, #name); \ install_builtin_function (F ## name, #name, doc); \ + installed = true; } \ return installed; \ }