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

Split mandatory and optional keys.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-26 14:35:05 +02:00
parent 63372e10ab
commit a56ff102f7
3 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Makefile
View file

@ -49,7 +49,7 @@ BBSTOOL-SOURCES=bbstool.scm testing.scm listing.scm dictionary.scm \
month.scm period.scm ansi.scm command-line.scm \ month.scm period.scm ansi.scm command-line.scm \
members-base.scm utils.scm primes.scm member-record.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 member-print.scm member-parser.scm
BBSTOOL-OBJS=testing.o listing.o month.o period.o ansi.o dictionary.o \ BBSTOOL-OBJS=testing.o listing.o month.o period.o ansi.o dictionary.o \
command-line.o members-base.o utils.o primes.o \ command-line.o members-base.o utils.o primes.o \

2
bbstool.scm
View file

@ -43,7 +43,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
member-parser) member-parser)
;; Print banner ;; Print banner
(print "bbstool 0.4 (c) 2023 Brmlab, z.s.") (print "bbstool 0.5 (c) 2023 Brmlab, z.s.")
(newline) (newline)
;; Command-line options and configurable parameters ;; Command-line options and configurable parameters

4
member-parser.scm
View file

@ -45,7 +45,9 @@
configuration) configuration)
;; Pass 2: known keys and multikeys ;; Pass 2: known keys and multikeys
(define member-schema-known-keys '(nick mail phone name born joined destroyed)) (define mandatory-keys '(nick name mail phone))
(define optional-keys '(born joined destroyed))
(define member-schema-known-keys (append mandatory-keys optional-keys))
(define member-schema-known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop)) (define member-schema-known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop))
;; Pass 3: Interpreter passes ;; Pass 3: Interpreter passes