Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-sex.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 8fc7fe29b841
children 7e54bd776075 9f59509498e1
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;;
3 ;; File: dired-sex.el
4 ;; Dired Version: $Revision: 1.1 $
5 ;; RCS:
6 ;; Description: Marking files according to sexpressions. Sorry.
7 ;; Created: Wed Sep 14 01:30:43 1994 by sandy on ibm550
8 ;;
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10
11 (provide 'dired-sex)
12 (require 'dired)
13
14 (defvar dired-sexpr-history-symbol nil
15 "History of sexpr used to mark files in dired.")
16
17 ;;; Marking files according to sexpr's
18
19 (defmacro dired-parse-ls ()
20 ;; Sets vars
21 ;; inode s mode nlink uid gid size time name sym
22 ;; (probably let-bound in caller) according to current file line.
23 ;; Returns t for succes, nil if this is no file line.
24 ;; Upon success, all variables are set, either to nil or the
25 ;; appropriate value, so they need not be initialized.
26 ;; Moves point within the current line to the end of the file name.
27 '(let ((bol (progn (beginning-of-line) (point)))
28 (eol (save-excursion (skip-chars-forward "^\n\r") (point))))
29 (if (re-search-forward dired-re-month-and-time eol t)
30 (let ((mode-len 10) ; length of mode string
31 (tstart (progn (goto-char (match-beginning 0))
32 (skip-chars-forward " ")
33 (point)))
34 (fstart (match-end 0))
35 pos)
36 (goto-char (1+ bol))
37 (skip-chars-forward " \t")
38 ;; This subdir had better have been created with the current
39 ;; setting of actual switches. Otherwise, we can't parse.
40 (cond
41 ((and (or (memq ?k dired-internal-switches)
42 (memq ?s dired-internal-switches))
43 (memq ?i dired-internal-switches))
44 (setq pos (point))
45 (skip-chars-forward "0-9")
46 (if (setq inode (and (/= pos (point)) (string-to-int
47 (buffer-substring
48 pos (point)))))
49 (progn
50 (skip-chars-forward " ")
51 (setq pos (point))
52 (skip-chars-forward "0-9")
53 (setq s (and (/= pos (point)) (string-to-int
54 (buffer-substring
55 pos (point))))))
56 (setq s nil)))
57 ((or (memq ?s dired-internal-switches)
58 (memq ?k dired-internal-switches))
59 (setq pos (point))
60 (skip-chars-forward "0-9")
61 (setq s (and (/= pos (point)) (string-to-int
62 (buffer-substring
63 pos (point))))
64 inode nil))
65 ((memq ?i dired-internal-switches)
66 (setq pos (point))
67 (skip-chars-forward "0-9")
68 (setq inode (and (/= pos (point)) (string-to-int
69 (buffer-substring
70 pos (point))))
71 s nil))
72 (t
73 (setq s nil
74 inode nil)))
75 (skip-chars-forward " 0-9") ; in case of junk
76 (setq mode (buffer-substring (point) (+ mode-len (point))))
77 (forward-char mode-len)
78 (setq nlink (read (current-buffer)))
79 (or (integerp nlink) (setq nlink nil))
80 (setq uid (buffer-substring (point) (progn
81 (skip-chars-forward "^ ")
82 (point))))
83 (goto-char tstart)
84 (skip-chars-backward " ")
85 (setq pos (point))
86 (skip-chars-backward "0-9")
87 (if (= pos (point))
88 (setq size nil)
89 (setq size (string-to-int (buffer-substring (point) pos))))
90 (skip-chars-backward " ")
91 ;; if no gid is displayed, gid will be set to uid
92 ;; but user will then not reference it anyway in PREDICATE.
93 (setq gid (buffer-substring (point) (progn
94 (skip-chars-backward "^ ")
95 (point)))
96 time (buffer-substring tstart
97 (progn
98 (goto-char fstart)
99 (skip-chars-backward " ")
100 (point)))
101 name (buffer-substring
102 fstart
103 (or (dired-move-to-end-of-filename t)
104 (point)))
105 sym (and (looking-at "[/*@#=|]? -> ")
106 (buffer-substring (match-end 0)
107 eol)))
108 t)))) ; return t if parsing was a success
109
110
111 (defun dired-mark-sexp (predicate &optional unflag-p)
112 "Mark files for which PREDICATE returns non-nil.
113 With a prefix arg, unflag those files instead.
114
115 PREDICATE is a lisp expression that can refer to the following symbols:
116
117 inode [integer] the inode of the file (only for ls -i output)
118 s [integer] the size of the file for ls -s output
119 (ususally in blocks or, with -k, in KByte)
120 mode [string] file permission bits, e.g. \"-rw-r--r--\"
121 nlink [integer] number of links to file
122 uid [string] owner
123 gid [string] group (If the gid is not displayed by ls,
124 this will still be set (to the same as uid))
125 size [integer] file size in bytes
126 time [string] the time that ls displays, e.g. \"Feb 12 14:17\"
127 name [string] the name of the file
128 sym [string] if file is a symbolic link, the linked-to name, else nil.
129
130 For example, use
131
132 (equal 0 size)
133
134 to mark all zero length files."
135 ;; Using sym="" instead of nil avoids the trap of
136 ;; (string-match "foo" sym) into which a user would soon fall.
137 ;; No! Want to be able look for symlinks pointing to the empty string.
138 ;; Can happen. Also, then I can do an (if sym ...) structure. --sandy
139 ;; Give `equal' instead of `=' in the example, as this works on
140 ;; integers and strings.
141 (interactive
142 (list
143 (read
144 (dired-read-with-history "Mark if (lisp expr): " nil
145 'dired-sexpr-history))
146 current-prefix-arg))
147 (message "%s" predicate)
148 (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))
149 inode s mode nlink uid gid size time name sym)
150 (dired-mark-if (save-excursion
151 (and (dired-parse-ls)
152 (eval predicate)))
153 (format "'%s file" predicate)))
154 (dired-update-mode-line-modified t))
155
156 ;;; end of dired-sex.el