72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(define (patt-list-match item patts)
(debug:print 8 "INFO: patt-list-match item=" item " patts=" patts)
(if (and item patts) ;; here we are filtering for matches with -itempatt
(let ((res #f)) ;; look through all the item-patts if defined, format is patt1,patt2,patt3 ... wildcard is %
(for-each
(lambda (patt)
(if (string-match
(regexp (string-substitute "%" ".*" patt)) ;;(glob->regexp (string-translate patt "%" "*"))
item)
(set! res #t)))
(string-split patts ","))
res)
#t))
;;======================================================================
;; System stuff
;;======================================================================
|
>
>
|
<
<
|
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(define (patt-list-match item patts)
(debug:print 8 "INFO: patt-list-match item=" item " patts=" patts)
(if (and item patts) ;; here we are filtering for matches with -itempatt
(let ((res #f)) ;; look through all the item-patts if defined, format is patt1,patt2,patt3 ... wildcard is %
(for-each
(lambda (patt)
(let ((modpatt (string-substitute "%" ".*" patt #t)))
(debug:print 10 "INFO: patt " patt " modpatt " modpatt)
(if (string-match (regexp modpatt) item)
(set! res #t))))
(string-split patts ","))
res)
#t))
;;======================================================================
;; System stuff
;;======================================================================
|