Cards export.

cards.scm

@@ -31,13 +31,51 @@
   cards-export
   )
 
- (import scheme)
+ (import scheme
+	 (chicken base)
+	 (chicken sort)
+	 (chicken format)
+	 dictionary
+	 members-base
+	 member-record)
 
- (define (cards-export/type mb type fname)
-   #f)
+ (define (cards-print/type mb type)
+   (let* ((rmb (filter-members-by-predicate
+		mb
+		(lambda (mr)
+		  (and (member-active? mr)
+		       (dict-has-key? (dict-ref mr 'info) type)
+		       (not (null? (dict-ref (dict-ref mr 'info) type)))))))
+	  (recs (map (lambda (mr)
+		       (let ((mi (dict-ref mr 'info)))
+			 (cons (dict-ref mi 'nick)
+			       (dict-ref mi type))))
+		     rmb))
+	  (srecs (sort recs
+		       (lambda (a b)
+			 (string<? (car a)
+				   (car b))))))
+     (let uloop ((srecs srecs))
+       (when (not (null? srecs))
+	 (let* ((srec (car srecs))
+		(nick (car srec)))
+	   (let cloop ((cards (cdr srec)))
+	     (when (not (null? cards))
+	       (let* ((card (car cards))
+		      (cardid (car card))
+		      (calias (cdr card))
+		      (aliased? (> (string-length calias) 0))
+		      (cardname (sprintf "~A~A~A"
+					 nick
+					 (if aliased? "." "")
+					 (if aliased? calias ""))))
+		 (print cardname (car cards))
+		 (cloop (cdr cards)))))
+	   (uloop (cdr srecs)))))))
 
  (define (cards-export mb cardsfn desfirefn)
-   (cards-export/type mb 'cards cardsfn)
-   (cards-export/type mb 'desfire desfirefn))
+   (cards-print/type mb 'card)
+   (newline)
+   (cards-print/type mb 'desfire))
 
  )