Mercurial > forge

changeset 965:15ebecf7c596 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace attempted string+eval magic with a simple for loop.
author pkienzle
date Tue, 10 Jun 2003 19:45:21 +0000
parents 692f4de142f8
children 56bc8f2034af
files main/struct/tar.m
diffstat 1 files changed, 3 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/main/struct/tar.m	Fri Jun 06 18:30:50 2003 +0000
+++ b/main/struct/tar.m	Tue Jun 10 19:45:21 2003 +0000
@@ -10,10 +10,6 @@
 
 function s = tar(varargin)
 
-## keyboard
-## form and eval a string like
-## "s.argn(1,:)=va_arg();s.argn(2,:)=va_arg(); ...."
-
-eval(setstr(nze([ones(nargin,1)*toascii("s."),\
-		 toascii(argn),\
-		 ones(nargin,1)*toascii("=nth (varargin, va_arg_cnt++);")]')')) ;
+for i=1:nargin
+   s.(deblank(argn(i,:))) = varargin{i};
+end