Overview
| Comment: | Initial revision |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
13b821cc856f72b54f488554eae64f71 |
| User & Date: | gawthrop@users.sourceforge.net on 1996-12-04 21:46:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-12-04
| ||
| 21:47:41 | Skips main loop when arg is null. check-in: 4544bfa952 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 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 | |
Changes
Added mttroot/mtt/bin/trans/m/subs_arg.m version [5e4771d238].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
function args_out = subs_arg(args,Args)
% subs_arg - substitutes arguments into args from Args
% FS defaults to `;'.
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %%%%% Model Transformation Tools %%%%%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Matlab function subs_arg.m
% args = subs_arg(args,Args)
% Copyright (c) P.J. Gawthrop, 1996.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Symbolic argument sign
S = '$';
args_out = '';
if strcmp(args,'')==0
L = length(args);
args_count = 1;
num_count=0;
while args_count <= L
ch = str2ch(args,args_count);
if ch~=S % copy character
args_out = [args_out, ch];
args_count = args_count+1;
else % find argument number
args_count = args_count+1;
ch = str2ch(args,args_count);
i=0;
while (ch>='0') & (ch<='9')
i = 10*i + abs(ch)-abs('0');
if args_count==L
args_count = args_count+1;
break
end;
args_count = args_count+1;
ch = str2ch(args,args_count);
end;
args_out = [args_out, args2arg(Args,i)];
end;
end;
end;
|