* Add IsYAMLfileName

packages/fcl-yaml/src/fpyaml.parser.pp

@@ -78,6 +78,7 @@ Type
     Constructor Create(const aInput : array of string);
     Constructor Create(const aFileName : string);
     Destructor Destroy; override;
+    Class function IsYamlFileName(const aFileName : string) : Boolean; inline;
     function ParseSingleDocument: TYAMLDocument;
     Function Parse : TYAMLStream;
   end;
@@ -620,11 +621,20 @@ begin
   inherited Destroy;
 end;
 
+
+class function TYAMLParser.IsYamlFileName(const aFileName: string): Boolean;
+
+begin
+  Result:=fpyaml.types.IsYamlFileName(aFileName);
+end;
+
+
 function TYAMLParser.ParseSingleDocument: TYAMLDocument;
 begin
   Result:=ParseSingleDocument(Nil);
 end;
 
+
 function TYAMLParser.ParseSingleDocument(aStream : TYAMLStream): TYAMLDocument;
 
 var

packages/fcl-yaml/src/fpyaml.strings.pp

@@ -18,6 +18,10 @@ unit fpyaml.strings;
 
 interface
 
+const
+  YAMLExt1 = '.yaml';
+  YAMLExt2 = '.yml';
+
 resourcestring
   // Data
   SErrIsNotA = '%s is not a valid %s';

packages/fcl-yaml/src/fpyaml.types.pp

@@ -87,6 +87,8 @@ Const
   'tag:yaml.org,2002:seq',
   'tag:yaml.org,2002:map');
 
+Function IsYAMLFileName(const aFileName : string) : Boolean;
+
 implementation
 
 
@@ -143,5 +145,16 @@ begin
   Result:=YAMLTagNames[Self];
 end;
 
+Function IsYAMLFileName(const aFileName : string) : Boolean;
+
+var
+  Ext : string;
+
+begin
+  Ext:=ExtractFileExt(aFileName);
+  Result:=SameText(YamlExt1,Ext) or SameText(YamlExt2,Ext);
+end;
+
+
 end.