paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-19 22:08:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: class sections required, optional only for objcprotocol

Browse Source 
git-svn-id: trunk@33703 -
This commit is contained in:
mattias 2011-11-22 22:44:09 +00:00
parent 9e1b15afaf
commit 2e0870f4d0
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/codetools/pascalparsertool.pas
View File

@ -462,14 +462,20 @@ begin
end;
end;
'R':
if CompareSrcIdentifiers(p,'REQUIRED') then exit(KeyWordFuncClassSection);
if CompareSrcIdentifiers(p,'REQUIRED')
and (CurNode.Parent.Desc=ctnObjCProtocol)
and ([cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches<>[])
then exit(KeyWordFuncClassSection);
'S':
if CompareSrcIdentifiers(p,'STATIC') then exit(KeyWordFuncClassMethod)
else if CompareSrcIdentifiers(p,'STRICT') then exit(KeyWordFuncClassSection);
'T':
if CompareSrcIdentifiers(p,'TYPE') then exit(KeyWordFuncClassTypeSection);
'O':
if CompareSrcIdentifiers(p,'OPTIONAL') then exit(KeyWordFuncClassSection);
if CompareSrcIdentifiers(p,'OPTIONAL')
and (CurNode.Parent.Desc=ctnObjCProtocol)
and ([cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches<>[])
then exit(KeyWordFuncClassSection);
'V':
if CompareSrcIdentifiers(p,'VAR') then exit(KeyWordFuncClassVarSection);
'(','[':
@ -968,15 +974,11 @@ begin
NewSubSection:=ctnClassProtected
else if UpAtomIs('PUBLISHED') then
NewSubSection:=ctnClassPublished
else if UpAtomIs('REQUIRED') then begin
if [cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches=[] then
exit(false);
NewSubSection:=ctnClassRequired;
end else if UpAtomIs('OPTIONAL') then begin
if [cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches=[] then
exit(false);
NewSubSection:=ctnClassOptional;
end else
else if UpAtomIs('REQUIRED') then
NewSubSection:=ctnClassRequired
else if UpAtomIs('OPTIONAL') then
NewSubSection:=ctnClassOptional
else
RaiseStringExpectedButAtomFound('public');
OldSubSection:=ctnNone;
if CurNode.Desc in AllClassSubSections then begin