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

Comment, add dependencies.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-23 22:52:22 +01:00
parent dea6f2da29
commit 802a642965
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Makefile
View file

@ -191,7 +191,8 @@ table.so: table.o
table.o: table.import.scm table.o: table.import.scm
table.import.scm: $(TABLE-SOURCES) 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.so: cards.o
cards.o: cards.import.scm cards.o: cards.import.scm

3
cards.scm
View file

@ -39,6 +39,7 @@
members-base members-base
member-record) member-record)
;; Prints single card type records.
(define (cards-print/type mb type) (define (cards-print/type mb type)
(let* ((rmb (filter-members-by-predicate (let* ((rmb (filter-members-by-predicate
mb mb
@ -73,10 +74,12 @@
(cloop (cdr cards))))) (cloop (cdr cards)))))
(uloop (cdr srecs))))))) (uloop (cdr srecs)))))))
;; Exports single card type records for all members to given file.
(define (cards-export/type mb type fname) (define (cards-export/type mb type fname)
(parameterize ((current-output-port (open-output-file fname))) (parameterize ((current-output-port (open-output-file fname)))
(cards-print/type mb type))) (cards-print/type mb type)))
;; Exports cards and desfires to the files specified.
(define (cards-export mb cardsfn desfirefn) (define (cards-export mb cardsfn desfirefn)
(cards-export/type mb 'card cardsfn) (cards-export/type mb 'card cardsfn)
(cards-export/type mb 'desfire desfirefn)) (cards-export/type mb 'desfire desfirefn))