Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
ada-mode.elc
107.46
KB
-rw-r--r--
ada-prj.elc
17.96
KB
-rw-r--r--
ada-stmt.elc
36.03
KB
-rw-r--r--
ada-xref.elc
54.99
KB
-rw-r--r--
antlr-mode.elc
77.63
KB
-rw-r--r--
asm-mode.elc
6.08
KB
-rw-r--r--
autoconf.elc
3.37
KB
-rw-r--r--
bug-reference.elc
5.83
KB
-rw-r--r--
cap-words.elc
3.54
KB
-rw-r--r--
cc-align.elc
35.43
KB
-rw-r--r--
cc-awk.elc
20.23
KB
-rw-r--r--
cc-bytecomp.elc
10.45
KB
-rw-r--r--
cc-cmds.elc
92.26
KB
-rw-r--r--
cc-compat.elc
2.97
KB
-rw-r--r--
cc-defs.elc
46.7
KB
-rw-r--r--
cc-engine.elc
143.05
KB
-rw-r--r--
cc-fonts.elc
140.72
KB
-rw-r--r--
cc-langs.elc
70.29
KB
-rw-r--r--
cc-menus.elc
7.32
KB
-rw-r--r--
cc-mode.elc
144.75
KB
-rw-r--r--
cc-styles.elc
16.11
KB
-rw-r--r--
cc-subword.elc
6.99
KB
-rw-r--r--
cc-vars.elc
71.07
KB
-rw-r--r--
cfengine.elc
8.09
KB
-rw-r--r--
cmacexp.elc
6.58
KB
-rw-r--r--
compile.elc
69.45
KB
-rw-r--r--
cperl-mode.elc
215.39
KB
-rw-r--r--
cpp.elc
21.52
KB
-rw-r--r--
cwarn.elc
12.8
KB
-rw-r--r--
dcl-mode.elc
49.31
KB
-rw-r--r--
delphi.elc
50.03
KB
-rw-r--r--
ebnf-abn.elc
7.39
KB
-rw-r--r--
ebnf-bnf.elc
7.99
KB
-rw-r--r--
ebnf-dtd.elc
13.82
KB
-rw-r--r--
ebnf-ebx.elc
8.77
KB
-rw-r--r--
ebnf-iso.elc
8.14
KB
-rw-r--r--
ebnf-otz.elc
8.51
KB
-rw-r--r--
ebnf-yac.elc
7.53
KB
-rw-r--r--
ebnf2ps.elc
121.25
KB
-rw-r--r--
ebrowse.elc
202.93
KB
-rw-r--r--
etags.elc
54.14
KB
-rw-r--r--
executable.elc
7.6
KB
-rw-r--r--
f90.elc
82.59
KB
-rw-r--r--
flymake.elc
61.25
KB
-rw-r--r--
fortran.elc
60.13
KB
-rw-r--r--
gdb-ui.elc
138.61
KB
-rw-r--r--
glasses.elc
10.15
KB
-rw-r--r--
grep.elc
27.75
KB
-rw-r--r--
gud.elc
93.94
KB
-rw-r--r--
hideif.elc
26.67
KB
-rw-r--r--
hideshow.elc
24.54
KB
-rw-r--r--
icon.elc
16.23
KB
-rw-r--r--
idlw-complete-structtag.elc
4.75
KB
-rw-r--r--
idlw-help.elc
35.31
KB
-rw-r--r--
idlw-shell.elc
134.39
KB
-rw-r--r--
idlw-toolbar.elc
28.34
KB
-rw-r--r--
idlwave.elc
254.7
KB
-rw-r--r--
inf-lisp.elc
18.43
KB
-rw-r--r--
ld-script.elc
4.91
KB
-rw-r--r--
m4-mode.elc
4.91
KB
-rw-r--r--
make-mode.elc
58.79
KB
-rw-r--r--
mantemp.elc
3.77
KB
-rw-r--r--
meta-mode.elc
27.42
KB
-rw-r--r--
mixal-mode.elc
35.32
KB
-rw-r--r--
modula2.elc
14.23
KB
-rw-r--r--
octave-inf.elc
11.87
KB
-rw-r--r--
octave-mod.elc
44.6
KB
-rw-r--r--
pascal.elc
40.31
KB
-rw-r--r--
perl-mode.elc
22.42
KB
-rw-r--r--
prolog.elc
12.7
KB
-rw-r--r--
ps-mode.elc
33.38
KB
-rw-r--r--
python.elc
86.23
KB
-rw-r--r--
ruby-mode.elc
34.59
KB
-rw-r--r--
scheme.elc
15.94
KB
-rw-r--r--
sh-script.elc
94.73
KB
-rw-r--r--
simula.elc
44.81
KB
-rw-r--r--
sql.elc
101.34
KB
-rw-r--r--
sym-comp.elc
7.15
KB
-rw-r--r--
tcl.elc
38.58
KB
-rw-r--r--
vera-mode.elc
44.5
KB
-rw-r--r--
verilog-mode.elc
331.76
KB
-rw-r--r--
vhdl-mode.elc
510.47
KB
-rw-r--r--
which-func.elc
9.72
KB
-rw-r--r--
xscheme.elc
37.76
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : hideif.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:08 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/hideif.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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 "`hideif.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require cc-mode custom-declare-group hide-ifdef nil "Hide selected code within `ifdef'." :group c] 6) #@75 Non-nil means call `hide-ifdefs' when Hide-Ifdef mode is first activated. (custom-declare-variable 'hide-ifdef-initially 'nil '(#$ . 772) :type 'boolean :group 'hide-ifdef) #@70 Set to non-nil if you want buffer to be read-only while hiding text. (custom-declare-variable 'hide-ifdef-read-only 'nil '(#$ . 951) :type 'boolean :group 'hide-ifdef) #@55 Non-nil means hide the #ifX, #else, and #endif lines. (custom-declare-variable 'hide-ifdef-lines 'nil '(#$ . 1125) :type 'boolean :group 'hide-ifdef) #@49 Non-nil means shadow text instead of hiding it. (custom-declare-variable 'hide-ifdef-shadow 'nil '(#$ . 1281) :type 'boolean :group 'hide-ifdef :version "23.1") (custom-declare-face 'hide-ifdef-shadow '((t (:inherit shadow))) "Face for shadowing ifdef blocks." :group 'hide-ifdef :version "23.1") #@70 Keymap used by `hide-ifdef-mode' under `hide-ifdef-mode-prefix-key'. (defvar hide-ifdef-mode-submap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\327\330\331#\210)\207" [map make-sparse-keymap define-key "d" hide-ifdef-define "u" hide-ifdef-undef "D" hide-ifdef-set-define-alist "U" hide-ifdef-use-define-alist "h" hide-ifdefs "s" show-ifdefs "" hide-ifdef-block "" show-ifdef-block "" hide-ifdef-toggle-read-only "" hide-ifdef-toggle-shadowing substitute-key-definition toggle-read-only hide-ifdef-toggle-outside-read-only] 4) (#$ . 1584)) #@46 Prefix key for all Hide-Ifdef mode commands. (defconst hide-ifdef-mode-prefix-key "@" (#$ . 2290)) #@37 Keymap used with `hide-ifdef-mode'. (defvar hide-ifdef-mode-map (byte-code "\303 \304 \n#\210)\207" [map hide-ifdef-mode-prefix-key hide-ifdef-mode-submap make-sparse-keymap define-key] 4) (#$ . 2396)) #@29 Menu for `hide-ifdef-mode'. (defvar hide-ifdef-mode-menu nil (#$ . 2607)) (easy-menu-do-define 'hide-ifdef-mode-menu hide-ifdef-mode-map "Menu for `hide-ifdef-mode'." '("Hide-Ifdef" ["Hide some ifdefs" hide-ifdefs :help "Hide the contents of some #ifdefs"] ["Show all ifdefs" show-ifdefs :help "Cancel the effects of `hide-ifdef': show the contents of all #ifdefs"] ["Hide ifdef block" hide-ifdef-block :help "Hide the ifdef block (true or false part) enclosing or before the cursor"] ["Show ifdef block" show-ifdef-block :help "Show the ifdef block (true or false part) enclosing or before the cursor"] ["Define a variable..." hide-ifdef-define :help "Define a VAR so that #ifdef VAR would be included"] ["Undefine a variable..." hide-ifdef-undef :help "Undefine a VAR so that #ifdef VAR would not be included"] ["Define an alist..." hide-ifdef-set-define-alist :help "Set the association for NAME to `hide-ifdef-env'"] ["Use an alist..." hide-ifdef-use-define-alist :help "Set `hide-ifdef-env' to the define list specified by NAME"] ["Toggle read only" hide-ifdef-toggle-read-only :style toggle :selected hide-ifdef-read-only :help "Buffer should be read-only while hiding text"] ["Toggle shadowing" hide-ifdef-toggle-shadowing :style toggle :selected hide-ifdef-shadow :help "Text should be shadowed instead of hidden"])) #@34 Non-nil when text may be hidden. (defvar hide-ifdef-hiding nil (#$ . 3938)) (byte-code "\301\236\204\n \302B\301\207" [minor-mode-alist hide-ifdef-hiding (hide-ifdef-hiding " Hiding")] 2) #@51 Syntax table used for tokenizing #if expressions. (defvar hide-ifdef-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\307 #\210\303\310\307 #\210 )\207" [c-mode-syntax-table st copy-syntax-table modify-syntax-entry 95 "w" 38 "." 124] 4) (#$ . 4135)) #@47 An alist of defined symbols and their values. (defvar hide-ifdef-env nil (#$ . 4401)) #@73 Internal variable. Saves the value of `buffer-read-only' while hiding. (defvar hif-outside-read-only nil (#$ . 4493)) #@99 Non-nil if Hide-Ifdef mode is enabled. Use the command `hide-ifdef-mode' to change this variable. (defvar hide-ifdef-mode nil (#$ . 4618)) (make-variable-buffer-local 'hide-ifdef-mode) #@1152 Toggle Hide-Ifdef mode. This is a minor mode, albeit a large one. With ARG, turn Hide-Ifdef mode on if arg is positive, off otherwise. In Hide-Ifdef mode, code within #ifdef constructs that the C preprocessor would eliminate may be hidden from view. Several variables affect how the hiding is done: `hide-ifdef-env' An association list of defined and undefined symbols for the current buffer. Initially, the global value of `hide-ifdef-env' is used. `hide-ifdef-define-alist' An association list of defined symbol lists. Use `hide-ifdef-set-define-alist' to save the current `hide-ifdef-env' and `hide-ifdef-use-define-alist' to set the current `hide-ifdef-env' from one of the lists in `hide-ifdef-define-alist'. `hide-ifdef-lines' Set to non-nil to not show #if, #ifdef, #ifndef, #else, and #endif lines when hiding. `hide-ifdef-initially' Indicates whether `hide-ifdefs' should be called when Hide-Ifdef mode is activated. `hide-ifdef-read-only' Set to non-nil if you want to make buffers read only while hiding. After `show-ifdefs', read-only status is restored to previous value. \{hide-ifdef-mode-map} (defalias 'hide-ifdef-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\211\203g \316\303!\210\317\303!\316\304!\210\317\304!\316\320!\210 \316\321!\210\312\322\323\324\315\312$\210\325\326!\210%\203a \327 \210\202v \330 \210\202v \331\321!\210\332\333!\210\f\203v \330 \210\334\335\n\203\200 \336\202\201 \337\"\210\340 \203\241 \306 \203\224 \306 \232\203\241 \313\341\n\203\236 \342\202\237 \343\"\210)\344 \210\n\207" [#1=#:last-message arg hide-ifdef-mode hide-ifdef-env hide-ifdef-hiding buffer-read-only current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil make-local-variable default-value hif-outside-read-only line-move-ignore-invisible add-hook change-major-mode-hook #[nil "\300\301!\207" [hide-ifdef-mode -1] 2] add-to-invisibility-spec (hide-ifdef . t) hide-ifdefs show-ifdefs kill-local-variable remove-from-invisibility-spec (hide-ifdef . t) run-hooks hide-ifdef-mode-hook hide-ifdef-mode-on-hook hide-ifdef-mode-off-hook called-interactively-p "Hide-Ifdef mode %sabled" "en" "dis" force-mode-line-update hide-ifdef-initially] 6 (#$ . 4811) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode hide-ifdef-mode " Ifdef" boundp hide-ifdef-mode-map] 5) #@45 Show all of the text in the current buffer. (defalias 'hif-show-all #[nil "\300ed\"\207" [hif-show-ifdef-region] 3 (#$ . 7325) nil]) (defalias 'hif-after-revert-function #[nil "\205 \205 \302\303!\207" [hide-ifdef-mode hide-ifdef-hiding hide-ifdefs t] 2]) (add-hook 'after-revert-hook 'hif-after-revert-function) (defalias 'hif-end-of-line #[nil "\300\210\301\302\300x\303\"\303U\205 \304\210\202 \207" [nil logand "\\\\" 1 2] 3]) (defalias 'hide-ifdef-region-internal #[(start end) "\304 \305\306$\210\307 \"\310\n\305\306#\210 \203 \310\n\311\303#\202# \310\n\312\305#)\207" [start end o hide-ifdef-shadow remove-overlays hide-ifdef t make-overlay overlay-put face invisible] 5]) #@121 START is the start of a #if or #else form. END is the ending part. Everything including these lines is made invisible. (defalias 'hide-ifdef-region #[(start end) "\212b\210\302 \210` b\210\302 \210`\303 \")\207" [start end hif-end-of-line hide-ifdef-region-internal] 3 (#$ . 8026)]) #@51 Everything between START and END is made visible. (defalias 'hif-show-ifdef-region #[(start end) "\302 \303\304$\207" [start end remove-overlays hide-ifdef t] 5 (#$ . 8320)]) #@140 The function to use to evaluate a form. The evaluator is given a canonical form and returns t if text under that form should be displayed. (defvar hide-ifdef-evaluator 'eval (#$ . 8503)) #@42 ...is by default considered to be false. (defvar hif-undefined-symbol nil (#$ . 8696)) #@45 Prepend (var value) pair to hide-ifdef-env. (defalias 'hif-set-var #[(var value) " B\nB\211\207" [var value hide-ifdef-env] 2 (#$ . 8789)]) (defalias 'hif-lookup #[(var) "\304 \"\211\203 \nA\202 )\207" [var hide-ifdef-env val hif-undefined-symbol assoc] 4]) (defalias 'hif-defined #[(var) "\302 \"\203 \303\207\304\207" [var hide-ifdef-env assoc 1 0] 3]) (byte-code "\301B\306\307!\210\310B\311 \312P!\210\302B\313 \314P!\210\303B\315 \316P!\210\304B\317 \320P!\210\321B\322\n\323 \323\f\260!\210\305B\324\325!\210\326B\327\330\331\332 \"!\333P!\207" [current-load-list hif-cpp-prefix hif-ifx-regexp hif-else-regexp hif-endif-regexp hif-token-alist (lambda (#1=#:defconst-tmp-var) (defconst hif-cpp-prefix #1#)) "\\(^\\| \\)[ ]*#[ ]*" hif-ifndef-regexp (lambda (#2=#:defconst-tmp-var) (defconst hif-ifndef-regexp #2#)) "ifndef" (lambda (#3=#:defconst-tmp-var) (defconst hif-ifx-regexp #3#)) "if\\(n?def\\)?[ ]+" (lambda (#4=#:defconst-tmp-var) (defconst hif-else-regexp #4#)) "else" (lambda (#5=#:defconst-tmp-var) (defconst hif-endif-regexp #5#)) "endif" hif-ifx-else-endif-regexp (lambda (#6=#:defconst-tmp-var) (defconst hif-ifx-else-endif-regexp #6#)) "\\|" (lambda (#7=#:defconst-tmp-var) (defconst hif-token-alist #7#)) (("||" . or) ("&&" . and) ("|" . hif-logior) ("&" . hif-logand) ("==" . equal) ("!=" . hif-notequal) ("!" . not) ("(" . lparen) (")" . rparen) (">" . hif-greater) ("<" . hif-less) (">=" . hif-greater-equal) ("<=" . hif-less-equal) ("+" . hif-plus) ("-" . hif-minus) ("?" . hif-conditional) (":" . hif-colon)) hif-token-regexp (lambda (#8=#:defconst-tmp-var) (defconst hif-token-regexp #8#)) regexp-opt mapcar car "\\|\\w+"] 6) #@62 Separate string between START and END into a list of tokens. (defalias 'hif-tokenize #[(start end) "\306\307 p\310\216\311 !\210\212\fb\210\312d!\210` W\203p \313\314!\203' \315u\210\202 \313!\203g `\316\225{ \316\225b\210\317\"A\206` \320\230\203M \321\202` \322\323\"\203\\ \324!\206` \325!B)\202 \326\327\330 \"\210\202 ,\237)\207" [token-list #1=#:buffer #2=#:table hide-ifdef-syntax-table start end nil syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table forward-comment looking-at "\\\\\n" 2 0 assoc "defined" hif-defined string-match "\\`[0-9]*\\'" string-to-number intern error "Bad #if expression: %s" buffer-string hif-token-regexp token hif-token-alist] 3 (#$ . 10477)]) #@71 Pop the next token from token-list into the let variable "hif-token". (defalias 'hif-nexttoken #[nil "\211A@\211\207" [hif-token-list hif-token] 2 (#$ . 11239)]) (put 'hif-nexttoken 'byte-optimizer 'byte-compile-inline-expand) #@63 Parse the TOKEN-LIST. Return translated list in prefix form. (defalias 'hif-parse-if-exp #[(hif-token-list) "\211A@\302 \203 \303\304 \"\210\207" [hif-token-list hif-token hif-expr error "Error: unexpected token: %s"] 4 (#$ . 11475)]) #@89 Parse an expression as found in #if. expr : or-expr | or-expr '?' expr ':' expr. (defalias 'hif-expr #[nil "\304 \305\n\306=\2032 \211A@\307 \n\310=\203* \211A@\306 \307 F\202 \311\312\n\"\210\202 *\207" [middle result hif-token hif-token-list hif-or-expr nil hif-conditional hif-expr hif-colon error "Error: unexpected token: %s"] 4 (#$ . 11722)]) #@53 Parse n or-expr : and-expr | or-expr '||' and-expr. (defalias 'hif-or-expr #[nil "\303 \304=\203 \n\211A@\305\303 E\202 )\207" [result hif-token hif-token-list hif-and-expr or hif-or] 3 (#$ . 12098)]) #@54 Parse an and-expr : eq-expr | and-expr '&&' eq-expr. (defalias 'hif-and-expr #[nil "\303 \304=\203 \n\211A@\305\303 E\202 )\207" [result hif-token hif-token-list hif-eq-expr and hif-and] 3 (#$ . 12314)]) #@69 Parse an eq-expr : math | eq-expr `=='|`!='|`<'|`>'|`>='|`<=' math. (defalias 'hif-eq-expr #[nil "\304 \305\n\306>\203 \n \211A@ \304 E\202 *\207" [eq-token result hif-token hif-token-list hif-math nil (equal hif-notequal hif-greater hif-less hif-greater-equal hif-less-equal)] 3 (#$ . 12533)]) #@95 Parse an expression with + or - and simpler things. math : factor | math '+|-' factor. (defalias 'hif-math #[nil "\304 \305\n\306>\203 \n \211A@ \304 E\202 *\207" [math-op result hif-token hif-token-list hif-factor nil (hif-plus hif-minus hif-logior hif-logand)] 3 (#$ . 12844)]) #@69 Parse a factor: '!' factor | '(' expr ')' | 'defined(' id ')' | id. (defalias 'hif-factor #[nil "\305=\203 \211A@\306\307 D\207\310=\2036 \211A@\311 \312=\204- \313\314\"\2024 \211A@\n)\207\315=\203~ \211A@\211\310=\205O \211A@\316 \317>\203] \313\320\"\210\f\203q \211A@\211\312=\204q \313\321!\210 \211A@\315\322 *DD\207\247\203\213 \211A@\207\323>\203\235 \211A@\324\307 E\207\211\325>\203\251 \313\326!\210 \211A@\327\322 )DD\207" [hif-token hif-token-list result ident paren not hif-not hif-factor lparen hif-expr rparen error "Bad token in parenthesized expression: %s" hif-defined t (or and not hif-defined lparen rparen) "Error: unexpected token: %s" "Error: expected \")\" after identifier" quote (hif-minus hif-plus) 0 (or and) "Error: missing identifier" hif-lookup] 4 (#$ . 13147)]) #@54 Treat VAL as a number: if it's t or nil, use 1 or 0. (defalias 'hif-mathify #[(val) "\301=\203 \302\207\204 \303\207\207" [val t 1 0] 2 (#$ . 13993)]) (defalias 'hif-conditional #[(a b c) "\303\304!!\204\f \304 !\207\304\n!\207" [a b c zerop hif-mathify] 3]) (defalias 'hif-and #[(a b) "\302\303!!?\205 \302\303 !!?\207" [a b zerop hif-mathify] 3]) (defalias 'hif-or #[(a b) "\302\303!!?\206 \302\303 !!?\207" [a b zerop hif-mathify] 3]) (defalias 'hif-not #[(a) "\301\302!!\207" [a zerop hif-mathify] 3]) (defalias 'hif-mathify-binop '(macro . #[(fun) "\301\302\303\304\"\305BF\207" [fun lambda (a b) format "Like `%s' but treat t and nil as 1 and 0." ((hif-mathify a) (hif-mathify b))] 5])) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\207" [defalias hif-plus #[#1=(a b) "\302!\302 !\\\207" [a b hif-mathify] 3 "Like `+' but treat t and nil as 1 and 0."] hif-minus #[#1# "\302!\302 !Z\207" [a b hif-mathify] 3 "Like `-' but treat t and nil as 1 and 0."] hif-notequal #[#1# "\302!\302 !U?\207" [a b hif-mathify] 3 "Like `/=' but treat t and nil as 1 and 0."] hif-greater #[#1# "\302!\302 !V\207" [a b hif-mathify] 3 "Like `>' but treat t and nil as 1 and 0."] hif-less #[#1# "\302!\302 !W\207" [a b hif-mathify] 3 "Like `<' but treat t and nil as 1 and 0."] hif-greater-equal #[#1# "\302!\302 !Y\207" [a b hif-mathify] 3 "Like `>=' but treat t and nil as 1 and 0."] hif-less-equal #[#1# "\302!\302 !X\207" [a b hif-mathify] 3 "Like `<=' but treat t and nil as 1 and 0."] hif-logior #[#1# "\302\303!\303 !\"\207" [a b logior hif-mathify] 4 "Like `logior' but treat t and nil as 1 and 0."] hif-logand #[#1# "\302\303!\303 !\"\207" [a b logand hif-mathify] 4 "Like `logand' but treat t and nil as 1 and 0."]] 3) #@72 When at beginning of #ifX, return a Lisp expression for its condition. (defalias 'hif-canonicalize #[nil "\212\305!\306\n!\210\307`\310 \210`\"\311 ! \203 \312\fD\202 \f,\207" [hif-ifndef-regexp negate hif-ifx-regexp tokens expr looking-at re-search-forward hif-tokenize hif-end-of-line hif-parse-if-exp hif-not] 3 (#$ . 15857)]) #@53 Move to next #if..., or #ifndef, at point or after. (defalias 'hif-find-any-ifX #[nil "\301d\302#\303 \210\207" [hif-ifx-regexp re-search-forward t beginning-of-line] 4 (#$ . 16199)]) #@64 Move to next #if..., #else, or #endif, after the current line. (defalias 'hif-find-next-relevant #[nil "\301\210\302d\303#\205 \304 \207" [hif-ifx-else-endif-regexp nil re-search-forward t beginning-of-line] 4 (#$ . 16390)]) #@69 Move to previous #if..., #else, or #endif, before the current line. (defalias 'hif-find-previous-relevant #[nil "\301 \210\302e\303#\205 \301 \207" [hif-ifx-else-endif-regexp beginning-of-line re-search-backward t] 4 (#$ . 16624)]) (defalias 'hif-looking-at-ifX #[nil "\301!\207" [hif-ifx-regexp looking-at] 2]) (defalias 'hif-looking-at-endif #[nil "\301!\207" [hif-endif-regexp looking-at] 2]) (defalias 'hif-looking-at-else #[nil "\301!\207" [hif-else-regexp looking-at] 2]) #@68 If positioned at #ifX or #else form, skip to corresponding #endif. (defalias 'hif-ifdef-to-endif #[nil "\300 \210\301 \203 \302 \210\302 \207\303 \203 \302 \207\304 \203 \305\207\306\307!\207" [hif-find-next-relevant hif-looking-at-ifX hif-ifdef-to-endif hif-looking-at-else hif-looking-at-endif done error "Mismatched #ifdef #endif pair"] 2 (#$ . 17113)]) #@68 If positioned at #endif form, skip backward to corresponding #ifX. (defalias 'hif-endif-to-ifdef #[nil "`\301 \210`U\203 \302\303!\210)\304 \203 \305 \210\305 \207\306 \203# \305 \207\307 \203* \310\207\311\207" [start hif-find-previous-relevant error "Mismatched #ifdef #endif pair" hif-looking-at-endif hif-endif-to-ifdef hif-looking-at-else hif-looking-at-ifX done t] 2 (#$ . 17479)]) #@98 Move point to beginning of line of the next ifdef-endif. With argument, do this that many times. (defalias 'forward-ifdef #[(&optional arg) "\204 \302\303W\203 \304[!\207\303W\205: [`\305 \204$ \306 \210\305 \203/ \307 \210\2026 b\210\310\311!\210)\202 \207" [arg start 1 0 backward-ifdef hif-looking-at-ifX hif-find-next-relevant hif-ifdef-to-endif error "No following #ifdef"] 2 (#$ . 17877) "p"]) #@94 Move point to beginning of the previous ifdef-endif. With argument, do this that many times. (defalias 'backward-ifdef #[(&optional arg) "\204 \302\303W\203 \304[!\207\303W\205= S\305 \210`\306 \204' \307 \210\306 \2032 \310 \210\2029 b\210\311\312!\210)\202 \207" [arg start 1 0 forward-ifdef beginning-of-line hif-looking-at-endif hif-find-previous-relevant hif-endif-to-ifdef error "No previous #ifdef"] 2 (#$ . 18295) "p"]) #@55 Move point to beginning of nested ifdef or else-part. (defalias 'down-ifdef #[nil "`\301 \210\302 \206\f \303 ?\205 b\210\304\305!)\207" [start hif-find-next-relevant hif-looking-at-ifX hif-looking-at-else error "No following #ifdef"] 2 (#$ . 18741) nil]) #@58 Move point to beginning of enclosing ifdef or else-part. (defalias 'up-ifdef #[nil "\301 \210`\302 \204 \303 \210\302 \203 \304 \210`U\205 \305\306!)\207" [start beginning-of-line hif-looking-at-endif hif-find-previous-relevant hif-endif-to-ifdef error "No previous #ifdef"] 2 (#$ . 19006) nil]) #@99 Move to the beginning of the next #ifX, #else, or #endif. With argument, do this that many times. (defalias 'next-ifdef #[(&optional arg) "\204 \301\302W\203 \303[!\207\302W\205+ S\304 \210l\203 \305 \210\306\307!\210\202 \207" [arg 1 0 previous-ifdef hif-find-next-relevant beginning-of-line error "No following #ifdefs, #elses, or #endifs"] 2 (#$ . 19313) "p"]) #@103 Move to the beginning of the previous #ifX, #else, or #endif. With argument, do this that many times. (defalias 'previous-ifdef #[(&optional arg) "\204 \302\303W\203 \304[!\207\303W\205- S`\305 \210 `U\203) \306\307!\210)\202 \207" [arg start 1 0 next-ifdef hif-find-previous-relevant error "No previous #ifdefs, #elses, or #endifs"] 2 (#$ . 19695) "p"]) (defalias 'hif-make-range #[(start end &optional else) " \nE\207" [start else end] 3]) (put 'hif-make-range 'byte-optimizer 'byte-compile-inline-expand) (defalias 'hif-range-start #[(range) "\301\234\207" [range 0] 2]) (put 'hif-range-start 'byte-optimizer 'byte-compile-inline-expand) (defalias 'hif-range-else #[(range) "\301\234\207" [range 1] 2]) (put 'hif-range-else 'byte-optimizer 'byte-compile-inline-expand) (defalias 'hif-range-end #[(range) "\301\234\207" [range 2] 2]) (put 'hif-range-end 'byte-optimizer 'byte-compile-inline-expand) #@86 Return a Range structure describing the current #if region. Point is left unchanged. (defalias 'hif-find-range #[nil "\212\303 \210`\304\211\305 \210\306 \203 \307 \210\202\n \310 \203\" `\202$ ` \203A \305 \210\306 \2036 \307 \210\202( \310 \203? \311\312!\210`\n \211 E.\207" [end else start beginning-of-line nil hif-find-next-relevant hif-looking-at-ifX hif-ifdef-to-endif hif-looking-at-else error "Found two elses in a row? Broken!"] 4 (#$ . 20617)]) #@77 Hide the line containing point. Does nothing if `hide-ifdef-lines' is nil. (defalias 'hif-hide-line #[(point) "\205 \212 b\210\302\303 \304 \210`\")\207" [hide-ifdef-lines point hide-ifdef-region-internal line-beginning-position hif-end-of-line] 3 (#$ . 21094)]) #@75 Call `hide-ifdef-guts' after narrowing to end of START line and END line. (defalias 'hif-recurse-on #[(start end) "\212\214b\210\302\210` }\210\303 *\207" [start end nil hide-ifdef-guts] 2 (#$ . 21366)]) #@123 Called at #ifX expression, this hides those parts that should be hidden. It uses the judgement of `hide-ifdef-evaluator'. (defalias 'hif-possibly-hide #[nil "\303 \304 \305\211\306\234)!\210\307\n !!\204] \211\310\234)\203K \305\211\310\234)!\210\311\211\310\234)\211\306\234)S\"\210\312\211\313\234)\211\310\234)\"\210\202\234 \312\211\313\234)\211\306\234)\"\210\202\234 \211\310\234)\203\221 \305\211\310\234)!\210\311\211\313\234)\211\310\234)S\"\210\312\211\310\234)\211\306\234)\"\210\202\234 \311`\211\306\234)S\"\210\305\211\313\234)!\210\211\306\234)b\210\314*\207" [range test hide-ifdef-evaluator hif-canonicalize hif-find-range hif-hide-line 2 hif-not 1 hide-ifdef-region hif-recurse-on 0 nil] 5 (#$ . 21579)]) #@112 Does most of the work of `hide-ifdefs'. It does not do the work that's pointless to redo on a recursive entry. (defalias 'hide-ifdef-guts #[nil "\212eb\210\300 \205 \301 \210\202 )\207" [hif-find-any-ifX hif-possibly-hide] 1 (#$ . 22348)]) #@32 Toggle `hide-ifdef-read-only'. (defalias 'hide-ifdef-toggle-read-only #[nil "?\304\305\203 \306\202 \307\"\210 \203 \206 \n\310 \207" [hide-ifdef-read-only hide-ifdef-hiding hif-outside-read-only buffer-read-only message "Hide-Read-Only %s" "ON" "OFF" force-mode-line-update] 3 (#$ . 22596) nil]) #@60 Replacement for `toggle-read-only' within Hide-Ifdef mode. (defalias 'hide-ifdef-toggle-outside-read-only #[nil "?\304\305\203 \306\202 \307\"\210 \203 \n\206 \310 \207" [hif-outside-read-only hide-ifdef-hiding hide-ifdef-read-only buffer-read-only message "Read only %s" "ON" "OFF" force-mode-line-update] 3 (#$ . 22908) nil]) #@19 Toggle shadowing. (defalias 'hide-ifdef-toggle-shadowing #[nil "\303\300!\210?\304\305\203 \306\202 \307\"\210\214~\210\310ed\"\311\211\205S \n@\312 \313\"\203K \203? \314 \315\311#\210\314 \316\300#\210\202K \314 \316\311#\210\314 \315\313#\210\nA\211\204\" \311+\207" [hide-ifdef-shadow overlay --dolist-tail-- make-local-variable message "Shadowing %s" "ON" "OFF" overlays-in nil overlay-get hide-ifdef overlay-put invisible face] 5 (#$ . 23251) nil]) #@52 Define a VAR so that #ifdef VAR would be included. (defalias 'hide-ifdef-define #[(var) "\302\303\"\210 \205 \304 \207" [var hide-ifdef-hiding hif-set-var 1 hide-ifdefs] 3 (#$ . 23722) "SDefine what? "]) #@58 Undefine a VAR so that #ifdef VAR would not be included. (defalias 'hide-ifdef-undef #[(var) "\302\303\"\210 \205 \304 \207" [var hide-ifdef-hiding hif-set-var nil hide-ifdefs] 3 (#$ . 23934) "SUndefine what? "]) #@275 Hide the contents of some #ifdefs. Assume that defined symbols have been added to `hide-ifdef-env'. The text hidden is the text that would not be included by the C preprocessor if it were given the file with those symbols defined. Turn off hiding by calling `show-ifdefs'. (defalias 'hide-ifdefs #[(&optional nomsg) "\306\307!\210\n\204 \302\310!\210 \203 \311 \210\312\313 \210\f\206 \206' \306\314!\207" [buffer-read-only hif-outside-read-only hide-ifdef-mode hide-ifdef-hiding hide-ifdef-read-only nomsg message "Hiding..." 1 show-ifdefs t hide-ifdef-guts "Hiding done"] 2 (#$ . 24156) nil]) #@71 Cancel the effects of `hide-ifdef': show the contents of all #ifdefs. (defalias 'show-ifdefs #[nil "\303 \210\304\211\207" [hif-outside-read-only buffer-read-only hide-ifdef-hiding hif-show-all nil] 2 (#$ . 24767) nil]) #@94 Utility for hide and show `ifdef-block'. Return as (TOP . BOTTOM) the extent of ifdef block. (defalias 'hif-find-ifdef-block #[nil "\301\212\302 \210\303 \204 \304 \204 \305 \210`\306 \210`S)\212\302 \210\307 \204' \310 \210\304 \2035 \306 \210\310 \210\202' `S^*B\207" [max-bottom nil beginning-of-line hif-looking-at-else hif-looking-at-ifX up-ifdef hif-ifdef-to-endif hif-looking-at-endif hif-find-next-relevant] 3 (#$ . 24996)]) #@75 Hide the ifdef block (true or false part) enclosing or before the cursor. (defalias 'hide-ifdef-block #[nil "\204 \300\306!\210\307 \310 @ A\"\210\n\203! \311 @!\210\311 AT!\210\312)\f\206) \211 \207" [hide-ifdef-mode top-bottom hide-ifdef-lines hide-ifdef-hiding hide-ifdef-read-only hif-outside-read-only 1 hif-find-ifdef-block hide-ifdef-region hif-hide-line t buffer-read-only] 3 (#$ . 25440) nil]) #@75 Show the ifdef block (true or false part) enclosing or before the cursor. (defalias 'show-ifdef-block #[nil "\302 \203 \303\212@b\210\304 )\212ATb\210\305 \210`)\"\202& \303@SA\")\207" [top-bottom hide-ifdef-lines hif-find-ifdef-block hif-show-ifdef-region line-beginning-position hif-end-of-line] 3 (#$ . 25855) nil]) #@50 A global assoc list of pre-defined symbol lists. (defvar hide-ifdef-define-alist nil (#$ . 26187)) #@67 Compress the define list ENV into a list of defined symbols only. (defalias 'hif-compress-define-list #[(env) "\304 \304\211\203 @\305\n@!\203 @B A\211\204\n \304+\207" [new-defs env def --dolist-tail-- nil hif-lookup] 3 (#$ . 26292)]) #@51 Set the association for NAME to `hide-ifdef-env'. (defalias 'hide-ifdef-set-define-alist #[(name) "\303 !B\nB\211\207" [name hide-ifdef-env hide-ifdef-define-alist hif-compress-define-list] 3 (#$ . 26547) "SSet define list: "]) #@60 Set `hide-ifdef-env' to the define list specified by NAME. (defalias 'hide-ifdef-use-define-alist #[(name) ";\203 \305!\306 \"\211\203 \307\310\nA\"\202 \311\312\"\210\f\205& \313 )\207" [name hide-ifdef-define-alist define-list hide-ifdef-env hide-ifdef-hiding intern assoc mapcar #[(arg) "\301B\207" [arg t] 2] error "No define list for %s" hide-ifdefs] 4 (#$ . 26783) (list (completing-read "Use define list: " (mapcar (lambda (x) (symbol-name (car x))) hide-ifdef-define-alist) nil t))]) (provide 'hideif)
Close
