| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\207" [require ob org-compat custom-declare-variable org-babel-stan-cmdstan-directory funcall function #[0 "\300\207" [nil] 1] "CmdStan source directory.\nCall \"make\" from this directory to compile the Stan block.\nWhen nil, executing Stan blocks dumps the content to a file." :group org-babel :type (choice (directory :tag "Compilation directory") (const :tag "Dump to a file" nil))] 8) | |
| 16 | (defvar org-babel-default-header-args:stan '((:results . "file"))) | |
| 17 | #@345 Generate Stan file from BODY according to PARAMS. | |
| 18 | A :file header argument must be given. If | |
| 19 | `org-babel-stan-cmdstan-directory' is non-nil and the file name | |
| 20 | does not have a ".stan" extension, save an intermediate | |
| 21 | ".stan" file and compile the block to the named file. | |
| 22 | Otherwise, write the Stan code directly to the named file. | |
| 23 | ||
| 24 | (fn BODY PARAMS) | |
| 25 | (defalias 'org-babel-execute:stan #[514 "\303\304\236A\206 \305\306!!\203 \307\310\311\312#)\266\203\203L \211\313\314\315!!\316\317\320\321\322!\323\"\324$\216r\211q\210c\210)r\211q\210\325\310\211\310\317%\210*\266\202\200 \211\326P\313\314\315!!\316\317\320\321\322!\327\"\324$\216r\211q\210c\210)r\211q\210\325\310\211\310\317%\210*\266\330\331P!\210)\310\207" [org-babel-stan-cmdstan-directory inhibit-changing-match-data default-directory expand-file-name :file user-error "Set :file argument to execute Stan blocks" "\\.stan\\'" nil t string-match get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region ".stan" [buffer-name kill-buffer] call-process-shell-command "make "] 11 (#$ . 948)]) | |
| 26 | #@78 Return an error because Stan does not support sessions. | |
| 27 | ||
| 28 | (fn SESSION PARAMS) | |
| 29 | (defalias 'org-babel-prep-session:stan #[514 "\300\301!\207" [user-error "Stan does not support sessions"] 4 (#$ . 2121)]) | |
| 30 | (provide 'ob-stan) | |
