Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/cedet-files.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@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\203J\n\204(\310\311	!!	\312H\313=\203J\314\315	\316H\227!	\317H\320=\203C\321\202D\322\323	\317\"R\324\320\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 "" "/" substring subst-char-in-string 33 replace-regexp-in-string "!" "!!"] 8 (#$ . 409)])
#@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\321	\317\225\"Q)\314\322	\"\203<\311\321	\317\"P	)\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 ":" substring "^!"] 6 (#$ . 1216)])
#@60 Return 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 (#$ . 1896)])
(provide 'cedet-files)