mu: convert command-line tools to c++

mu/mu-cmd-script.cc

@@ -0,0 +1,204 @@
+/* -*-mode: c; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*-*/
+
+/*
+** Copyright (C) 2012-2013 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*/
+
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <errno.h>
+
+#include "mu-cmd.hh"
+#include "mu-script.h"
+#include "mu-runtime.h"
+
+
+#include "utils/mu-util.h"
+#include "utils/mu-str.h"
+
+
+#define MU_GUILE_EXT          ".scm"
+#define MU_GUILE_DESCR_PREFIX ";; INFO: "
+
+#define COL(C) ((color)?C:"")
+
+static void
+print_script (const char *name, const char *oneline, const char *descr,
+	      gboolean color, gboolean verbose)
+{
+	g_print ("%s%s%s%s%s%s%s%s",
+		 verbose ? "\n" : "  * ",
+		 COL(MU_COLOR_GREEN),name,COL(MU_COLOR_DEFAULT),
+		 oneline ? ": " : "",
+		 COL(MU_COLOR_BLUE),oneline ? oneline :"",MU_COLOR_DEFAULT);
+
+	if (verbose && descr)
+		g_print ("%s%s%s",
+			 COL(MU_COLOR_MAGENTA),descr,COL(MU_COLOR_DEFAULT));
+}
+
+
+static gboolean
+print_scripts (GSList *scripts, gboolean color,
+	       gboolean verbose, const char *rxstr, GError **err)
+{
+	GSList *cur;
+	const char *verb;
+
+	if (!scripts) {
+		g_print ("No scripts available\n");
+		return TRUE; /* not an error */
+	}
+
+	verb = verbose ? "" : " (use --verbose for details)";
+
+	if (rxstr)
+		g_print ("Available scripts matching '%s'%s:\n",
+			 rxstr, verb);
+	else
+		g_print ("Available scripts%s:\n", verb);
+
+	for (cur = scripts; cur; cur = g_slist_next (cur)) {
+
+		MuScriptInfo *msi;
+		const char* descr, *oneline, *name;
+
+		msi     = (MuScriptInfo*)cur->data;
+		name    = mu_script_info_name (msi);
+		oneline = mu_script_info_one_line (msi);
+		descr   = mu_script_info_description (msi);
+
+		/* if rxstr is provide, only consider matching scriptinfos */
+		if (rxstr && !mu_script_info_matches_regex (msi, rxstr, err)) {
+			if (err && *err)
+				return FALSE;
+			continue;
+		}
+
+		print_script (name, oneline, descr, color, verbose);
+	}
+
+	return TRUE;
+}
+
+
+static GSList*
+get_script_info_list (const char *muhome, GError **err)
+{
+	GSList *scripts, *userscripts, *last;
+	char *userpath;
+
+	scripts = mu_script_get_script_info_list
+		(MU_SCRIPTS_DIR, MU_GUILE_EXT,
+		 MU_GUILE_DESCR_PREFIX,
+		 err);
+
+	if (err && *err)
+		return NULL;
+
+	userpath = g_strdup_printf ("%s%c%s",
+				    muhome, G_DIR_SEPARATOR, "scripts");
+
+	/* is there are userdir for scripts? */
+	if (!mu_util_check_dir (userpath, TRUE, FALSE)) {
+		g_free (userpath);
+		return scripts;
+	}
+
+	/* append it to the list we already have */
+	userscripts = mu_script_get_script_info_list (userpath, MU_GUILE_EXT,
+						      MU_GUILE_DESCR_PREFIX,
+						      err);
+	g_free (userpath);
+
+	/* some error, return nothing */
+	if (err && *err) {
+		mu_script_info_list_destroy (userscripts);
+		mu_script_info_list_destroy (scripts);
+		return NULL;
+	}
+
+	/* append the user scripts */
+	last = g_slist_last (scripts);
+	if (last) {
+		last->next = userscripts;
+		return scripts;
+	} else
+		return userscripts; /* apparently, scripts was NULL */
+}
+
+
+
+static gboolean
+check_params (const MuConfig *opts, GError **err)
+{
+	if (!mu_util_supports (MU_FEATURE_GUILE)) {
+		mu_util_g_set_error (err, MU_ERROR_IN_PARAMETERS,
+				     "the 'script' command is not available "
+				     "in this version of mu");
+		return FALSE;
+	}
+
+	return TRUE;
+}
+
+
+MuError
+mu_cmd_script (const MuConfig *opts, GError **err)
+{
+	MuScriptInfo *msi;
+	GSList *scripts;
+
+	g_return_val_if_fail (opts, MU_ERROR_INTERNAL);
+	g_return_val_if_fail (opts->cmd == MU_CONFIG_CMD_SCRIPT,
+			      MU_ERROR_INTERNAL);
+
+	if (!check_params (opts, err))
+		return MU_ERROR;
+
+	scripts = get_script_info_list (opts->muhome, err);
+	if (err && *err)
+		goto leave;
+
+	if (g_strcmp0 (opts->cmdstr, "script") == 0) {
+		print_scripts (scripts, !opts->nocolor, opts->verbose,
+			       opts->script_params[0], err);
+		goto leave;
+	}
+
+	msi = mu_script_find_script_with_name (scripts, opts->script);
+	if (!msi) {
+		mu_util_g_set_error (err, MU_ERROR_SCRIPT_NOT_FOUND,
+				     "command or script not found");
+		goto leave;
+	}
+
+	/* do it! */
+	mu_script_guile_run (msi, mu_runtime_path(MU_RUNTIME_PATH_CACHE),
+			     opts->script_params, err);
+leave:
+	/* this won't be reached, unless there is some error */
+	mu_script_info_list_destroy (scripts);
+	return (err && *err) ? MU_ERROR : MU_OK;
+}