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

Rename meta predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:27:27 +02:00
parent 3ef6c0b628
commit bf2b8ef23a
4 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/brmember.scm
View file

@ -45,10 +45,10 @@
brmember-source
brmember-info
member-missing-keys
member-has-highlights?
member-record-usable?
member-has-problems?
brmember-missing-keys
brmember-has-highlights?
brmember-usable?
brmember-has-problems?
member-destroyed?
member-suspended?
@ -214,14 +214,14 @@
(ldict-ref info key (car defaults)))))
;; Return mandatory keys with #f as value
(define (member-missing-keys mr)
(define (brmember-missing-keys mr)
(ldict-reduce '()
(lambda (acc k v)
(if v acc (cons k acc)))
(ldict-ref mr 'info)))
;; True if there are any source highlights
(define (member-has-highlights? mr)
(define (brmember-has-highlights? mr)
(ldict-contains? mr 'highlights))
;; Returns true if there is at least one highlight of given type
@ -238,13 +238,13 @@
(member-highlights-has-type? mr 'error))
;; Absolutely required
(define (member-record-usable? mr)
(define (brmember-usable? mr)
(ldict-contains? (ldict-ref mr 'info) 'member))
;; True if member record is OK
(define (member-has-problems? mr)
(define (brmember-has-problems? mr)
(or (member-has-errors? mr)
(not (member-record-usable? mr))
(not (brmember-usable? mr))
(not (is-4digit-prime? (member-id mr)))))
;; Returns true if the member record represents non-existing

4
src/hackerbase.scm
View file

@ -276,8 +276,8 @@
(if (null? mb)
num
(loop (cdr mb)
(if (or (member-has-problems? (car mb))
(member-has-highlights? (car mb)))
(if (or (brmember-has-problems? (car mb))
(brmember-has-highlights? (car mb)))
(let ()
(newline)
(print-member-table (car mb))

2
src/members-base.scm
View file

@ -158,7 +158,7 @@
;; Returns dictionary with statistics about the members base.
(define (members-base-info mb-arg)
(let* ((members (filter-members-by-predicate mb-arg member-record-usable?))
(let* ((members (filter-members-by-predicate mb-arg brmember-usable?))
(di0 (make-ldict))
(di1 (ldict-set di0 'invalid
(filter (compose not is-4digit-prime? member-id) members)))

6
src/members-print.scm
View file

@ -283,7 +283,7 @@
#:row-border #t
#:col-border #t
)))
(let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
(let ((pmrs (filter-members-by-predicate mb brmember-has-problems?)))
(when (not (null? pmrs))
(newline)
(print "Member files with errors (" (length pmrs) "): "
@ -291,8 +291,8 @@
(map brmember-file-path pmrs)
", "))))
(let ((pmrs (filter-members-by-predicate mb (lambda (mr)
(and (member-has-highlights? mr)
(not (member-has-problems? mr)))))))
(and (brmember-has-highlights? mr)
(not (brmember-has-problems? mr)))))))
(when (not (null? pmrs))
(newline)
(print "Member files with issues: "