;ELC ;;; Compiled ;;; in Emacs version 27.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\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)