From 7ca7f996c4552585be7308720a71ebd11869fcde Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 25 Mar 2023 21:32:02 +0100
Subject: [PATCH] Printing module.

---
 Makefile    | 19 +++++++++++++------
 bbstool.scm |  6 ++++--
 2 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/Makefile b/Makefile
index abddc82..f841d8c 100644
--- a/Makefile
+++ b/Makefile
@@ -43,22 +43,23 @@ BBSTOOL-DEPS=bbstool.scm testing.import.scm listing.import.scm		\
 	members-base.import.scm utils.import.scm primes.import.scm	\
 	member-record.import.scm configuration.import.scm		\
 	progress.import.scm table.import.scm cards.import.scm		\
-	member-parser.import.scm
+	member-parser.import.scm member-print.import.scm
 
 BBSTOOL-SOURCES=bbstool.scm testing.scm listing.scm dictionary.scm	\
 	month.scm period.scm ansi.scm command-line.scm			\
 	members-base.scm utils.scm primes.scm member-record.scm		\
-	configuration.scm progress.scm table.scm cards.scm
+	configuration.scm progress.scm table.scm cards.scm		\
+	member-print.scm
 
 BBSTOOL-OBJS=testing.o listing.o month.o period.o ansi.o dictionary.o	\
-		 command-line.o members-base.o utils.o primes.o		\
-		 member-record.o configuration.o progress.o table.o	\
-		 cards.o
+	 command-line.o members-base.o utils.o primes.o			\
+	 member-record.o configuration.o progress.o table.o cards.o	\
+	 member-print.o
 
 BBSTOOL-SHARED=testing.so listing.so month.so period.so ansi.so		\
 	 dictionary.so command-line.so members-base.so utils.so		\
 	 primes.so member-record.so configuration.so progress.so	\
-	 table.so cards.so
+	 table.so cards.so member-print.so
 
 .PHONY: imports
 imports: $(BBSTOOL-DEPS)
@@ -194,3 +195,9 @@ MEMBER-PARSER-SOURCES=member-parser.scm member-record.import.scm	\
 member-parser.so: member-parser.o
 member-parser.o: member-parser.import.scm
 member-parser.import.scm: $(MEMBER-PARSER-SOURCES)
+
+MEMBER-PRINT-SOURCES=member-print.scm
+
+member-print.so: member-print.o
+member-print.o: member-print.import.scm
+member-print.import.scm: $(MEMBER-PRINT-SOURCES)
diff --git a/bbstool.scm b/bbstool.scm
index 80f0874..e5893d4 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -38,7 +38,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	member-record
 	configuration
 	table
-	cards)
+	cards
+	member-print)
 
 ;; Print banner
 (print "bbstool 0.4 (c) 2023 Brmlab, z.s.")
@@ -130,8 +131,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (newline)
    (print "Current month: " (month->string (*current-month*)))
    (newline)
+   (print mr)
    (if mr
-       (print-member-record-table mr)
+       (print-member-table mr)
        (print-members-base-table MB))
    (newline))
   ((print-stats)