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

pas2jsdsgn: using CompilerPath

Browse Source 
git-svn-id: trunk@57911 -
This commit is contained in:
mattias 2018-05-13 07:15:48 +00:00
parent ee7e7c077c
commit f3fa5cd498
1 changed files with 32 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
components/pas2js/pjsprojectoptions.pp
View File

@ -5,7 +5,8 @@ unit pjsprojectoptions;
interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Spin, projectintf, CompOptsIntf, IDEOptionsIntf;
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Spin, projectintf,
CompOptsIntf, IDEOptionsIntf, LazLoggerBase;
type
@ -77,31 +78,53 @@ begin
RunParams.LaunchingApplicationPathPlusParams:='$(Pas2JSNodeJS) "$MakeDir($(ProjPath))$NameOnly($(ProjFile)).js"';
end;
Procedure SetPasJSCompileOptions(CompOpts: TLazCompilerOptions; Opts : String);
Procedure SetPasJSCompileOptions(CompOpts: TLazCompilerOptions;
TargetOS, CustomOpts : String);
Var
Compiler : String;
begin
CompOpts.Win32GraphicApp:=false;
DebugLn(['SetPasJSCompileOptions START']);
CompOpts.UnitOutputDirectory:='js';
if Length(PJSOptions.CompilerFilename)=0 then
Compiler:='$MakeExe(pas2js)'
CompOpts.TargetFileExt:='.js';
CompOpts.TargetOS:=TargetOS;
CompOpts.AllowLabel:=false;
CompOpts.UseAnsiStrings:=false;
CompOpts.IOChecks:=false;
CompOpts.StackChecks:=false;
CompOpts.SmartLinkUnit:=false;
CompOpts.GenerateDebugInfo:=false;
CompOpts.DebugInfoType:=dsAuto;
CompOpts.UseLineInfoUnit:=false;
CompOpts.UseHeaptrc:=false;
CompOpts.Win32GraphicApp:=false;
CompOpts.WriteFPCLogo:=true;
CompOpts.CustomOptions:=CustomOpts;
if PJSOptions.CompilerFilename='' then
Compiler:='$MakeExe(pas2js)'
else
Compiler:=AnsiQuotedStr(PJSOptions.CompilerFilename, '"');
CompOpts.SetAlternativeCompile(Compiler+' '+Opts,true);
Compiler:=PJSOptions.CompilerFilename;
CompOpts.CompilerPath:=Compiler;
debugln(['Hint: (lazarus) [pjsprojectoptions.SetPasJSCompileOptions] Compiler=',CompOpts.CompilerPath,' TargetOS=',CompOpts.TargetOS,' Custom="',CompOpts.CustomOptions,'"']);
end;
Procedure SetDefaultWebCompileOptions(CompOpts: TLazCompilerOptions);
begin
SetPasJSCompileOptions(CompOpts,'-Jirtl.js -Jc -Jminclude -Tbrowser "-Fu$(ProjUnitPath)" $Name($(ProjFile))');
SetPasJSCompileOptions(CompOpts,'browser','-Jeutf-8 -Jirtl.js -Jc -Jminclude');
end;
Procedure SetDefaultNodeJSCompileOptions(CompOpts: TLazCompilerOptions);
begin
SetPasJSCompileOptions(CompOpts,'-Jc -Jminclude -Tnodejs "-Fu$(ProjUnitPath)" $Name($(ProjFile))');
SetPasJSCompileOptions(CompOpts,'nodejs','-Jeutf-8 -Jminclude');
end;
{$R *.lfm}