Mercurial > octave-nkf

changeset 6522:475c83367a0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-12 15:41:58 by jwe]
author jwe
date Thu, 12 Apr 2007 15:42:02 +0000
parents a07846d734db
children 589c8dbba916
files scripts/ChangeLog scripts/control/base/bddemo.m scripts/control/hinf/dgkfdemo.m scripts/control/system/packedform.m scripts/control/system/sysrepdemo.m
diffstat 5 files changed, 16 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Thu Apr 12 15:26:38 2007 +0000
+++ b/scripts/ChangeLog	Thu Apr 12 15:42:02 2007 +0000
@@ -1,6 +1,9 @@
 2007-04-12  Carlo de Falco  <kingcrimson@tiscali.it>
 
-	* miscellaneous/menu.m: Adapt to page_screen_output as a function.
+	* miscellaneous/menu.m, control/base/bddemo.m,
+	control/hinf/dgkfdemo.m, control/system/packedform.m,
+	control/system/sysrepdemo.m:
+	Adapt to page_screen_output as a function.
 
 2007-04-11  John W. Eaton  <jwe@octave.org>
 
--- a/scripts/control/base/bddemo.m	Thu Apr 12 15:26:38 2007 +0000
+++ b/scripts/control/base/bddemo.m	Thu Apr 12 15:42:02 2007 +0000
@@ -28,8 +28,8 @@
 
 function bddemo ()
 
-  sav_page = page_screen_output;
-  page_screen_output = 1;
+  sav_page = page_screen_output ();
+  page_screen_output (1);
 
   while (1)
     clc
@@ -609,5 +609,5 @@
     endif
   endwhile
   implict_str_to_num_ok = str_sav;
-  page_screen_output = sav_page;
+  page_screen_output  (sav_page);
 endfunction
--- a/scripts/control/hinf/dgkfdemo.m	Thu Apr 12 15:26:38 2007 +0000
+++ b/scripts/control/hinf/dgkfdemo.m	Thu Apr 12 15:42:02 2007 +0000
@@ -36,8 +36,8 @@
 
 function dgkfdemo ()
 
-  save_val = page_screen_output;
-  page_screen_output = 0;
+  save_val = page_screen_output ();
+  page_screen_output  (0);
   while (1)
     clc
     sel = 0;
@@ -359,6 +359,6 @@
     endif
     prompt
   endwhile
-  page_screen_output = save_val;
+  page_screen_output (save_val);
 
 endfunction
--- a/scripts/control/system/packedform.m	Thu Apr 12 15:26:38 2007 +0000
+++ b/scripts/control/system/packedform.m	Thu Apr 12 15:42:02 2007 +0000
@@ -17,8 +17,8 @@
 ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 ## 02110-1301 USA.
 
-save_var = page_screen_output;
-page_screen_output = 1;
+save_var = page_screen_output ();
+page_screen_output (1);
 disp("Description of system data structure:")
 disp("A linear system is stored in a structure, and may be represented in")
 disp("ss (state space), tf (transfer function),  and/or zp (zero-pole-gain)")
@@ -93,4 +93,4 @@
 disp("  sysdimensions   sysgetsignals   syssetsignals   sysgettype")
 disp("  zp    ")
 disp("to create/access internal variables.  ");
-page_screen_output = save_var;
+page_screen_output (save_var);
--- a/scripts/control/system/sysrepdemo.m	Thu Apr 12 15:26:38 2007 +0000
+++ b/scripts/control/system/sysrepdemo.m	Thu Apr 12 15:42:02 2007 +0000
@@ -28,8 +28,8 @@
 
 function sysrepdemo ()
 
-  save_val = page_screen_output;
-  page_screen_output = 1;
+  save_val = page_screen_output ();
+  page_screen_output (1);
 
   disp("System representation demo:")
   num = [5, -1];
@@ -491,6 +491,6 @@
     endif
 
   endwhile
-  page_screen_output = save_val;
+  page_screen_output (save_val);
 endfunction