paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 10:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2jsdsgn: added project type pas2js service worker

Browse Source
This commit is contained in:
mattias 2022-04-03 13:04:32 +02:00
parent 7848544f19
commit fd20290ce1
12 changed files with 205 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pas2js/languages/strpas2jsdesign.fr.po
View File

@ -229,6 +229,14 @@ msgstr "Sélectionner l'exécutable %s"
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr "Les instances du serveur démarreront avec un numéro qui s'incrémentera avec chaque nouveau projet"
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr "Démarrer le serveur HTTP sur le port"

8
components/pas2js/languages/strpas2jsdesign.hu.po
View File

@ -231,6 +231,14 @@ msgstr "%s alkalmazás kiválasztása"
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr "A kiszolgáló példányainak indítása ezen a porton kezdődik, a port sorszáma minden új projekt esetén nagyobb lesz"
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr "HTTP kiszolgáló indítása ezen a porton"

8
components/pas2js/languages/strpas2jsdesign.pot
View File

@ -219,6 +219,14 @@ msgstr ""
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr ""
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr ""

8
components/pas2js/languages/strpas2jsdesign.pt_BR.po
View File

@ -230,6 +230,14 @@ msgstr "Selecionar executável %s"
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr "Instâncias servidoras serão iniciadas com uma porta começando por este número, aumentando à cada novo projeto"
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr "Iniciar servidor HTTP na porta"

8
components/pas2js/languages/strpas2jsdesign.ru.po
View File

@ -232,6 +232,14 @@ msgstr "Выберите исполнимый файл %s"
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr "Экземпляры серверов будут запускаться на портах с номерами, начинающимися с указанного и увеличивающимися в каждом новом проекте"
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr "Запускать сервер HTTP на порту"

8
components/pas2js/languages/strpas2jsdesign.tr.po
View File

@ -231,6 +231,14 @@ msgstr ""
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr ""
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr ""

8
components/pas2js/languages/strpas2jsdesign.uk.po
View File

@ -231,6 +231,14 @@ msgstr "Виберіть виконуваний файл %s"
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr "Примірники сервера будуть запускатись, починаючи з зазначеного порту, зі збільшенням для кожного проєкту"
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr "Запустити HTTP-сервер на порті"

8
components/pas2js/languages/strpas2jsdesign.zh_CN.po
View File

@ -232,6 +232,14 @@ msgstr ""
msgid "Server instances will be started with a port starting from this number, increasing per new project"
msgstr ""
#: strpas2jsdesign.pjsdserviceworker
msgid "Pas2JS Service Worker"
msgstr ""
#: strpas2jsdesign.pjsdserviceworkerdescription
msgid "A pas2js program running as cache for a web app. It does not run standalone."
msgstr ""
#: strpas2jsdesign.pjsdstarthttpserveronport
msgid "Start HTTP Server on port"
msgstr ""

1
components/pas2js/pjscontroller.pp
View File

@ -80,6 +80,7 @@ Const
// Custom settings in .lpi
PJSProject = 'Pas2JSProject'; // Project is pas2js project
PJSProjectWebBrowser = 'PasJSWebBrowserProject'; // Web browser project
PJSProjectServiceWorker = 'PJSProjectServiceWorker'; // Service Worker project
PJSProjectNodeJS = 'PJSProjectNodeJS'; // NodeJS project
PJSProjectModule = 'PJSProjectModule'; // Module project
PJSProjectVSCode = 'PJSProjectVSCode'; // VS Code project

129
components/pas2js/pjsdsgnregister.pas
View File

@ -17,6 +17,7 @@ uses
const
ProjDescNamePas2JSWebApp = 'Web Application';
ProjDescNamePas2JSServiceWorker = 'Pas2JS Service Worker';
ProjDescNamePas2JSNodeJSApp = 'NodeJS Application';
ProjDescNamePas2JSModuleApp = 'Pas2JS Library';
FileDescNameClassFromHTMLFile = 'Class definition from HTML file';
@ -62,7 +63,21 @@ type
Property ProjectURL : String Read FProjectURL Write FProjectURL;
end;
{ TProjectPas2JSServiceWorker }
TProjectPas2JSServiceWorker = class(TProjectDescriptor)
protected
function CreateProjectSource: String; virtual;
public
constructor Create; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
end;
{ TProjectPas2JSNodeJSApp }
TNodeJSApplicationOption = (naoUseNodeJSApp); // Use NodeJS app object
TNodeJSApplicationOptions = set of TNodeJSApplicationOption;
@ -109,7 +124,7 @@ type
var {%H-}NewSource: string; {%H-}Quiet: boolean): TModalResult; override;
function ShowOptionDialog : TModalResult;
function CreateSource(const Filename, SourceName,
ResourceName: string): string; override;
{%H-}ResourceName: string): string; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
end;
@ -124,8 +139,8 @@ type
destructor destroy; override;
function Init(var {%H-}NewFilename: string; {%H-}NewOwner: TObject;
var {%H-}NewSource: string; {%H-}Quiet: boolean): TModalResult; override;
function CreateSource(const Filename, SourceName,
ResourceName: string): string; override;
function CreateSource(const {%H-}Filename, SourceName,
{%H-}ResourceName: string): string; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
end;
@ -203,6 +218,7 @@ begin
TPJSController.Instance.Hook;
// register new-project items
RegisterProjectDescriptor(TProjectPas2JSWebApp.Create);
RegisterProjectDescriptor(TProjectPas2JSServiceWorker.Create);
RegisterProjectDescriptor(TProjectPas2JSNodeJSApp.Create);
RegisterProjectDescriptor(TProjectPas2JSModuleApp.Create);
Pas2JSHTMLClassDef:=TPas2JSHTMLClassDef.Create;
@ -232,8 +248,111 @@ begin
PrjMnuItemAll:=RegisterIDEMenuCommand(ProjInspMenuSectionFiles,
'PrjHTMLFormClassRefreshAll',pjsRefreshAllClassesFromHTML,@MenuHandler.OnRefreshProjHTMLFormAllContext);
ProjectInspectorItemsMenuRoot.AddHandlerOnShow(@MenuHandler.OnPrjInspPopup);
end;
{ TProjectPas2JSServiceWorker }
function TProjectPas2JSServiceWorker.CreateProjectSource: String;
var
Src: TStringList;
procedure Add(const s: string);
begin
Src.Add(s);
end;
begin
Src:=TStringList.Create;
try
Add('program ServiceWorker;');
Add('');
Add('{$mode objfpc}');
Add('');
Add('uses');
Add(' Classes, ServiceWorkerApp;');
Add('');
Add('const');
Add(' YourCacheName = ''v1''; // usually increased with every version');
Add(' // The cache is specific to your domain, so no need to include your app name.');
Add('');
Add('type');
Add('');
Add(' { TApplication }');
Add('');
Add(' TApplication = class(TServiceWorkerApplication)');
Add(' public');
Add(' constructor Create(AOwner: TComponent); override;');
Add(' end;');
Add('');
Add('{ TApplication }');
Add('');
Add('constructor TApplication.Create(AOwner: TComponent);');
Add('begin');
Add(' inherited Create(AOwner);');
Add('');
Add(' FCacheName:=YourCacheName;');
Add(' FResources:=[');
Add(' ''/images/error.png''');
Add(' ];');
Add(' FallbackURL := ''/images/error.png'';');
Add('end;');
Add('');
Add('var');
Add(' App: TApplication;');
Add('begin');
Add(' App:=TApplication.Create(nil);');
Add(' App.Run;');
Add('end.');
Result:=Src.Text;
finally
Src.Free;
end;
end;
constructor TProjectPas2JSServiceWorker.Create;
begin
inherited Create;
Name:=ProjDescNamePas2JSServiceWorker;
Flags:=DefaultProjectNoApplicationFlags-[pfRunnable];
end;
function TProjectPas2JSServiceWorker.GetLocalizedName: string;
begin
Result:=pjsdServiceWorker;
end;
function TProjectPas2JSServiceWorker.GetLocalizedDescription: string;
begin
Result:=pjsdServiceWorkerDescription;
end;
function TProjectPas2JSServiceWorker.InitProject(AProject: TLazProject
): TModalResult;
var
MainFile: TLazProjectFile;
CompOpts: TLazCompilerOptions;
begin
Result:=inherited InitProject(AProject);
MainFile:=AProject.CreateProjectFile('ServiceWorker.lpr');
MainFile.IsPartOfProject:=true;
AProject.AddFile(MainFile,false);
AProject.MainFileID:=0;
CompOpts:=AProject.LazCompilerOptions;
SetDefaultServiceWorkerCompileOptions(CompOpts);
CompOpts.TargetFilename:='ServiceWorker';
SetDefaultServiceWorkerRunParams(AProject.RunParameters.GetOrCreate('Default'));
AProject.MainFile.SetSourceText(CreateProjectSource,true);
AProject.CustomData.Values[PJSProject]:='1';
AProject.CustomData.Values[PJSProjectServiceWorker]:='1';
end;
function TProjectPas2JSServiceWorker.CreateStartFiles(AProject: TLazProject
): TModalResult;
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
if Result<>mrOK then
exit;
end;
{ TPas2JSDTSToPasUnitDef }
@ -250,7 +369,6 @@ begin
inherited destroy;
end;
function TPas2JSDTSToPasUnitDef.Init(var NewFilename: string;
NewOwner: TObject; var NewSource: string; Quiet: boolean): TModalResult;
begin
@ -1008,7 +1126,7 @@ begin
SetDefaultWebCompileOptions(CompOpts);
CompOpts.TargetFilename:='project1';
if baoUseModule in Options then
CompOpts.TargetOS:='module';
CompOpts.TargetOS:='module';
SetDefaultWebRunParams(AProject.RunParameters.GetOrCreate('Default'));
AProject.MainFile.SetSourceText(CreateProjectSource,true);
AProject.CustomData.Values[PJSProject]:='1';
@ -1032,7 +1150,6 @@ begin
// create html source
if baoCreateHtml in Options then
begin
debugln(['AAA2 TProjectPas2JSWebApp.InitProject ']);
HTMLFile:=CreateHTMLFile(aProject,'project1.js');
HTMLFile.CustomData[PJSIsProjectHTMLFile]:='1';
if baoMaintainHTML in Options then

15
components/pas2js/pjsprojectoptions.pp
View File

@ -56,8 +56,10 @@ type
end;
Procedure SetDefaultWebRunParams(RunParams : TAbstractRunParamsOptionsMode);
Procedure SetDefaultServiceWorkerRunParams(RunParams : TAbstractRunParamsOptionsMode);
Procedure SetDefaultNodeRunParams(RunParams : TAbstractRunParamsOptionsMode);
Procedure SetDefaultWebCompileOptions(CompOpts: TLazCompilerOptions);
Procedure SetDefaultServiceWorkerCompileOptions(CompOpts: TLazCompilerOptions);
Procedure SetDefaultNodeJSCompileOptions(CompOpts: TLazCompilerOptions);
Procedure SetDefaultModuleCompileOptions(CompOpts: TLazCompilerOptions);
@ -81,6 +83,14 @@ begin
RunParams.LaunchingApplicationPathPlusParams:='"$(Pas2JSBrowser)" "$(Pas2JSProjectURL)"';
end;
procedure SetDefaultServiceWorkerRunParams(
RunParams: TAbstractRunParamsOptionsMode);
begin
RunParams.HostApplicationFilename:='';
RunParams.CmdLineParams:='';
RunParams.UseLaunchingApplication:=False;
end;
Procedure SetDefaultNodeRunParams(RunParams : TAbstractRunParamsOptionsMode);
begin
@ -129,6 +139,11 @@ begin
SetPasJSCompileOptions(CompOpts,'browser','-Jeutf-8 -Jirtl.js -Jc -Jminclude');
end;
procedure SetDefaultServiceWorkerCompileOptions(CompOpts: TLazCompilerOptions);
begin
SetPasJSCompileOptions(CompOpts,'browser','-Jeutf-8 -Jirtl.js -Jc -Jminclude');
end;
Procedure SetDefaultNodeJSCompileOptions(CompOpts: TLazCompilerOptions);
begin

2
components/pas2js/strpas2jsdesign.pp
View File

@ -10,6 +10,8 @@ Resourcestring
// "Create new" dialog
pjsdWebApplication = 'Web Browser Application';
pjsdWebAppDescription = 'A pas2js program running in the browser.';
pjsdServiceWorker = 'Pas2JS Service Worker';
pjsdServiceWorkerDescription = 'A pas2js program running as cache for a web app. It does not run standalone.';
pjsdNodeJSApplication = 'Node.js Application';
pjsdNodeJSAppDescription = 'A pas2js program running in node.js.';
pjsdModuleApplication = 'Pas2JS Library / JavaScript module';