From 8764877e406573e16c53bd4e705c2a7c6e11b29c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 13 Mar 2023 21:56:31 +0100 Subject: [PATCH] Basic parsing. --- member-file.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/member-file.scm b/member-file.scm index f190d61..995b88c 100644 --- a/member-file.scm +++ b/member-file.scm @@ -43,7 +43,8 @@ listing) ;; Specification of known keys for various types of parsing - (define known-keys '(nick mail phone name born joined)) + (define known-keys '(nick mail phone name born joined destroyed + mail2 ID email suspended tel)) ;; Unknown keys (define start/stop-keys '(student suspend)) (define multi-keys '(card desfire credit)) @@ -89,7 +90,7 @@ (lines (if (not (null? rest1)) (car rest1) #f)) (rest2 (if (not (null? rest1)) (cdr rest1) '())) (line-number (if (not (null? rest2)) (car rest2) #f)) - (lc0 (irregex-replace "^[ \\t]*" l "")) + (lc0 (irregex-replace "^[ \\t]*" (line-remove-comments l) "")) (lc (irregex-replace "[ \\t]*$" lc0 ""))) (if (= (string-length lc) 0) #f