ikarus/benchmarks/r6rs-benchmarks/tail.ss

;;; TAIL -- One of the Kernighan and Van Wyk benchmarks.

(library (r6rs-benchmarks tail)
  (export main)
  (import (r6rs) (r6rs-benchmarks))

  (define inport #f)
  (define outport #f)
  
  (define (readline port line-so-far)
    (let ((x (read-char port)))
      (cond ((eof-object? x)
             x)
            ((char=? x #\newline)
             (list->string (reverse
                            (cons x line-so-far))))
            (#t (readline port (cons x line-so-far))))))
  
  (define (tail-r-aux port file-so-far)
    (let ((x (readline port '())))
      (if (eof-object? x)
          (begin
            (display file-so-far outport)
            (close-output-port outport))
          (tail-r-aux port (cons x file-so-far)))))
  
  (define (tail-r port)
    (tail-r-aux port '()))
  
  (define (go)
    (set! inport (open-input-file "bib"))
    (set! outport (open-output-file "foo"))
    (tail-r inport)
    (close-input-port inport))
  
  (define (main . args)
    (run-benchmark
     "tail"
     tail-iters
     (lambda (result) #t)
     (lambda () (lambda () (go))))))