ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/awk-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@44 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\311#\210\302\312\313#\210\302\314\315#\210\302\316\315#\210\302\317\315#\210\302\320\315#\210\302\321\315#\210\302\322\315#\210\302\323\315#\210\302\324\315#\210\302\325\315#\210\302\326\327#\210\302\330\313#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 12 35 "< " 47 "\"" 42 "." 43 45 61 37 60 62 38 124 95 "_" 39] 4) (#$ . 410))
#@47 Default expressions to highlight in AWK mode.
(defconst awk-font-lock-keywords '(("^[ ]*\\(function\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("\\<\\(ARG\\(?:IND\\|[CV]\\)\\|CONVFMT\\|E\\(?:NVIRON\\|RRNO\\)\\|F\\(?:I\\(?:ELDWIDTHS\\|LENAME\\)\\|NR\\|S\\)\\|IGNORECASE\\|N[FR]\\|O\\(?:F\\(?:MT\\|S\\)\\|RS\\)\\|R\\(?:LENGTH\\|S\\(?:TART\\)?\\)\\|SUBSEP\\)\\>" . font-lock-variable-name-face) "\\<\\(BEGIN\\|END\\|break\\|continue\\|d\\(?:elete\\|o\\)\\|e\\(?:lse\\|xit\\)\\|for\\|getline\\|if\\|next\\|printf?\\|return\\|while\\)\\>" ("\\<\\(atan2\\|c\\(?:lose\\|os\\|time\\)\\|exp\\|gsub\\|in\\(?:dex\\|t\\)\\|l\\(?:ength\\|og\\)\\|match\\|rand\\|s\\(?:in\\|p\\(?:lit\\|rintf\\)\\|qrt\\|rand\\|ub\\(?:str\\)?\\|ystem\\)\\|t\\(?:ime\\|o\\(?:\\(?:low\\|upp\\)er\\)\\)\\)\\>" 1 font-lock-builtin-face) ("\\(?:![=~]\\|&&\\|<=\\|==\\|>=\\|||\\|[<>~]\\)" . font-lock-constant-face)) (#$ . 942))
(require 'syntax)
#@36 Syntactic keywords for `awk-mode'.
(defconst awk-font-lock-syntactic-keywords '(("[^<=>-+*%/!^,~(?:|& \n\f]\\s-*\\(/\\)" (1 (unless (nth 3 (syntax-ppss (match-beginning 1))) ".")))) (#$ . 1905))
#@160 Hook run after entering AWK mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar awk-mode-hook nil (#$ . 2108))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp awk-mode-map put definition-name awk-mode] 4)
(defvar awk-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [awk-mode-map variable-documentation put purecopy "Keymap for `awk-mode'." boundp awk-mode-syntax-table definition-name awk-mode] 5)
(defvar awk-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [awk-mode-syntax-table variable-documentation put purecopy "Syntax table for `awk-mode'." awk-mode-abbrev-table definition-name awk-mode] 5)
(defvar awk-mode-abbrev-table (progn (define-abbrev-table 'awk-mode-abbrev-table nil) awk-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [awk-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `awk-mode'." awk-mode derived-mode-parent c-mode] 5)
#@303 Major mode for editing AWK code.
This is much like C mode except for the syntax of comments. Its keymap
inherits from C mode's and it has the same variables for customizing
indentation. It has its own abbrev table and its own syntax table.
Turning on AWK mode runs `awk-mode-hook'.
\{awk-mode-map}
(defalias 'awk-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324%\325\"\204V %&=\204V \326%\325&C#\210\327 !\210\330\f!\210%&\306\331!\210\332'P\306\333!\210\306\334!\210\335 \306\336!\210\337 \306\340!\210\341 \342()\343\344!\207" [delay-mode-hooks major-mode mode-name awk-mode-map awk-mode-syntax-table parent make-local-variable t c-mode awk-mode "AWK" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table paragraph-start "$\\|" paragraph-separate comment-start "# " comment-end "" comment-start-skip "#+ *" (awk-font-lock-keywords nil nil ((95 . "w")) nil (parse-sexp-lookup-properties . t) (font-lock-syntactic-keywords . awk-font-lock-syntactic-keywords)) run-mode-hooks awk-mode-hook awk-mode-abbrev-table local-abbrev-table page-delimiter font-lock-defaults] 6 (#$ . 3285) nil])
(provide 'awk-mode)
Kontol Shell Bypass