| Server IP : 217.160.0.212 / Your IP : 216.73.216.15 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/org/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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")) (#$ . 149))
#@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#\207\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 (#$ . 282)])
#@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\"\304\313\203( \314\202) \315\316\313\317\316##\266\202\320\321#\")\207" [require forth-mode forth-proc " \\(\n:\\|compiled\n\\|ok\n\\)" nil process-buffer mapcar make-closure #[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\2037 \302\242TG\\\316\224{\207\211\317\230\206M \211\320\230\205M \321\314\316\224Td{\"\210\307\207" [V0 V1 V2 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 (#$ . 737)])
(provide 'ob-forth)