Move a bunch of files into calp module.

1 files changed, 0 insertions, 33 deletions

diff --git a/module/entry-points/benchmark.scm b/module/entry-points/benchmark.scm
deleted file mode 100644
index fecc62f7..00000000
--- a/module/entry-points/benchmark.scm
+++ /dev/null
@@ -1,33 +0,0 @@
-(define-module (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))))