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

+ additional empty line after {} - exlusion for 'FORWARD' section. FORWARD section is to be used only once, so it's not required

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2008-06-09 08:12:20 +00:00
parent e758fe6f7a
commit 76eccaaa0c
3 changed files with 68 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bindings/pascocoa/parser/ObjCParserUtils.pas
View File

@ -1148,6 +1148,7 @@ begin
subs.Add('//'+ TSkip(hdr.Items[i])._Skip); subs.Add('//'+ TSkip(hdr.Items[i])._Skip);
end; {of if} end; {of if}
st.add('');
if subs.Count > 0 then begin if subs.Count > 0 then begin
//if subs[0] <> 'const' then st.Add('type'); //if subs[0] <> 'const' then st.Add('type');
st.AddStrings(subs); st.AddStrings(subs);
@ -1759,11 +1760,12 @@ begin
subs.Add(Format (' %s = class;', [TClassDef(hdr.Items[i])._ClassName])); subs.Add(Format (' %s = class;', [TClassDef(hdr.Items[i])._ClassName]));
if subs.Count > 0 then begin if subs.Count > 0 then begin
BeginSection('FORWARD', st); BeginSection('FORWARD', st);
BeginExcludeSection( GetIfDefFileName(hdr._FileName, '_FORWARD'), st); // BeginExcludeSection( GetIfDefFileName(hdr._FileName, '_FORWARD'), st);
try try
st.AddStrings(subs); st.AddStrings(subs);
st.Add('');
finally finally
EndSection(st); //EndSection(st);
EndSection(st); EndSection(st);
end; end;
end; end;

2
bindings/pascocoa/parser/default.ini
View File

@ -1,6 +1,6 @@
[common] [common]
ignoreincludes0=CoreFoundation/ ignoreincludes0=CoreFoundation/
ignoreincludes1=setjmp.h stdarg.h stdbool.h limits.h stdarg.h ignoreincludes1=stdint.h setjmp.h stdarg.h stdbool.h limits.h stdarg.h
ignoreincludes2=AvailabilityMacros.h ignoreincludes2=AvailabilityMacros.h
ignoreincludes3=ApplicationServices/ ignoreincludes3=ApplicationServices/
ignoreincludes4=ApplicationServices/../FrameWorks/CoreGraphics.framework/Headers/ ignoreincludes4=ApplicationServices/../FrameWorks/CoreGraphics.framework/Headers/

65
bindings/pascocoa/parser/objcparser.lpi
View File

@ -9,13 +9,15 @@
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -29,13 +31,62 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="1"> <Units Count="3">
<Unit0> <Unit0>
<Filename Value="objcparser.pas"/> <Filename Value="objcparser.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="objcparser"/> <UnitName Value="objcparser"/>
<CursorPos X="18" Y="17"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="ObjCParserUtils.pas"/>
<UnitName Value="ObjCParserUtils"/>
<CursorPos X="47" Y="1774"/>
<TopLine Value="1751"/>
<EditorIndex Value="1"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="ObjCParserTypes.pas"/>
<UnitName Value="ObjCParserTypes"/>
<CursorPos X="18" Y="1966"/>
<TopLine Value="1950"/>
<EditorIndex Value="2"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit2>
</Units> </Units>
<JumpHistory Count="6" HistoryIndex="5">
<Position1>
<Filename Value="objcparser.pas"/>
<Caret Line="342" Column="61" TopLine="325"/>
</Position1>
<Position2>
<Filename Value="ObjCParserUtils.pas"/>
<Caret Line="1834" Column="30" TopLine="1824"/>
</Position2>
<Position3>
<Filename Value="ObjCParserUtils.pas"/>
<Caret Line="7" Column="1" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="ObjCParserUtils.pas"/>
<Caret Line="1171" Column="8" TopLine="1139"/>
</Position4>
<Position5>
<Filename Value="ObjCParserUtils.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="ObjCParserUtils.pas"/>
<Caret Line="144" Column="138" TopLine="128"/>
</Position6>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
@ -46,4 +97,14 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG> </CONFIG>