403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/cedet/ede/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/ede/detect.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'ede/auto)
#@69 Return non-nil if we need to stop scanning upward in DIR.

(fn DIR)
(defalias 'ede--detect-stop-scan-p #[257 "\300\301\302\"!\207" [file-exists-p expand-file-name ".ede_stop_scan"] 5 (#$ . 104)])
#@59 When searching for a project, temporarily save that file.
(defvar ede--detect-found-project nil (#$ . 307))
#@63 Non-nil if DIR contain any known EDE project types.

(fn DIR)
(defalias 'ede--detect-ldf-predicate #[257 "\302!\203\303\304\305\"\207\211\203)	\204)\306@\"\203\"\211@\202\f\211A\262\202\f	\207" [ede-project-class-files ede--detect-found-project ede--detect-stop-scan-p throw stopscan nil ede-auto-detect-in-dir] 5 (#$ . 421)])
#@213 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)

(fn DIRECTORY)
(defalias 'ede--detect-scan-directory-for-project #[257 "\301\3022\303\304\"0\211\205\211B)\207" [ede--detect-found-project nil stopscan locate-dominating-file ede--detect-ldf-predicate] 4 (#$ . 768)])
#@63 Non-nil if DIR contain any known EDE project types.

(fn DIR)
(defalias 'ede--detect-ldf-rootonly-predicate #[257 "\302!\203\303\304\305\"\207\211\2031	\2041\306@\307\"\203*\310@\"\203*\211@\202\f\211A\262\202\f	\207" [ede-project-class-files ede--detect-found-project ede--detect-stop-scan-p throw stopscan nil eieio-oref root-only ede-auto-detect-in-dir] 5 (#$ . 1195)])
#@213 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)

(fn DIRECTORY)
(defalias 'ede--detect-scan-directory-for-rootonly-project #[257 "\301\3022\303\304\"0\211\205\211B)\207" [ede--detect-found-project nil stopscan locate-dominating-file ede--detect-ldf-rootonly-predicate] 4 (#$ . 1590)])
#@46 An ede autoload that needs to be un-matched.
(defvar ede--detect-nomatch-auto nil (#$ . 2036))
#@70 Non-nil if DIR no longer match `ede--detect-nomatch-auto'.

(fn DIR)
(defalias 'ede--detect-ldf-root-predicate #[257 "\301!\262\302!\206!\303\304!!\211\232\203\305\202\306\"?\262\207" [ede--detect-nomatch-auto expand-file-name ede--detect-stop-scan-p file-name-directory directory-file-name t ede-auto-detect-in-dir] 5 (#$ . 2137)])
#@287 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.

(fn DIRECTORY AUTO)
(defalias 'ede--detect-scan-directory-for-project-root #[514 "\211\301\302\")\207" [ede--detect-nomatch-auto locate-dominating-file ede--detect-ldf-root-predicate] 5 (#$ . 2490)])
#@153 Detect an EDE project for the current DIRECTORY.
Scan the filesystem for a project.
Return a cons cell:
  ( ROOTDIR . PROJECT-AUTOLOAD)

(fn DIRECTORY)
(defalias 'ede-detect-directory-for-project #[257 "\300!\211@A\2050\301\302\"\203\207\301\303\"\203*\304!\211\203#\207\305\"B\207\305\"B\207" [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] 8 (#$ . 2965)])
#@47 Run a quick test for autodetecting on BUFFER.
(defalias 'ede-detect-qtest #[0 "\301 \302!\211\203\303\304\305\306!\307\"@\310A!$\207\303\311!\207" [default-directory 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."] 8 (#$ . 3463) nil])
(provide 'ede/detect)

Youez - 2016 - github.com/yon3zu
LinuXploit