paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 01:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: updated sourcecloser example

Browse Source 
git-svn-id: trunk@55834 -
This commit is contained in:
mattias 2017-09-11 15:48:54 +00:00
parent e129389c1f
commit 5a30e17265
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/docs/sourcecloser_example_script.sh
View File

@ -19,8 +19,8 @@ cp -a $SrcDir $ReleaseDir
# delete development files
rm -rf $ReleaseDir/lib $ReleaseDir/*.sh
find $ReleaseDir -type d -name '.svn' -d -exec rm -rf {} \;
find $ReleaseDir -name '*.cache' -d -exec rm -rf {} \;
find $ReleaseDir -depth -type d -name '.svn' -exec rm -rf {} \;
find $ReleaseDir -depth -name '*.cache' -exec rm -rf {} \;
# convert lpk, add -Ur, set "Build Manually"
sourcecloser $ReleaseDir/$PkgName.lpk

4
components/codetools/examples/sourcecloser.lpr
View File

@ -467,7 +467,7 @@ begin
Changer:=CodeToolBoss.SourceChangeCache;
Changer.MainScanner:=Tool.Scanner;
// add errors
// add errors, so that user cannot accidentally compile the unit
s:='';
for i:=0 to FClosedSrcError.Count-1 do begin
s:=s+'{$Error '+FClosedSrcError[i]+'}'+LineEnding;
@ -547,7 +547,7 @@ begin
FUnitFilenames:=TStringList.Create;
FRemovePrivateSections:=true;
FClosedSrcError:=TStringList.Create;
FClosedSrcError.Add('This is a closed source unit. You can not compile it, it was already compiled.');
FClosedSrcError.Add('This is a closed source unit. You cannot compile it, it was already compiled.');
FClosedSrcError.Add('Probably the IDE has cleaned up and you have to unpack the zip again.');
end;