403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.71
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 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/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

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



#@276 Convert the REFERENCEDIR (a full path name) into a filename.
Convert directory separation characters into ! characters.
Optional argument TESTMODE is used by tests to avoid conversion
to the file's truename, and dodging platform tricks.

(fn REFERENCEDIR &optional TESTMODE)
(defalias 'cedet-directory-name-to-file-name #[513 "\204\n\301!\262\302!\203\303!\262\304>\204\203M\204*\305\306!!\262\211\307H\310=\203M\311\312\313H\227!\314H\315=\203E\316\202F\317\314\320OR\262\321\315\322\323\324\325##\207" [system-type file-truename file-directory-p file-name-as-directory (windows-nt ms-dos) expand-file-name convert-standard-filename 1 58 "/drive_" char-to-string 0 2 47 "" "/" nil subst-char-in-string 33 string-replace "!" "!!"] 10 (#$ . 85)])
#@261 Reverse the process of `cedet-directory-name-to-file-name'.
Convert REFERENCEFILE to a directory name replacing ! with /.
Optional TESTMODE is used in tests to avoid doing some platform
specific conversions during tests.

(fn REFERENCEFILE &optional TESTMODE)
(defalias 'cedet-file-name-to-directory-name #[513 "\301\302\303#\262\304\305\306#\262\307>\204\203=\310\311\"\203.\312\313\"\211\314\313\225\315OQ\266\202\310\316\"\203=\305\313\315OP\262\207" [system-type subst-char-in-string 33 47 string-replace "//" "!" (windows-nt ms-dos) string-match "^/drive_\\([a-z]\\)/" match-string 1 ":" nil "^!"] 9 (#$ . 866)])
#@73 Return list of files in directory matching to given regex.

(fn DIR RE)
(defalias 'cedet-files-list-recursively #[514 "\300!\205[\301\302\"\303\211\203V\211@\304!\211\305\230\204N\211\306\230\204N\307!\2038\310\"\2038B\262\210\202O\311!\203N\312\"\211\203M\313\"\262\210\210A\266\202\202\f\262\266\202\207" [file-accessible-directory-p directory-files t nil file-name-nondirectory "." ".." file-regular-p string-match file-directory-p cedet-files-list-recursively append] 11 (#$ . 1508)])
(provide 'cedet-files)

Youez - 2016 - github.com/yon3zu
LinuXploit