1 files changed, 201 insertions, 0 deletions
diff --git a/libs/pbd3/pathscanner.cc b/libs/pbd3/pathscanner.cc
new file mode 100644
index 0000000000..5b96284a90
--- /dev/null
+++ b/libs/pbd3/pathscanner.cc
@@ -0,0 +1,201 @@
+/*
+    Copyright (C) 1998-99 Paul Barton-Davis 
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+    $Id$
+*/
+
+#include <cstdlib>
+#include <cstdio>
+#include <vector>
+#include <dirent.h>
+
+#include <pbd/error.h>
+#include <pbd/pathscanner.h>
+#include <pbd/stl_delete.h>
+
+vector<string *> *
+PathScanner::operator() (const string &dirpath, const string &regexp,
+			 bool match_fullpath, bool return_fullpath, 
+			 long limit)
+
+{
+	int err;
+	char msg[256];
+
+	if ((err = regcomp (&compiled_pattern, regexp.c_str(),
+			    REG_EXTENDED|REG_NOSUB))) {
+		
+		regerror (err, &compiled_pattern,
+			  msg, sizeof (msg));
+		
+		error << "Cannot compile soundfile regexp for use (" 
+		      << msg 
+		      << ")" 
+		      << endmsg;
+		
+		return 0;
+	}
+	
+	return run_scan (dirpath, &PathScanner::regexp_filter, 
+			 (bool (*)(const string &, void *)) 0,
+			 0,
+			 match_fullpath,
+			 return_fullpath,
+			 limit);
+}	
+
+vector<string *> *
+PathScanner::run_scan (const string &dirpath, 
+		       bool (PathScanner::*memberfilter)(const string &),
+		       bool (*filter)(const string &, void *),
+		       void *arg,
+		       bool match_fullpath, bool return_fullpath,
+		       long limit)
+
+{
+	vector<string *> *result = 0;
+	DIR *dir;
+	struct dirent *finfo;
+	char *pathcopy = strdup (dirpath.c_str());
+	char *thisdir;
+	char fullpath[PATH_MAX+1];
+	string search_str;
+	string *newstr;
+	long nfound = 0;
+
+	if ((thisdir = strtok (pathcopy, ":")) == 0 ||
+	    strlen (thisdir) == 0) {
+		free (pathcopy);
+		return 0;
+	}
+
+	result = new vector<string *>;
+
+	do {
+
+		if ((dir = opendir (thisdir)) == 0) {
+			continue;
+		}
+		
+		while ((finfo = readdir (dir)) != 0) {
+
+			snprintf (fullpath, sizeof(fullpath), "%s/%s",
+				  thisdir, finfo->d_name);
+
+			if (match_fullpath) {
+				search_str = fullpath;
+			} else {
+				search_str = finfo->d_name;
+			}
+
+			/* handle either type of function ptr */
+
+			if (memberfilter) {
+				if (!(this->*memberfilter)(search_str)) {
+					continue;
+				} 
+			} else {
+				if (!filter(search_str, arg)) {
+					continue;
+				}
+			}
+
+			if (return_fullpath) {
+				newstr = new string (fullpath);
+			} else {
+				newstr = new string (finfo->d_name);
+			} 
+
+			result->push_back (newstr);
+			nfound++;
+		}
+
+		closedir (dir);
+		
+	} while ((limit < 0 || (nfound < limit)) && (thisdir = strtok (0, ":")));
+
+	free (pathcopy);
+	return result;
+}
+
+string *
+PathScanner::find_first (const string &dirpath,
+			 const string &regexp,
+			 bool match_fullpath,
+			 bool return_fullpath)
+{
+	vector<string *> *res;
+	string *ret;
+	int err;
+	char msg[256];
+
+	if ((err = regcomp (&compiled_pattern, regexp.c_str(),
+			    REG_EXTENDED|REG_NOSUB))) {
+		
+		regerror (err, &compiled_pattern,
+			  msg, sizeof (msg));
+		
+		error << "Cannot compile soundfile regexp for use (" << msg << ")" << endmsg;
+
+		
+		return 0;
+	}
+	
+	res = run_scan (dirpath, 
+			&PathScanner::regexp_filter,
+			(bool (*)(const string &, void *)) 0,
+			0,
+			match_fullpath,
+			return_fullpath, 
+			1);
+	
+	if (res->size() == 0) {
+		ret = 0;
+	} else {
+		ret = res->front();
+	}
+	vector_delete (res);
+	delete res;
+	return ret;
+}
+
+string *
+PathScanner::find_first (const string &dirpath,
+			 bool (*filter)(const string &, void *),
+			 void *arg,
+			 bool match_fullpath,
+			 bool return_fullpath)
+{
+	vector<string *> *res;
+	string *ret;
+
+	res = run_scan (dirpath, 
+			(bool (PathScanner::*)(const string &)) 0,
+			filter,
+			0,
+			match_fullpath,
+			return_fullpath, 1);
+	
+	if (res->size() == 0) {
+		ret = 0;
+	} else {
+		ret = res->front();
+	}
+	vector_delete (res);
+	delete res;
+	return ret;
+}