From 6a219c59e6506ee5326822a7ced0e6cd92b7b628 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 17:52:01 +0200 Subject: Move a bunch of files into calp module. --- module/entry-points/benchmark.scm | 33 --------------------------------- 1 file changed, 33 deletions(-) delete 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 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)))) -- cgit v1.2.3