|
|
@@ -1,29 +1,131 @@
|
|
|
-{$ifndef ALLPACKAGES}
|
|
|
{$mode objfpc}{$H+}
|
|
|
program fpmake;
|
|
|
|
|
|
-uses fpmkunit;
|
|
|
-{$endif ALLPACKAGES}
|
|
|
+uses {$ifdef unix}cthreads{$endif},sysutils,fpmkunit;
|
|
|
|
|
|
-procedure add_pas2js(const ADirectory: string);
|
|
|
+Procedure CreateConfigFile(CfgFile,BaseDir : String);
|
|
|
+
|
|
|
+Var
|
|
|
+ F : Text;
|
|
|
+
|
|
|
+ Procedure AddLn(S : String);
|
|
|
+
|
|
|
+ begin
|
|
|
+ Writeln(F,S);
|
|
|
+ end;
|
|
|
+
|
|
|
+begin
|
|
|
+ if not ForceDirectories(ExtractFilePath(CfgFile)) then
|
|
|
+ begin
|
|
|
+ Writeln(StdErr,'Could not create destination directory ',ExtractFilePath(CfgFile));
|
|
|
+ Halt(2);
|
|
|
+ end;
|
|
|
+ Assign(F,CfgFile);
|
|
|
+ try
|
|
|
+ Rewrite(F);
|
|
|
+ except
|
|
|
+ On E : exception do
|
|
|
+ begin
|
|
|
+ Writeln(StdErr,'Could not create config file ',CfgFile,' : ',E.Message);
|
|
|
+ Halt(3);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ if (BaseDir<>'') then
|
|
|
+ BaseDir:=ExcludeTrailingPathDelimiter(BaseDir);
|
|
|
+ if (BaseDir<>'') then
|
|
|
+ BaseDir:=ExcludeLeadingPathDelimiter(BaseDir);
|
|
|
+ Addln('#');
|
|
|
+ Addln('# Minimal config file for pas2js compiler');
|
|
|
+ Addln('#');
|
|
|
+ Addln('');
|
|
|
+ Addln('# not yet implemented: -d is the same as #DEFINE');
|
|
|
+ Addln('# not yet implemented: -u is the same as #UNDEF');
|
|
|
+ Addln('');
|
|
|
+ Addln('# Write always a nice logo ;)');
|
|
|
+ Addln('-l');
|
|
|
+ Addln('');
|
|
|
+ Addln('# Display Hints, Warnings and Notes');
|
|
|
+ Addln('-vwnh');
|
|
|
+ Addln('# If you don''t want so much verbosity use');
|
|
|
+ Addln('#-vw');
|
|
|
+ Addln('');
|
|
|
+ Addln('-Fu$CfgDir/'+BASEDIR+'/rtl');
|
|
|
+ Addln('-Fu$CfgDir/'+BASEDIR+'/fcl-base');
|
|
|
+ Addln('-Fu$CfgDir/'+BASEDIR+'/fcl-db');
|
|
|
+ Addln('-Fu$CfgDir/'+BASEDIR+'/fpcunit');
|
|
|
+ Addln('');
|
|
|
+ Addln('#IFDEF nodejs');
|
|
|
+ Addln('-Jirtl.js');
|
|
|
+ Addln('#ENDIF');
|
|
|
+ Addln('');
|
|
|
+ Addln('# end.');
|
|
|
+ Addln('EOCF');
|
|
|
+ Addln('');
|
|
|
+ Addln('# end');
|
|
|
+ Close(F);
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+Procedure AddInstallFiles(Files : TConditionalDestStrings; ADir,AllowedExt,APrefix : String);
|
|
|
+
|
|
|
+Var
|
|
|
+ Info : TSearchRec;
|
|
|
+ ADestDir,E : String;
|
|
|
+ P : Integer;
|
|
|
+
|
|
|
+begin
|
|
|
+ ADestDir:=ADir;
|
|
|
+ P:=Pos(PathDelim,ADestDir);
|
|
|
+ if (P>0) then
|
|
|
+ Delete(ADestDir,1,P);
|
|
|
+ ADir:=IncludeTrailingPathDelimiter(ADir);
|
|
|
+ ADestDir:=IncludeTrailingPathDelimiter(ADestDir);
|
|
|
+ if FindFirst(aDir+AllFilesMask,0,Info)=0 then
|
|
|
+ try
|
|
|
+ Repeat
|
|
|
+ E:=LowerCase(ExtractFileExt(Info.Name));
|
|
|
+ if pos(E,AllowedExt)>0 then
|
|
|
+ Files.Add(ADir+Info.Name,aPrefix+ADestDir);
|
|
|
+ until (FindNext(Info)<>0);
|
|
|
+ finally
|
|
|
+ FindClose(Info);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+Procedure AddPackageFiles(Files : TConditionalDestStrings; ADir,APrefix : String);
|
|
|
+
|
|
|
+Const
|
|
|
+ PackExt = '.pas.inc.lpk';
|
|
|
+
|
|
|
+begin
|
|
|
+ AddInstallFiles(Files,'packages'+PathDelim+ADir,packExt,aPrefix);
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+Procedure AddDemoFiles(Files : TConditionalDestStrings; ADir,APrefix : String);
|
|
|
+
|
|
|
+Const
|
|
|
+ DemoExt = '.pas.inc.lpr.lpi.html.md';
|
|
|
+
|
|
|
+begin
|
|
|
+ AddInstallFiles(Files,'demo'+PathDelim+ADir,demoExt,APrefix);
|
|
|
+end;
|
|
|
|
|
|
Var
|
|
|
P : TPackage;
|
|
|
PT,T : TTarget;
|
|
|
+ UnitDir,DemoDir,BD : String;
|
|
|
|
|
|
begin
|
|
|
With Installer do
|
|
|
begin
|
|
|
P:=AddPackage('pas2js');
|
|
|
-
|
|
|
P.Author := 'Free Pascal Team';
|
|
|
P.License := 'LGPL with modification';
|
|
|
P.HomepageURL := 'www.freepascal.org';
|
|
|
P.Description := 'Convert pascal sources to javascript.';
|
|
|
P.Email := '[email protected]';
|
|
|
P.NeedLibC:= false;
|
|
|
-
|
|
|
- P.Directory:=ADirectory;
|
|
|
P.Version:='3.1.1';
|
|
|
P.SourcePath.Add('compiler/utils/pas2js');
|
|
|
P.UnitPath.Add('compiler/utils/pas2js');
|
|
|
@@ -32,18 +134,41 @@ begin
|
|
|
P.UnitPath.Add('compiler/packages/fcl-js/src');
|
|
|
P.UnitPath.Add('compiler/packages/fcl-json/src');
|
|
|
P.IncludePath.Add('compiler/packages/pastojs/src');
|
|
|
+ P.Dependencies.Clear;
|
|
|
Defaults.Options.Add('-Sc');
|
|
|
- PT:=P.Targets.AddProgram('pas2js.pp');
|
|
|
- PT:=P.Targets.AddLibrary('pas2jslib.pp');
|
|
|
- end;
|
|
|
-end;
|
|
|
+ P.Targets.AddProgram('pas2js.pp');
|
|
|
+ P.Targets.AddLibrary('pas2jslib.pp');
|
|
|
+ if Installer.RunMode in [rmInstall,rmArchive,rmZipInstall] then
|
|
|
+ begin
|
|
|
+ // Config file
|
|
|
+ BD:=IncludeTrailingPathDelimiter(P.GetBinOutputDir(Defaults.BuildCPU,Defaults.BuildOS));
|
|
|
+ // Determine unit files location
|
|
|
+ UnitDir:=ExcludeTrailingPathDelimiter(Defaults.UnitInstallDir);
|
|
|
+ UnitDir:=ExcludeTrailingPathDelimiter(ExtractFilePath(UnitDir));
|
|
|
+ UnitDir:=ExcludeTrailingPathDelimiter(ExtractFilePath(UnitDir));
|
|
|
+ UnitDir:=ExtractFilePath(UnitDir);
|
|
|
+ UnitDir:=UnitDir+'pas2js'+PathDelim;
|
|
|
|
|
|
-{$ifndef ALLPACKAGES}
|
|
|
-begin
|
|
|
- add_pas2js('');
|
|
|
- Installer.Run;
|
|
|
+ // Create config file
|
|
|
+ CreateConfigFile(BD+'pas2js.cfg',ExtractRelativePath(IncludeTrailingPathDelimiter(Defaults.BinInstallDir),IncludeTrailingPathDelimiter(UnitDir)));
|
|
|
+ P.InstallFiles.Add(BD+'pas2js.cfg',Defaults.BinInstallDir);
|
|
|
+ P.InstallFiles.Add('compiler/utils/pas2js/dist/rtl.js',IncludeTrailingPathDelimiter(UnitDir)+'rtl');
|
|
|
+ AddPackageFiles(P.InstallFiles,'rtl',UnitDir);
|
|
|
+ AddPackageFiles(P.InstallFiles,'fcl-base',UnitDir);
|
|
|
+ AddPackageFiles(P.InstallFiles,'fcl-db',UnitDir);
|
|
|
+ AddPackageFiles(P.InstallFiles,'fpcunit',UnitDir);
|
|
|
+ // Demo files
|
|
|
+ DemoDir:=IncludeTrailingPathDelimiter(Defaults.ExamplesInstallDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'rtl',DemoDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'fcldb',DemoDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'fpcunit',DemoDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'fpreport',DemoDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'hotreload',DemoDir);
|
|
|
+ AddDemoFiles(P.InstallFiles,'jquery',DemoDir);
|
|
|
+ end;
|
|
|
+ Run;
|
|
|
+ end;
|
|
|
end.
|
|
|
-{$endif ALLPACKAGES}
|
|
|
|
|
|
|
|
|
|
michael