From 802a6429659de70101c18b14326bedef46479220 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 23 Mar 2023 22:52:22 +0100 Subject: [PATCH] Comment, add dependencies. --- Makefile | 3 ++- cards.scm | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Makefile b/Makefile index bd4c10b..fcd4ad3 100644 --- a/Makefile +++ b/Makefile @@ -191,7 +191,8 @@ table.so: table.o table.o: table.import.scm table.import.scm: $(TABLE-SOURCES) -CARDS-SOURCES=cards.scm dictionary.import.scm members-base.import.scm +CARDS-SOURCES=cards.scm dictionary.import.scm members-base.import.scm \ + member-record.import.scm cards.so: cards.o cards.o: cards.import.scm diff --git a/cards.scm b/cards.scm index 19d288c..462b1dd 100644 --- a/cards.scm +++ b/cards.scm @@ -39,6 +39,7 @@ members-base member-record) + ;; Prints single card type records. (define (cards-print/type mb type) (let* ((rmb (filter-members-by-predicate mb @@ -73,10 +74,12 @@ (cloop (cdr cards))))) (uloop (cdr srecs))))))) + ;; Exports single card type records for all members to given file. (define (cards-export/type mb type fname) (parameterize ((current-output-port (open-output-file fname))) (cards-print/type mb type))) + ;; Exports cards and desfires to the files specified. (define (cards-export mb cardsfn desfirefn) (cards-export/type mb 'card cardsfn) (cards-export/type mb 'desfire desfirefn))