Added function to free the list that was created with fl_filename_list.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8065 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

1 files changed, 23 insertions, 0 deletions

diff --git a/src/filename_list.cxx b/src/filename_list.cxx
index e60736286..3de968ea2 100644
--- a/src/filename_list.cxx
+++ b/src/filename_list.cxx
@@ -131,6 +131,29 @@ int fl_filename_list(const char *d, dirent ***list,
   return n;
 }
 
+/**
+ \brief Free the list of filenames that is generated by fl_filename_list().
+ 
+ Free everything that was allocated by a previous call to fl_filename_list().
+ Use the return values as parameters for this function.
+ 
+ \param[in,out] list table containing the resulting directory listing
+ \param[in] n number of entries in the list
+ */
+void fl_filename_free_list(struct dirent ***list, int n)
+{
+  if (n<0) return;
+  
+  int i;
+  for (i = 0; i < n; i ++) {
+    if ((*list)[i])
+      free((*list)[i]);
+  }  
+  free(*list);
+  *list = 0;
+}
+
+
 //
 // End of "$Id$".
 //