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

webidl: wasmjob: prefix callbacks with T

Browse Source
This commit is contained in:
mattias 2022-06-27 11:30:31 +02:00
parent b9dc428e20
commit fb5456da79
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/webidl/src/webidltopas.pp
View File

@ -61,6 +61,7 @@ type
FContext: TWebIDLContext;
FDictionaryClassParent: String;
FFieldPrefix: String;
FFuncTypePrefix: String;
FGetterPrefix: String;
FIncludeImplementationCode: TStrings;
FIncludeInterfaceCode: TStrings;
@ -161,6 +162,7 @@ type
Property ClassSuffix: String Read FClassSuffix Write FClassSuffix;
Property GetterPrefix: String read FGetterPrefix write FGetterPrefix;
Property SetterPrefix: String read FSetterPrefix write FSetterPrefix;
Property FuncTypePrefix: String read FFuncTypePrefix write FFuncTypePrefix;
Property WebIDLVersion: TWebIDLVersion Read FWebIDLVersion Write FWebIDLVersion;
Property TypeAliases: TStrings Read FTypeAliases Write SetTypeAliases;
Property IncludeInterfaceCode: TStrings Read FIncludeInterfaceCode Write SetIncludeInterfaceCode;
@ -649,6 +651,7 @@ begin
ClassSuffix:='';
GetterPrefix:='Get';
SetterPrefix:='Set';
FuncTypePrefix:='T';
FTypeAliases:=TStringList.Create;
FPasNameList:=TFPObjectList.Create(True);
FPasDataClass:=TPasData;
@ -1355,16 +1358,17 @@ Var
aData: TPasData;
begin
writeln('AAA1 TBaseWebIDLToPas.AllocatePasName ',D.Name,':',D.ClassName);
CN:=D.Name;
if D Is TIDLInterfaceDefinition then
begin
CN:=ClassPrefix+D.Name+ClassSuffix;
CN:=ClassPrefix+CN+ClassSuffix;
Result:=CreatePasName(CN,D);
D.Data:=Result;
AllocatePasNames((D as TIDLInterfaceDefinition).Members,D.Name);
end
else if D Is TIDLDictionaryDefinition then
begin
CN:=D.Name;
if coDictionaryAsClass in BaseOptions then
CN:=ClassPrefix+CN+ClassSuffix;
Result:=CreatePasName(EscapeKeyWord(CN),D);
@ -1373,7 +1377,9 @@ begin
end
else
begin
Result:=CreatePasName(D.Name,D);
if (D Is TIDLFunctionDefinition) and (foCallBack in TIDLFunctionDefinition(D).Options) then
CN:=FuncTypePrefix+CN;;
Result:=CreatePasName(CN,D);
D.Data:=Result;
if D Is TIDLFunctionDefinition then
AllocatePasNames((D as TIDLFunctionDefinition).Arguments,D.Name);