From 59fe173cc7e2f1da36571d050776b370dc72b211 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Wed, 18 Oct 2023 15:23:06 +0000
Subject: [PATCH] Add calls to FcGetVersion, FcConfigGetFilename and
 FcConfigFilename

---
 packages/libfontconfig/examples/testfc.pp | 27 ++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/packages/libfontconfig/examples/testfc.pp b/packages/libfontconfig/examples/testfc.pp
index 85fb00b9cd..7745cc87cb 100644
--- a/packages/libfontconfig/examples/testfc.pp
+++ b/packages/libfontconfig/examples/testfc.pp
@@ -4,7 +4,7 @@ Var
   FC : PFcConfig;
   FL : PFcStrList;
   P : PAnsiChar;
-
+  FN,FN2 : PAnsiChar;
 begin
   Writeln('Load 1: ',loadfontconfiglib(''));
   Writeln('Load 2: ',loadfontconfiglib(''));
@@ -14,6 +14,31 @@ begin
     Writeln('Failed to load config');
     Halt(1);
     end;
+  if assigned(FcGetVersion) then
+    writeln('FontConfig version: ',FcGetVersion);
+
+  if assigned(FcConfigFilename) then
+    begin
+      FN:=FcConfigFilename(Nil);
+      Writeln('Default config file is: ',FN,' using deprecated FcConfigFilename function');
+    end;
+  if assigned(FcConfigGetFilename) then
+    begin
+      FN2:=FcConfigGetFilename(FC,Nil);
+      Writeln('Default config file is: ',FN2,' using FcConfigGetFilename function');
+    end;
+  FL:=FcConfigGetConfigFiles(FC);
+  if FL<>Nil then
+    begin
+    P:=FcStrListNext(FL);
+    While P<>Nil do
+      begin
+      Writeln('Config file: ',P);
+      P:=FcStrListNext(FL);
+      end;
+    FcStrListDone(FL);
+    end;
+
   FL:=FcConfigGetFontDirs(FC);
   if FL<>Nil then
     begin