Current File : //kunden/usr/share/emacs/27.2/lisp/org/ob-forth.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)