From 6a53913e48498149cf1625ea1202b8f4f70e5867 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 19 Mar 2023 19:26:23 +0100 Subject: [PATCH] Output to file. --- brmsaptool.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/brmsaptool.scm b/brmsaptool.scm index 7491755..480728f 100644 --- a/brmsaptool.scm +++ b/brmsaptool.scm @@ -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)))) )