brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Output to file.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 19:26:23 +01:00
parent 65b799ad0e
commit 6a53913e48
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
brmsaptool.scm
View file

@ -59,6 +59,7 @@
(define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f))
(define -action- (make-parameter #f))
(define -fname- (make-parameter #f))
;; Arguments parsing
(command-line
@ -76,7 +77,9 @@
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
(-mn (nick) "Specify member by nick" (-member-nick- nick))
(-pi () "Print information" (-action- 'print-info))
(-stats () "Get stats for all months" (-action- 'print-stats))
(-stats (fname) "Get stats for all months"
(-action- 'print-stats)
(-fname- fname))
)
;; Load the members database (required for everything anyway)
@ -102,6 +105,7 @@
(newline))
((print-stats)
(newline)
(print-members-base-stats
(members-base-stats MB)))
(parameterize ((current-output-port (open-output-file (-fname-))))
(print-members-base-stats
(members-base-stats MB))))
)