;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Mar 8 19:02:37 1998 ;;; from file /gd/gnu/emacs/lisp/progmodes/awk-mode.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "`awk-mode.el' was compiled for Emacs 19.29 or later")) #@42 Syntax table in use in Awk-mode buffers. (defvar awk-mode-syntax-table nil (#$ . 541)) (byte-code "\204g\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\315\313#\210\302\316\313#\210\302\317\313#\210\302\320\313#\210\302\321\313#\210\302\322\313#\210\302\323\313#\210\302\324\313#\210\302\325\326#\210\302\327\330#\210\301\207" [awk-mode-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 12 35 "< " 47 "." 42 43 45 61 37 60 62 38 124 95 "_" 39 "\""] 4) #@42 Abbrev table in use in Awk-mode buffers. (defvar awk-mode-abbrev-table nil (#$ . 1103)) (define-abbrev-table 'awk-mode-abbrev-table nil) #@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\\([CV]\\|IND\\)\\|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\\|delete\\|exit\\|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\\(lower\\|upper\\)\\)\\)(" 1 font-lock-builtin-face) ("&&\\|||\\|<=\\|<\\|>=\\|>\\|==\\|!=\\|!~\\|~" . font-lock-constant-face)) (#$ . 1246)) #@349 Major mode for editing AWK code. This is much like C mode except for the syntax of comments. It uses the same keymap as C mode and has the same variables for customizing indentation. It has its own abbrev table and its own syntax table. Turning on AWK mode calls the value of the variable `awk-mode-hook' with no args, if that value is non-nil. (defalias 'awk-mode #[nil "\306 \210\307\310!\210\311 \210\312!\210\313\314 \315 !\210\316\317!\210\320&P\316\321!\210\316\322!\210\323\316\324!\210\325\316\326!\210\323\316\327!\210\330\316\331!\210\332\316\333!\210\334\316\335!\210\336\316\337!\210\340\316\341!\210\323!\316\342!\210\343\"\344\345!\207" [c-mode-map major-mode mode-name awk-mode-abbrev-table local-abbrev-table awk-mode-syntax-table kill-all-local-variables require cc-mode c-initialize-cc-mode use-local-map awk-mode "AWK" set-syntax-table make-local-variable paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix t indent-line-function c-indent-line require-final-newline comment-start "# " comment-end "" comment-column 32 comment-start-skip "#+ *" comment-indent-function c-comment-indent parse-sexp-ignore-comments font-lock-defaults (awk-font-lock-keywords nil nil ((95 . "w"))) run-hooks awk-mode-hook page-delimiter] 2 (#$ . 2129) nil]) (provide 'awk-mode)