* mu: refactor mu-script (stats) a bit

lib/mu-script.c

@@ -0,0 +1,219 @@
+/* -*-mode: c; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*-*/
+
+/*
+** Copyright (C) 2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
+**
+** 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+**
+*/
+
+#if HAVE_CONFIG_H
+#include "config.h"
+#endif /*HAVE_CONFIG_H*/
+
+#ifdef BUILD_GUILE
+#include <libguile.h>
+#endif /*BUILD_GUILE*/
+
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <errno.h>
+#include <unistd.h>
+
+#include "mu-script.h"
+#include "mu-util.h"
+
+/**
+ * Structure with information about a certain script.
+ * the values will be *freed* when MuScriptInfo is freed
+ */
+struct _MuScriptInfo {
+	char *_name;  /* filename-sans-extension */
+	char *_path;  /* full path to script */
+	char *_descr; /* one-line description */
+};
+
+
+/* create a new MuScriptInfo* object*/
+static MuScriptInfo*
+script_info_new (void)
+{
+	return g_slice_new0 (MuScriptInfo);
+}
+
+/* destroy a MuScriptInfo* object */
+static void
+script_info_destroy (MuScriptInfo *msi)
+{
+	if (!msi)
+		return;
+
+	g_slice_free (MuScriptInfo, msi);
+}
+
+/* compare two MuScripInfo* objects (for sorting) */
+static int
+script_info_cmp (MuScriptInfo *msi1, MuScriptInfo *msi2)
+{
+	return strcmp (msi1->_name, msi2->_name);
+
+}
+
+const char*
+mu_script_info_name (MuScriptInfo *msi)
+{
+	g_return_val_if_fail (msi, NULL);
+	return msi->_name;
+}
+
+const char*
+mu_script_info_path (MuScriptInfo *msi)
+{
+	g_return_val_if_fail (msi, NULL);
+	return msi->_path;
+}
+
+const char*
+mu_script_info_description (MuScriptInfo *msi)
+{
+	g_return_val_if_fail (msi, NULL);
+	return msi->_descr;
+}
+
+void
+mu_script_info_list_destroy (GSList *lst)
+{
+	g_slist_foreach (lst, (GFunc)script_info_destroy, NULL);
+	g_slist_free    (lst);
+}
+
+
+GSList*
+mu_script_get_script_info_list (const char *path, const char *ext,
+			   GError **err)
+{
+	DIR *dir;
+	GSList *lst;
+	struct dirent *dentry;
+
+	g_return_val_if_fail (path, NULL);
+
+	dir = opendir (path);
+	if (!dir) {
+		mu_util_g_set_error (err, MU_ERROR_FILE_CANNOT_OPEN,
+				     "failed to open '%s': %s",
+				     path, strerror(errno));
+		return NULL;
+	}
+
+	/* create a list of names, paths */
+	lst = NULL;
+	while ((dentry = readdir (dir))) {
+		MuScriptInfo *msi;
+
+		/* only consider files with certain extensions,
+		 * if ext != NULL */
+		if (ext && !g_str_has_suffix (dentry->d_name, ext))
+			continue;
+		msi = script_info_new ();
+		msi->_name = g_strdup (dentry->d_name);
+		if (ext) /* strip the extension */
+			msi->_name[strlen(msi->_name) - strlen(ext)] = '\0';
+
+		msi->_path = g_strdup_printf ("%s%c%s", path, G_DIR_SEPARATOR,
+					      dentry->d_name);
+		lst = g_slist_prepend (lst, msi);
+	}
+
+	closedir (dir); /* ignore error checking... */
+
+	return g_slist_sort (lst, (GCompareFunc)script_info_cmp);
+}
+
+
+MuScriptInfo*
+mu_script_find_script_with_name (GSList *lst, const char *name)
+{
+	GSList *cur;
+
+	g_return_val_if_fail (name, NULL);
+
+	for (cur = lst; cur; cur = g_slist_next (cur)) {
+
+		MuScriptInfo *msi;
+		msi = (MuScriptInfo*)cur->data;
+
+		if (g_strcmp0 (name, mu_script_info_name (msi)) == 0)
+			return msi;
+	}
+
+	return NULL;
+}
+
+#ifdef BUILD_GUILE
+
+static void
+guile_shell (void *closure, int argc, char **argv)
+{
+	scm_shell (argc, argv);
+}
+
+
+gboolean
+mu_script_guile_run (MuScriptInfo *msi, const char *muhome,
+		     const char *query, gboolean textonly, GError **err)
+{
+	char *expr;
+	char *argv[] = {
+		"guile", "-l", NULL, "-c", NULL, NULL
+	};
+
+	g_return_val_if_fail (msi, FALSE);
+	g_return_val_if_fail (muhome, FALSE);
+
+	if (access (mu_script_info_path (msi), R_OK) != 0) {
+		mu_util_g_set_error (err, MU_ERROR_FILE_CANNOT_READ,
+				     strerror(errno));
+		return FALSE;
+	}
+	argv[2] = (char*)mu_script_info_path (msi);
+
+	expr = g_strdup_printf (
+		"(main '(\"%s\" \"--muhome=%s\" %s %s))",
+		mu_script_info_name (msi),
+		muhome,
+		textonly ? "\"--textonly\"" : "",
+		query ? query : "");
+	argv[4] = expr;
+
+	scm_boot_guile (5, argv, guile_shell, NULL);
+
+	/* never reached but let's be correct(TM)*/
+	g_free (expr);
+	return TRUE;
+}
+
+#else
+gboolean
+mu_script_guile_run (MuScriptInfo *msi, const char *muhome,
+		     const char *query, gboolean textonly, GError **err)
+{
+	mu_util_g_set_error (err, MU_ERROR_INTERNAL,
+			     "this mu does not have guile support");
+	return FALSE;
+}
+#endif /*!BUILD_GUILE*/