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

* INdicate required dictionary fields

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-29 17:54:48 +02:00
parent f35a565f4e
commit 04a9cc3ed9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/webidl/src/webidltowasmjob.pp
View File

@ -701,7 +701,7 @@ end;
function TWebIDLToPasWasmJob.WriteDictionaryField(aDict: TIDLDictionaryDefinition; aField: TIDLDictionaryMemberDefinition): Boolean;
var
N, TN: TIDLString;
aDef, N, TN: TIDLString;
begin
if (aDict=Nil) then ; // Silence compiler warning
Result:=True;
@ -709,7 +709,10 @@ begin
TN:=GetPasName(aField.MemberType);
if SameText(N,TN) then
N:='_'+N;
AddLn(N+': '+TN+';');
aDef:=N+': '+TN+';';
if aField.IsRequired then
aDef:=aDef+' // required';
AddLn(aDef);
end;
function TWebIDLToPasWasmJob.WriteForwardClassDef(D: TIDLStructuredDefinition
@ -1890,6 +1893,9 @@ begin
Code:=Code+';';
if aType is TIDLFunctionDefinition then
Code:='// '+Code;
if (aProp is TIDLDictionaryMemberDefinition) then
if TIDLDictionaryMemberDefinition(aProp).IsRequired then
Code:=Code+' // required';
AddLn(Code);
Result:=true;
end;