;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require mmm-compat mmm-vars mmm-auto] 2) (defvar mmm-mason-perl-tags '("perl" "init" "cleanup" "once" "filter" "shared" "perl_init" "perl_cleanup" "perl_once" "perl_filter")) (defvar mmm-mason-pseudo-perl-tags '("args" "perl_args" "attr" "flags")) (defvar mmm-mason-non-perl-tags '("doc" "perl_doc" "text" "perl_text" "def" "perl_def" "method")) #@96 Matches tags beginning Mason sections containing Perl code. Saves the name of the tag matched. (defvar mmm-mason-perl-tags-regexp (byte-code "\301\302\303\"\304Q\207" [mmm-mason-perl-tags "<%" mmm-regexp-opt t ">"] 4) (#$ . 487)) #@104 Match tags beginning Mason sections that look like Perl but aren't. Saves the name of the tag matched. (defvar mmm-mason-pseudo-perl-tags-regexp (byte-code "\301\302\303\"\304Q\207" [mmm-mason-pseudo-perl-tags "<%" mmm-regexp-opt t ">"] 4) (#$ . 725)) #@106 Matches any Mason tag name after the "<%". Used to verify that a "<%" sequence starts an inline section. (defvar mmm-mason-tag-names-regexp (byte-code "\302\303 \"\304\"\207" [mmm-mason-perl-tags mmm-mason-non-perl-tags regexp-opt append t] 4) (#$ . 985)) (defalias 'mmm-mason-verify-inline #[nil "\301!?\207" [mmm-mason-tag-names-regexp looking-at] 2]) (byte-code "\302\303\304\305\306\307\310\311\312\313\314BBBBBBB\315\307\310\316\317\313 \320BBBBBBB\321BBBB\"\207" [mmm-mason-perl-tags-regexp mmm-mason-pseudo-perl-tags-regexp mmm-add-group mason (mason-text :submode nil :front "<%text>" :back "" :insert ((116 mason-<%text> nil @ "<%text>" @ "\n" _ "\n" @ "" @))) (mason-doc :submode text-mode :face mmm-comment-submode-face :front "<%doc>" :back "" :face nil :insert ((100 mason-<%doc> nil @ "<%doc>" @ "\n" _ "\n" @ "" @))) mason-perl :submode perl :match-face (("<%perl>" . mmm-code-submode-face) ("<%init>" . mmm-init-submode-face) ("<%cleanup>" . mmm-cleanup-submode-face) ("<%once>" . mmm-init-submode-face) ("<%filter>" . mmm-special-submode-face) ("<%shared>" . mmm-init-submode-face)) :front (:back "" :save-matches 1 :match-name "~1" :save-name 1 :insert ((44 mason-<%TAG> "Perl section: " @ "<%" str ">" @ ";\n" _ "\n" @ "" @) (60 mason-<%TAG> 44) (112 mason-<%perl> 44 . "perl") (105 mason-<%init> 44 . "init") (99 mason-<%cleanup> 44 . "cleanup") (111 mason-<%once> 44 . "once") (108 mason-<%filter> 44 . "filter") (115 mason-<%shared> 44 . "shared"))) mason-pseudo-perl :face mmm-declaration-submode-face (:back "" :save-matches 1 :insert ((46 mason-pseudo-<%TAG> "Pseudo-perl section: " @ "<%" str ">" @ "\n" _ "\n" @ "" @) (62 mason-pseudo-<%TAG> 44) (97 mason-<%args> 46 . "args") (102 mason-<%flags> 46 . "flags") (114 mason-<%attr> 46 . "attr"))) ((mason-inline :submode perl :face mmm-output-submode-face :front "<%" :front-verify mmm-mason-verify-inline :back "%>" :insert ((37 mason-<%-%> nil @ "<%" @ " " _ " " @ "%>" @) (53 mason-<%-%> 37))) (mason-call :submode perl :face mmm-special-submode-face :front "<&" :back "&>" :insert ((38 mason-<&-&> nil @ "<&" @ " " _ " " @ "&>" @) (55 mason-<&-&> 37))) (mason-one-line-comment :submode text-mode :face mmm-comment-submode-face :front "^%#" :back "\n" :insert ((35 mason-%-comment nil (mmm-mason-start-line) @ "%" @ "# " _ @ '(mmm-mason-end-line) "\n" @) (51 mason-%-comment 35))) (mason-one-line :submode perl :face mmm-code-submode-face :front "^%" :back "\n" :insert ((return mason-%-line nil (mmm-mason-start-line) @ "%" @ " " _ @ '(mmm-mason-end-line) "\n" @))))] 13) (defalias 'mmm-mason-start-line #[nil "n\203\300\207\301\207" ["" "\n"] 1]) (defalias 'mmm-mason-end-line #[nil "l\205\300\301!\207" [delete-char 1] 2]) (defalias 'mmm-mason-set-mode-line #[nil "\301\211\207" [mmm-buffer-mode-display-name "Mason"] 2]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook mmm-mason-class-hook mmm-mason-set-mode-line provide mmm-mason] 3)