;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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!\210\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320& \207" [require ob org-macs 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) #@138 Expand BODY according to PARAMS, return the expanded body. PROCESSED-PARAMS isn't used yet. (fn BODY PARAMS &optional PROCESSED-PARAMS) (defalias 'org-babel-expand-body:J #[770 "\300!\207" [org-babel-J-interleave-echos-except-functions] 5 (#$ . 736)]) #@65 Interleave echo',' between each source line of BODY. (fn BODY) (defalias 'org-babel-J-interleave-echos #[257 "\300\301\302\303\"\304#\207" [mapconcat identity split-string "\n" "\necho','\n"] 6 (#$ . 996)]) #@83 Interleave echo',' between source lines of BODY that aren't functions. (fn BODY) (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 (#$ . 1211)]) (defalias 'org-babel-execute:j 'org-babel-execute:J) #@140 Execute a block of J code BODY. PARAMS are given by org-babel. This function is called by `org-babel-execute-src-block'. (fn BODY PARAMS) (defalias 'org-babel-execute:J #[514 "\301\302!\210\303!\304\236A\305\236\211\203\211A\202\306\262\307#\310\311!\312!\210\313\314\230\203a\315\316\317!!\320\321\322\323\324!\325\"\326$\216r\211q\210c\210)r\211q\210\327\330\211\330\321%\210*\266\331\332\333#\334\"\202e\335\"!\207" [org-babel-J-command message "executing J source code block" org-babel-process-params :session :sit 0.1 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] 16 (#$ . 1768)]) #@78 Sends STR to the `j-console-cmd' session and executes it. (fn STR SIT-TIME) (defalias 'org-babel-J-eval-string #[514 "\300 r\301!q\210db\210\302\303\"c\210`\304 \210\305!\210\306d\"\262)\207" [j-console-ensure-session process-buffer format "\n%s\n" comint-send-input sit-for buffer-substring-no-properties] 7 (#$ . 2682)]) #@55 Remove whitespace from jconsole output STR. (fn STR) (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 (#$ . 3017)]) #@163 Return a number to describe STR alignment. STR represents a table. Positive/negative/zero result means right/left/undetermined. Don't trust first line. (fn STR) (defalias 'obj-get-string-alignment #[257 "\211\300\301\203 \302\202\f\303\304\301\305\304##\266\202\306\307\310#\300\211G\311X\203(\312\202\252G\313U\203]\314@!\247\203Y\314A@!\247\203Y\315@!\211\262\203Y\315A@!\211\262\203Y\211\202\252\312\202\252\316@!\204h\312\202\252\316A@!\211\262\203\210\316\3138!\211\262\203\210U\203\210\202\252\315A@!\211\262\203\251\315\3138!\211\262\203\251U\203\251[\202\252\312\207" [nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" split-string "\n" t 1 0 2 read obj-match-second-space-right obj-match-second-space-left] 10 (#$ . 3289)]) #@37 Prettify jconsole output X. (fn X) (defalias 'org-babel-J-print-block #[257 "\211\300\301\203 \302\202\f\303\304\301\305\304##\266\202\306!\307\310\311#\300\312W\2036\313@!\262\314\\\315\"P\202N\312V\203M\316@!\262\314Z\315\"P\202N\207" [nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" obj-get-string-alignment split-string "\n" t 0 obj-match-second-space-right make-string 32 obj-match-second-space-left] 10 (#$ . 4107)]) #@78 Return position of leftmost space in second space block of S or nil. (fn S) (defalias 'obj-match-second-space-left #[257 "\300\301\"\205 \302\224\207" [string-match "^ *[^ ]+\\( \\)" 1] 4 (#$ . 4593)]) #@79 Return position of rightmost space in second space block of S or nil. (fn S) (defalias 'obj-match-second-space-right #[257 "\300\301\"\205 \302\224\207" [string-match "^ *[^ ]+ *\\( \\)[^ ]" 1] 4 (#$ . 4804)]) #@134 Call (string-match REGEXP STRING START). REGEXP is modified so that .* matches newlines as well. (fn REGEXP STRING &optional START) (defalias 'obj-string-match-m #[770 "\300\301\302\303##\207" [string-match replace-regexp-in-string "\\.\\*" "[-\377[:nonascii:]]*"] 8 (#$ . 5024)]) #@90 Initiate a J session. SESSION is a parameter given by org-babel. (fn &optional SESSION) (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 (#$ . 5317)]) (provide 'ob-J)