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

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

@ -1,6 +1,6 @@
[common]
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
ignoreincludes3=ApplicationServices/
ignoreincludes4=ApplicationServices/../FrameWorks/CoreGraphics.framework/Headers/

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

@ -9,13 +9,15 @@
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -29,13 +31,62 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<Units Count="1">
<Units Count="3">
<Unit0>
<Filename Value="objcparser.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="objcparser"/>
<CursorPos X="18" Y="17"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</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>
<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>
<CompilerOptions>
<Version Value="5"/>
@ -46,4 +97,14 @@
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>