Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@CMC3251632-A on Thu Sep 04 23:31:12 2003 ;;; from file d:/emacs/jde/lisp/jde-util.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`jde-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'efc) #@69 Asserts that the current buffer is a Java source or a debug buffer. (defalias 'jde-assert-source-buffer '(macro . #[nil "\300\207" [(assert (eq major-mode 'jde-mode) nil "This command works only in a Java source or debug buffer.")] 1 (#$ . 616)])) #@38 Get the number of the line at point. (defalias 'jde-get-line-at-point #[(&optional pos) "\206`\211\303U\203\303\202\304e \"\212 b\210`Sf\305=\203&\nT\202'\n+\207" [pos point ln 1 count-lines 10] 4 (#$ . 870)]) #@388 If FILE exists and is readable creates a temporary buffer with the contents of FILE, points to beginning of buffer, evaluates BODY and return the value of the last form of BODY. If FILE does not exist or is not readable nil is returned. Note: No major/minor-mode is activated and no local variables are evaluated for FILE, but proper EOL-conversion and charcater interpretation is done! (defalias 'jde-with-file-contents '(macro . #[(file &rest body) "\303\304!\305\306 DDC\307\310\311D\312DE\313\314D\315\nBBB\316BBBE)\207" [exp-filename file body make-symbol "exp-filename" let expand-file-name if and file-exists-p file-readable-p with-temp-buffer insert-file-contents (beginning-of-buffer) (nil)] 8 (#$ . 1098)])) #@86 Normalize all paths of the list PATHLIST and returns a list with the expanded paths. (defalias 'jde-normalize-paths '(macro . #[(pathlist &optional symbol) "\302\303\304\305\306EE E\207" [symbol pathlist mapcar lambda (path) jde-normalize-path path] 6 (#$ . 1827)])) #@110 Return the directory containing the source file for a class. CLASS is the fully qualified name of the class. (defalias 'jde-search-src-dirs #[(class) "\303!\304P\305!\306\307\215*\207" [class package file jde-parse-get-unqualified-name ".java" jde-parse-get-package-from-name found (byte-code "\306 :\203J @\307\n\300\"\310\311\n\"!\203\"\312\313\n\"\210\202C\314\315\316\f#\311 \n\"\311\"\310!\203B\312\313\"\210+ A\211\202*\306\207" [jde-sourcepath #1=#:G63337 dir file package pkg-path nil jde-normalize-path file-exists-p expand-file-name throw found subst-char-in-string 46 47 pkg-dir file-path] 5)] 3 (#$ . 2102)]) #@298 *Find the source file for a specified class. CLASS is the fully qualified name of the class. This function searchs the source file paths specified by `jde-sourcepath' for the source file corresponding to CLASS. If it finds the source file, it returns the file's path. Otherwise, it returns nil. (defalias 'jde-find-class-source-file #[(class) "\303!\304!\305!\306P \203\307\n \"\202\310\311\"\210\312+\207" [class source-dir file-name jde-remove-inner-class jde-search-src-dirs jde-parse-get-unqualified-name ".java" expand-file-name message "JDE error: Could not find source for \"%s\". See `jde-sourcepath' for more information." nil] 3 (#$ . -2759)]) #@44 Removes the inner class name for the class (defalias 'jde-remove-inner-class #[(class) "\301\302\"@\207" [class split-string "[$]"] 3 (#$ . 3432)]) #@159 *Find the source file for a specified class. Calls `jde-find-class-source-file' to do the search. If it finds the source file, it opens the file in a buffer. (defalias 'jde-find-class-source #[(class) "\302!\211\205\303 !)\207" [class source jde-find-class-source-file find-file] 3 (#$ . -3588) "sClass: "]) (provide 'jde-util)