;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| cr )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&#&`lj%욃ƕb&`\"\\#cƔb8.8082842΂..!0..!042R#,;4!dǁ@ABQ&;XCP!D UiEcwebF!`|GH!IQ#y`JyJ`|)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)])