blob: a8507fb95d6838f6b24cb2db403b977639ee9c1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(define-module (entry-points benchmark)
:export (main)
:use-module (ice-9 getopt-long)
:use-module (util options)
:use-module (util)
:use-module (srfi srfi-41)
)
(define opt-spec
`((field (value #t)
(description
"Which field from the current app to force. Most heavy fields are defined in "
(i "(vcomponent)") ". Required."))
(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)))
(define field (and=> (option-ref opts 'field #f) string->symbol))
(when (option-ref opts 'help #f)
(print-arg-help opt-spec)
(throw 'return))
(unless field
(throw 'argument-error "Field `field' required."))
(let ((strm ((@ (vcomponent instance) get-event-set)
(@ (vcomponent instance) global-event-object))))
(if (option-ref opts 'enable-output #f)
(write (stream->list 1000 strm))
(stream->list 1000 strm))))
|