(module benchmark-screen (main bench) (import pregexp-search)) ;; (define (bench Args) (let ((the-pattern (cadr Args)) (in-file (caddr Args))) (newline) (print "Résultats Posix Regexp Multiline") (multiple-value-bind (res rtime stime utime) (time (lambda () (pregexp-parse the-pattern in-file))) (print "real: " rtime "ms sys: " stime "ms user: " utime)) ))