* add mu-guile-misc, with bindings for mu logging stuff

libmuguile/Makefile.am

@@ -36,6 +36,8 @@ libmuguile_la_SOURCES=			\
 	mu-guile-msg.h			\
 	mu-guile-store.c		\
 	mu-guile-store.h		\
+	mu-guile-misc.c			\
+	mu-guile-misc.h			\
 	mu-guile-common.c		\
 	mu-guile-common.h
 
@@ -45,7 +47,8 @@ libmuguile_la_LIBADD=			\
 
 XFILES=					\
 	mu-guile-msg.x			\
-	mu-guile-store.x
+	mu-guile-store.x		\
+	mu-guile-misc.x
 
 BUILT_SOURCES=$(XFILES)
 

libmuguile/mu-guile-misc.c

@@ -0,0 +1,101 @@
+/*
+** Copyright (C) 2011 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.
+**
+*/
+
+#include <mu-query.h>
+#include <mu-store.h>
+#include <mu-runtime.h>
+
+#include "mu-guile-msg.h"
+#include "mu-guile-store.h"
+#include "mu-guile-common.h"
+
+enum _LogType {
+	LOG_INFO,
+	LOG_WARNING,
+	LOG_CRITICAL
+};
+typedef enum _LogType LogType;
+
+
+static SCM
+write_log (LogType logtype, SCM FRM, SCM ARGS)
+#define FUNC_NAME __FUNCTION__
+{
+	SCM str;
+	
+	SCM_ASSERT (scm_is_string(FRM), FRM, SCM_ARG1, "<write_log>");
+	SCM_VALIDATE_REST_ARGUMENT(ARGS);
+	
+	str = scm_simple_format (SCM_BOOL_F, FRM, ARGS);
+	
+	if (scm_is_string (str)) {
+
+		gchar *output;
+		output = scm_to_utf8_string (str);
+		
+		switch (logtype) {
+		case LOG_INFO:     g_message ("%s", output); break;
+		case LOG_WARNING:  g_warning ("%s", output); break;
+		case LOG_CRITICAL: g_critical ("%s", output); break;
+		}
+	}
+
+	return SCM_UNSPECIFIED;
+
+#undef FUNC_NAME
+}
+
+
+SCM_DEFINE (log_info, "mu:info", 1, 0, 1,  (SCM FRM, SCM ARGS),
+	    "log some message using a list of ARGS applied to FRM "
+	    "(in 'simple-format' notation).\n")
+#define FUNC_NAME s_info
+{
+	return write_log (LOG_INFO, FRM, ARGS);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (log_warning, "mu:warning", 1, 0, 1,  (SCM FRM, SCM ARGS),
+	    "log some warning using a list of ARGS applied to FRM (in 'simple-format' "
+	    "notation).\n")
+#define FUNC_NAME s_warning
+{
+	return write_log (LOG_WARNING, FRM, ARGS);
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (log_critical, "mu:critical", 1, 0, 1,  (SCM FRM, SCM ARGS),
+	    "log some critical message using a list of ARGS applied to FRM "
+	    "(in 'simple-format' notation).\n")
+#define FUNC_NAME s_critical
+{
+	return write_log (LOG_CRITICAL, FRM, ARGS);
+}
+#undef FUNC_NAME
+
+
+void*
+mu_guile_misc_init (void *data)
+{	
+#include "mu-guile-misc.x"
+
+	return NULL;
+}
+
+

libmuguile/mu-guile-misc.h

@@ -0,0 +1,39 @@
+/*
+** Copyright (C) 2011 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.
+**
+*/
+
+#ifndef __MU_GUILE_MISC_H__
+#define __MU_GUILE_MISC_H__
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif /*__cplusplus*/
+
+/**
+ * initialize misc mu functions
+ * 
+ */	
+void *mu_guile_misc_init (void *data);
+
+	
+#ifdef __cplusplus
+}
+#endif /*__cplusplus*/
+	
+#endif /*__MU_GUILE_MISC_H__*/