%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/progmodes/
Current File : //usr/local/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\2055b\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!\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 #[nil "`Sf\301=\2068`Sf\302=\2058\212\3031\304`\305\306#0\202 \210\307\211\2057b\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) "\203b\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\203b\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\nT	d=\203\"\n^\305\n\211T\306\307$\210)\202pf	fU\204K\n^\305\n\211T\306\310$\210)	\n^\305\n\211T\306\311$\210)\202pf\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\306T\307#?\202\"\306\fT\307#\204-\306
T\307#\203-Tb\210\310\202Wb\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\211W\203$\310\f\311\"\203$\f\2029\312\f\311\306$\211W\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\nZ\\\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>\2030S\202`d=\204Q\306u\210\203z\314W\203z`d=\204z\322\316d\317#\211\203t\320 \323>\203bT\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!\2045b\210\317\320!\210m\204\\\321 \203\\`V\203LS\211\202M\312\203\\\315V\203\\\317\320!\2045\315W\205\234o\204\226\317\306!\203\226o\203x`\202|\212\321 )\211W\203\214T\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)
Zerion Mini Shell 1.0