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

* Allow more keywords as argument identifiers

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-04 20:39:33 +02:00
parent 02c4ac974a
commit d12d82dab4
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/webidl/src/webidlparser.pp
View File

@ -489,7 +489,7 @@ begin
Result.HasEllipsis:=True;
GetToken;
end;
CheckCurrentTokens([tkIdentifier,tkOther,tkCallback,tkInterface]);
CheckCurrentTokens([tkIdentifier,tkOther,tkCallback,tkInterface,tkConstructor,tkAttribute]);
Result.Name:=CurrentTokenString;
ok:=true;
finally

7
packages/webidl/tests/tcidlparser.pp
View File

@ -244,6 +244,7 @@ Type
Procedure TestOptionalDefaultArgFunction;
Procedure TestFunction_ClampArg;
Procedure TestFunction_ArgNameCallback;
procedure TestFunction_ArgNameConstructor;
end;
{ TTestDictionaryParser }
@ -524,6 +525,12 @@ begin
ParseFunction('void getAsString(FunctionStringCallback? callback)','getAsString','void',['FunctionStringCallback','callback']);
end;
procedure TTestOperationInterfaceParser.TestFunction_ArgNameConstructor;
begin
ParseFunction('void getAsString(FunctionStringCallback? constructor)','getAsString','void',['FunctionStringCallback','constructor']);
end;
{ TTestSerializerInterfaceParser }
function TTestSerializerInterfaceParser.ParseSerializer(ADef: UTF8String; Attrs: array of UTF8String): TIDLSerializerDefinition;