;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require ess-omg-l ess-trns] 2) #@30 Name of 'dialect' for Omega. (defvar OMG-dialect-name "OMG" (#$ . 159)) #@43 Variables to customize for OMG (Omegahat) (defvar OMG-customize-alist '((ess-local-customize-alist quote OMG-customize-alist) (ess-language . "OMG") (ess-dialect . "omegahat") (ess-suffix . "omg") (ess-loop-timeout . 5000) (ess-dump-filename-template replace-regexp-in-string "S$" ess-suffix ess-dump-filename-template-proto) (ess-mode-editing-alist . OMG-editing-alist) (ess-mode-syntax-table . OMG-syntax-table) (ess-change-sp-regexp . #1="") (ess-help-sec-regex . ess-help-S+-sec-regex) (ess-help-sec-keys-alist . ess-help-S+sec-keys-alist) (ess-object-name-db-file . "ess-omg-namedb.el") (inferior-ess-program . inferior-OMG-program) (inferior-ess-objects-command . "objects(%d)\n") (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n") (inferior-ess-exit-command . "q()\n") (inferior-ess-primary-prompt . "\\[[0-9]*\\]") (inferior-ess-secondary-prompt . ".. ?") (comint-use-prompt-regexp . t) (inferior-ess-start-file) (inferior-ess-start-args . #1#)) (#$ . 237)) #@64 Call Omegahat, from the Omega Group for Statistical Computing. (defalias 'OMG #[(&optional start-args) "\306\307\310\np#!\210 \f\205\311\312!P\313 !)\207" [OMG-customize-alist ess-customize-alist ess-dialect inferior-ess-start-args start-args omg-start-args ess-write-to-dribble-buffer format "\n(OMG): ess-dialect=%s, buf=%s\n" read-string "Starting Args [possibly -CORBA] ? " inferior-ess] 5 (#$ . 1228) "P"]) (fset 'omegahat 'OMG) #@60 Major mode for editing Omegahat source. NOT EVEN STARTED. (defalias 'OMG-mode #[(&optional proc-name) "\304\n\"\210\305\211\207" [OMG-customize-alist ess-customize-alist proc-name major-mode ess-mode OMG-mode] 3 (#$ . 1673) nil]) (byte-code "\300\301\302\"\210\300\301\303\"\210\304\305M\207" [add-to-list auto-mode-alist ("\\.omg\\'" . omegahat-mode) ("\\.hat\\'" . omegahat-mode) omegahat-mode OMG-mode] 3) #@27 Omegahat transcript mode. (defalias 'OMG-transcript-mode #[nil "\301!\207" [OMG-customize-alist ess-transcript-mode] 2 (#$ . 2093) nil]) (provide 'ess-omg-d)