From 98a772cee9184a6abfa6a5f7b7cc7ac5d1ad919c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 14 Mar 2023 23:04:10 +0100
Subject: [PATCH] Add skeleton of members base.

---
 Makefile         | 10 ++++++++--
 brmsaptool.scm   | 13 +++----------
 brmsaptool.sh    |  1 +
 members-base.scm | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 59 insertions(+), 12 deletions(-)
 create mode 100644 members-base.scm

diff --git a/Makefile b/Makefile
index f7030c1..6a4fe96 100644
--- a/Makefile
+++ b/Makefile
@@ -24,7 +24,8 @@
 #
 
 brmsaptool: brmsaptool.o testing.o listing.o month.o period.o ansi.o	\
-		member-file.o dictionary.o command-line.o
+		member-file.o dictionary.o command-line.o		\
+		members-base.o
 	csc -o brmsaptool $^
 
 .PHONY: clean
@@ -46,7 +47,7 @@ clean:
 brmsaptool.o: brmsaptool.scm testing.import.scm listing.import.scm	\
 	dictionary.import.scm month.import.scm period.import.scm	\
 	ansi.import.scm member-file.import.scm				\
-	command-line.import.scm
+	command-line.import.scm members-base.import.scm
 
 TESTING-SOURCES=testing.scm
 
@@ -89,3 +90,8 @@ COMMAND-LINE-SOURCES=command-line.scm testing.import.scm
 
 command-line.o: $(COMMAND-LINE-SOURCES)
 command-line.import.scm: $(COMMAND-LINE-SOURCES)
+
+MEMBERS-BASE-SOURCES=members-base.scm testing.import.scm
+
+members-base.o: $(MEMBERS-BASE-SOURCES)
+members-base.import.scm: $(MEMBERS-BASE-SOURCES)
diff --git a/brmsaptool.scm b/brmsaptool.scm
index 3d9ee7f..9aa6dca 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -23,15 +23,6 @@
 ;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 ;;
 
-;(declare (uses testing
-;	       listing
-;	       dictionary
-;	       month
-;	       period
-;	       member-file
-;	       command-line
-;	       ansi))
-
 (import testing
 	listing
 	dictionary
@@ -39,7 +30,8 @@
 	period
 	member-file
 	command-line
-	ansi)
+	ansi
+	members-base)
 
 ;; Print banner
 (print "brmsaptool 0.2 (c) 2023 Brmlab, z.s.")
@@ -53,6 +45,7 @@
 (ansi-tests!)
 (member-file-tests!)
 (command-line-tests!)
+(members-base-tests!)
 (newline)
 
 (command-line
diff --git a/brmsaptool.sh b/brmsaptool.sh
index f4543f2..5d61baf 100644
--- a/brmsaptool.sh
+++ b/brmsaptool.sh
@@ -33,6 +33,7 @@ csi -q -b \
     ansi.scm \
     member-file.scm \
     command-line.scm \
+    members-base.scm \
     brmsaptool.scm \
     -- \
     "$@"
diff --git a/members-base.scm b/members-base.scm
new file mode 100644
index 0000000..bd6fe86
--- /dev/null
+++ b/members-base.scm
@@ -0,0 +1,47 @@
+;;
+;; members-base.scm
+;;
+;; Storage for member files.
+;;
+;; ISC License
+;;
+;; Copyright 2023 Brmlab, z.s.
+;; Dominik Pantůček <dominik.pantucek@trustica.cz>
+;;
+;; Permission to use, copy, modify, and/or distribute this software
+;; for any purpose with or without fee is hereby granted, provided
+;; that the above copyright notice and this permission notice appear
+;; in all copies.
+;; 
+;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
+;; OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+;; NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+;;
+
+(declare (unit members-base))
+
+(module
+ members-base
+ (
+  load-members
+  members-base-tests!
+  )
+
+ (import scheme
+	 (chicken base)
+	 testing)
+
+ (define (load-members)
+   1)
+
+ (define (members-base-tests!)
+   (run-tests
+    members-base
+    ))
+
+ )