21 |
# define _PATH_SENDMAIL "/usr/lib/sendmail" |
# define _PATH_SENDMAIL "/usr/lib/sendmail" |
22 |
#endif |
#endif |
23 |
|
|
24 |
SCM |
SCM |
25 |
scm_makenum (unsigned long val) |
scm_makenum (unsigned long val) |
26 |
|
#ifndef HAVE_SCM_LONG2NUM |
27 |
{ |
{ |
28 |
if (SCM_FIXABLE ((long) val)) |
if (SCM_FIXABLE ((long) val)) |
29 |
return SCM_MAKINUM (val); |
return SCM_MAKINUM (val); |
34 |
return scm_make_real ((double) val); |
return scm_make_real ((double) val); |
35 |
#endif /* SCM_BIGDIG */ |
#endif /* SCM_BIGDIG */ |
36 |
} |
} |
37 |
|
#else |
38 |
|
{ |
39 |
|
return scm_long2num (val); |
40 |
|
} |
41 |
|
#endif |
42 |
|
|
43 |
|
void |
44 |
|
mu_set_variable (const char *name, SCM value) |
45 |
|
{ |
46 |
|
#if GUILE_VERSION == 14 |
47 |
|
scm_c_define (name, value); /*FIXME*/ |
48 |
|
#else |
49 |
|
scm_c_define (name, value); |
50 |
|
#endif |
51 |
|
} |
52 |
|
|
53 |
|
|
54 |
SCM _mu_scm_package; /* STRING: PACKAGE */ |
SCM _mu_scm_package; /* STRING: PACKAGE */ |
55 |
SCM _mu_scm_version; /* STRING: VERSION */ |
SCM _mu_scm_version; /* STRING: VERSION */ |
77 |
void |
void |
78 |
mu_scm_init () |
mu_scm_init () |
79 |
{ |
{ |
|
SCM *scm_loc; |
|
80 |
char *defmailer; |
char *defmailer; |
81 |
int i; |
int i; |
82 |
|
|
83 |
asprintf (&defmailer, "sendmail:%s", _PATH_SENDMAIL); |
asprintf (&defmailer, "sendmail:%s", _PATH_SENDMAIL); |
84 |
_mu_scm_mailer = scm_makfrom0str (defmailer); |
_mu_scm_mailer = scm_makfrom0str (defmailer); |
85 |
scm_loc = SCM_CDRLOC (scm_sysintern ("mu-mailer", SCM_EOL)); |
mu_set_variable ("mu-mailer", _mu_scm_mailer); |
|
*scm_loc = _mu_scm_mailer; |
|
86 |
|
|
87 |
_mu_scm_debug = scm_makenum(0); |
_mu_scm_debug = scm_makenum(0); |
88 |
scm_loc = SCM_CDRLOC (scm_sysintern ("mu-debug", SCM_EOL)); |
mu_set_variable ("mu-debug", _mu_scm_debug); |
|
*scm_loc = _mu_scm_debug; |
|
89 |
|
|
90 |
_mu_scm_package = scm_makfrom0str (PACKAGE); |
_mu_scm_package = scm_makfrom0str (PACKAGE); |
91 |
scm_loc = SCM_CDRLOC (scm_sysintern ("mu-package", SCM_EOL)); |
mu_set_variable ("mu-package", _mu_scm_package); |
|
*scm_loc = _mu_scm_package; |
|
92 |
|
|
93 |
_mu_scm_version = scm_makfrom0str (VERSION); |
_mu_scm_version = scm_makfrom0str (VERSION); |
94 |
scm_loc = SCM_CDRLOC (scm_sysintern ("mu-version", SCM_EOL)); |
mu_set_variable ("mu-version", _mu_scm_version); |
|
*scm_loc = _mu_scm_version; |
|
95 |
|
|
96 |
/* Create MU- attribute names */ |
/* Create MU- attribute names */ |
97 |
for (i = 0; attr_kw[i].name; i++) |
for (i = 0; attr_kw[i].name; i++) |
98 |
scm_sysintern(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value)); |
scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value)); |
99 |
|
|
100 |
mu_scm_mutil_init (); |
mu_scm_mutil_init (); |
101 |
mu_scm_mailbox_init (); |
mu_scm_mailbox_init (); |