;ELC ;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Mon Aug 4 02:18:30 1997 ;;; from file /home/fsf/rms/e19/lisp/progmodes/cpp.el ;;; in Emacs version 20.0.92.8 ;;; with bytecomp version 2.33 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cpp.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'cpp nil "Highlight or hide text according to cpp conditionals." :group 'C :prefix "cpp-") (custom-declare-variable 'cpp-config-file '(convert-standard-filename ".cpp.el") "*File name to save cpp configuration." :type 'file :group 'cpp) (custom-declare-variable 'cpp-known-face ''invisible "*Face used for known cpp symbols." :type 'face :group 'cpp) (custom-declare-variable 'cpp-unknown-face ''highlight "*Face used for unknown cpp symbols." :type 'face :group 'cpp) (custom-declare-variable 'cpp-face-type ''light "*Indicate what background face type you prefer.\nCan be either light or dark for color screens, mono for monochrome\nscreens, and none if you don't use a window system." :options '(light dark mono nil) :type 'symbol :group 'cpp) (custom-declare-variable 'cpp-known-writable 't "*Non-nil means you are allowed to modify the known conditionals." :type 'boolean :group 'cpp) (custom-declare-variable 'cpp-unknown-writable 't "*Non-nil means you are allowed to modify the unknown conditionals." :type 'boolean :group 'cpp) (custom-declare-variable 'cpp-edit-list 'nil "Alist of cpp macros and information about how they should be displayed.\nEach entry is a list with the following elements:\n0. The name of the macro (a string).\n1. Face used for text that is `ifdef' the macro.\n2. Face used for text that is `ifndef' the macro.\n3. `t', `nil', or `both' depending on what text may be edited." :type '(repeat (list string face face (choice (const t) (const nil) (const both)))) :group 'cpp) (byte-code "! B! B B‡" [boundp cpp-overlay-list nil current-load-list make-variable-buffer-local cpp-callback-data cpp-state-stack] 2) #@61 Alist of strings and names of the defined face collections. (defconst cpp-face-type-list '(("light color background" . light) ("dark color background" . dark) ("monochrome" . mono) ("tty" . none)) (#$ . 2223)) (byte-code "\nB!\nB!\nB! \nBŇ" [(("writable" . t) ("read-only")) cpp-writable-list current-load-list boundp cpp-button-event nil cpp-edit-buffer make-variable-buffer-local (("false") ("true" . t) ("both" . both)) cpp-branch-list] 2) (custom-declare-variable 'cpp-face-default-list 'nil "Alist of faces you can choose from for cpp conditionals.\nEach element has the form (STRING . FACE), where STRING\nserves as a name (for `cpp-highlight-buffer' only)\nand FACE is either a face (a symbol)\nor a cons cell (background-color . COLOR)." :type '(repeat (cons string (choice face (cons (const background-color) string)))) :group 'cpp) (custom-declare-variable 'cpp-face-light-name-list ''("light gray" "light blue" "light cyan" "light yellow" "light pink" "pale green" "beige" "orange" "magenta" "violet" "medium purple" "turquoise") "Background colours useful with dark foreground colors." :type '(repeat string) :group 'cpp) (custom-declare-variable 'cpp-face-dark-name-list ''("dim gray" "blue" "cyan" "yellow" "red" "dark green" "brown" "dark orange" "dark khaki" "dark violet" "purple" "dark turquoise") "Background colours useful with light foreground colors." :type '(repeat string) :group 'cpp) (custom-declare-variable 'cpp-face-light-list 'nil "Alist of names and faces to be used for light backgrounds." :type '(repeat (cons string face)) :group 'cpp) (custom-declare-variable 'cpp-face-dark-list 'nil "Alist of names and faces to be used for dark backgrounds." :type '(repeat (cons string face)) :group 'cpp) (custom-declare-variable 'cpp-face-mono-list ''(("bold" . bold) ("bold-italic" . bold-italic) ("italic" . italic) ("underline" . underline)) "Alist of names and faces to be used for monochrome screens." :type '(repeat (cons string face)) :group 'cpp) (custom-declare-variable 'cpp-face-none-list ''(("default" . default) ("invisible" . invisible)) "Alist of names and faces available even if you don't use a window system." :type '(repeat (cons string face)) :group 'cpp) #@63 All faces used for highlighting text inside cpp conditionals. (defvar cpp-face-all-list (append cpp-face-light-list cpp-face-dark-list cpp-face-mono-list cpp-face-none-list) (#$ . 4460)) #@46 List of cpp macros used in the local buffer. (defvar cpp-parse-symbols nil (#$ . 4653)) (byte-code "!QB" [make-variable-buffer-local cpp-parse-symbols "'\\|\"\\|/\\*\\|//\\|" "\\(^[ ]*#[ ]*\\(ifdef\\|ifndef\\|if\\|" "elif\\|else\\|endif\\)\\b\\)" cpp-parse-regexp current-load-list] 3) #@238 Highlight C code according to preprocessor conditionals. This command pops up a buffer which you should edit to specify what kind of highlighting to use, and the criteria for highlighting. A prefix arg suppresses display of that buffer. (defalias 'cpp-highlight-buffer #[(arg) "=>!   eb! #D`eZ_ \"єѕ{ӘQԘ]єb֏@טs#@!@ܘw@ޔ`Tߔߕ{ޕ`{ !\"#!䘃 #\"$?!昃 #\"$?!瘃 #\"$?!蘃ĉ)*#\"\"* #\"$?!옃* ! @@? @A@#\"F/#\"\"/ B )?!;#\"\"?!,)(!) [ @8b!))6h ?h " [buffer-invisibility-spec t cpp add-to-invisibility-spec nil cpp-parse-symbols cpp-parse-reset cpp-edit-list cpp-edit-load cpp-state-stack cpp-progress-message "Parsing..." re-search-forward cpp-parse-regexp "Parsing...%d%%" 100 buffer-size 0 match "'" "\"" (forward-sexp) ((error (cpp-parse-error "Unterminated string or character"))) "/*" search-forward "*/" error "Unterminated comment" "//" "^\n " 1 2 expr type to from "ifdef" cpp-parse-open "ifndef" "if" "elif" cpp-unknown-face cpp-known-face cpp-parse-close "else" cpp-parse-error "Top level #else" entry "endif" "Parser error" message "Parsing...done" 3 "Unclosed conditional" arg cpp-parse-edit] 6 (#$ . 4962) "P"]) #@70 Push information about conditional-beginning onto `cpp-state-stack'. (defalias 'cpp-parse-open #[(branch expr begin end) "\n\"\nÉO\nÕOP\n\"#\nÉO\n\"0\nÉO\n\"F\nÉO\nÕOP0\n \nF B \n\f`\n\fB\f\n\"o \n\" \n\"" [string-match "\\b[ ]*/\\*.*\\*/[ ]*\\b" expr 0 nil "\\b[ ]*/\\*" "\\b[ ]*\\(//.*\\)?$" "[ ]+" branch begin end cpp-state-stack cpp-parse-symbols assoc cpp-edit-list cpp-make-known-overlay cpp-make-unknown-overlay] 4 (#$ . 6298)]) (defalias 'cpp-parse-close #[(from to) " @A@\n\" @@ @8 @8 A*ɂ+8?8= G  \"\f  \"\fB `\f #=o\f!~=~\f#\f!\f!, \"," [assoc cpp-state-stack cpp-edit-list 2 3 end begin branch entry 1 make-overlay from overlay priority read-only face cpp-make-known-overlay to cpp-overlay-list overlay-put invisible cpp-make-overlay-hidden default cpp-make-overlay-read-only cpp-make-overlay-sticky cpp-make-unknown-overlay] 6]) (defalias 'cpp-parse-error #[(error) "e`\"#" [error "%s at line %d" count-lines] 6]) #@46 Reset display of cpp conditionals to normal. (defalias 'cpp-parse-reset #[nil "@!A‡" [cpp-overlay-list delete-overlay nil] 3 (#$ . 7401) nil]) #@48 Edit display information for cpp conditionals. (defalias 'cpp-parse-edit #[nil "!p!  )" [cpp-parse-symbols cpp-highlight-buffer t buffer pop-to-buffer "*CPP Edit*" cpp-edit-mode cpp-edit-buffer cpp-edit-reset] 2 (#$ . 7564) nil]) (defalias 'cpp-make-known-overlay #[(start end) " \n\"\f= !/\f= \f#\n/ # # B)" [make-overlay start end overlay cpp-known-face invisible cpp-make-overlay-hidden default overlay-put face cpp-known-writable modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only) cpp-overlay-list] 4]) (defalias 'cpp-make-unknown-overlay #[(start end) " \n\"\f= !\f= \f#\n/ # # B)" [make-overlay start end overlay cpp-unknown-face invisible cpp-make-overlay-hidden default overlay-put face cpp-unknown-writable modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only) cpp-overlay-list] 4]) (defalias 'cpp-make-overlay-hidden #[(overlay) " # # # #" [overlay-put overlay invisible cpp intangible t modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4]) (defalias 'cpp-make-overlay-read-only #[(overlay) " # # #" [overlay-put overlay modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only) insert-behind-hooks (cpp-signal-read-only)] 4]) (defalias 'cpp-make-overlay-sticky #[(overlay) " # #" [overlay-put overlay insert-in-front-hooks (cpp-grow-overlay) insert-behind-hooks (cpp-grow-overlay)] 4]) (defalias 'cpp-signal-read-only #[(overlay after start end &optional len) "?\n! W\n! V!" [after overlay-start overlay start overlay-end end error "This text is read only"] 2]) (defalias 'cpp-grow-overlay #[(overlay after start end &optional len) "\n \n!^ \n!]#" [after move-overlay overlay start overlay-start end overlay-end] 6]) (byte-code "! B  ! # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #!: B!" [boundp cpp-edit-map nil current-load-list make-keymap suppress-keymap define-key [down-mouse-2] cpp-push-button [mouse-2] ignore " " scroll-up "" scroll-down [delete] "" cpp-edit-apply "a" "A" "r" cpp-edit-reset "R" "s" cpp-edit-save "S" "l" cpp-edit-load "L" "h" cpp-edit-home "H" "b" cpp-edit-background "B" "k" cpp-edit-known "K" "u" cpp-edit-unknown "t" cpp-edit-true "T" "f" cpp-edit-false "F" "w" cpp-edit-write "W" "X" cpp-edit-toggle-known "x" "Y" cpp-edit-toggle-unknown "y" "q" bury-buffer "Q" cpp-edit-symbols make-variable-buffer-local] 4) #@178 Major mode for editing the criteria for highlighting cpp conditionals. Click on objects to change them. You can also use the keyboard accelerators indicated like this: [K]ey. (defalias 'cpp-edit-mode #[nil " !  !" [kill-all-local-variables buffer-disable-undo auto-save-mode -1 t buffer-read-only cpp-edit-mode major-mode "CPP Edit" mode-name use-local-map cpp-edit-map] 2 (#$ . 10296)]) #@54 Apply edited display information to original buffer. (defalias 'cpp-edit-apply #[nil " !" [cpp-edit-home cpp-highlight-buffer t] 2 (#$ . 10710) nil]) #@49 Reset display information from original buffer. (defalias 'cpp-edit-reset #[nil "p `qq\n c!\"ѱ\"c\"c\"c\"cc\"@\"c#!$c'(\"@\"c+!$c.(\"@\"%c\nf\n@668\"9A@:98<998?\nA9::@=<<@=?=A98\"896GBV6CBOD\"E6\"c:!F6G%HcRςT )Y\n \f\nDDqD$#+" [format "%s" name nil to from padding 0 make-string 32 face assoc cpp-face-all-list check (default invisible) bold add-text-properties append (mouse-face highlight) cpp-callback callback data cpp-data] 10]) (defalias 'cpp-push-button #[(event) " A@)@)!q A@)A@:#\nA@@&\nA@) \" \"  E \"!T\f\"T\f\"!," [window-buffer event position pos get-text-property cpp-data cpp-callback cpp-button-event fun cpp-callback-data call-interactively lookup-key global-map [down-mouse-2] [down-mouse-2]] 5 nil "@e"]) (defalias 'cpp-create-bg-face #[(color) "BB" [color background-color] 3]) (byte-code " \n\n!" [cpp-choose-default-face window-system cpp-face-type none] 2) (defalias 'cpp-face-name #[(face) " \n \"\f@ \")" [rassq face default cpp-face-all-list entry format "<%s>"] 4]) (byte-code "! B" [boundp cpp-progress-time 0 current-load-list] 2) (defalias 'cpp-progress-message #[(&rest args) " A@\nU?  \")" [current-time time cpp-progress-time apply message args] 4]) (provide 'cpp)