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"
(-action- 'gencards)
(-fname- (list file:cards file:desfires)))
(-problems () "Prints all files with problems" (-action- 'problems))
)
;; Run tests
@ -157,4 +158,11 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline))
((gencards)
(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)))))
)