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

webidl: parse deleter

Browse Source
This commit is contained in:
mattias 2022-07-21 11:15:16 +02:00
parent 368289d5d8
commit d35640bf10
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -569,6 +569,7 @@ Const
Specials = [tkGetter, tkSetter, tkDeleter, tkLegacyCaller, tkConstructor]; Specials = [tkGetter, tkSetter, tkDeleter, tkLegacyCaller, tkConstructor];
OnlyGetter = [foGetter]; OnlyGetter = [foGetter];
OnlySetter = [foSetter]; OnlySetter = [foSetter];
OnlyDeleter = [foDeleter];
Var Var
Opts : TFunctionOptions; Opts : TFunctionOptions;
@ -606,6 +607,8 @@ begin
tkBracketOpen: tkBracketOpen:
if (Opts=OnlyGetter) or (Opts=OnlySetter) then if (Opts=OnlyGetter) or (Opts=OnlySetter) then
// using default name getProperty/setProperty // using default name getProperty/setProperty
else if (Opts=OnlyDeleter) then
// using default name
else else
CheckCurrentToken(tkIdentifier); CheckCurrentToken(tkIdentifier);
else else
@ -1338,7 +1341,7 @@ Const
IdentifierTokens = [tkIdentifier,tkByteString,tkUSVString,tkDOMString]; IdentifierTokens = [tkIdentifier,tkByteString,tkUSVString,tkDOMString];
SimpleTypeTokens = PrimitiveTokens+IdentifierTokens; SimpleTypeTokens = PrimitiveTokens+IdentifierTokens;
TypeTokens = PrefixTokens+SimpleTypeTokens; TypeTokens = PrefixTokens+SimpleTypeTokens;
ExtraTypeTokens = TypeTokens +[tkStringToken,tkVoid]; ExtraTypeTokens = TypeTokens +[{tkStringToken,}tkVoid];
LegacyDOMString = 'LegacyNullToEmptyString'; LegacyDOMString = 'LegacyNullToEmptyString';
Var Var

4
packages/webidl/src/webidlscanner.pp
View File

@ -114,7 +114,7 @@ type
tkvoid, tkvoid,
tkShort, tkShort,
tkSequence, tkSequence,
tkStringToken, //tkStringToken, Mattias: there is no string token in webidl
tkMixin, tkMixin,
tkIncludes, tkIncludes,
tkMapLike, tkMapLike,
@ -381,7 +381,7 @@ const
'void', 'void',
'short', 'short',
'sequence', 'sequence',
'string', //'string',
'mixin', 'mixin',
'includes', 'includes',
'maplike', 'maplike',