1 files changed, 33 insertions, 0 deletions
diff --git a/module/calp/entry-points/benchmark.scm b/module/calp/entry-points/benchmark.scm
new file mode 100644
index 00000000..0814c44c
--- /dev/null
+++ b/module/calp/entry-points/benchmark.scm
@@ -0,0 +1,33 @@
+(define-module (calp entry-points benchmark)
+  :use-module (util)
+
+  :use-module (ice-9 getopt-long)
+  :use-module (util options)
+  :use-module ((srfi srfi-41) :select (stream->list))
+
+  :use-module ((vcomponent instance methods) :select (get-event-set))
+  :autoload (vcomponent instance) (global-event-object)
+
+  :export (main)
+  )
+
+
+(define opt-spec
+  `((enable-output (single-char #\o)
+                   (description
+                    "Output is be default supressed, since many fields contain way to much data "
+                    "to read. This turns it on again."))
+    (help (single-char #\h) (description "Print this help."))))
+
+
+(define (main args)
+  (define opts (getopt-long args (getopt-opt opt-spec)))
+
+  (when (option-ref opts 'help #f)
+    (print-arg-help opt-spec)
+    (throw 'return))
+
+  (let ((strm (get-event-set global-event-object)))
+    (if (option-ref opts 'enable-output #f)
+        (write (stream->list 1000 strm))
+        (stream->list 1000 strm))))