pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Replace property "store" prefix by sWST_PROP_STORE_PREFIX( = 'wstHas_')

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1339 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-10-11 12:22:23 +00:00
parent 2c2ae468d6
commit ed37484810
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@ -29,6 +29,7 @@ const
sARRAY_STYLE_SCOPED = 'ARRAY_STYLE_SCOPED';
sARRAY_STYLE_EMBEDDED = 'ARRAY_STYLE_EMBEDDED';
sARRAY_IS_COLLECTION = 'ARRAY_COLLECTION';
sWST_PROP_STORE_PREFIX = 'wstHas_';
sXSD_NS = 'http://www.w3.org/2001/XMLSchema';

6
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@ -952,7 +952,7 @@ var
locProp.ReadAccessorName := 'F' + locProp.Name;
locProp.WriteAccessorName := 'F' + locProp.Name;
if ( locMinOccur = 0 ) then begin
locProp.StoredAccessorName := 'Has' + locProp.Name;
locProp.StoredAccessorName := sWST_PROP_STORE_PREFIX + locProp.Name;
end else if ( locMinOccur = -1 ) then begin
locProp.StoredAccessorName := 'False';
end else begin
@ -1190,7 +1190,7 @@ begin
end;
if AnsiSameText(propTyp.StoredAccessorName,'False') then
locStrBuffer := s_prohibited
else if AnsiSameText(Copy(propTyp.StoredAccessorName,1,3),'Has') then
else if AnsiSameText(Copy(propTyp.StoredAccessorName,1,3),sWST_PROP_STORE_PREFIX) then
locStrBuffer := s_optional
else
locStrBuffer := s_required;
@ -1313,7 +1313,7 @@ var
FSymbols.SetPropertyAsAttribute(locAttObj,True);
case locStoreOptIdx of
0 : locAttObj.StoredAccessorName := 'True';
1 : locAttObj.StoredAccessorName := 'Has' + locAttObj.Name;
1 : locAttObj.StoredAccessorName := sWST_PROP_STORE_PREFIX + locAttObj.Name;
2 : locAttObj.StoredAccessorName := 'False';
end;
end;

1
wst/trunk/wst_types.pas
View File

@ -51,3 +51,4 @@ begin
end;
end.