From e75be3a6cba8e3a92fd69a75d71452b04a399eee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Dec 2019 15:52:35 +0100 Subject: Add simple benchmark main. --- module/entry-points/benchmark.scm | 18 ++++++++++++++++++ module/main.scm | 14 ++++++++------ 2 files changed, 26 insertions(+), 6 deletions(-) create mode 100644 module/entry-points/benchmark.scm (limited to 'module') diff --git a/module/entry-points/benchmark.scm b/module/entry-points/benchmark.scm new file mode 100644 index 00000000..eff4c261 --- /dev/null +++ b/module/entry-points/benchmark.scm @@ -0,0 +1,18 @@ +(define-module (entry-points benchmark) + :export (main) + + :use-module (ice-9 getopt-long) + :use-module (util) + :use-module (vcomponent) + :use-module (parameters) + ) + + +(define opt-spec + '((file (value #t) (single-char #\f)))) + +(define (main args) + (define opts (getopt-long args opt-spec)) + + (load-calendars* calendar-files: (cond [(option-ref opts 'file #f) => list] + [else (calendar-files)]))) diff --git a/module/main.scm b/module/main.scm index 4eddeb14..92df5e20 100755 --- a/module/main.scm +++ b/module/main.scm @@ -15,12 +15,13 @@ exec guile -e main -s $0 "$@" (util) (util io) - ((entry-points html) :prefix html-) - ((entry-points terminal) :prefix terminal-) - ((entry-points import) :prefix import-) - ((entry-points text) :prefix text-) - ((entry-points info) :prefix info-) - ((entry-points ical) :prefix ical-) + ((entry-points html) :prefix html-) + ((entry-points terminal) :prefix terminal-) + ((entry-points import) :prefix import-) + ((entry-points text) :prefix text-) + ((entry-points info) :prefix info-) + ((entry-points ical) :prefix ical-) + ((entry-points benchmark) :prefix benchmark-) ((entry-points server) :prefix server-) @@ -64,6 +65,7 @@ exec guile -e main -s $0 "$@" ((info) info-main) ((ical) ical-main) ((server) server-main) + ((benchmark) benchmark-main) (else => (lambda (s) (format (current-error-port) "Unsupported mode of operation: ~a~%" -- cgit v1.2.3