| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/progmodes/cc-awk.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cc-defs)
#@42 Syntax table in use in AWK Mode buffers.
(defvar awk-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\314#\210\302\320\314#\210\302\321\314#\210\302\322\314#\210\302\323\314#\210\302\324\314#\210\302\325\314#\210\302\326\327#\210\302\330\314#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 13 12 35 "< " 47 "." 42 43 45 61 37 60 62 38 124 95 "_" 39] 4) (#$ . 427))
(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|"))
(defalias 'c-awk-after-if-for-while-condition-p #[(&optional do-lim) "`Sf\302=\2056 \212\3031 \304`\305\306#0\202 \210\307\211\2055 b\210\310 \210\311\312!\2065 \311\313!\2055 \314 !\315=?*\207" [par-pos do-lim 41 (error) scan-lists -1 0 nil c-backward-token-1 looking-at "\\(if\\|for\\)\\>\\([^_]\\|$\\)" "while\\>\\([^_]\\|$\\)" c-beginning-of-statement-1 beginning] 5])
(defalias 'c-awk-after-function-decl-param-list #[nil "`Sf\301=\2050 \212\3021 \303`\304\305#0\202 \210\306\211\205/ b\210\307 \210\310\311!\205/ \307 \210\310\312!*\207" [par-pos 41 (error) scan-lists -1 0 nil c-backward-token-1 looking-at "[_a-zA-Z][_a-zA-Z0-9]*\\>" "func\\(tion\\)?\\>"] 5])
(defalias 'c-awk-after-continue-token #[nil "\212\300 \210\301\302!\203 o\204 \303u\210\301\304!)\207" [c-backward-token-1 looking-at "[&|]" -1 "[,{?:]\\|&&\\|||\\|do\\>\\|else\\>"] 2])
(defalias 'c-awk-after-rbrace-or-statement-semicolon #[nil "`Sf\301=\2068 `Sf\302=\2058 \212\3031 \304`\305\306#0\202 \210\307\211\2057 b\210\310\311!\2056 \312 \2056 \310\313!?*\207" [par-pos 125 59 (error) scan-lists -1 1 nil looking-at "(" c-backward-token-1 "for\\>"] 5])
(defalias 'c-awk-back-to-contentful-text-or-NL-prop #[nil "\304\211\211o\204l \305`S\306\"\211\204l \307\310!`\214 \206 ed}\210\311 \210)`U\203> \312`S\313 \211T\306\n$\210)\202l \314\315!\203h \304\210\316\317 \320#\203e \304\210\321u\210\214 \206[ ed}\210\311 \210)\202h \304\210n\204 \n+\207" [bsws-pos bol-pos nl-prop -pos- 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] 5])
(defalias 'c-awk-calculate-NL-prop-prev-line #[(&optional do-lim) "\212\305 \306\216\307 \210`\310 n\204T \311 !\204\" \312 \204\" \313 \203& \314\202B \315\316!\2035 \317 \2045 \320\202B `Sf\321>\203A \322\202B \323\324\210` \325\f\211T\326\n$\210)\324y\210` W\203 \n\327\267\202m \330\202m \315\316!\204m \323\324y\210`S \325\f\211T\326\n$\210)\202T \n-\207" [save-match-data-internal pos nl-prop do-lim -pos- match-data #[nil "\301\302\"\207" [save-match-data-internal 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 101)) 35] 5])
(defalias 'c-awk-get-NL-prop-prev-line #[(&optional do-lim) "o?\205 \301\302\303!\304\"\206 \305!\207" [do-lim get-text-property line-end-position 0 c-awk-NL-prop c-awk-calculate-NL-prop-prev-line] 3])
(defalias 'c-awk-get-NL-prop-cur-line #[(&optional do-lim) "\212\302\211\210\302y\303U\203 \304\305\303\"\210\306\307 !\203 \310\311!\210*\207" [extra-nl do-lim nil 1 insert-char 10 t c-awk-get-NL-prop-prev-line delete-char -1] 4])
(defalias 'c-awk-prev-line-incomplete-p #[(&optional do-lim) "\301!\302>\207" [do-lim c-awk-get-NL-prop-prev-line (92 123)] 2])
(put 'c-awk-prev-line-incomplete-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'c-awk-cur-line-incomplete-p #[(&optional do-lim) "\301!\302>\207" [do-lim c-awk-get-NL-prop-cur-line (92 123)] 2])
(put 'c-awk-cur-line-incomplete-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'c-awk-at-vsemi-p #[(&optional pos) "\212\306 \203\n b\210`\307 \310 \311 \210`\fW\203X \312
\f\"\210\313!\203X \313!\2034 \314 \210\202 \313!\203O \3151H \314 \210\316u0\202K \210\306\210\202 \317 \210\306u\210\202 ` W\203d \306y\210\202 `\n=\205\204 \320 \211\321=\203\201 \306y\322=\203\201 \313!\204j \323=-\207" [nl-prop pos pos-or-point bol eol c-awk-non-/-syn-ws*-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 c-awk-space*-/-re c-awk-space*-regexp-/-re c-awk-space*-unclosed-regexp-/-re c-awk-blank-or-comment-line-re] 3])
(defalias 'c-awk-vsemi-status-unknown-p #[nil "\300\301 \302\"?\207" [get-text-property line-end-position c-awk-NL-prop] 3])
(defalias 'c-awk-clear-NL-props #[(beg _end) "\214~\210\301d\302#)\207" [beg remove-text-properties (c-awk-NL-prop nil)] 4])
(defalias 'c-awk-unstick-NL-prop #[nil "\301\300!\205 \302\303\"?\205 \304B\211\207" [text-property-default-nonsticky boundp assoc c-awk-NL-prop (c-awk-NL-prop . t)] 3])
(defalias 'c-awk-beginning-of-logical-line #[(&optional pos) "\203 b\210\301y\210`eV\203# `S\206 `Sf\302=\203# \303y\210\202\n `\207" [pos 0 92 -1] 2])
(defalias 'c-awk-beyond-logical-line #[(&optional pos) "\212\203 b\210\301\210`dW\203 `Sf\302=\203 \303\210\202 `dW\203* `T\202+ `)\207" [pos nil 92 2] 2])
(defalias 'c-awk-set-string-regexp-syntax-table-properties #[(beg end) "f\304=\203\n T d=\203\" \n^\305\n\211T\306\307$\210)\202p f fU\204K \n^\305\n\211T\306\310$\210) \n^\305\n\211T\306\311$\210)\202p f\312=\203p \n^\305\n\211T\306\313$\210) \n^\305\n\211T\306\314$\210)\212Tb\210m\206\224 \315\316 \317#\205\224 `S \n^\305\n\211T\306\320$\210)\202y )\207" [beg end -pos- c-syntax-table-hwm 95 put-text-property syntax-table (15) (15) (15) 47 (7) (7) search-forward "\"" t (1)] 5])
(defalias 'c-awk-syntax-tablify-string #[nil "\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])
(defalias 'c-awk-syntax-tablify-/ #[(anchor anchor-state-/div) "` b\210\n\203 \306 T\307#?\202\" \306\fT\307#\204- \306
T\307#\203- Tb\210\310\202W b\210\306!\210\311\312\224\312\225\"\210\313\314!\203I \310u\210\307\202W \313\315!\203V \310u\210\310\202W \310)\207" [/point anchor anchor-state-/div c-awk-regexp-sign-re c-awk-kwd-regexp-sign-re c-awk-div-sign-re search-forward-regexp t nil c-awk-set-string-regexp-syntax-table-properties 0 looking-at "/" "[\n
]" c-awk-regexp-without-end-re] 4])
(defalias 'c-awk-set-syntax-table-properties #[(lim) "\306\211\307 \210`\n
\f \306 \211 W\203$ \310\f\311\"\203$ \f\2029 \312\f\311\306 $\211 W\2037 \2029 +^\313\f \314#\210*\315\306\316#\203N \306`\nW\203\214 `\315\306\316#\210\317\320!\203h \321 \202\210 \306f\322=\203v \323 \"\202\210 \306f\324>\203\204 \306u\210\306\202\210 \306u\210\316\202C *\306\207" [anchor-state-/div anchor lim -to- -from- c-syntax-table-hwm 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) pos most-positive-fixnum c-awk-harmless-lines+-here-re c-awk-harmless-string*-here-re] 7])
(defvar c-awk-old-ByLL 0)
(make-variable-buffer-local 'c-awk-old-Byll)
(defalias 'c-awk-record-region-clear-NL #[(_beg end) "\306 \307\211\307\310\216\311\f!\306 \f\307\211\307\312\216\313\fd\".\n\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks end c-awk-old-ByLL buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] c-awk-beyond-logical-line #[nil "?\205 \301\302!\207" [#2=#:modified restore-buffer-modified-p nil] 2] c-awk-clear-NL-props #2#] 4])
(defalias 'c-awk-end-of-change-region #[(beg end old-len) " Z\n Z\\\304\n!]\207" [c-awk-old-ByLL old-len end beg c-awk-beyond-logical-line] 3])
(defalias 'c-awk-extend-and-syntax-tablify-region #[(beg end old-len) "\306 \307\211\307\310\216\311\f
\f#
\312\f!\211b\210\313
!-\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks beg end buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] c-awk-end-of-change-region c-awk-beginning-of-logical-line c-awk-set-syntax-table-properties old-len c-new-END c-new-BEG] 5])
#@47 Default expressions to highlight in AWK mode.
(defconst awk-font-lock-keywords '(("^\\s *\\(func\\(tion\\)?\\)\\>\\s *\\(\\sw+\\)?" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) ("\\<\\(ARG\\(?:IND\\|[CV]\\)\\|BINMODE\\|CONVFMT\\|E\\(?:NVIRON\\|RRNO\\)\\|F\\(?:I\\(?:ELDWIDTHS\\|LENAME\\)\\|NR\\|S\\)\\|IGNORECASE\\|LINT\\|N[FR]\\|O\\(?:F\\(?:MT\\|S\\)\\|RS\\)\\|PROCINFO\\|R\\(?:LENGTH\\|START\\|[ST]\\)\\|SUBSEP\\|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\\|END\\|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\\|sort\\|tan2\\)\\|bindtextdomain\\|c\\(?:lose\\|o\\(?:mpl\\|s\\)\\)\\|dcgettext\\|ex\\(?:p\\|tension\\)\\|fflush\\|g\\(?:\\(?:en\\)?sub\\)\\|in\\(?:dex\\|t\\)\\|l\\(?:ength\\|og\\|shift\\)\\|m\\(?:atch\\|ktime\\)\\|or\\|printf?\\|r\\(?:and\\|shift\\)\\|s\\(?:in\\|p\\(?:lit\\|rintf\\)\\|qrt\\|rand\\|t\\(?:opme\\|r\\(?:ftime\\|tonum\\)\\)\\|ub\\(?:str\\)?\\|yst\\(?:em\\|ime\\)\\)\\|\\(?:to\\(?:\\(?:low\\|upp\\)e\\)\\|xo\\)r\\)\\>" 0 c-preprocessor-face-name) ("\\(\\w\\|_\\)\\(\\\\[\n
]\\)*\\s \\(\\\\[\n
]\\|[ ]\\)*(" (0 'font-lock-warning-face)) ("\\\\\\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)) (#$ . 12391))
(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 #[nil "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])
#@664 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.
(defalias 'c-awk-beginning-of-defun #[(&optional arg) "\204 \306\307 \310\216\311 \312\211 \312 \313\216\312 \314Y\203H \203\203 \314V\203\203 `e=\204\203 \315\316e\317#\211\203B \320 \321>\2030 S\202 `d=\204Q \306u\210\203z \314W\203z `d=\204z \322\316d\317#\211\203t \320 \323>\203b T\202Q \203\203 \314\224b\210.\314=\207" [arg save-match-data-internal #1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks 1 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# 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) found] 5 (#$ . 14710) "p"])
(defalias 'c-awk-forward-awk-pattern #[nil "\304!\210\305\306!\203
\307\210m\203 \307\207\305\310!\203 \307\207l\203/ \307\311 !\312>)\205O \307y\202I \304\n\307\313#\204 \304 \307\313#\204 \305\314!\205O \307u\210\313\205O \202 \207" [c-awk-harmless-pattern-characters* do-lim 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 #[nil "\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 #[nil "\301\302!\205 \303\304!\305>)?\207" [do-lim looking-at "^[^#} \n
]" nil c-awk-get-NL-prop-prev-line (92 123)] 2])
#@474 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.
(defalias 'c-awk-end-of-defun #[(&optional arg) "\204 \306\307 \310\216\311 \312\211 \312 \313\216`\314 \315V\203\\ \316 \2045 \317\306!\2045 b\210\317\320!\210m\204\\ \321 \203\\ `V\203L S\211\202M \312\203\\ \315V\203\\ \317\320!\2045 \315W\205\234 o\204\226 \317\306!\203\226 o\203x `\202| \212\321 )\211W\203\214 T\211\202\215 \312\203\226 \315W\204f ^b. \207" [arg save-match-data-internal #1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks 1 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# 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 end-point start-point] 3 (#$ . 17082) "p"])
(provide 'cc-awk)