webidl: attribute name interface

packages/webidl/src/webidlparser.pp

@@ -785,7 +785,7 @@ begin
   ok:=false;
   try
     Result.AttributeType:=ParseType(Result,True,True);
-    CheckCurrentTokens([tkIdentifier,tkRequired]);
+    CheckCurrentTokens([tkIdentifier,tkRequired,tkInterface]);
     Result.Name:=CurrentTokenString;
     Result.Options:=Options;
     ok:=true;

packages/webidl/tests/tcidlparser.pp

@@ -197,6 +197,7 @@ Type
     Procedure ParseSimpleReadonlyStringifierAttribute;
     Procedure ParseComplexReadonlyStaticAttribute;
     Procedure ParseSimpleAttributeRequired;
+    Procedure ParseSimpleAttributeInterface;
     Procedure ParseIdentifierAttribute;
     Procedure Parse2IdentifierAttributes;
   end;
@@ -721,6 +722,11 @@ begin
   ParseAttribute('attribute boolean required','required','boolean',[]);
 end;
 
+procedure TTestAttributeInterfaceParser.ParseSimpleAttributeInterface;
+begin
+  ParseAttribute('attribute boolean interface','interface','boolean',[]);
+end;
+
 procedure TTestAttributeInterfaceParser.ParseIdentifierAttribute;
 begin
   ParseAttribute('attribute B A','A','B',[]);