1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;; Module for wildcard matching in CLISP
;; Bruno Haible 18.4.1995
(defpackage "WILDCARD"
(:use "FFI" "COMMON-LISP")
(:export "MATCH"))
(in-package "WILDCARD")
(def-c-call-out fnmatch (:arguments (pattern c-string)
(string c-string)
(flags int)
)
(:return-type int)
)
; flags values
(defconstant FNM_PATHNAME 1)
(defconstant FNM_FILE_NAME 1)
(defconstant FNM_NOESCAPE 2)
(defconstant FNM_PERIOD 4)
(defconstant FNM_LEADING_DIR 8)
(defconstant FNM_CASEFOLD 16)
(defun match (pattern string &key (start 0) (end nil) (case-insensitive nil))
; Prepare the string.
(unless (and (eql start 0) (null end))
(unless end (setq end (length string)))
(setq string (make-array (- end start) :element-type 'character
:displaced-to string
:displaced-index-offset start
) ) )
; Match.
(zerop
(fnmatch pattern string
(logior FNM_PATHNAME (if case-insensitive FNM_CASEFOLD 0))
) )
)
|
