paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 08:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow to build stub

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-14 08:33:14 +02:00
parent a9c88ace25
commit 4664b14081
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/pas2js/webidl2pas.pp
View File

@ -18,17 +18,19 @@ program webidl2pas;
uses
Classes, SysUtils, CustApp, webidlscanner, webidltopas, pascodegen, typinfo,
webidltopas2js, webidltowasmjob;
webidltopas2js, webidltowasmjob, webidltowasmstub;
type
TWebIDLToPasFormat = (
wifPas2js,
wifWasmJob
wifWasmJob,
wifWasmJobStub
);
const
WebIDLToPasFormatNames: array[TWebIDLToPasFormat] of string = (
'pas2js',
'wasmjob'
'wasmjob',
'wasmjobstub'
);
type
@ -261,6 +263,8 @@ begin
case OutputFormat of
wifWasmJob:
FWebIDLToPas:=TWebIDLToPasWasmJob.Create(Self);
wifWasmJobStub:
FWebIDLToPas:=TWebIDLToPasWasmJobStub.Create(Self);
else
FWebIDLToPas:=TWebIDLToPas2js.Create(Self);
end;
@ -306,6 +310,7 @@ begin
Writeln(StdErr,'-o --output=FileName output file. Defaults to unit name with .pas extension appended.');
Writeln(StdErr,'-p --optionsinheader add options to header of generated file');
Writeln(StdErr,'-s --stub Write a stub implementation for native compilation');
Writeln(StdErr,'-t --typealiases=alias A comma separated list of type aliases in Alias=Name form');
Writeln(StdErr,' use @filename to load the aliases from file.');
Writeln(StdErr,'-u --unitname=Name name for unit. Defaults to input file without extension.');