Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/detect.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\303\304!\210\305X\204 \306U\203$ \307W\203$ \310\311!\210\303\312\313\314\315\n!\"\"\210\303\207" [emacs-major-version emacs-minor-version load-file-name require ede/auto 23 24 2 message "Loading CEDET fallback autoload library." cedet/dominate expand-file-name "../../../etc/fallback-libraries/dominate.el" file-name-directory] 6)
#@59 Return non-nil if we need to stop scanning upward in DIR.
(defalias 'ede--detect-stop-scan-p #[(dir) "\301\302\303\"!\207" [dir file-exists-p expand-file-name ".ede_stop_scan"] 4 (#$ . 757)])
#@59 When searching for a project, temporarily save that file.
(defvar ede--detect-found-project nil (#$ . 956))
#@53 Non-nil if DIR contain any known EDE project types.
(defalias 'ede--detect-ldf-predicate #[(dir) "\304!\203 \305\306\307\"\207 \n\203* \204* \310\n@\"\203# \n@\202
\nA\211\204 )\207" [dir ede-project-class-files types ede--detect-found-project ede--detect-stop-scan-p throw stopscan nil ede-auto-detect-in-dir] 4 (#$ . 1070)])
#@197 Detect an EDE project for the current DIRECTORY by scanning.
This function ALWAYS scans files and directories and DOES NOT
use any file caches.
Return a cons cell:
( ROOTDIR . PROJECT-AUTOLOAD)
(defalias 'ede--detect-scan-directory-for-project #[(directory) "\303\3042 \305 \306\"0\211\205 \nB*\207" [ede--detect-found-project directory root nil stopscan locate-dominating-file ede--detect-ldf-predicate] 4 (#$ . 1414)])
#@53 Non-nil if DIR contain any known EDE project types.
(defalias 'ede--detect-ldf-rootonly-predicate #[(dir) "\304!\203 \305\306\307\"\207 \n\2032 \2042 \310\n@\311\"\203+ \312\n@\"\203+ \n@\202
\nA\211\204 )\207" [dir ede-project-class-files types ede--detect-found-project ede--detect-stop-scan-p throw stopscan nil eieio-oref root-only ede-auto-detect-in-dir] 4 (#$ . 1848)])
#@197 Detect an EDE project for the current DIRECTORY by scanning.
This function ALWAYS scans files and directories and DOES NOT
use any file caches.
Return a cons cell:
( ROOTDIR . PROJECT-AUTOLOAD)
(defalias 'ede--detect-scan-directory-for-rootonly-project #[(directory) "\303\3042 \305 \306\"0\211\205 \nB*\207" [ede--detect-found-project directory root nil stopscan locate-dominating-file ede--detect-ldf-rootonly-predicate] 4 (#$ . 2241)])
#@46 An ede autoload that needs to be un-matched.
(defvar ede--detect-nomatch-auto nil (#$ . 2693))
#@60 Non-nil if DIR no longer match `ede--detect-nomatch-auto'.
(defalias 'ede--detect-ldf-root-predicate #[(dir) "\303!\304!\206 \305\306!!\211\232\203 \307\202 \310\n \"?)\207" [dir updir ede--detect-nomatch-auto expand-file-name ede--detect-stop-scan-p file-name-directory directory-file-name t ede-auto-detect-in-dir] 4 (#$ . 2794)])
#@266 If DIRECTORY has already been detected with AUTO, find the root.
Some projects have their dominating file in all their directories, such
as Project.ede. In that case we will detect quickly, but then need
to scan upward to find the topmost occurrence of that file.
(defalias 'ede--detect-scan-directory-for-project-root #[(directory auto) "\303\n\304\")\207" [auto ede--detect-nomatch-auto directory locate-dominating-file ede--detect-ldf-root-predicate] 4 (#$ . 3143)])
#@137 Detect an EDE project for the current DIRECTORY.
Scan the filesystem for a project.
Return a cons cell:
( ROOTDIR . PROJECT-AUTOLOAD)
(defalias 'ede-detect-directory-for-project #[(directory) "\305!\211@ A \205< \306 \307\"\203 \202< \306 \310\"\2036 \311\n!\211 \203, \f\2022 \312\n \" B)\202< \312\n \" B+\207" [directory scan root auto moreroot ede--detect-scan-directory-for-project eieio-oref root-only generic-p ede--detect-scan-directory-for-rootonly-project ede--detect-scan-directory-for-project-root] 4 (#$ . 3623)])
#@47 Run a quick test for autodetecting on BUFFER.
(defalias 'ede-detect-qtest #[nil "\303 \304! \203 \305\306\307\310\n!\311\" @\312 A!$\202 \305\313!*\207" [default-directory ans start current-time ede-detect-directory-for-project message "Project found in %d sec @ %s of type %s" time-convert time-since integer eieio-object-name-string "No Project found."] 6 (#$ . 4164) nil])
(provide 'ede/detect)
Mini Shell