Mercurial > hg > aimmat
annotate aim-mat/tools/getargument.m @ 4:537f939baef0 tip
various bug fixes and changed copyright message
author | Stefan Bleeck <bleeck@gmail.com> |
---|---|
date | Tue, 16 Aug 2011 14:37:17 +0100 |
parents | 20ada0af3d7d |
children |
rev | line source |
---|---|
tomwalters@0 | 1 % tool |
tomwalters@0 | 2 % |
tomwalters@0 | 3 % INPUT VALUES: |
tomwalters@0 | 4 % |
tomwalters@0 | 5 % RETURN VALUE: |
tomwalters@0 | 6 % |
tomwalters@0 | 7 % |
bleeck@3 | 8 % (c) 2011, University of Southampton |
bleeck@3 | 9 % Maintained by Stefan Bleeck (bleeck@gmail.com) |
bleeck@3 | 10 % download of current version is on the soundsoftware site: |
bleeck@3 | 11 % http://code.soundsoftware.ac.uk/projects/aimmat |
bleeck@3 | 12 % documentation and everything is on http://www.acousticscale.org |
bleeck@3 | 13 |
tomwalters@0 | 14 |
tomwalters@0 | 15 function str=getargument(source,search) |
tomwalters@0 | 16 % usage: str=getargument(source,search) |
tomwalters@0 | 17 % searchs in the pairs of parameters 'param','value' for the argument and returns the value as string |
tomwalters@0 | 18 % source must be a even number of input parameters |
tomwalters@0 | 19 |
tomwalters@0 | 20 % for compatibility with old version |
tomwalters@0 | 21 if ~isfield(source,'name') |
tomwalters@0 | 22 nr=size(source,2); % so many pairs |
tomwalters@0 | 23 for i=1:nr |
tomwalters@0 | 24 param=source(i); |
tomwalters@0 | 25 if strcmp(param,search) |
tomwalters@0 | 26 str= source(i+1); |
tomwalters@0 | 27 return |
tomwalters@0 | 28 end |
tomwalters@0 | 29 end |
tomwalters@0 | 30 str{1}=''; |
tomwalters@0 | 31 return |
tomwalters@0 | 32 |
tomwalters@0 | 33 else |
tomwalters@0 | 34 |
tomwalters@0 | 35 % new version is much more elegant |
tomwalters@0 | 36 nr=size(source.name,2); % so many pairs |
tomwalters@0 | 37 for i=1:nr |
tomwalters@0 | 38 param=source.name{i}; |
tomwalters@0 | 39 if strcmp(param,search) |
tomwalters@0 | 40 str=source.argument{i}; |
tomwalters@0 | 41 |
tomwalters@0 | 42 % if the argument is put into "[]" then remove them |
tomwalters@0 | 43 return |
tomwalters@0 | 44 end |
tomwalters@0 | 45 end |
tomwalters@0 | 46 end |
tomwalters@0 | 47 str=''; |
tomwalters@0 | 48 return |
tomwalters@0 | 49 |
tomwalters@0 | 50 |