; SPDX-FileCopyrightText: 2026 Sergei Egorov
;
; SPDX-License-Identifier: MIT

(define (library-name-matches? pattern lib-name)
  (cond ((eq? pattern '*) #t)
	((and (pair? pattern) (pair? lib-name))
	 (let ((p-car (car pattern)) (l-car (car lib-name)))
	   (and (or (eq? p-car '*) (equal? p-car l-car))
		(library-name-matches? (cdr pattern) (cdr lib-name)))))
	(else (and (null? pattern) (null? lib-name)))))

(define (library-masked? lib-name mask-patterns)
  (and (pair? mask-patterns)
       (or (library-name-matches? (car mask-patterns) lib-name)
           (library-masked? lib-name (cdr mask-patterns)))))