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

Working cards export.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-23 22:49:07 +01:00
parent 9a9242f286
commit dea6f2da29
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
cards.scm
View file

@ -69,13 +69,16 @@
nick
(if aliased? "." "")
(if aliased? calias ""))))
(print cardname (car cards))
(print cardname " " cardid)
(cloop (cdr cards)))))
(uloop (cdr srecs)))))))
(define (cards-export/type mb type fname)
(parameterize ((current-output-port (open-output-file fname)))
(cards-print/type mb type)))
(define (cards-export mb cardsfn desfirefn)
(cards-print/type mb 'card)
(newline)
(cards-print/type mb 'desfire))
(cards-export/type mb 'card cardsfn)
(cards-export/type mb 'desfire desfirefn))
)