mirror of
https://github.com/djcb/mu.git
synced 2024-06-27 07:35:16 +02:00
200 lines
4.8 KiB
C
200 lines
4.8 KiB
C
/* -*-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.h"
|
|
#include "mu-util.h"
|
|
#include "mu-str.h"
|
|
#include "mu-script.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 (MuConfig *opts, GError **err)
|
|
{
|
|
if (!mu_util_supports (MU_FEATURE_GUILE | MU_FEATURE_GNUPLOT)) {
|
|
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 (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, opts->muhome, 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;
|
|
}
|