Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
antlr-mode.elc
77.56
KB
-rw-r--r--
asm-mode.elc
7.42
KB
-rw-r--r--
autoconf.elc
4.55
KB
-rw-r--r--
bat-mode.elc
6.56
KB
-rw-r--r--
bug-reference.elc
7.3
KB
-rw-r--r--
cc-align.elc
39.52
KB
-rw-r--r--
cc-awk.elc
17.95
KB
-rw-r--r--
cc-bytecomp.elc
10.56
KB
-rw-r--r--
cc-cmds.elc
97.51
KB
-rw-r--r--
cc-defs.elc
66.37
KB
-rw-r--r--
cc-engine.elc
231.26
KB
-rw-r--r--
cc-fonts.elc
153.13
KB
-rw-r--r--
cc-guess.elc
13.35
KB
-rw-r--r--
cc-langs.elc
110.05
KB
-rw-r--r--
cc-menus.elc
8.05
KB
-rw-r--r--
cc-mode.elc
227.86
KB
-rw-r--r--
cc-styles.elc
16.66
KB
-rw-r--r--
cc-vars.elc
77.01
KB
-rw-r--r--
cfengine.elc
48.18
KB
-rw-r--r--
cmacexp.elc
6.2
KB
-rw-r--r--
compile.elc
92.53
KB
-rw-r--r--
cperl-mode.elc
212.98
KB
-rw-r--r--
cpp.elc
23.2
KB
-rw-r--r--
cwarn.elc
11.9
KB
-rw-r--r--
dcl-mode.elc
50.32
KB
-rw-r--r--
ebnf-abn.elc
6.95
KB
-rw-r--r--
ebnf-bnf.elc
8.02
KB
-rw-r--r--
ebnf-dtd.elc
13.53
KB
-rw-r--r--
ebnf-ebx.elc
8.12
KB
-rw-r--r--
ebnf-iso.elc
7.77
KB
-rw-r--r--
ebnf-otz.elc
8.47
KB
-rw-r--r--
ebnf-yac.elc
7.4
KB
-rw-r--r--
ebnf2ps.elc
121.12
KB
-rw-r--r--
ebrowse.elc
202.8
KB
-rw-r--r--
elisp-mode.elc
58.74
KB
-rw-r--r--
etags.elc
61.3
KB
-rw-r--r--
executable.elc
7.83
KB
-rw-r--r--
f90.elc
95.13
KB
-rw-r--r--
flymake-cc.elc
3.55
KB
-rw-r--r--
flymake-proc.elc
38.04
KB
-rw-r--r--
flymake.elc
63.5
KB
-rw-r--r--
fortran.elc
59.75
KB
-rw-r--r--
gdb-mi.elc
188.72
KB
-rw-r--r--
glasses.elc
10.37
KB
-rw-r--r--
grep.elc
40.95
KB
-rw-r--r--
gud.elc
98.55
KB
-rw-r--r--
hideif.elc
48.36
KB
-rw-r--r--
hideshow.elc
25.56
KB
-rw-r--r--
icon.elc
16.75
KB
-rw-r--r--
idlw-complete-structtag.elc
4.22
KB
-rw-r--r--
idlw-help.elc
35.91
KB
-rw-r--r--
idlw-shell.elc
129.89
KB
-rw-r--r--
idlw-toolbar.elc
27.44
KB
-rw-r--r--
idlwave.elc
250.95
KB
-rw-r--r--
inf-lisp.elc
21.06
KB
-rw-r--r--
js.elc
176.3
KB
-rw-r--r--
ld-script.elc
5.44
KB
-rw-r--r--
m4-mode.elc
6.34
KB
-rw-r--r--
make-mode.elc
62.21
KB
-rw-r--r--
meta-mode.elc
31.41
KB
-rw-r--r--
mixal-mode.elc
36.18
KB
-rw-r--r--
modula2.elc
30.37
KB
-rw-r--r--
octave.elc
63.2
KB
-rw-r--r--
opascal.elc
52.47
KB
-rw-r--r--
pascal.elc
39.22
KB
-rw-r--r--
perl-mode.elc
29.41
KB
-rw-r--r--
prog-mode.elc
15.82
KB
-rw-r--r--
project.elc
17.06
KB
-rw-r--r--
prolog.elc
85.47
KB
-rw-r--r--
ps-mode.elc
33
KB
-rw-r--r--
python.elc
178.17
KB
-rw-r--r--
ruby-mode.elc
63.86
KB
-rw-r--r--
scheme.elc
18.81
KB
-rw-r--r--
sh-script.elc
116.3
KB
-rw-r--r--
simula.elc
44.83
KB
-rw-r--r--
sql.elc
182.59
KB
-rw-r--r--
subword.elc
18.77
KB
-rw-r--r--
tcl.elc
40.14
KB
-rw-r--r--
vera-mode.elc
45.08
KB
-rw-r--r--
verilog-mode.elc
450.39
KB
-rw-r--r--
vhdl-mode.elc
528.7
KB
-rw-r--r--
which-func.elc
10.4
KB
-rw-r--r--
xref.elc
56.91
KB
-rw-r--r--
xscheme.elc
38
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cpp.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\302\303\304\305\306\307\310\311& \210\312\313\314\315\316\317\306\301&\210\320\321\322\323\316\324%\210\312\325\326\327\316\321\306\301&\210\312\330\331\332\316\321\306\301&\210\312\333\334\335\336\337\316\340\306\301& \210\312\341\342\343\316\344\306\301&\210\312\345\342\346\316\344\306\301&\210\312\347\302\350\316\351\306\301&\210\312\352\353\354\316\355\306\301\356\357& \207" [custom-declare-group cpp nil "Highlight or hide text according to cpp conditionals." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group c :prefix "cpp-" custom-declare-variable cpp-config-file (convert-standard-filename ".cpp.el") "File name to save cpp configuration." :type file define-widget cpp-face lazy "Either a face or the special symbol `invisible'." (choice (const invisible) (face)) cpp-known-face 'invisible "Face used for known cpp symbols." cpp-unknown-face 'highlight "Face used for unknown cpp symbols." 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 and don't have\na color-capable display." :options (light dark mono nil) symbol cpp-known-writable t "Non-nil means you are allowed to modify the known conditionals." boolean cpp-unknown-writable "Non-nil means you are allowed to modify the unknown conditionals." cpp-edit-list "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." (repeat (list (string :tag "Macro") (cpp-face :tag "True") (cpp-face :tag "False") (choice (const :tag "True branch writable" t) (const :tag "False branch writable" nil) (const :tag "Both branches writable" both)))) cpp-message-min-time-interval 1.0 "Minimum time interval in seconds for `cpp-progress-message' messages.\nIf nil, `cpp-progress-message' prints no progress messages." (choice (const :tag "Disable progress messages" nil) float) :version "26.1"] 10) (defvar cpp-overlay-list nil) (make-variable-buffer-local 'cpp-overlay-list) #@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)) (#$ . 2697)) (defconst cpp-writable-list '(("writable" . t) ("read-only"))) (defvar cpp-button-event nil) (defvar cpp-edit-buffer nil) (make-variable-buffer-local 'cpp-edit-buffer) (defconst cpp-branch-list '(("false") ("true" . t) ("both" . both))) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\302\321\304\322\306\307&\210\300\323\302\324\304\325\306\307&\210\300\326\327\330\304\331\306\307&\210\300\332\333\334\304\335\306\307&\207" [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 (alist :key-type (string :tag "Name") :value-type (choice face (const invisible) (cons (const background-color) (string :tag "Color")))) :group cpp 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 colors useful with dark foreground colors." (repeat string) cpp-face-dark-name-list '("dim gray" "blue" "cyan" "yellow" "red" "dark green" "brown" "dark orange" "dark khaki" "dark violet" "purple" "dark turquoise") "Background colors useful with light foreground colors." (repeat string) cpp-face-light-list "Alist of names and faces to be used for light backgrounds." (repeat (cons string (choice face (cons (const background-color) string)))) cpp-face-dark-list "Alist of names and faces to be used for dark backgrounds." (repeat (cons string (choice face (cons (const background-color) string)))) 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." (repeat (cons string face)) cpp-face-none-list '(("default" . default) ("invisible" . invisible)) "Alist of names and faces available even if you don't use a window system." (repeat (cons string cpp-face))] 8) #@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) (#$ . 5055)) #@46 List of cpp macros used in the local buffer. (defvar cpp-parse-symbols nil (#$ . 5248)) (make-variable-buffer-local 'cpp-parse-symbols) (defconst cpp-parse-regexp "'\\|\"\\|/\\*\\|//\\|\\(^[ ]*#[ ]*\\(ifdef\\|ifndef\\|if\\|elif\\|else\\|endif\\)\\b\\)") #@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) "\306=\204 \307>\204 \310\307!\210\311\312 \210\n\204 \313 \210\311\212eb\210\314\315!\210\316\f\311\306#\203C\314\317\320\321`eZ_\322 \"\"\210\323\224\323\225{\211 \324\230\204M \325\230\203c \323\224b\210\3261[ \327 0\202_ \210\330\331!\210\202? \332\230\203x \333\334\311\306#\204?\335\336!\210\202? \337\230\203\205 \340\311w\210\202?\341\210\341\224`T\342\224\342\225{\341\225`{ 1 2 3 42\343\230\203\261 \344\306143$\210\202>2\345\230\203\305 \344\311143$\210\202>2\346\230\203\331 \344\306143$\210\202>2\347\230\203\373 \311\211 5 6\35043\"\210*\344\306143$\210\202>2\351\230\203) \204\n\330\352!\210 @@? @A@43F 7\35043\"\2107 B)\202>2\353\230\203:\35043\"\210\202>\330\354!\210,)\202& \314\355!\210) \203X\212\356 @8b\210\330\357!\210))8\206e ?\206e\360 \207" [buffer-invisibility-spec cpp-parse-symbols cpp-edit-list cpp-state-stack cpp-parse-regexp match t cpp add-to-invisibility-spec nil cpp-parse-reset cpp-edit-load cpp-progress-message "Parsing..." re-search-forward "Parsing...%d%%" floor 100.0 buffer-size 0 "'" "\"" (error) forward-sexp cpp-parse-error "Unterminated string or character" "/*" search-forward "*/" error "Unterminated comment" "//" "^\n " 1 2 "ifdef" cpp-parse-open "ifndef" "if" "elif" cpp-parse-close "else" "Top level #else" "endif" "Parser error" "Parsing...done" 3 "Unclosed conditional" cpp-parse-edit expr type to from cpp-unknown-face cpp-known-face entry arg] 7 (#$ . 5511) "P"]) #@70 Push information about conditional-beginning onto `cpp-state-stack'. (defalias 'cpp-parse-open #[(branch expr begin end) "\306\307\"\203 \310\311\211\224#\310\311\225\"P\202 \306\312\"\203% \310\311\211\224#\306\313\"\2033 \310\311\211\224#\306\314\"\203J \310\311\211\224#\310\311\225\"P\2023 \n F\fB \235\204\\ B\315\"\203i \316\n \"\207\317\n \"\207" [expr branch begin end cpp-state-stack cpp-parse-symbols string-match "\\b[ ]*/\\*.*\\*/[ ]*\\b" substring 0 "\\b[ ]*/\\*" "\\b[ ]*\\(//.*\\)?$" "[ ]+" assoc cpp-make-known-overlay cpp-make-unknown-overlay cpp-edit-list] 4 (#$ . 7270)]) (defalias 'cpp-parse-close #[(from to) "\306@A@ \"@@\307@8 A\f\203 \203 \310\202! \311\f8 ?\307\f8=G\312\n \" \313 \"\210B \203Q \314\315 #\210\316\267\202c \317!\210\202k \202k \314\320#\210\203w \321!\202{ \322!,\202\204 \323 \"+\207" [cpp-state-stack cpp-edit-list end branch entry from assoc 3 1 2 make-overlay cpp-make-known-overlay overlay-put priority #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (invisible 88 default 96)) cpp-make-overlay-hidden face cpp-make-overlay-read-only cpp-make-overlay-sticky cpp-make-unknown-overlay overlay read-only to cpp-overlay-list] 6]) (defalias 'cpp-parse-error #[(error) "\300\301\302e`\"#\207" [error "%s at line %d" count-lines] 6]) #@46 Reset display of cpp conditionals to normal. (defalias 'cpp-parse-reset #[nil "\205 \301@!\210A\211\204 \302\207" [cpp-overlay-list delete-overlay nil] 3 (#$ . 8665) nil]) #@48 Edit display information for cpp conditionals. (defalias 'cpp-parse-edit #[nil "\204 \303\304!\210p\305\306!\210\307 \210 \310 )\207" [cpp-parse-symbols buffer cpp-edit-buffer cpp-highlight-buffer t pop-to-buffer "*CPP Edit*" cpp-edit-mode cpp-edit-reset] 2 (#$ . 8849) nil]) (defalias 'cpp-make-known-overlay #[(start end) "\306 \" \307=\203 \310\n!\210\202. \311=\204 \312\n\313 #\210\f\204. \312\n\314\315#\210\312\n\316\317#\210\n B\211)\207" [start end overlay cpp-known-face cpp-known-writable cpp-overlay-list make-overlay invisible cpp-make-overlay-hidden default overlay-put face modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4]) (defalias 'cpp-make-unknown-overlay #[(start end) "\306 \" \307\267\202 \310\n!\210\202 \202 \311\n\312 #\210\f\204+ \311\n\313\314#\210\311\n\315\316#\210\n B\211)\207" [start end overlay cpp-unknown-face cpp-unknown-writable cpp-overlay-list make-overlay #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (invisible 11 default 18)) cpp-make-overlay-hidden overlay-put face modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4]) (defalias 'cpp-make-overlay-hidden #[(overlay) "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [overlay overlay-put invisible cpp modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4]) (defalias 'cpp-make-overlay-read-only #[(overlay) "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [overlay overlay-put 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) "\301\302\303#\210\301\304\305#\207" [overlay overlay-put 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) "?\205 \304 !\nW\204 \305 ! V\205 \306\307!\207" [after overlay start end overlay-start overlay-end error "This text is read only"] 2]) (defalias 'cpp-grow-overlay #[(overlay after start end &optional _len) "\205 \304 \n\305 !^ \306 !]#\207" [after overlay start end move-overlay overlay-start overlay-end] 6]) #@29 Keymap for `cpp-edit-mode'. (defvar cpp-edit-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\303\321\320#\210\303\322\320#\210\303\323\324#\210\303\325\324#\210\303\326\327#\210\303\330\327#\210\303\331\332#\210\303\333\332#\210\303\334\335#\210\303\336\335#\210\303\337\340#\210\303\341\340#\210\303\342\343#\210\303\344\343#\210\303\345\346#\210\303\345\346#\210\303\347\350#\210\303\351\350#\210\303\352\353#\210\303\354\353#\210\303\355\356#\210\303\357\356#\210\303\360\361#\210\303\362\361#\210\303\363\364#\210\303\365\364#\210\303\366\367#\210\303\370\367#\210)\207" [map make-keymap suppress-keymap define-key [down-mouse-2] cpp-push-button [mouse-2] ignore " " scroll-up-command [33554464] scroll-down-command "" [delete] scroll-down "" 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"] 4) (#$ . 11132)) (defvar cpp-edit-symbols nil) (make-variable-buffer-local 'cpp-edit-symbols) (defvar cpp-edit-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [cpp-edit-mode-hook variable-documentation put "Hook run after entering CPP Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cpp-edit-mode-map definition-name cpp-edit-mode] 4) (defvar cpp-edit-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [cpp-edit-mode-abbrev-table cpp-edit-mode-map variable-documentation put purecopy "Keymap for `cpp-edit-mode'." boundp cpp-edit-mode-syntax-table definition-name cpp-edit-mode (lambda (#1=#:def-tmp-var) (defvar cpp-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cpp-edit-mode'." (lambda (#1#) (defvar cpp-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cpp-edit-mode'." derived-mode-parent] 5) #@301 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. This mode runs the hook `cpp-edit-mode-hook', as the final or penultimate step during initialization. \{cpp-edit-mode-map} (defalias 'cpp-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \210\316\317!\210\307)\320\321!\207" [delay-mode-hooks major-mode mode-name cpp-edit-mode-map cpp-edit-mode-syntax-table cpp-edit-mode-abbrev-table make-local-variable t kill-all-local-variables cpp-edit-mode "CPP Edit" use-local-map set-syntax-table buffer-disable-undo auto-save-mode -1 run-mode-hooks cpp-edit-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 13621) nil]) #@54 Apply edited display information to original buffer. (defalias 'cpp-edit-apply #[nil "\300 \210\301\302!\207" [cpp-edit-home cpp-highlight-buffer t] 2 (#$ . 14408) nil]) #@49 Reset display information from original buffer. (defalias 'cpp-edit-reset #[nil "p\306\307 `\306 q\210@\fq\210A\310 \210\311\312!c\210\313\314 !\315\"\210\311\316!\317\320\261\210\313\321\315\"\210\322c\210\313\323\324\"\210\325c\210\313\326\327\"\210\322c\210\313\330\331\"\210\332c\210\333c\210\313\334BC\"@\335\"\210\336c\210\313\337D!\340\306\341$\210\342c\210\313\334EF\"@\343\"\210\344c\210\313\337G!\345\306\341$\210\346c\210\313\334HF\"@\347\"\210\350\351\352\353\354\355%c\210\356!\203K@ I\357IJ\"\211 KA@ L\360K8 MK\203\306 \361K8\202\307 \362 NAK\203\373 L\203\335 L\363=\203\373 M\203\351 M\363=\203\373 N\362=\203\373 \364KJ\"J\306KIG\365V\203\366I\367\365#\370\261\210\202\350\371I\"c\210\313\337L!\372I\341\373%\210\374c\210\313\337M!\375I\341\373%\210\374c\210\313\334NO\"@\376I\306\377%\210\325c\210-\202\237 \332c\210\201P \306\n\"\210 b-\207" [symbols pos start buffer-read-only buffer cpp-edit-buffer nil window-start erase-buffer substitute-command-keys "CPP Display Information for `" cpp-make-button buffer-name cpp-edit-home "'\n\nClick mouse-2 on item you want to change or use\n" "or switch to this buffer and type the keyboard equivalents.\n" "Keyboard equivalents are indicated with brackets like [T]his.\n\n" "[H]ome (display the C file)" " " "[A]pply new settings" cpp-edit-apply "\n" "[S]ave settings" cpp-edit-save "[L]oad settings" cpp-edit-load "\n\n" "[B]ackground: " rassq cpp-edit-background "\n[K]nown conditionals: " cpp-face-name cpp-edit-known t " [X] " cpp-edit-toggle-known "\n[U]nknown conditionals: " cpp-edit-unknown " [Y] " cpp-edit-toggle-unknown format "\n\n\n%39s: %14s %14s %7s\n\n" "Expression" "[T]rue Face" "[F]alse Face" "[W]rite" reverse assoc 2 3 both default delq 39 substring 0 ": " "%39s: " cpp-edit-true 14 " " cpp-edit-false cpp-edit-write 6 cpp-parse-symbols cpp-edit-symbols cpp-face-type cpp-face-type-list cpp-known-face cpp-known-writable cpp-writable-list cpp-unknown-face cpp-unknown-writable symbol cpp-edit-list entry true false write cpp-branch-list set-window-start] 7 (#$ . 14584) nil]) (defalias 'cpp-locate-user-emacs-file #[(file) "\301\302H\303=\203 \304\305\"\202 \"\207" [file locate-user-emacs-file 0 46 substring 1] 4]) #@25 Load cpp configuration. (defalias 'cpp-edit-load #[nil "\203 \302 !\203 \303 !\210\202 \302\304 !!\203 \303\304 !!\210\305\306!\205' \307 \207" [init-file-user cpp-config-file file-readable-p load-file cpp-locate-user-emacs-file derived-mode-p cpp-edit-mode cpp-edit-reset] 3 (#$ . 16854) nil]) #@47 Save the current cpp configuration in a file. (defalias 'cpp-edit-save #[nil "\306\307!\210rq\210\310 !\203 \202 \311 !\312\n!\211q\210\313 \210\307\314\304\315\fDE \"\210\307\314\305\315 DE \"\210\307\314\316\315DE \"\210\307\314\317\315DE \"\210\307\314\320\315DE \"\210\307\314\321\315DE \"\210\322\n!+\207" [cpp-edit-buffer cpp-config-file config-file buffer cpp-known-face cpp-unknown-face require pp file-writable-p cpp-locate-user-emacs-file find-file-noselect erase-buffer setq quote cpp-face-type cpp-known-writable cpp-unknown-writable cpp-edit-list write-file] 6 (#$ . 17160) nil]) #@33 Switch back to original buffer. (defalias 'cpp-edit-home #[nil "\203 \302 \210\303 !\207" [cpp-button-event cpp-edit-buffer read-event pop-to-buffer] 2 (#$ . 17773) nil]) #@33 Change default face collection. (defalias 'cpp-edit-background #[nil "\300\301!\210\302 \207" [call-interactively cpp-choose-default-face cpp-edit-reset] 2 (#$ . 17952) nil]) #@40 Select default for known conditionals. (defalias 'cpp-edit-known #[nil "\301\302\"\303 \207" [cpp-known-face cpp-choose-face "Known face" cpp-edit-reset] 3 (#$ . 18133) nil]) #@42 Select default for unknown conditionals. (defalias 'cpp-edit-unknown #[nil "\301\302\"\303 \207" [cpp-unknown-face cpp-choose-face "Unknown face" cpp-edit-reset] 3 (#$ . 18316) nil]) #@147 Toggle writable status for known conditionals. With optional argument ARG, make them writable if ARG is positive, otherwise make them unwritable. (defalias 'cpp-edit-toggle-known #[(arg) "\204 \204 \302!\303X\203 \304\202 \305\306 \207" [arg cpp-known-writable prefix-numeric-value 0 nil t cpp-edit-reset] 2 (#$ . 18508) "@P"]) #@149 Toggle writable status for unknown conditionals. With optional argument ARG, make them writable if ARG is positive, otherwise make them unwritable. (defalias 'cpp-edit-toggle-unknown #[(arg) "\204 \204 \302!\303X\203 \304\202 \305\306 \207" [arg cpp-unknown-writable prefix-numeric-value 0 nil t cpp-edit-reset] 2 (#$ . 18852) "@P"]) #@69 Select SYMBOL's true FACE used for highlighting taken conditionals. (defalias 'cpp-edit-true #[(symbol face) "\302!A \240\210\303 \207" [symbol face cpp-edit-list-entry-get-or-create cpp-edit-reset] 2 (#$ . 19201) (let ((symbol (cpp-choose-symbol))) (list symbol (cpp-choose-face "True face" (nth 1 (assoc symbol cpp-edit-list)))))]) #@72 Select SYMBOL's false FACE used for highlighting untaken conditionals. (defalias 'cpp-edit-false #[(symbol face) "\302!AA \240\210\303 \207" [symbol face cpp-edit-list-entry-get-or-create cpp-edit-reset] 2 (#$ . 19542) (let ((symbol (cpp-choose-symbol))) (list symbol (cpp-choose-face "False face" (nth 2 (assoc symbol cpp-edit-list)))))]) #@131 Set which branches of SYMBOL should be writable to BRANCH. BRANCH should be either nil (false branch), t (true branch) or `both'. (defalias 'cpp-edit-write #[(symbol branch) "\302\303!\233 \240\210\304 \207" [symbol branch 3 cpp-edit-list-entry-get-or-create cpp-edit-reset] 3 (#$ . 19890) (list (cpp-choose-symbol) (cpp-choose-branch))]) (defalias 'cpp-edit-list-entry-get-or-create #[(symbol) "\303 \"\211\204 \304\211\305\304\257\211 B\n)\207" [symbol cpp-edit-list entry assoc nil both] 6]) (defalias 'cpp-choose-symbol #[nil "\203 \207\303\304\n\305\306$\207" [cpp-button-event cpp-callback-data cpp-edit-symbols completing-read "Symbol: " nil t] 5]) (defalias 'cpp-choose-branch #[nil "\203 \302\303\211 BD\"\207\304\305\306 \307\310$ \"A\207" [cpp-button-event cpp-branch-list x-popup-menu "Branch" assoc completing-read "Branch: " nil t] 6]) (defalias 'cpp-choose-face #[(prompt default) "\203 \306 \211\nBD\"\202. \307 \n\"@ \310\311\f\203# \312\f\313R\202& \314P\n\315\316$ \"A)\2062 \207" [cpp-button-event prompt cpp-face-default-list default name cpp-face-all-list x-popup-menu rassq assoc completing-read " (default " "): " ": " nil t] 6]) (defalias 'cpp-choose-default-face #[(type) "?\206Q \306\267\202K \204 \307\310\n\"\311 \"\312\311 \"\211\207\2045 \307\310\"\311 \"\313\311 \"\211\207\314\311 \"\211\207\315 \211\207" [type cpp-face-light-list cpp-face-light-name-list cpp-face-all-list cpp-face-type cpp-face-none-list #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (light 11 dark 35 mono 64)) mapcar cpp-create-bg-face append light dark mono none cpp-face-default-list cpp-face-dark-list cpp-face-dark-name-list cpp-face-mono-list] 3 nil (list (if cpp-button-event (x-popup-menu cpp-button-event (list "Screen type" (cons "Screen type" cpp-face-type-list))) (cdr (assoc (completing-read "Screen type: " cpp-face-type-list nil t) cpp-face-type-list))))]) (defalias 'cpp-make-button #[(name callback &optional data face padding) "\306\307\"\310\211 \204 `c\210\2026 G V\203( `\311\312 #c\210\2026 \313 GZ\314\"c\210`c\210`\f\203S \315 \"A\211 \316>\203M \317\202O )\202T \317\320\n \321\304\fD\322\323\324D\205k \325D%#+\207" [name to from padding face cpp-face-all-list format "%s" nil substring 0 make-string 32 assoc (default invisible) bold add-text-properties append (mouse-face highlight) (help-echo "mouse-2: change/use this item") cpp-callback cpp-data check callback data] 11]) (defalias 'cpp-push-button #[(event) "\306\307!\211@\262!q\210\310\307!!\311 \312\"\311 \313\" \203* \314\311 \313\"!\2027 \315 \316\"\2057 \314\315 \317\"!,\207" [event pos cpp-button-event fun cpp-callback-data global-map window-buffer event-start posn-point get-text-property cpp-data cpp-callback call-interactively lookup-key [down-mouse-2] [down-mouse-2]] 4 nil "@e"]) (defalias 'cpp-create-bg-face #[(color) "\301BB\207" [color background-color] 3]) (byte-code "\302\204\n \303 \203 \202 \304!\207" [window-system cpp-face-type cpp-choose-default-face display-color-p none] 2) (defalias 'cpp-face-name #[(face) "\303\203 \202\n \304 \"\211\203 \n@\202 \305\306\")\207" [face cpp-face-all-list entry rassq default format "<%s>"] 4]) #@61 Last time `cpp-progress-message' issued a progress message. (defvar cpp-progress-time 0 (#$ . 23180)) #@222 Report progress by printing messages used by "cpp-" functions. Print messages at most once every `cpp-message-min-time-interval' seconds. If that option is nil, don't prints messages. ARGS are the same as for `message'. (defalias 'cpp-progress-message #[(&rest args) "\205 \304 \305\306 \n\"\"?\205 \307\310 \")\207" [cpp-message-min-time-interval time cpp-progress-time args current-time time-less-p time-subtract apply message] 5 (#$ . 23289)]) (provide 'cpp)
Close
