| 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 | (require 'ob) | |
| 16 | #@49 Default header arguments for forth code blocks. | |
| 17 | (defvar org-babel-default-header-args:forth '((:session . "yes")) (#$ . 422)) | |
| 18 | #@122 Execute a block of Forth code with org-babel. | |
| 19 | This function is called by `org-babel-execute-src-block' | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-execute:forth #[514 "\300\236A\301\230\203 \302\303!\207\304\"\305\306\236A\235\203\" \307\310\311#\202& \312!@\207" [:session "none" error "Non-session evaluation not supported for Forth code blocks" org-babel-forth-session-execute "output" :result-params mapconcat identity "\n" last] 7 (#$ . 555)]) | |
| 23 | #@20 | |
| 24 | ||
| 25 | (fn BODY PARAMS) | |
| 26 | (defalias 'org-babel-forth-session-execute #[514 "\300\301!\210\302 \303\304Cr\305\302 !q\210\306\307\310\311\312\313#\314\"\315\316%\317\320\321 \"!\322\323#\")\207" [require forth-mode forth-proc " \\(\n:\\|compiled\n\\|ok\n\\)" nil process-buffer mapcar make-byte-code 257 "\302\303\300!b\210`\240\210\304\300\305P\"\210\302\242b\210\306\301\307\310#\204$ \311\300\312\"\210\202 \313\314!\211\315\230\203: \316\302\242\314G#\317\224{\202P \211\320\230\206P \211\321\230\205P \322\314\317\224Td{\"\210\307\207" vconcat vector [process-mark comint-send-string "\n" re-search-forward nil t accept-process-output 0.01 match-string 1 "ok\n" + 0 "compiled\n" "\n:" org-babel-eval-error-notify] 6 "\n\n(fn LINE)" split-string org-trim org-babel-expand-body:generic "\n" omit-nulls] 14 (#$ . 1012)]) | |
| 27 | (provide 'ob-forth) | |
