Current File : //usr/local/share/emacs/27.2/lisp/progmodes/cmacexp.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 1725) "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\313\225\"\202 \314 \315\316\n \317\230\203( \317\202) \320 $\321\313\211\322\317\313\323\324\325\f\2069
\"! @ A B C D E F G H I J\326\216\212\214~\210\327 KIq\210\322L\330 \210\331K!\210)\332J\333M#\210)\334c\210\335\333N\"C\336\333`\"n\203\212 \333\202\213 \313\\Edb\210\337\340N\341#\203\310 \342\335N`\322\211C%\233\343\232\203\221 \313\225b\210E\336N`\"\\D\315\344DH#c\210\313\224b\210\202\221 \342C8 O\345C8 P\346C8 Q\347C8 RQ\203\351 \320\202\352 \317O\203\366 \350O!\202 P\203\377 \351\202 \317\334FO\203\350O!\202 P\203\352\202 R\205 \353Q\205$\354R\211B\315\344EH#\261\210,S\203>\355\356G\"\210\357\333dT\360\211@D\322\361U&AS\203]\355\356G\362P\"\210\363 \313U\203j\364c\210\202zeb\210\365B\322\360#\203z\333`|\210\366\367\311H!\370Q\322\360#\203\232\371 \210` V\333y\210V`|\210)\202z\372\373!\203\252\374T!;\235\204\261A\313=\204\334\375\324@!!\3478\262\313U\204\334eb\210\315\376AU#c\210`\377@!A@\\b\210\201W c\210\201X @!\210\333\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 substring 0 buffer-name format "Invoking %s%s%s on region..." "" " " "??? !!! ??? start of c-macro expansion ??? !!! ???" nil make-temp-file expand-file-name "cmacexp" #[nil "\301!\207" [outbuf kill-buffer] 2] 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 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 (#$ . 3608)])
Mini Shell