Bugs item #1071984, was opened at 2004-11-23 10:16
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1071984&group_id=23735
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: file input/output performance decrease in sisc 1.9.4
Initial Comment:
The is significant performance decrease with the new
release of sisc (1.9.4) for operation involving file input
and/or output.
The following program runs in a very reasonable time
(under 5 seconds) with sisc 1.8.8 for a file of around
900k. sisc 1.9.4 takes significantly longer to complete.
(define (copy-port input output n)
(define (iter count left c)
(if (or (eof-object? c) (= left 0))
count
(begin
(write-char c output)
(iter (+ count 1) (- left 1) (read-char
input)))))
(iter 0 n (read-char input)))
(define (test-copy-port file)
(let* ((tmp-file (string-append file ".tmp"))
(output (open-output-file tmp-file))
(input (open-input-file file)))
(display "copying file...")
(copy-port input output -1)
(display "done")(newline)
(close-input-port input)
(close-output-port output)))
(test-copy-port "somefile.big")
----------------------------------------------------------------------
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1071984&group_id=23735
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://productguide.itmanagersjournal.com/
|
