/[guile]/guile/guile-core/libguile/fports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/fports.c

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

revision 1.120 by mdj, Thu Apr 24 16:02:04 2003 UTC revision 1.121 by ela, Thu May 29 14:39:13 2003 UTC
# Line 513  fport_print (SCM exp, SCM port, scm_prin Line 513  fport_print (SCM exp, SCM port, scm_prin
513    return 1;    return 1;
514  }  }
515    
516    #ifndef __MINGW32__
517  /* thread-local block for input on fport's fdes.  */  /* thread-local block for input on fport's fdes.  */
518  static void  static void
519  fport_wait_for_input (SCM port)  fport_wait_for_input (SCM port)
# Line 537  fport_wait_for_input (SCM port) Line 538  fport_wait_for_input (SCM port)
538          while (n == -1 && errno == EINTR);          while (n == -1 && errno == EINTR);
539      }      }
540  }  }
541    #endif /* !__MINGW32__ */
542    
543  static void fport_flush (SCM port);  static void fport_flush (SCM port);
544    
# Line 549  fport_fill_input (SCM port) Line 551  fport_fill_input (SCM port)
551    scm_t_port *pt = SCM_PTAB_ENTRY (port);    scm_t_port *pt = SCM_PTAB_ENTRY (port);
552    scm_t_fport *fp = SCM_FSTREAM (port);    scm_t_fport *fp = SCM_FSTREAM (port);
553    
554    #ifndef __MINGW32__
555    fport_wait_for_input (port);    fport_wait_for_input (port);
556    #endif /* !__MINGW32__ */
557    SCM_SYSCALL (count = read (fp->fdes, pt->read_buf, pt->read_buf_size));    SCM_SYSCALL (count = read (fp->fdes, pt->read_buf, pt->read_buf_size));
558    if (count == -1)    if (count == -1)
559      scm_syserror ("fport_fill_input");      scm_syserror ("fport_fill_input");

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

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