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/progmodes/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:21 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/cmacexp.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\304\305\306\307\310\311%\210\312\313\306\314\315\316\310\305&\210\312\317\306\320\315\316\310\305&\210\312\321\322\323\315\324\310\305&\210\312\325\326\327\315\324\310\305&\207" [require cc-mode provide cmacexp custom-declare-group c-macro nil "Expand C macros in a region." :group c custom-declare-variable c-macro-shrink-window-flag "Non-nil means shrink the *Macroexpansion* window to fit its contents." :type boolean c-macro-prompt-flag "Non-nil makes `c-macro-expand' prompt for preprocessor arguments." c-macro-preprocessor (cond ((and (string-match "^[^-]*-[^-]*-\\(solaris\\|sunos5\\)" system-configuration) (file-exists-p "/opt/SUNWspro/SC3.0.1/bin/acomp")) "/opt/SUNWspro/SC3.0.1/bin/acomp -C -E") ((locate-file "/usr/ccs/lib/cpp" '("/") exec-suffixes 'file-executable-p) "/usr/ccs/lib/cpp -C") ((locate-file "/lib/cpp" '("/") exec-suffixes 'file-executable-p) "/lib/cpp -C") ((locate-file "cpp" exec-path exec-suffixes 'file-executable-p) "cpp -C") (t "gcc -E -C -o - -")) "The preprocessor used by the cmacexp package.\n\nIf you change this, be sure to preserve the `-C' (don't strip comments)\noption, or to set an equivalent one." string c-macro-cppflags "" "Preprocessor flags used by `c-macro-expand'."] 8) (defconst c-macro-buffer-name "*Macroexpansion*") #@468 Expand C macros in the region, using the C preprocessor. Normally display output in temp buffer, but prefix arg means replace the region with it. `c-macro-preprocessor' specifies the preprocessor to use. Tf the user option `c-macro-prompt-flag' is non-nil prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include'), otherwise use `c-macro-cppflags'. Noninteractive args are START, END, SUBST. For use inside Lisp programs, see also `c-macro-expansion'. (defalias 'c-macro-expand #[(start end subst) "p\203 \306 !\202 \307 !\310 \203 \311\312\"\203C \203C \204C \f=\204C \313\314!\210\315\316!\210\317\204C \307 !\320\321Q\322$\203o `U |\210\nc\210 \205k \323 )\202\234 q\210\317\324!\210\325 \210\nc\210\326\317!\210\n\310\230\203\220 \313\327!\210\202\223 \330 \210\322\317!\331!+\207" [subst c-macro-buffer-name expansion displaybuf inbuf c-macro-prompt-flag get-buffer get-buffer-create "" read-string "Preprocessor arguments: " message "Buffer is read only: displaying expansion in alternate window" sit-for 2 nil c-macro-expansion " " t exchange-point-and-mark buffer-disable-undo erase-buffer set-buffer-modified-p "Null expansion" c-macro-display-buffer bury-buffer c-macro-cppflags buffer-read-only inhibit-read-only start end c-macro-preprocessor exchange buffer-auto-save-file-name] 6 (#$ . 1877) "r\nP"]) (defalias 'c-macro-display-buffer #[nil "eb\210\306 \210\307 \310p!\311 \204 \312p\313\"\210\n\307 U?\205a \204* \205a \314 \315\211\212\316\310p!!\210 \203B \307 \202D \317 \320\245\321\f \320\322d!\\]^\307 Z!\210eb\210\316!,+\207" [popped alreadythere oldwinheight c-macro-shrink-window-flag maxheight minheight c-mode window-height get-buffer-window nil display-buffer t selected-window 0 select-window frame-height 2 enlarge-window vertical-motion oldwin window-min-height] 6]) #@324 Run a preprocessor on region and return the output as a string. Expand the region between START and END in the current buffer using the shell command CPPCOMMAND (e.g. "/lib/cpp -C -DDEBUG"). Be sure to use a -C (don't strip comments) or equivalent option. Optional arg DISPLAY non-nil means show messages in the echo area. (defalias 'c-macro-expansion #[(start end cppcommand &optional display) "p\306\307!\203 \310\311 !\"\203 \312\225\313O\202 \314 \315\316\n\317\230\203( \317\202) \320$\321\312\211\313\317\312\322\323\324\f\2069 \"!@ABCDEFGHIJ\325\216\212\214~\210\326 KIq\210\313L\327 \210\330K!\210)\331J\332M#\210)\333c\210\334\332N\"C\335\332`\"n\203\212 \332\202\213 \312\\Edb\210\336\337N\340#\203\310 \341\334N`\313\211C%\233\342\232\203\221 \312\225b\210E\335N`\"\\D\315\343DH#c\210\312\224b\210\202\221 \341C8O\344C8P\345C8Q\346C8RQ\203\351 \320\202\352 \317O\203\366 \347O!\202 P\203\377 \350\202 \317\333FO\203\347O!\202P\203\351\202R\205\352Q\205$\353R\211B\315\343EH#\261\210,S\203>\354\355G\"\210\356\332dT\357\211@D\313\360U&AS\203]\354\355G\361P\"\210\362 \312U\203j\363c\210\202veb\210\364B!\210\332`|\210\365\366\311H!\367Q\313\357#\203\226\370 \210`V\332y\210V`|\210)\202v\371\372!\203\246\373T!:\235\204\255A\312=\204\325\374\346\375\323@!!8!\204\325eb\210\315\376AU#c\210`\377@!A@\\b\210\201W c\210\201X @!\210\332\211dS]{. \207" [buffer-file-name default-directory c-macro-preprocessor c-macro-cppflags small-temporary-file-directory temporary-file-directory get-buffer-create " *C Macro Expansion*" string-match regexp-quote 0 nil buffer-name format "Invoking %s%s%s on region..." "" " " "??? !!! ??? start of c-macro expansion ??? !!! ???" make-temp-file expand-file-name "cmacexp" ((kill-buffer outbuf)) syntax-table erase-buffer set-syntax-table insert-buffer-substring 1 "\n" parse-partial-sexp count-lines re-search-backward "\n#\\(endif\\|else\\)\\>" move 3 (nil nil nil 0 nil) "\n#line %d \"%s\"\n" 4 5 7 char-to-string "*/" "/*" "//" "\\" message "%s" call-process-region t "-c" "done" buffer-size "\nPreprocessor produced no output\n" search-forward re-search-forward "^# [0-9]+ \"" "\"" beginning-of-line boundp msdos-shells file-name-nondirectory zerop file-attributes "/* Preprocessor terminated with status %s\n\n Messages from `%s':\n\n" insert-file-contents tempname exit-status startmarker startstat linenum startlinenum uniquestring mymsg filename outbuf inbuf in-syntax-table buffer-read-only end start startinstring startincomment startafterquote startinbcomment display shell-file-name cppcommand beg "\n\n*/\n" delete-file] 14 (#$ . 3760)])