;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require ob org-macs] 2) #@49 Default header arguments for forth code blocks. (defvar org-babel-default-header-args:forth '((:session . "yes")) (#$ . 473)) #@123 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 (#$ . 606)]) #@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\"\304\321\2033\322\2024\323\324\321\325\324##\266\202\326\327#\")\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-babel-expand-body:generic replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "\n" omit-nulls] 17 (#$ . 1064)]) (provide 'ob-forth)