From e75be3a6cba8e3a92fd69a75d71452b04a399eee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 30 Dec 2019 15:52:35 +0100
Subject: Add simple benchmark main.

---
 module/entry-points/benchmark.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 module/entry-points/benchmark.scm

(limited to 'module/entry-points/benchmark.scm')

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)])))
-- 
cgit v1.2.3