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 02 18:47:14 2004 ;;; from file d:/emacs/clu-more.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 "`clu-more.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\304\306!\210\301B\307\301!\204\310\302B\307\302!\204 \310\311\310\207" [current-load-list clu-debug-process clu-debug-mode-map clu-mode-hook provide clu-debug clu-indent-buffer boundp nil (lambda nil (local-set-key "j" 'clu-debug) (local-set-key "e" 'next-error) (local-set-key "i" 'clu-indent-buffer))] 2) #@36 Begins or continues a CLU debugger (defalias 'clu-debug #[nil "\203>\302!\303=\203\304\305!\204(\306!\210\307\310!\210\311!\210\312\313!!\210\314\211\207\313!\315\316!\210\317 !\210\320\321 !`\322Z\")\207\323\324!\207" [clu-debug-process buf process-status run yes-or-no-p "Continue current debugger? " kill-process sit-for 1 delete-process delete-windows-on process-buffer nil message "Continuing debug...." pop-to-buffer set-window-start get-buffer-window 30 call-interactively start-clu-debug] 4 (#$ . 938) nil]) (defalias 'start-clu-debug #[(jcl) "\304\305\306\"\210\307\310\311\312\313 P%\311\220\314\315!\210\314!\210\316 \210\314\317 P!\210\316 \221\210\320\321\n!!\210\322 \210\323\n\324\"\207" [shell-file-name jcl clu-debug-process default-directory read-input "JCL = " "" start-process "clu-debugger" "*debug*" "-c" "exec debug " princ "cd " terpri "debug " pop-to-buffer process-buffer clu-debug-mode set-process-filter clu-debug-filter] 7 nil nil]) (byte-code "\204\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\301\207" [clu-debug-mode-map make-sparse-keymap define-key "&" clu-debug-go-end " " clu-debug-command "" suspend-clu-debug "" send-clu-debug-interrupt] 4) (defalias 'clu-debug-mode #[nil "\303!\210\304\305\211\207" [clu-debug-mode-map mode-name major-mode use-local-map "clu-debug" clu-debug-mode] 2 nil nil]) #@42 Gets next command from debug-mode buffer (defalias 'clu-debug-command #[nil "\302\303w\210`d\232\204\304\305!\207\306 \210\307\303w\210\310`!\210`\303\210`{\311 b\210`d|\210\312 \305P\"\207" [command clu-debug-process " " nil insert-string "\n" beginning-of-line ": " set-mark mark send-string] 4 (#$ . 2335) nil]) (defalias 'send-clu-debug-interrupt #[nil "\301\302\"\207" [clu-debug-process send-string ""] 3 nil nil]) #@41 Just puts cursor on proper command line (defalias 'clu-debug-go-end #[nil "db\207" [] 1 (#$ . 2771) nil]) #@2  (defvar clu-debug-regexp "^JCL =" (#$ . 2882)) #@130 This gets called with each string the debugger outputs. Removes ^M's and also checks to see if JCL is being prompted for. (defalias 'clu-debug-filter #[(proc string) "\306!q\210db\210`\307\211\310\f!\210\311 \210\312 \307\313#\2036\314\224\314\225\212\314\224b\210\315\316!\2032\317\320!\210)\202b\210\312\321\307\313#\203H\322\323!\210\2029+db\207" [proc save-pos3 save-pos2 save-pos string clu-debug-regexp process-buffer nil insert-string beginning-of-line re-search-forward t 0 looking-at "JCL =" call-interactively get-jcl " " delete-backward-char 1] 4 (#$ . 2937)]) #@44 Gets JCL if none specified on command line (defalias 'get-jcl #[(jcl) "db\210\302 \303P\"\207" [clu-debug-process jcl send-string "\n"] 4 (#$ . 3535) (list (read-input "Enter JCL: "))]) #@26 Removes debugging window (defalias 'suspend-clu-debug #[nil "\301\302!!\207" [clu-debug-process delete-windows-on process-buffer] 3 (#$ . 3728) nil]) #@111 Saves current buffer, runs a standalone indenter on visited file, and then reloads this file into buffer (defalias 'clu-indent-buffer #[nil "\302\303!\304!\210\305p!\210\306\307!\210\310 \311\311\312\313\314p!P&\210\315\316\211\"\210\306\317!)\207" [errbuf shell-file-name generate-new-buffer "*clu-indent*" display-buffer save-buffer message "Indenting...." call-process nil "-c" "exec clu_indent " buffer-file-name revert-buffer t "done"] 9 (#$ . 3886) nil])