Text: Fonts are scanned in fonts/ and Windows own directory

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@319 416bcca6-2ee7-4201-b75f-2eb2f807beb1

files.c

@@ -41,6 +41,7 @@
 
 #include "erreurs.h"
 #include "linux.h"
+#include "io.h"
 
 
 #ifdef __linux__
@@ -677,3 +678,26 @@ short Calculer_decalage_click_dans_fileselector(void)
 
   return Decalage_calcule;
 }
+
+void for_each_file(const char * Nom_repertoire, void Callback(const char *))
+{
+  // Pour scan de répertoire
+  DIR*  Repertoire_Courant; //Répertoire courant
+  struct dirent* Enreg; // Structure de lecture des éléments
+  char Nom_fichier_complet[TAILLE_CHEMIN_FICHIER];
+  int Position_nom_fichier;
+  strcpy(Nom_fichier_complet, Nom_repertoire);
+  Repertoire_Courant=opendir(Nom_repertoire);
+  strcat(Nom_fichier_complet, SEPARATEUR_CHEMIN);
+  Position_nom_fichier = strlen(Nom_fichier_complet);
+  while ((Enreg=readdir(Repertoire_Courant)))
+  {
+    struct stat Infos_enreg;
+    strcpy(&Nom_fichier_complet[Position_nom_fichier], Enreg->d_name);
+    stat(Nom_fichier_complet,&Infos_enreg);
+    if (S_ISREG(Infos_enreg.st_mode))
+    {
+      Callback(Nom_fichier_complet);
+    }
+  }
+}