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

Diff of /mailutils/libmu_scm/mu_mailbox.c

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

revision 1.5 by gray, Tue Jan 15 21:55:55 2002 UTC revision 1.6 by gray, Tue Sep 10 12:03:42 2002 UTC
# Line 117  SCM_DEFINE (mu_mailbox_open, "mu-mailbox Line 117  SCM_DEFINE (mu_mailbox_open, "mu-mailbox
117    SCM_ASSERT (SCM_NIMP (MODE) && SCM_STRINGP (MODE),    SCM_ASSERT (SCM_NIMP (MODE) && SCM_STRINGP (MODE),
118                MODE, SCM_ARG2, FUNC_NAME);                MODE, SCM_ARG2, FUNC_NAME);
119    
120    for (mode_str = SCM_CHARS (MODE); *mode_str; mode_str++)    for (mode_str = SCM_STRING_CHARS (MODE); *mode_str; mode_str++)
121      switch (*mode_str)      switch (*mode_str)
122        {        {
123        case 'r':        case 'r':
# Line 137  SCM_DEFINE (mu_mailbox_open, "mu-mailbox Line 137  SCM_DEFINE (mu_mailbox_open, "mu-mailbox
137    if (mode & MU_STREAM_READ && mode & MU_STREAM_WRITE)    if (mode & MU_STREAM_READ && mode & MU_STREAM_WRITE)
138      mode = (mode & ~(MU_STREAM_READ | MU_STREAM_WRITE)) | MU_STREAM_RDWR;      mode = (mode & ~(MU_STREAM_READ | MU_STREAM_WRITE)) | MU_STREAM_RDWR;
139    
140    if (mailbox_create_default (&mbox, SCM_CHARS (URL)) != 0)    if (mailbox_create_default (&mbox, SCM_STRING_CHARS (URL)) != 0)
141      return SCM_BOOL_F;      return SCM_BOOL_F;
142    
143    if (mailbox_open (mbox, mode) != 0)    if (mailbox_open (mbox, mode) != 0)
# Line 197  SCM_DEFINE (mu_mailbox_get_port, "mu-mai Line 197  SCM_DEFINE (mu_mailbox_get_port, "mu-mai
197    if (mailbox_get_stream (mum->mbox, &stream))    if (mailbox_get_stream (mum->mbox, &stream))
198      return SCM_BOOL_F;      return SCM_BOOL_F;
199    return mu_port_make_from_stream (MBOX, stream,    return mu_port_make_from_stream (MBOX, stream,
200                                     scm_mode_bits (SCM_CHARS (MODE)));                                         scm_mode_bits (SCM_STRING_CHARS (MODE)));    
201  }  }
202  #undef FUNC_NAME  #undef FUNC_NAME
203    

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

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