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

New ids.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 19:23:08 +01:00
parent 4f752d81f0
commit 5744a186d2
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
brmsaptool.scm
View file

@ -79,6 +79,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-action- 'print-member-file)) (-action- 'print-member-file))
(-tests () "Run self-tests upon startup" (-run-tests?- #t)) (-tests () "Run self-tests upon startup" (-run-tests?- #t))
(-idstats () "Returns information about available member ids" (-action- 'print-idstats)) (-idstats () "Returns information about available member ids" (-action- 'print-idstats))
(-genid () "Generates random member id" (-action- 'genid))
) )
;; Run tests ;; Run tests
@ -132,4 +133,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline) (newline)
(print-members-ids-stats MB) (print-members-ids-stats MB)
(newline)) (newline))
((genid)
(newline)
(print "New member id: " (gen-member-id MB))
(newline))
) )

8
members-base.scm
View file

@ -38,6 +38,7 @@
print-members-base-stats print-members-base-stats
get-free-members-ids get-free-members-ids
print-members-ids-stats print-members-ids-stats
gen-member-id
members-base-tests! members-base-tests!
) )
@ -51,6 +52,7 @@
(chicken sort) (chicken sort)
(chicken string) (chicken string)
(chicken format) (chicken format)
(chicken random)
testing testing
utils utils
dictionary dictionary
@ -374,6 +376,12 @@
", ") ", ")
")")))) ")"))))
;; Generates random vector id.
(define (gen-member-id mb)
(let* ((fids (get-free-members-ids mb))
(vfids (list->vector fids)))
(vector-ref vfids (pseudo-random-integer (vector-length vfids)))))
;; Performs self-tests of this module. ;; Performs self-tests of this module.
(define (members-base-tests!) (define (members-base-tests!)
(run-tests (run-tests