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

* -r/chrome option

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-11 17:05:41 +02:00
parent 90cac5536f
commit 5bc1cfa9bc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/pas2js/webidl2pas.pp
View File

@ -142,7 +142,7 @@ var
begin begin
Terminate; Terminate;
// quick check parameters // quick check parameters
ErrorMsg:=CheckOptions('ced::f:g:hi:m:n:o:pt:u:vw:x:', [ ErrorMsg:=CheckOptions('ced::f:g:hi:m:n:o:pt:u:vw:x:r', [
'help', 'help',
'constexternal', 'constexternal',
'dicttoclass::', 'dicttoclass::',
@ -158,7 +158,8 @@ begin
'unitname:', 'unitname:',
'verbose', 'verbose',
'webidlversion:', 'webidlversion:',
'extra:' 'extra:',
'chrome'
]); ]);
if (ErrorMsg<>'') or HasOption('h','help') then if (ErrorMsg<>'') or HasOption('h','help') then
begin begin
@ -195,7 +196,7 @@ begin
TWebIDLToPas2js(FWebIDLToPas).DictionaryClassParent:=GetOptionValue('d','dicttoclass'); TWebIDLToPas2js(FWebIDLToPas).DictionaryClassParent:=GetOptionValue('d','dicttoclass');
CheckBaseOption(coExpandUnionTypeArgs,'e','expandunionargs'); CheckBaseOption(coExpandUnionTypeArgs,'e','expandunionargs');
CheckBaseOption(coChromeWindow,'r','chrome');
// -f ? // -f ?
A:=GetOptionValue('g','globals'); A:=GetOptionValue('g','globals');