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

* Dictionary constructor accepting dictionary record

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-24 16:20:27 +02:00
parent 73867e47f9
commit 331e851549
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -196,6 +196,7 @@ type
procedure WriteUtilityMethodImplementations(aDef: TIDLStructuredDefinition; ML: TIDLDefinitionList);virtual;
Procedure WritePrivateGetterImplementation(aParent: TIDLStructuredDefinition; aProp: TIDLPropertyDefinition); virtual;
Procedure WritePrivateSetterImplementation(aParent: TIDLStructuredDefinition; aProp: TIDLPropertyDefinition);virtual;
procedure WriteDictionaryConstructor(aDict: TIDLDictionaryDefinition); virtual;
// MapLike
procedure WriteMapLikePrivateSetterImplementation(aParent: TIDLStructuredDefinition; aMap: TIDLMapLikeDefinition); virtual;
procedure WriteMapLikePrivateGetterImplementation(aParent: TIDLStructuredDefinition; aMap: TIDLMapLikeDefinition); virtual;
@ -610,12 +611,18 @@ end;
function TWebIDLToPasWasmJob.WriteUtilityMethods(Intf: TIDLStructuredDefinition
): Integer;
var
aPasIntfName: TIDLString;
CurrClassName,aPasIntfName: TIDLString;
begin
Result:=0;
aPasIntfName:=GetPasIntfName(Intf);
if Intf is TIDLDictionaryDefinition then
begin
CurrClassName:=GetPasName(TIDLDictionaryDefinition(Intf));
AddLn('constructor create(const aDict : '+CurrClassName+'Rec); overload;');
end;
AddLn('class function JSClassName: UnicodeString; override;');
AddLn('class function Cast(const Intf: IJSObject): '+aPasIntfName+';');
end;
function TWebIDLToPasWasmJob.WriteMapLikeProperties(aParent: TIDLDefinition; aMap: TIDLMapLikeDefinition): Integer;
@ -2223,6 +2230,30 @@ begin
end;
end;
procedure TWebIDLToPasWasmJob.WriteDictionaryConstructor(aDict: TIDLDictionaryDefinition);
var
CurrClassName: TIDLString;
IDL : TIDLDefinition;
MD : TIDLDictionaryMemberDefinition absolute IDL;
aName : string;
begin
CurrClassName:=GetPasName(aDict);
AddLn('constructor %s.create(const aDict : %sRec); overload;';[CurrClassName,CurrClassName]);
Addln('begin');
Indent;
For IDl in aDict.Members do
if IDL is TIDLDictionaryMemberDefinition then
begin
aName:=GetPasName(MD);
AddLn('Self.%s:=aDict.%s;',[aName,aName]);
end;
Undent;
AddLn('end;');
AddLn('');
end;
procedure TWebIDLToPasWasmJob.WriteUtilityMethodImplementations(aDef : TIDLStructuredDefinition; ML : TIDLDefinitionList);
var
@ -2233,7 +2264,10 @@ begin
aClassName:=GetPasName(aDef);
aPasIntfName:=GetPasIntfName(aDef);
if aDef.StructuredType=sdDictionary then
begin
WriteDictionaryConstructor(aDef as TIDLDictionaryDefinition);
aJSClassName:='Object'
end
else
aJSClassName:=aDef.Name;
AddLn('class function %s.JSClassName: UnicodeString;',[aClassName]);