summaryrefslogtreecommitdiff
path: root/libmu_scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-12-31 02:36:55 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-12-31 02:36:55 +0000
commit6c6627a0f6c53869b87c507d8cf0f3c6526e3f35 (patch)
tree6b9a7bb24c50de5c9d7668023b2dbae10b788a5f /libmu_scm
parent2d6a699cf759cbbcd00b0fd770a161e04f011e6d (diff)
downloadmailutils-6c6627a0f6c53869b87c507d8cf0f3c6526e3f35.tar.gz
mailutils-6c6627a0f6c53869b87c507d8cf0f3c6526e3f35.tar.bz2
Include <mailutils/guile.h>
Diffstat (limited to 'libmu_scm')
-rw-r--r--libmu_scm/mu_scm.h69
1 files changed, 6 insertions, 63 deletions
diff --git a/libmu_scm/mu_scm.h b/libmu_scm/mu_scm.h
index f69767c91..7744a3c29 100644
--- a/libmu_scm/mu_scm.h
+++ b/libmu_scm/mu_scm.h
@@ -1,8 +1,8 @@
/* GNU Mailutils -- a suite of utilities for electronic mail
- Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
GNU Mailutils 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, or (at your option)
any later version.
@@ -15,12 +15,13 @@
along with GNU Mailutils; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#if defined(HAVE_CONFIG_H)
# include <config.h>
#endif
+
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <sys/time.h>
#include <string.h>
@@ -37,71 +38,13 @@
#include <mailutils/stream.h>
#include <mailutils/debug.h>
#include <mailutils/attribute.h>
#include <mailutils/mailer.h>
#include <mailutils/envelope.h>
#include <mailutils/url.h>
+#include <mailutils/mime.h>
+#include <mailutils/registrar.h>
+#include <mailutils/mu_auth.h>
-#include <libguile.h>
-
-#if GUILE_VERSION == 14
-
-# define SCM_STRING_CHARS SCM_CHARS
-# define scm_list_1 SCM_LIST1
-# define scm_list_2 SCM_LIST2
-# define scm_list_3 SCM_LIST3
-# define scm_list_4 SCM_LIST4
-# define scm_list_5 SCM_LIST5
-# define scm_list_n SCM_LISTN
-# define scm_c_define scm_sysintern
-# define scm_primitive_eval_x scm_eval_x
-# define scm_i_big2dbl scm_big2dbl
-
-extern SCM scm_long2num (long val);
-
-#endif
-
-typedef struct
-{
- int debug_guile;
- mailbox_t mbox;
- char *user_name;
- int (*init) __P((void *data));
- SCM (*catch_body) __P((void *data, mailbox_t mbox));
- SCM (*catch_handler) __P((void *data, SCM tag, SCM throw_args));
- int (*next) __P((void *data, mailbox_t mbox));
- int (*exit) __P((void *data, mailbox_t mbox));
- void *data;
-} guimb_param_t;
-
-extern SCM _mu_scm_mailer;
-extern SCM _mu_scm_debug;
-
-extern SCM scm_makenum __P((unsigned long val));
-extern void mu_set_variable (const char *name, SCM value);
-extern void mu_scm_init __P((void));
-
-extern void mu_scm_mailbox_init __P((void));
-extern SCM mu_scm_mailbox_create __P((mailbox_t mbox));
-extern int mu_scm_is_mailbox __P((SCM scm));
-
-extern void mu_scm_message_init __P((void));
-extern SCM mu_scm_message_create __P((SCM owner, message_t msg));
-extern int mu_scm_is_message __P((SCM scm));
-extern const message_t mu_scm_message_get __P((SCM MESG));
-
-extern int mu_scm_is_body __P((SCM scm));
-extern void mu_scm_body_init __P((void));
-extern SCM mu_scm_body_create __P((SCM mesg, body_t body));
-
-extern void mu_scm_address_init __P((void));
-extern void mu_scm_logger_init __P((void));
-
-extern void mu_scm_port_init __P((void));
-extern SCM mu_port_make_from_stream __P((SCM msg, stream_t stream, long mode));
-
-extern void mu_scm_mime_init __P((void));
-extern void mu_scm_message_add_owner __P((SCM MESG, SCM owner));
+#include <mailutils/guile.h>
-extern void mu_process_mailbox __P((int argc, char *argv[], guimb_param_t *param));
-extern void mu_scm_mutil_init __P((void));

Return to:

Send suggestions and report system problems to the System administrator.