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

Rename long schema bindings.

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

8
member-parser.scm
View file

@ -47,8 +47,8 @@
;; Pass 2: known keys and multikeys ;; Pass 2: known keys and multikeys
(define mandatory-keys '(nick name mail phone)) (define mandatory-keys '(nick name mail phone))
(define optional-keys '(born joined destroyed)) (define optional-keys '(born joined destroyed))
(define member-schema-known-keys (append mandatory-keys optional-keys)) (define known-keys (append mandatory-keys optional-keys))
(define member-schema-known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop)) (define known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop))
;; Pass 3: Interpreter passes ;; Pass 3: Interpreter passes
(define member-schema-interpreters (define member-schema-interpreters
@ -171,7 +171,7 @@
(key (car line)) (key (car line))
(value (cadr line)) (value (cadr line))
(number (caddr line))) (number (caddr line)))
(if (member key member-schema-known-keys) (if (member key known-keys)
(if (dict-has-key? processed key) (if (dict-has-key? processed key)
(loop (cdr parsed) (loop (cdr parsed)
(member-record-add-highlight mr number "Duplicate key" 2 'error) (member-record-add-highlight mr number "Duplicate key" 2 'error)
@ -179,7 +179,7 @@
(loop (cdr parsed) (loop (cdr parsed)
mr mr
(dict-set processed key (cons value number)))) (dict-set processed key (cons value number))))
(if (member key member-schema-known-multikeys) (if (member key known-multikeys)
(loop (cdr parsed) (loop (cdr parsed)
mr mr
(dict-set processed key (cons (cons value number) (dict-set processed key (cons (cons value number)