Commits

certainty  committed 675b3c1 Merge

updated benchmarks

  • Participants
  • Parent commits b6bde4e, a318a5d

Comments (0)

Files changed (3)

File sendfile.import.scm

-;;;; sendfile.import.scm - GENERATED BY CHICKEN 4.7.0.3-st -*- Scheme -*-
+;;;; sendfile.import.scm - GENERATED BY CHICKEN 4.8.4 -*- Scheme -*-
 
 (eval '(import
          chicken
     (impl:read-write-loop/port . sendfile#impl:read-write-loop/port)
     (mmap-available . sendfile#mmap-available)
     (sendfile-available . sendfile#sendfile-available)
-    (sendfile . sendfile#sendfile))
+    (sendfile . sendfile#sendfile)
+    (%current-chunk-size . sendfile#%current-chunk-size))
   (list)
   (list))
 

File sendfile.scm

 (module sendfile
 (force-implementation *last-selected-implementation* read-write-buffer-size
  implementation-selector impl:mmapped impl:sendfile impl:read-write-loop/fd
- impl:read-write-loop/port mmap-available sendfile-available sendfile)
+ impl:read-write-loop/port mmap-available sendfile-available sendfile %current-chunk-size)
 (import chicken scheme)
 (import-for-syntax chicken)
 (require-library posix lolevel srfi-4 data-structures)

File tests/benchmark.scm

        ;(notify "STREAM-FILE: Reading checksum from server ~%")
        (void)))))
 
-(let ((runs 5)
+(let ((runs 1)
       (files '("test-file.100m" "test-file.500m" "test-file.700m" "test-file.1g")))
 
   (define (stream-file* file method)
     (benchmark-run runs (stream-file file method)))
 
+  (define (stream-file** file method)
+    (print (time (stream-file file method))))
+
   (define (run-bench/method title file)
     (let ((result (stream-file* file sendfile)))
       (print "Runtimes(" title "): \t" result)))