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

Pass on to cards.scm.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-23 22:11:47 +01:00
parent 7a56162cdb
commit 3f126e1aa4
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
bbstool.scm
View file

@ -85,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-tstyle (style) "Use given table style: debug, ascii, unicode" (-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style))) (*table-border-style* (string->symbol style)))
(-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files" (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
(-action- 'export-cards) (-action- 'gencards)
(-fname- (list file:cards file:desfires))) (-fname- (list file:cards file:desfires)))
) )
@ -154,4 +154,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline) (newline)
(print "New member id: " (gen-member-id MB)) (print "New member id: " (gen-member-id MB))
(newline)) (newline))
((gencards)
(apply cards-export MB (-fname-)))
) )

6
cards.scm
View file

@ -33,7 +33,11 @@
(import scheme) (import scheme)
(define (cards-export mb cardsfn desfirefn) (define (cards-export/type mb type fname)
#f) #f)
(define (cards-export mb cardsfn desfirefn)
(cards-export/type mb 'cards cardsfn)
(cards-export/type mb 'desfire desfirefn))
) )