;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'grep)
#@267 Holds details of each of the find options.
The car of each alist is the name.  The cdr is minimum args, the
function used to join many occurrences of the argument together,
and whether or not to leave quotes off the string (non-nil means
the string will be quoted).
(defconst find-constituents '((and . find-and) (not . find-not) (or . find-or) (a . find-and) (n . find-not) (o . find-or) (prune . find-prune) (L 0) (P 0) (H 0) (amin 1) (anewer 1) (atime 1) (cmin 1) (cnewer 1) (ctime 1) (empty 0) (executable 0) (false 0) (fstype 1) (gid 1) (group 1) (ilname 1) (iname 1) (inum 1) (ipath 1) (iregex 1) (iwholename 1) (links 1) (lname 1) (mmin 1) (mtime 1) (name 1) (newer 1) (nogroup 0) (nouser 0) (path 1) (perm 0) (readable 0) (regex 1) (samefile 1) (size 1) (true 0) (type 1) (uid 1) (used 1) (user 1) (wholename 1) (writable 0) (xtype nil) (daystart 0) (depth 0) (maxdepth 1) (mindepth 1) (mount 0) (noleaf 0) (ignore_readdir_race 0) (noignore_readdir_race 0) (regextype 1) (xdev 0) (delete 0) (print0 0) (printf 1) (fprintf 2) (print 0) (fprint0 1) (fprint 1) (ls 0) (fls 1) (prune 0) (quit 0) (exec 1 find-command t) (ok 1 find-command t) (execdir 1 find-command t) (okdir 1 find-command t)) (#$ . 101))
#@373 Initiate the building of a find command.
For example:

(find-cmd \='(prune (name ".svn" ".git" ".CVS"))
          \='(and (or (name "*.pl" "*.pm" "*.t")
                    (mtime "+1"))
                (fstype "nfs" "ufs"))))

`default-directory' is used as the initial search path.  The
result is a string that should be ready for the command line.

(fn &rest SUBFINDS)
(defalias 'find-cmd #[128 "\302\303\304	!!\302A\203\305\306\307#\202\306@!\260\207" [find-program default-directory " " shell-quote-argument expand-file-name mapconcat find-to-string ""] 9 (#$ . 1319)])
#@136 And FORMs together, so:
  (and (mtime "+1") (name "something"))
will produce:
  find . \( -mtime +1 -and -name something \)

(fn FORM)
(defalias 'find-and #[257 "\211G\300W\203\f\301
@!\207\302\303\301\304#\305Q\207" [2 find-to-string "\\( " mapconcat "-and " "\\) "] 6 (#$ . 1911)])
#@133 Or FORMs together, so:
  (or (mtime "+1") (name "something"))
will produce:
  find . \( -mtime +1 -or -name something \)

(fn FORM)
(defalias 'find-or #[257 "\211G\300W\203\f\301
@!\207\302\303\301\304#\305Q\207" [2 find-to-string "\\( " mapconcat "-or " "\\) "] 6 (#$ . 2204)])
#@276 Or FORMs together and prefix with a -not, so:
  (not (mtime "+1") (name "something"))
will produce:
  -not \( -mtime +1 -or -name something \)
If you wanted the FORMs -and(ed) together instead then this would
suffice:
  (not (and (mtime "+1") (name "something")))

(fn FORM)
(defalias 'find-not #[257 "\300\301\302\303\"!P\207" ["-not " find-or mapcar find-to-string] 6 (#$ . 2492)])
#@240 -or together FORMs postfix `-prune' and then -or that with a
-true, so:
  ((prune (name ".svn" ".git")) (name "*.pm"))
will produce (unwrapped):
  \( \( \( -name .svn -or -name .git \) /
  -prune -or -true \) -and -name *.pm \)

(fn FORM)
(defalias 'find-prune #[257 "\300\211\301\302\"!\303\304!P\303\305!D!\207" [find-or mapcar find-to-string find-generic "prune" "true"] 6 (#$ . 2884)])
#@381 Allow an arbitrary string to be used as a form.
OPTION is the name of the form, OPER is the function used to either
OR or AND multiple results together.  ARGCOUNT is the minimum of
args that OPTION can receive and ARGS are the arguments for OPTION.
If DONT-QUOTE is non-nil, arguments are quoted for passing them to
the shell.

(fn OPTION &optional OPER ARGCOUNT ARGS DONT-QUOTE)
(defalias 'find-generic #[1281 "\247\203
GW\203\300\301#\210\206\302\203.G\203.\211\303\304\305	#\"!\207\306\307Q\207" [error "`%s' needs at least %d arguments" find-or mapcar make-closure #[257 "\302\300\301\203
\303\303Q\202\303\304!\303QQ\207" [V0 V1 "-" " " shell-quote-argument] 6 "\n\n(fn X)"] "-" " "] 12 (#$ . 3282)])
#@132 For each item in FORM add a terminating semi-colon and turn
them into valid switches.  The result is -and(ed) together.

(fn FORM)
(defalias 'find-command #[257 "\300\301\302\"!\207" [find-and mapcar #[257 "\300
!\301P\207" [find-to-string "\\; "] 3 "\n\n(fn X)"]] 5 (#$ . 4022)])
#@65 Parse FORM to produce a set of valid find arguments.

(fn FORM)
(defalias 'find-to-string #[257 "\211;\203\207\211:\205N\301
@\"A\2119\203#\302
!\203#\211A!\202L\211:\203G\303@!
@A@AA@\304\305\nA%!\266\204\202L\306\307@\"\262
\207" [find-constituents assoc fboundp symbol-name find-to-string find-generic error "Sorry I don't know how to handle `%s'"] 13 (#$ . 4310)])
(provide 'find-cmd)