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

Split out member-record module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 14:18:30 +01:00
parent fcf9b57f8d
commit 023befa8f8
4 changed files with 111 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

54
brmsaptool.scm
View file

@ -33,7 +33,8 @@
utils
ansi
members-base
primes)
primes
member-record)
;; Print banner
(print "brmsaptool 0.3 (c) 2023 Brmlab, z.s.")
@ -86,57 +87,6 @@
(find-member-by-nick MB (-member-nick-))
#f)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
(import (chicken string)
(chicken sort))
(define (print-members-base-info mb)
(let ((nicks (list-members-nicks mb))
(ids (list-members-ids mb)))
(print "Members ("
(length nicks)
"): "
(string-intersperse
(sort
nicks
string<?)
", "))
(print "Total IDs: "
(length ids)
" (" (length (filter is-4digit-prime? ids)) " valid)")
(let ((invalid-ids (filter (compose not is-4digit-prime?) ids)))
(when (not (null? invalid-ids))
(print " Invalid (" (length invalid-ids) "): "
(string-intersperse
(map number->string invalid-ids)
", "))))))
(define (print-member-record-info mr)
(let* ((id (dict-ref mr 'id))
(aliases (dict-ref mr 'symlinks))
(info (dict-ref mr 'info))
(sinfo (sort info
(lambda (a b)
(string<?
(symbol->string (car a))
(symbol->string (car b)))))))
(print "User " id " alias(es): "
(string-intersperse
(map symbol->string aliases)
", "))
(newline)
(let loop ((sinfo sinfo))
(when (not (null? sinfo))
(let* ((kv (car sinfo))
(k (car kv))
(v (cdr kv)))
(print " " k ":\t"
(if (member k '(student suspend))
(periods->string v)
v))
(loop (cdr sinfo)))))))
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;