;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require ess-mode ess-stata-lang] 2)
#@30 Name of 'dialect' for Stata.
(defvar STA-dialect-name "stata" (#$ . 164))
#@35 Variables to customize for Stata.
(defvar STA-customize-alist '((ess-local-customize-alist quote STA-customize-alist) (ess-language . "STA") (ess-dialect . STA-dialect-name) (ess-suffix . "ado") (ess-mode-editing-alist . STA-editing-alist) (ess-mode-syntax-table . STA-syntax-table) (ess-mode-edit quote STA-mode) (ess-help-sec-regex . ess-help-STA-sec-regex) (ess-help-sec-keys-alist . ess-help-STA-sec-keys-alist) (ess-loop-timeout . 500000) (ess-object-name-db-file . "ess-sta-namedb.el") (ess-help-web-search-command . "https://www.stata.com/search/?q=%s&restrict=&btnG=Search&client=stata&num=&output=xml_no_dtd&site=stata&ie=&oe=UTF-8&sort=&proxystylesheet=stata") (ess-eval-linewise-function function stata-eval-linewise) (inferior-ess-program . inferior-STA-program) (inferior-ess-objects-command . "describe\n") (inferior-ess-help-command . "help %s\n") (inferior-ess-exit-command . "exit\n") (inferior-ess-primary-prompt . "[.:] \\|--more--") (inferior-ess-secondary-prompt . "--more--") (comint-use-prompt-regexp . t) (inferior-ess-start-file . inferior-STA-start-file) (inferior-ess-start-args . inferior-STA-start-args) (ess-get-help-topics-function quote ess-get-STA-help-topics) (inferior-ess-search-list-command . "set more off\n search()\n") (comment-start . "/* ") (comment-end . " */") (comment-start-skip . "/\\*+ *") (comment-use-syntax . t) (ess-execute-screen-options-command . "set linesize %s\n") (ess-getwd-command . "pwd\n") (ess-setwd-command . "cd \"%s\"\n") (ess-load-command . "run \"%s\"\n")) (#$ . 244))
#@69 Major mode for editing Stata source.  See `ess-mode' for more help.
(defalias 'STA-mode #[(&optional proc-name) "\303\n\"\207" [STA-customize-alist ess-customize-alist proc-name ess-mode] 3 (#$ . 1787) nil])
(byte-code "\300\301M\210\302\301M\210\303\304\305\"\210\303\304\306\"\207" [stata-mode STA-mode Stata-mode add-to-list auto-mode-alist ("\\.do\\'" . STA-mode) ("\\.ado\\'" . STA-mode)] 3)
#@125 Remove one-line comments before sending the STRING to process.

This function is placed in `ess-presend-filter-functions'.

(defalias 'ess-sta-remove-comments #[(string) "\301\302\303#\207" [string replace-regexp-in-string "/\\*.*\\*/\\|^//.*$" ""] 4 (#$ . 2194)])
#@78 Functions run in process buffer after the initialization of
  stata process.
(defvar ess-stata-post-run-hook nil (#$ . 2466))
#@13 Call Stata.
(defalias 'stata #[(&optional start-args) "\306\307\310\np#!\210\f\205 \311\312!P\313!\210\314!\315\316\"\2035 \317\320\"\210\321\322\"\210\202 \317\323\"\210db\210r\324!q\210\325\326\327\330\331$\210\332\333!+\207" [STA-customize-alist ess-customize-alist ess-dialect inferior-STA-start-args start-args sta-start-args ess-write-to-dribble-buffer format "(STA): ess-dialect=%s , buf=%s \n" read-string "Starting Args [possibly -k####] ? " inferior-ess get-process process-get sec-prompt ess-send-string "q" ess-wait-for-process t "set more off" process-buffer add-hook ess-presend-filter-functions ess-sta-remove-comments nil local run-mode-hooks ess-stata-post-run-hook ess-local-process-name proc] 5 (#$ . 2598) "P"])
#@24 Stata transcript mode.
(defalias 'STA-transcript-mode #[nil "\301!\207" [STA-customize-alist ess-transcript-mode] 2 (#$ . 3357) nil])
(defalias 'ess--STA-retrive-topics-from-search #[nil "r\302!q\210eb\210\303\304\305\303\306#\203 \307\310\311!\312\"	\244\202 \313	!\237*\207" [inferior-ess-search-list-command topics ess-command nil re-search-forward "(help \\(.+?\\)\\( if installed\\| for replacement.*\\)?)$" t split-string match-string-no-properties 1 ",\\|; +" delete-dups] 4])
#@72 Return a list of current STA help topics associated with process NAME.
(defalias 'ess-get-STA-help-topics #[(&optional name) "\300\301!\206 \302\301\303 \"\210\300\301!\207" [ess-process-get help-topics ess-process-put ess--STA-retrive-topics-from-search] 3 (#$ . 3853)])
(defalias 'stata-eval-linewise #[(text &optional invisibly &rest args) "\304\203 \305	\306\307#\202 	\310\311	\312$*\207" [ess-sta-delimiter-friendly text ess-eval-linewise-function args nil ess-replace-in-string ";" "\n" apply ess-eval-linewise t] 5])
(provide 'ess-stata-mode)