;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:10:22 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/cedet/cedet-files.el
;;; in Emacs version 24.0.50.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 (#$ . 552)])
#@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 (#$ . 1359)])
(provide 'cedet-files)
