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

wikiget: clean up

Browse Source 
git-svn-id: trunk@47431 -
This commit is contained in:
mattias 2015-01-20 01:18:23 +00:00
parent d9f5672279
commit 2ba48efb15
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/wiki/wikiget.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -29,7 +29,6 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
@ -48,7 +47,6 @@
<Unit0> <Unit0>
<Filename Value="wikiget.lpr"/> <Filename Value="wikiget.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wikiget"/>
</Unit0> </Unit0>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
@ -61,12 +59,6 @@
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">

4
components/wiki/wikiget.lpr
View File

@ -296,7 +296,7 @@ begin
Page:=copy(s,StartPos,p-StartPos); Page:=copy(s,StartPos,p-StartPos);
while (Page<>'') and (Page[1]='/') do while (Page<>'') and (Page[1]='/') do
System.Delete(Page,1,1); System.Delete(Page,1,1);
if (Page<>'') and (not IsIgnoredPage(Page)) then begin; if (Page<>'') and (not IsIgnoredPage(Page)) then begin
//writeln('TWikiGet.GetAll Page="',Page,'"'); //writeln('TWikiGet.GetAll Page="',Page,'"');
Filename:=PageToFilename(Page,false); Filename:=PageToFilename(Page,false);
AddWikiPage(Page); AddWikiPage(Page);
@ -790,6 +790,8 @@ end;
var var
Application: TWikiGet; Application: TWikiGet;
begin begin
//TestWikiPageToFilename;
Application:=TWikiGet.Create(nil); Application:=TWikiGet.Create(nil);
Application.Title:='Wiki Get'; Application.Title:='Wiki Get';
Application.Run; Application.Run;