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 (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\227G\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\203uU\203u\202\227\311A@!\211\262\203\226\311\3078!\211\262\203\226U\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)