| 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 : |
;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\"\2038 B\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)