;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'ob)
|
#@49 Default header arguments for forth code blocks.
|
(defvar org-babel-default-header-args:forth '((:session . "yes")) (#$ . 422))
|
#@122 Execute a block of Forth code with org-babel.
|
This function is called by `org-babel-execute-src-block'
|
|
(fn BODY PARAMS)
|
(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)])
|
#@20
|
|
(fn BODY PARAMS)
|
(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)])
|
(provide 'ob-forth)
|
