/[mailutils]/mailutils/libmu_scm/mu_scm.c
ViewVC logotype

Diff of /mailutils/libmu_scm/mu_scm.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by gray, Thu May 16 11:18:58 2002 UTC revision 1.7 by gray, Tue Sep 10 12:03:42 2002 UTC
# Line 21  Line 21 
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);
# Line 33  scm_makenum (unsigned long val) Line 34  scm_makenum (unsigned long 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 */
# Line 60  static struct Line 77  static struct
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 ();

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26