;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'ess-s-lang) #@33 Indentation for Omega comments. (defalias 'OMG-comment-indent #[nil "\302\303!\203i\207\302\304!\203\305 \211<\203@\202)\207\306\307x\210n\203*\310\202,iT ]\207" [tem comment-column looking-at "////" "///" ess-calculate-indent " " nil 0] 3 (#$ . 109)]) #@33 Syntax table for Omegahat code. (defvar OMG-syntax-table nil (#$ . 382)) (byte-code "\204m\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\306#\210\302\312\306#\210\302\313\306#\210\302\314\306#\210\302\315\306#\210\302\316\317#\210\302\320\321#\210\302\322\321#\210\302\323\306#\210\302\324\306#\210\302\312\306#\210\302\313\306#\210\302\325\306#\210\301\207" [S-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 43 "." 45 61 37 60 62 38 124 39 "\"" 46 "_" 36 95 42 47] 4) #@44 General options for Omegahat source files. (defvar OMG-editing-alist '((paragraph-start concat "^$\\|" page-delimiter) (paragraph-separate concat "^$\\|" page-delimiter) (paragraph-ignore-fill-prefix . t) (require-final-newline . mode-require-final-newline) (comment-start . "//") (comment-start-skip . "//+ *") (comment-column . 40) (indent-line-function quote ess-indent-line) (parse-sexp-ignore-comments . t) (ess-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (font-lock-defaults quote (ess-OMG-font-lock-defaults nil nil ((46 . "w"))))) (#$ . 924)) #@43 Font-lock patterns used in `OMG' buffers. (defvar ess-OMG-font-lock-defaults (byte-code "\305\306\307B\310\311\"\312BD\310 !\313B\310\n\311\"\307B\310 \311\"\313B\f\314B\315\316B\257\"\207" [ess-S-keywords ess-S-assign-ops ess-S-constants ess-S-modifiers ess-S-function-name-regexp append "\\b[0-9]+\\b" font-lock-type-face regexp-opt words font-lock-keyword-face font-lock-constant-face (1 font-lock-function-name-face keep) "\\s.\\|\\s(\\|\\s)" font-lock-function-name-face] 8) (#$ . 1530)) #@61 Alist of (key . string) pairs for use in section searching. (defconst OMG-help-sec-keys-alist '((97 . "ARGUMENTS:") (98 . "BACKGROUND:") (66 . "BUGS:") (100 . "DESCRIPTION:") (68 . "DETAILS:") (101 . "EXAMPLES:") (110 . "NOTE:") (79 . "OPTIONAL ARGUMENTS:") (82 . "REQUIRED ARGUMENTS:") (114 . "REFERENCES:") (115 . "SEE ALSO:") (83 . "SIDE EFFECTS:") (117 . "USAGE:") (118 . "VALUE:")) (#$ . 2031)) #@56 Reg(ular) Ex(pression) of section headers in help file (defconst ess-help-OMG-sec-regex "^[A-Z. ---]+:$" (#$ . 2437)) (provide 'ess-omg-l)