diff options
Diffstat (limited to '')
-rw-r--r-- | module/entry-points/benchmark.scm | 18 | ||||
-rwxr-xr-x | module/main.scm | 14 |
2 files changed, 26 insertions, 6 deletions
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~%" |