paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: added experimental target os electron

Browse Source
This commit is contained in:
mattias 2020-12-07 23:25:07 +00:00
parent 782c135262
commit 714623c91c
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/packages/pastojs/src/fppas2js.pp
View File

@ -1054,13 +1054,15 @@ type
type
TPasToJsPlatform = (
PlatformBrowser,
PlatformNodeJS
PlatformNodeJS,
PlatformElectron
);
TPasToJsPlatforms = set of TPasToJsPlatform;
const
PasToJsPlatformNames: array[TPasToJsPlatform] of string = (
'Browser',
'NodeJS'
'NodeJS',
'Electron'
);
type
TPasToJsProcessor = (

2
compiler/packages/pastojs/src/pas2jscompiler.pp
View File

@ -4769,6 +4769,7 @@ begin
w(' -T<x> : Set target platform');
w(' -Tbrowser: default');
w(' -Tnodejs : add pas.run(), includes -Jc');
w(' -Telectron: experimental');
w(' -u<x> : Undefines the symbol <x>');
w(' -v<x> : Be verbose. <x> is a combination of the following letters:');
w(' e : Show errors (default)');
@ -4948,6 +4949,7 @@ begin
Log.LogPlain('Supported targets (targets marked with ''{*}'' are under development):');
Log.LogPlain([' ',PasToJsPlatformNames[PlatformBrowser],': webbrowser']);
Log.LogPlain([' ',PasToJsPlatformNames[PlatformNodeJS],': Node.js']);
Log.LogPlain([' ',PasToJsPlatformNames[PlatformElectron],': Electron app']);
Log.LogLn;
Log.LogPlain('Supported CPU instruction sets:');
Log.LogPlain(' ECMAScript5, ECMAScript6');

4
compiler/packages/pastojs/src/pas2jsfiler.pp
View File

@ -267,7 +267,8 @@ const
PCUDefaultTargetPlatform = PlatformBrowser;
PCUTargetPlatformNames: array[TPasToJsPlatform] of string = (
'Browser',
'NodeJS'
'NodeJS',
'Electron'
);
PCUDefaultTargetProcessor = ProcessorECMAScript5;
@ -3989,6 +3990,7 @@ var
Templ: TPasGenericTemplateType;
TemplObj: TJSONObject;
begin
if Parent=nil then ;
if (GenericTemplateTypes=nil) or (GenericTemplateTypes.Count=0) then exit;
Arr:=TJSONArray.Create;
Obj.Add('GenericTemplateTypes',Arr);