Overview
Comment:Changed to handle null string (octave returns lenghth of 1)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 3375c5eccda8e537f9537402c20dab0f9675698357888cd0d34bb8f5c400cfad
User & Date: gawthrop@users.sourceforge.net on 1996-12-04 21:39:55
Other Links: branch diff | manifest | tags
Context
1996-12-04
21:46:52
Initial revision check-in: 13b821cc85 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:39:55
Changed to handle null string (octave returns lenghth of 1) check-in: 3375c5eccd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:27:53
Replaced str2num by sprintf check-in: d3ff2c44c0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/str2ch.m from [0afb778787] to [367266a7c0].

︙︙
15
16
17
18
19
20
21

22
23
24
25
26
27
28
29
30
31
32
33
34

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/08/30  09:54:44  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


implicit_str_to_num_ok = 'true';
str = abs(str);

if (n>0) &  (n<=length(str))
  ch = setstr(str(n));
else
  ch = '';
end;












>

<
|
<
|
|








15
16
17
18
19
20
21
22
23

24

25
26
27
28
29
30
31
32
33

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/08/30  09:54:44  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
implicit_str_to_num_ok = 1;


astr = abs(str);

if (n>0) &  (n<=length(str)) & (strcmp(str,'')==0)
  ch = setstr(astr(n));
else
  ch = '';
end;
︙︙

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]