[gambit-list] Re: Reading data from mixed ASCII/binary files

Bradley Lucier lucier at math.purdue.edu
Thu Jan 12 10:50:31 EST 2006


On Jan 12, 2006, at 8:25 AM, Marc Feeley wrote:

> This can be guaranteed by reading the character from a port that is  
> not buffered (i.e. buffering: #f).

Thanks, it required changing only one line:

[lindv2:scheme/Arrays/srfi2] lucier% rcsdiff -c pgm.scm
===================================================================
RCS file: RCS/pgm.scm,v
retrieving revision 1.4
diff -c -r1.4 pgm.scm
*** pgm.scm     2005/11/12 18:34:22     1.4
--- pgm.scm     2006/01/12 15:39:35
***************
*** 34,40 ****
             (else #f))))

     (call-with-input-file
!       file
       (lambda (port)
         (let* ((header (read-pgm-object port))
              (columns (read-pgm-object port))
--- 34,43 ----
             (else #f))))

     (call-with-input-file
!       (list path:          file
!           char-encoding: 'latin1
!           eol-encoding:  'lf
!           buffering:     #f)
       (lambda (port)
         (let* ((header (read-pgm-object port))
              (columns (read-pgm-object port))




More information about the Gambit-list mailing list