;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\"\301\207" [auto-mode-alist require ess-bugs-l ess-utils ess-inf ess-custom ess-mode append (("\\.[bB][uU][gG]\\'" . ess-bugs-mode))] 3) #@31 Default BUGS program in PATH. (defvar ess-bugs-command "OpenBUGS" (#$ . 312)) (make-local-variable 'ess-bugs-command) #@39 Default list of variables to monitor. (defvar ess-bugs-monitor '("") (#$ . 436)) (make-local-variable 'ess-bugs-monitor) #@29 Default thinning parameter. (defvar ess-bugs-thin 1 (#$ . 563)) (make-local-variable 'ess-bugs-thin) #@27 Default number of chains. (defvar ess-bugs-chains 1 (#$ . 670)) (make-local-variable 'ess-bugs-chains) #@18 Default burn-in. (defvar ess-bugs-burnin 10000 (#$ . 779)) (make-local-variable 'ess-bugs-burnin) #@41 Default number of updates after burnin. (defvar ess-bugs-update 10000 (#$ . 883)) (make-local-variable 'ess-bugs-update) #@53 Default whether BUGS recognizes the system command. (defvar ess-bugs-system nil (#$ . 1010)) #@32 ESS[BUGS]: Font lock keywords. (defvar ess-bugs-font-lock-keywords (byte-code "\304B\305 B\306\nB\307 B\310 B\311 B\257\207" [font-lock-comment-face font-lock-keyword-face font-lock-constant-face font-lock-function-name-face "#.*\n" "^[ ]*\\(model\\|var\\)\\>" "\\(" "\\<\\(End\\|Local Variables\\)\\>:"] 7) (#$ . 1109)) #@40 ESS[BUGS]: Switch to file with suffix. (defalias 'ess-bugs-switch-to-suffix #[(suffix &optional bugs-chains bugs-monitor bugs-thin bugs-burnin bugs-update) "\306 \nQ!\210\307 \310=\205\n\311\232\2037\312c\210\313c\210\314c\210\315c\210\316\317\261\210\320c\210\321c\210\322c\210\323c\210\324c\210\325c\210\n\326\232\205\327\211\2114\203L456\203U678\203^89\330\331\3325\"\333Q54\3104W\203\215 \334 \335\331\3324\"\336\331\3324\"\333\2604S4\202k\3277<\203\2647:\203\2647@\327\230\204\253\f\3377@\340R7A\2117\202\221\341 \342\261\210\343 \344\261\210\345 \346\347#c\210\350c\210\351\331\332:\"\333\261\210\fc\210\351\331\3328;_\"\333\261\210\3528W\203\365\353\331\3328\"\333\261\210\354 \340\261\210\355c\210\356\317\261\210\357\331\3325\"\360\261\210\361<\362\261\210\363c+\207" [ess-bugs-file-dir ess-bugs-file-root suffix ess-bugs-temp-chain ess-bugs-temp-monitor ess-bugs-temp-chains find-file buffer-size 0 ".bug" "model {\n" " for (i in 1:N) {\n \n" " }\n" "}\n" "#Local Variables" ":\n" "#ess-bugs-chains:1\n" "#ess-bugs-monitor:(\"\")\n" "#ess-bugs-thin:1\n" "#ess-bugs-burnin:10000\n" "#ess-bugs-update:10000\n" "#End:\n" ".bmd" "" "modelCompile(" format "%d" ")\n" "modelInits('" ".##" "', " "samplesSet('" "')\n" "modelCheck('" ".bug')\n" "modelData('" ".bdt')\n" ess-replace-in-string "##" "in" "modelGenInits()\n" "modelUpdate(" 1 "samplesThin(" "samplesCoda('*', '" "modelQuit()\n" "Local Variables" "ess-bugs-chains:" "\n" "ess-bugs-command:\"" "\"\n" "End:\n" bugs-chains ess-bugs-chains bugs-monitor ess-bugs-monitor bugs-thin ess-bugs-thin bugs-burnin bugs-update ess-bugs-command] 10 (#$ . 2465)]) #@46 ESS[BUGS]: Perform the Next-Action for .bmd. (defalias 'ess-bugs-na-bmd #[(bugs-command bugs-chains) "\306 \307=\203 \310\311!\207\312 \210\313 \210\314\315!\203+\315 \203+\316\317O\320\230\203+\307\317Oc\210\321 \210\322 \323\261\210\321 \210\324\n\325 \326\f\327\f\330 \331\261 \210\321 \207" [ess-bugs-file ess-bugs-file-dir ess-bugs-batch-pre-command bugs-command ess-bugs-file-root ess-bugs-batch-post-command buffer-size 0 ess-bugs-switch-to-suffix ".bmd" shell ess-sleep fboundp w32-shell-dos-semantics 1 2 ":" comint-send-input "cd \"" "\"" "echo '" " " " < " ".bmd > " ".bog 2>&1 " "' | at now"] 11 (#$ . 4158)]) #@41 ESS[BUGS]: Perform Next-Action for .bug (defalias 'ess-bugs-na-bug #[nil "\305 \306=\203 \307\310!\207\311 \210\307\312 \n \f&\207" [ess-bugs-chains ess-bugs-monitor ess-bugs-thin ess-bugs-burnin ess-bugs-update buffer-size 0 ess-bugs-switch-to-suffix ".bug" ess-save-and-set-local-variables ".bmd"] 7 (#$ . 4793)]) #@33 ESS[BUGS]: Major mode for BUGS. (defalias 'ess-bugs-mode #[nil "\305 \210\306\307!\210\310\311\312\n!\210\313\303!\210\314\315\316\317!\210\320\321!\205#\321 ?\205+\322\323\324\"\207" [major-mode mode-name ess-bugs-mode-map font-lock-defaults ess-language kill-all-local-variables ess-setq-vars-local ((comment-start . "#")) ess-bugs-mode "ESS[BUGS]" use-local-map make-local-variable (ess-bugs-font-lock-keywords nil t) "S" run-mode-hooks ess-bugs-mode-hook fboundp w32-shell-dos-semantics add-hook comint-output-filter-functions ess-bugs-exit-notify-sh] 3 (#$ . 5118) nil]) (byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\207" [add-to-list auto-mode-alist ("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode) ("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode) ("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)] 3) #@72 For BUGS/S family: Express +/-0.000E+/-0 or +/-0.0e+/-00 as a decimal. (defalias 'ess-sci-to-dec #[nil "\305\212\306b\210\307 \310\216\305\306\211\311\312\305\313#\205b\314\315\316\306!!!\306\225\306\224Z\307 \317\216\320\321\f\"\211\204:\320\322\f\"* \203D\f\306 O\n\323\f!Z\211\306V\203[\f\324P\nS\211\202K\325\f!\210\202.\207" [buffer-read-only save-match-data-internal ess-temp-replacement-diff ess-temp-replacement-9 ess-temp-replacement-string nil 0 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] search-forward-regexp "-?[0-9][.][0-9][0-9]?[0-9]?[Ee][+-][0-9][0-9]?" t int-to-string string-to-number match-string #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "99999999999$" "000000000001$" string-width " " replace-match] 5 (#$ . 5924) nil]) (byte-code "\301\302\"\303\302!\207" [features delete ess-bugs-d provide] 3)