|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/cedet/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:01 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/cedet-files.el ;;; in Emacs version 24.3.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 (#$ . 561)]) #@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 (#$ . 1368)]) (provide 'cedet-files)