ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/cedet/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/cedet/cedet-files.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@238 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.
(defalias 'cedet-directory-name-to-file-name #[(referencedir &optional testmode) "\n\204\n \304 !\305 !\203 \306 ! \307>\204 \n\203L \n\204( \310\311 !! \312H\313=\203L \314\315\316 \317H\227! \320H\321=\203D \322\202E \314 \320\323O\260\324\321\325\326\327\330 ##\211)\207" [referencedir file testmode 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 replace-regexp-in-string "!" "!!"] 8 (#$ . 411)])
#@222 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.
(defalias 'cedet-file-name-to-directory-name #[(referencefile &optional testmode) "\305\306\307 #\310\311\312 #\n\313>\204 \203< \314\315 \"\203. \316\317 \"\211 \320 \317\225\321OQ)\314\322 \"\203< \311 \317\321OP )\207" [referencefile file system-type testmode driveletter subst-char-in-string 33 47 replace-regexp-in-string "//" "!" (windows-nt ms-dos) string-match "^/drive_\\([a-z]\\)/" match-string 1 ":" nil "^!"] 6 (#$ . 1218)])
#@60 Returns list of files in directory matching to given regex
(defalias 'cedet-files-list-recursively #[(dir re) "\306!\205a \307\310\"\311\211\311\211 \203] \f@\312 !\211 \313\230\204U
\314\230\204U \315 !\203= \316
\"\203= B\202U \317 !\203U \320 \"\211 \203T \321 \"))\fA\211\204 \311 ,\207" [dir matched files file --dolist-tail-- fname file-accessible-directory-p directory-files t nil file-name-nondirectory "." ".." file-regular-p string-match file-directory-p cedet-files-list-recursively append re tfiles] 4 (#$ . 1890)])
(provide 'cedet-files)
Kontol Shell Bypass