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

Get all files with problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 17:39:41 +02:00
parent 0a688fc057
commit fc6c67004e
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bbstool.scm
View file

@ -88,6 +88,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files" (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
(-action- 'gencards) (-action- 'gencards)
(-fname- (list file:cards file:desfires))) (-fname- (list file:cards file:desfires)))
(-problems () "Prints all files with problems" (-action- 'problems))
) )
;; Run tests ;; Run tests
@ -157,4 +158,11 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline)) (newline))
((gencards) ((gencards)
(apply cards-export MB (-fname-))) (apply cards-export MB (-fname-)))
((problems)
(let loop ((mb MB))
(when (not (null? mb))
(when (member-highlights? (car mb))
(newline)
(print-member-source (car mb)))
(loop (cdr mb)))))
) )

5
member-record.scm
View file

@ -43,6 +43,7 @@
member-record-info member-record-info
member-missing-keys member-missing-keys
member-highlights?
member-destroyed? member-destroyed?
member-suspended? member-suspended?
@ -194,6 +195,10 @@
(if v acc (cons k acc))) (if v acc (cons k acc)))
(dict-ref mr 'info))) (dict-ref mr 'info)))
;; True if there are any source highlights
(define (member-highlights? mr)
(dict-has-key? mr 'highlights))
;; Returns true if the member record represents destroyed member. The ;; Returns true if the member record represents destroyed member. The
;; *current-month* is a global parameter from period module. ;; *current-month* is a global parameter from period module.
(define (member-destroyed? mr) (define (member-destroyed? mr)