mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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)