;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  2 20:18:46 1995
;;; from file /gd/gnu/emacs/19.0/lisp/cmacexp.el
;;; emacs version 19.28.90.69.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/cmacexp.el' was compiled for Emacs 19"))


(provide (quote cmacexp))
#@72 *Non-nil means shrink the *Macroexpansion* window to fit its contents.
(defvar c-macro-shrink-window-flag nil (#$ . -509))
#@68 *Non-nil makes `c-macro-expand' prompt for preprocessor arguments.
(defvar c-macro-prompt-flag nil (#$ . -638))
#@157 The preprocessor used by the cmacexp package.

If you change this, be sure to preserve the `-C' (don't strip comments)
option, or to set an equivalent one.
(defvar c-macro-preprocessor "/lib/cpp -C" (#$ . 757))
#@47 *Preprocessor flags used by `c-macro-expand'.
(defvar c-macro-cppflags "" (#$ . -974))
(byte-code "\nB" ["*Macroexpansion*" c-macro-buffer-name current-load-list] 2)
#@434 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.
Prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include')
if the user option `c-macro-prompt-flag' is non-nil.

Noninteractive args are START, END, SUBST.
For use inside Lisp programs, see also `c-macro-expansion'.
(defalias 'c-macro-expand #[(start end subst) "p \n! \n!  \"J \fJ J =J !!J \n!Q$v `U|cr  ) q\f! c!Ę !  \f !+" [subst get-buffer c-macro-buffer-name get-buffer-create "" expansion displaybuf inbuf c-macro-prompt-flag read-string "Preprocessor arguments: " c-macro-cppflags buffer-read-only inhibit-read-only message "Buffer is read only: displaying expansion in alternate window" sit-for 2 nil c-macro-expansion start end c-macro-preprocessor " " t exchange exchange-point-and-mark buffer-disable-undo erase-buffer set-buffer-modified-p "Null expansion" c-macro-display-buffer buffer-auto-save-file-name bury-buffer] 6 (#$ . 1153) "r\nP"])
(defalias 'c-macro-display-buffer #[nil "eb  p!  p\" U?	j - \fj  ˉ\fp!!G  I  ҥ\f\fd!\\]^ Z!eb!,+" [c-mode window-height get-buffer-window nil popped alreadythere oldwinheight display-buffer t c-macro-shrink-window-flag selected-window 0 maxheight minheight oldwin select-window window-min-height screen-height 2 enlarge-window vertical-motion] 5])
#@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!\n !\n\" \nƕO  \f͘* ͂+ \f$Ɖ!ݎ~q !!$#)c&\"`\"n も \\db&# &`ǉ%욃 ƕb&`\"\\#cƔb 8.8082842 ΂ . .! 0  ..!042R#,;4!dǁ@ AB Q&;XC P!D  UiE cwebF !`|G H !I Q#y`JyJ`|)w=ebɁK \"cL !cM !dZ]{." [get-buffer-create " *C Macro Expansion*" buffer-file-name string-match regexp-quote default-directory 0 nil buffer-name format "Invoking %s%s%s on region..." c-macro-preprocessor c-macro-cppflags "" " " "???!!!???!!! start of c-macro expansion ???!!!???!!!" make-temp-name "/tmp/" tempname exit-status startmarker startstat linenum startlinenum uniquestring mymsg filename outbuf inbuf ((kill-buffer outbuf)) buffer-read-only erase-buffer set-syntax-table c-mode-syntax-table insert-buffer-substring 1 end parse-partial-sexp start count-lines re-search-backward "\n#\\(endif\\|else\\)\\>" move 3 (nil nil nil 0 nil) "\n#line %d \"%s\"\n" startinstring 4 startincomment 5 startafterquote 7 startinbcomment char-to-string "*/" "\n" "/*" "//" "\\" display message call-process-region "sh" t "-c" cppcommand " 2>" "done" buffer-size "\nPreprocessor produced no output\n" search-forward re-search-forward "^# [0-9]+ \"" "\"" beg "Preprocessor terminated with status %s\n" insert-file-contents delete-file] 12 (#$ . 2753)])
