123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596 |
- (define-module (benchmarks ports)
- #:use-module (ice-9 rdelim)
- #:use-module (benchmark-suite lib))
- (define-syntax sequence
- (lambda (s)
-
- (syntax-case s ()
- ((_ expr count)
- (number? (syntax->datum #'count))
- (cons #'begin
- (make-list (syntax->datum #'count) #'expr))))))
- (define (large-string s)
- (string-concatenate (make-list (* iteration-factor 10000) s)))
- (define %latin1-port
- (let ((p (open-input-string (large-string "hello, world"))))
- (set-port-encoding! p "ISO-8859-1")
- p))
- (define %utf8/ascii-port
- (open-input-string (large-string "hello, world")))
- (define %utf8/wide-port
- (open-input-string (large-string "안녕하세요")))
- (with-benchmark-prefix "peek-char"
- (benchmark "latin-1 port" 700
- (sequence (peek-char %latin1-port) 1000))
- (benchmark "utf-8 port, ascii character" 700
- (sequence (peek-char %utf8/ascii-port) 1000))
- (benchmark "utf-8 port, Korean character" 700
- (sequence (peek-char %utf8/wide-port) 1000)))
- (with-benchmark-prefix "char-ready?"
- (benchmark "latin-1 port" 10000
- (sequence (char-ready? %latin1-port) 1000))
- (benchmark "utf-8 port, ascii character" 10000
- (sequence (char-ready? %utf8/ascii-port) 1000))
- (benchmark "utf-8 port, Korean character" 10000
- (sequence (char-ready? %utf8/wide-port) 1000)))
- (with-benchmark-prefix "read-char"
- (benchmark "latin-1 port" 10000
- (sequence (read-char %latin1-port) 1000))
- (benchmark "utf-8 port, ascii character" 10000
- (sequence (read-char %utf8/ascii-port) 1000))
- (benchmark "utf-8 port, Korean character" 10000
- (sequence (read-char %utf8/wide-port) 1000)))
- (with-benchmark-prefix "rdelim"
- (let ((str (string-concatenate (make-list 1000 "one line\n"))))
- (benchmark "read-line" 1000
- (let ((port (open-input-string str)))
- (sequence (read-line port) 1000))))
- (let ((str (large-string "Hello, world.\n")))
- (benchmark "read-string" 200
- (let ((port (open-input-string str)))
- (read-string port)))))
|