| 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 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [require ob custom-declare-variable org-babel-J-command funcall function #[0 "\300\207" [#1="jconsole"] 1 #1#] "Command to call J." :group org-babel :version "26.1" :package-version (Org . "9.0") :type string] 12) | |
| 16 | #@138 Expand BODY according to PARAMS, return the expanded body. | |
| 17 | PROCESSED-PARAMS isn't used yet. | |
| 18 | ||
| 19 | (fn BODY PARAMS &optional PROCESSED-PARAMS) | |
| 20 | (defalias 'org-babel-expand-body:J #[770 "\300!\207" [org-babel-J-interleave-echos-except-functions] 5 (#$ . 714)]) | |
| 21 | #@65 Interleave echo',' between each source line of BODY. | |
| 22 | ||
| 23 | (fn BODY) | |
| 24 | (defalias 'org-babel-J-interleave-echos #[257 "\300\301\302\303\"\304#\207" [mapconcat identity split-string "\n" "\necho','\n"] 6 (#$ . 974)]) | |
| 25 | #@83 Interleave echo',' between source lines of BODY that aren't functions. | |
| 26 | ||
| 27 | (fn BODY) | |
| 28 | (defalias 'org-babel-J-interleave-echos-except-functions #[257 "\300\301\"\203+ \211\302\211\224O\303\302\"\302\225\304O\305\230\203 \305\202$ \306!\307P\307\310!R\207\306!\207" [obj-string-match-m "\\(?:^\\|\n\\)[^\n]*\\(?:0\\|1\\|2\\|3\\|4\\|dyad\\) : 0\n.*\n)\\(?:\n\\|$\\)" 0 match-string nil "" org-babel-J-interleave-echos "\necho','\n" org-babel-J-interleave-echos-except-functions] 9 (#$ . 1189)]) | |
| 29 | (defalias 'org-babel-execute:j 'org-babel-execute:J) | |
| 30 | #@139 Execute a block of J code BODY. | |
| 31 | PARAMS are given by org-babel. | |
| 32 | This function is called by `org-babel-execute-src-block' | |
| 33 | ||
| 34 | (fn BODY PARAMS) | |
| 35 | (defalias 'org-babel-execute:J #[514 "\301\302!\210\303!\304\236A\305#\306\307!\310!\210\311\312\230\203R \313\314\315!!\316\317\320\321\322!\323\"\324$\216r\211q\210c\210)r\211q\210\325\326\211\326\317%\210*\266\327\330\331#\332\"\202U \333!!\207" [org-babel-J-command message "executing J source code block" org-babel-process-params :session org-babel-expand-body:J org-babel-temp-file "J-src" org-babel-j-initiate-session org-babel-J-strip-whitespace "none" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil org-babel-eval format "%s < %s" "" org-babel-J-eval-string] 15 (#$ . 1746)]) | |
| 36 | #@69 Sends STR to the `j-console-cmd' session and executes it. | |
| 37 | ||
| 38 | (fn STR) | |
| 39 | (defalias 'org-babel-J-eval-string #[257 "\300 r\301!q\210db\210\302\303\"c\210`\304 \210\305\306!\210\307d\"\262)\207" [j-console-ensure-session process-buffer format "\n%s\n" comint-send-input sit-for 0.1 buffer-substring-no-properties] 6 (#$ . 2609)]) | |
| 40 | #@55 Remove whitespace from jconsole output STR. | |
| 41 | ||
| 42 | (fn STR) | |
| 43 | (defalias 'org-babel-J-strip-whitespace #[257 "\300\301\302\303\304\305\306\307\310#\"\"\311#\207" [mapconcat identity delete "" mapcar org-babel-J-print-block split-string "^ *,\n" t "\n\n"] 11 (#$ . 2942)]) | |
| 44 | #@163 Return a number to describe STR alignment. | |
| 45 | STR represents a table. | |
| 46 | Positive/negative/zero result means right/left/undetermined. | |
| 47 | Don't trust first line. | |
| 48 | ||
| 49 | (fn STR) | |
| 50 | (defalias 'obj-get-string-alignment #[257 "\300!\301\302\303#\304\211G\305X\203 \306\202\227 G\307U\203J \310@!\247\203F \310A@!\247\203F \311@!\211\262\203F \311A@!\211\262\203F \211\202\227 \306\202\227 \312@!\204U \306\202\227 \312A@!\211\262\203u \312\3078!\211\262\203u U\203u \202\227 \311A@!\211\262\203\226 \311\3078!\211\262\203\226 U\203\226 [\202\227 \306\207" [org-trim split-string "\n" t nil 1 0 2 read obj-match-second-space-right obj-match-second-space-left] 8 (#$ . 3214)]) | |
| 51 | #@37 Prettify jconsole output X. | |
| 52 | ||
| 53 | (fn X) | |
| 54 | (defalias 'org-babel-J-print-block #[257 "\300!\301!\302\303\304#\305\306W\203# \307@!\262\310\\\311\"P\202; \306V\203: \312@!\262\310Z\311\"P\202; \207" [org-trim obj-get-string-alignment split-string "\n" t nil 0 obj-match-second-space-right make-string 32 obj-match-second-space-left] 8 (#$ . 3899)]) | |
| 55 | #@78 Return position of leftmost space in second space block of S or nil. | |
| 56 | ||
| 57 | (fn S) | |
| 58 | (defalias 'obj-match-second-space-left #[257 "\300\301\"\205 \302\224\207" [string-match "^ *[^ ]+\\( \\)" 1] 4 (#$ . 4261)]) | |
| 59 | #@79 Return position of rightmost space in second space block of S or nil. | |
| 60 | ||
| 61 | (fn S) | |
| 62 | (defalias 'obj-match-second-space-right #[257 "\300\301\"\205 \302\224\207" [string-match "^ *[^ ]+ *\\( \\)[^ ]" 1] 4 (#$ . 4472)]) | |
| 63 | #@134 Call (string-match REGEXP STRING START). | |
| 64 | REGEXP is modified so that .* matches newlines as well. | |
| 65 | ||
| 66 | (fn REGEXP STRING &optional START) | |
| 67 | (defalias 'obj-string-match-m #[770 "\300\301\302\303##\207" [string-match replace-regexp-in-string "\\.\\*" "[ -\377[:nonascii:]]*"] 8 (#$ . 4692)]) | |
| 68 | #@90 Initiate a J session. | |
| 69 | SESSION is a parameter given by org-babel. | |
| 70 | ||
| 71 | (fn &optional SESSION) | |
| 72 | (defalias 'org-babel-j-initiate-session #[256 "\211\300\230?\205 \301\302!\210\303 \207" ["none" require j-console j-console-ensure-session] 3 (#$ . 4985)]) | |
| 73 | (provide 'ob-J) | |
