Return to cmacexp.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/cmacexp.el, revision 1.1.1.1

1.1       root        1: 
                      2: (defun c-macro-expand (beg end)
                      3:   "Display the result of expanding all C macros occurring in the region.
                      4: The expansion is entirely correct because it uses the C preprocessor."
                      5:   (interactive "r")
                      6:   (let ((outbuf (get-buffer-create "*Macroexpansion*"))
                      7:        (tempfile "%%macroexpand%%")
                      8:        process
                      9:        last-needed)
                     10:     (save-excursion
                     11:       (set-buffer outbuf)
                     12:       (erase-buffer))
                     13:     (setq process (start-process "macros" outbuf "/lib/cpp"))
                     14:     (set-process-sentinel process '(lambda (&rest x)))
                     15:     (save-restriction
                     16:       (widen)
                     17:       (save-excursion
                     18:        (goto-char beg)
                     19:        (beginning-of-line)
                     20:        (setq last-needed (point))
                     21:        (if (re-search-backward "^[ \t]*#" nil t)
                     22:            (progn
                     23:              ;; Skip continued lines.
                     24:              (while (progn (end-of-line) (= (preceding-char) ?\\))
                     25:                (forward-line 1))
                     26:              ;; Skip the last line of the macro definition we found.
                     27:              (forward-line 1)
                     28:              (setq last-needed (point)))))
                     29:       (write-region (point-min) last-needed tempfile nil 'nomsg)
                     30:       (process-send-string process (concat "#include \"" tempfile "\"\n"))
                     31:       (process-send-string process "\n")
                     32:       (process-send-region process beg end)
                     33:       (process-send-string process "\n")
                     34:       (process-send-eof process))
                     35:     (while (eq (process-status process) 'run)
                     36:       (accept-process-output))
                     37:     (delete-file tempfile)
                     38:     (save-excursion
                     39:       (set-buffer outbuf)
                     40:       (goto-char (point-max))
                     41:       (re-search-backward "\n# [12] \"\"")
                     42:       (forward-line 2)
                     43:       (while (eolp) (delete-char 1))
                     44:       (delete-region (point-min) (point)))
                     45:     (display-buffer outbuf)))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.