Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Made LazPackager compilable again with fpc & Lazarus stable versions.… #4

Open
wants to merge 3 commits into
base: master
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -1,2 +1,4 @@
lib
/.project
backup
doc-devel
7 changes: 7 additions & 0 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -51,3 +51,10 @@ Does it work yet?
-----------------
95%. Should work for most simple projects out of the box and with
a few tweaks to the templates for all others too.

NB by Thierry Andriamirado:
---------------------------
I concocted and delivered this maintenance version for practical reasons,
so that LazPackager continues to work as Lazarus evolves, and why not, to make
it evolve. Thanks go to Bernd Kreuss for this useful project.

14 changes: 4 additions & 10 deletions lazpackager.lpk
Original file line number Diff line number Diff line change
@@ -1,19 +1,14 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<Name Value="LazPackager"/>
<Type Value="DesignTime"/>
<Author Value="Bernd Kreuss"/>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Build a binary Debian (.deb) package from the current project or create a Debian source package and sign and upload to a Launchpad PPA automatically."/>
<License Value="This source is free software; you can redistribute it and/or modify it
Expand All @@ -30,11 +25,11 @@ A copy of the GNU General Public License is available on the World Wide
Web at &lt;http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by
writing to the Free Software Foundation, Inc., 59 Temple Place - Suite
330, Boston, MA 02111-1307, USA."/>
<Version Major="1"/>
<Version Major="1" Release="1" Build="3"/>
<Files Count="6">
<Item1>
<Filename Value="frmlazpackageroptionsdeb.pas"/>
<UnitName Value="frmlazpackageroptionsdeb"/>
<UnitName Value="frmLazPackagerOptionsDeb"/>
</Item1>
<Item2>
<Filename Value="lazpackagermain.pas"/>
Expand All @@ -58,7 +53,6 @@ writing to the Free Software Foundation, Inc., 59 Temple Place - Suite
<UnitName Value="LazPackagerDebian"/>
</Item6>
</Files>
<Type Value="DesignTime"/>
<RequiredPkgs Count="4">
<Item1>
<PackageName Value="SynEdit"/>
Expand Down
7 changes: 4 additions & 3 deletions lazpackagerbase.pas
Original file line number Diff line number Diff line change
Expand Up @@ -87,7 +87,7 @@ implementation
sysutils,
Forms,
LCLProc,
FileUtil,
FileUtil, LazStringUtils, LazFileUtils,
LazIDEIntf,
ProjectResourcesIntf,
MacroIntf,
Expand Down Expand Up @@ -266,10 +266,11 @@ procedure TPackagerBase.RunBuildScript(Data: PtrInt);
Tool: TIDEExternalToolOptions;
begin
Tool := TIDEExternalToolOptions.Create;
Tool.Filename := GetBuildScriptInterpreter;
// Tool.Filename := GetBuildScriptInterpreter; // Filename: deprecated
Tool.Executable := GetBuildScriptInterpreter;
Tool.CmdLineParams := GetBuildScriptName;
Tool.WorkingDirectory := GetProjectPathAbsolute;
Tool.ShowAllOutput := True;
// Tool.ShowAllOutput := True; // ShowAllOutput: "Error: ID no member"
RunExternalTool(Tool);
Tool.Free;
Self.Free;
Expand Down