From 3f126e1aa49daf4e0416ace79652e7ae346cbfd1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 23 Mar 2023 22:11:47 +0100 Subject: [PATCH] Pass on to cards.scm. --- bbstool.scm | 4 +++- cards.scm | 6 +++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/bbstool.scm b/bbstool.scm index 632e700..47aaa8e 100644 --- a/bbstool.scm +++ b/bbstool.scm @@ -85,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (-tstyle (style) "Use given table style: debug, ascii, unicode" (*table-border-style* (string->symbol style))) (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files" - (-action- 'export-cards) + (-action- 'gencards) (-fname- (list file:cards file:desfires))) ) @@ -154,4 +154,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (newline) (print "New member id: " (gen-member-id MB)) (newline)) + ((gencards) + (apply cards-export MB (-fname-))) ) diff --git a/cards.scm b/cards.scm index e62a577..f4eb440 100644 --- a/cards.scm +++ b/cards.scm @@ -33,7 +33,11 @@ (import scheme) - (define (cards-export mb cardsfn desfirefn) + (define (cards-export/type mb type fname) #f) + (define (cards-export mb cardsfn desfirefn) + (cards-export/type mb 'cards cardsfn) + (cards-export/type mb 'desfire desfirefn)) + )