Lines Matching defs:regexp
36 ;; shadow-define-literal-group, and shadow-define-regexp-group (see the
151 (defvar shadow-regexp-groups nil
154 created by `shadow-define-regexp-group'.")
201 (defun shadow-regexp-superquote (string)
202 "Like `regexp-quote', but includes the ^ and $.
203 This makes sure regexp matches nothing but STRING."
204 (concat "^" (regexp-quote string) "$"))
224 (defun shadow-make-cluster (name primary regexp)
231 (list name primary regexp))
241 (defmacro shadow-cluster-regexp (cluster)
242 "Return the regexp matching hosts in a CLUSTER."
245 (defun shadow-set-cluster (name primary regexp)
254 (cons (shadow-make-cluster name primary regexp)
275 (string-match (shadow-cluster-regexp x)
289 Each may be a host or cluster name; if they are clusters, regexp of SITE1 will
295 (string-match (shadow-cluster-regexp cluster1) primary2)
397 (defun shadow-file-match (pattern file &optional regexp)
407 (if regexp
428 (regexp (let (try-regexp)
431 (setq try-regexp
434 (if old (shadow-cluster-regexp old)
435 (shadow-regexp-superquote primary))))
439 try-regexp))
447 (shadow-set-cluster name primary regexp)))
474 (defun shadow-define-regexp-group ()
482 (let ((regexp (read-string
483 "Filename regexp: "
485 (shadow-regexp-superquote
497 (setq shadow-regexp-groups
498 (cons (shadow-make-group regexp sites usernames)
499 shadow-regexp-groups))
540 `shadow-regexp-groups'."
557 (defun shadow-make-group (regexp sites usernames)
559 actually a list of regexp ange-ftp file names---from REGEXP \(name of file to
563 (cons (shadow-make-fullname (car sites) (car usernames) regexp)
564 (shadow-make-group regexp (cdr sites) (cdr usernames)))
611 canonical-file shadow-regexp-groups t)))))
614 (defun shadow-shadows-of-1 (file groups regexp)
620 (function (lambda (x) (shadow-file-match x file regexp)))
623 (regexp
631 (shadow-shadows-of-1 file (cdr groups) regexp)))))
707 (shadow-insert-var 'shadow-regexp-groups))))