HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/progmodes/
Current File : //usr/share/emacs/26.1/lisp/progmodes/cmacexp.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\234q\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\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!\202P\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\202zeb\210\364B\313\357#\203z\332`|\210\365\366\311H!\367Q\313\357#\203\232\370 \210`V\332y\210V`|\210)\202z\371\372!\203\252\373T!:\235\204\261A\312=\204\327\346\374\323@!!8\312U\204\327eb\210\315\375AU#c\210`\376@!A@\\b\210\377c\210\201W@!\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" #[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 "\n\n*/\n" 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 delete-file] 14 (#$ . 3608)])