Mercurial > hg > octave-nkf

comparison scripts/strings/str2mat.m @ 3979:e0b7a493e5a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-10 17:45:34 by jwe]
author jwe
date Wed, 10 Jul 2002 17:45:34 +0000
parents 7e90f4e9a4d5
children 48a39e2b2ab7
comparison
equal deleted inserted replaced
3978:10bc4c350d61 3979:e0b7a493e5a8
30 ## @end deftypefn 30 ## @end deftypefn
31 31
32 ## Author: Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> 32 ## Author: Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>
33 ## Adapted-By: jwe 33 ## Adapted-By: jwe
34 34
35 function retval = str2mat (...) 35 function retval = str2mat (varargin)
36 36
37 if (nargin == 0) 37 if (nargin == 0)
38 usage ("str2mat (s1, ...)"); 38 usage ("str2mat (s1, ...)");
39 endif 39 endif
40 40
41 nc = 0; 41 nc = 0;
42 nr = 0; 42 nr = 0;
43 43
44 va_start ();
45
46 nr = zeros (nargin, 1); 44 nr = zeros (nargin, 1);
47 nc = zeros (nargin, 1); 45 nc = zeros (nargin, 1);
48 for k = 1 : nargin 46 for k = 1 : nargin
49 s = va_arg (); 47 s = varargin{k};
50 if (! isstr (s)) 48 if (! isstr (s))
51 s = setstr (s); 49 s = setstr (s);
52 endif 50 endif
53 [nr(k), nc(k)] = size (s); 51 [nr(k), nc(k)] = size (s);
54 endfor 52 endfor
62 retval_nr = sum (nr); 60 retval_nr = sum (nr);
63 retval_nc = max (nc); 61 retval_nc = max (nc);
64 62
65 retval = setstr (ones (retval_nr, retval_nc) * toascii (" ")); 63 retval = setstr (ones (retval_nr, retval_nc) * toascii (" "));
66 64
67 va_start ();
68
69 row_offset = 0; 65 row_offset = 0;
70 for k = 1 : nargin 66 for k = 1 : nargin
71 s = va_arg (); 67 s = varargin{k};
72 if (! isstr (s)) 68 if (! isstr (s))
73 s = setstr (s); 69 s = setstr (s);
74 endif 70 endif
75 if (nc(k) > 0) 71 if (nc(k) > 0)
76 retval ((row_offset + 1) : (row_offset + nr(k)), 1:nc(k)) = s; 72 retval ((row_offset + 1) : (row_offset + nr(k)), 1:nc(k)) = s;