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
52
53
54
55
56
|
function [_entity,ax_ppty_value_list,_next]=_parse_property_value(argList,_start,_entity_in)
global axesPropertiesNames leafPropertiesNames
_next=_start;
_entity=_entity_in;
ax_ppty_value_list=list();
typeOfPlot=_entity.typeOfPlot;
while _next <= length(argList)
if type(argList(_next))~=10
break;
else
[_entity,fail]=getColorNumber_new(argList(_next),_entity);
end
if ~fail
_next=_next+1;
elseif _next == length(argList)
_error(sprintf('%s : unknown property name ""%s"" or missing value',typeOfPlot,argList(_next)));
else
pptystring=convstr(argList(_next));
value=argList(_next+1);
if or(pptystring==axesPropertiesNames(1))
parseFunction=axesPropertiesNames(pptystring)(1);
ppty=axesPropertiesNames(pptystring)(2);
cmd=sprintf("%s(typeOfPlot,value,""%s"",""%s"")",parseFunction,pptystring,ppty);
_ppty_value_list=evstr(cmd);
ax_ppty_value_list=lstcat(ax_ppty_value_list,_ppty_value_list);
elseif or(pptystring==leafPropertiesNames(1))
parseFunction=leafPropertiesNames(pptystring)(1);
ppty=leafPropertiesNames(pptystring)(2);
cmd=sprintf("%s(typeOfPlot,value,""%s"",""%s"")",parseFunction,pptystring,ppty);
_ppty_value_list=evstr(cmd);
for i=1:2:length(_ppty_value_list);
_entity(_ppty_value_list(i))=_ppty_value_list(i+1);
end
else
_error(sprintf('%s : ""%s"" is an unknown property name',typeOfPlot,pptystring));
end // select convstr(_pair(1))
_next=_next+2;
end
end
endfunction
|
