Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ob-C.elc	13.79 KB	-rw-r--r--
ob-J.elc	5.38 KB	-rw-r--r--
ob-R.elc	15.77 KB	-rw-r--r--
ob-abc.elc	2.38 KB	-rw-r--r--
ob-asymptote.elc	3.67 KB	-rw-r--r--
ob-awk.elc	3.08 KB	-rw-r--r--
ob-calc.elc	2.34 KB	-rw-r--r--
ob-clojure.elc	7.16 KB	-rw-r--r--
ob-comint.elc	5.14 KB	-rw-r--r--
ob-coq.elc	2.24 KB	-rw-r--r--
ob-core.elc	99.63 KB	-rw-r--r--
ob-css.elc	888 B	-rw-r--r--
ob-ditaa.elc	3.02 KB	-rw-r--r--
ob-dot.elc	2.07 KB	-rw-r--r--
ob-ebnf.elc	1.42 KB	-rw-r--r--
ob-emacs-lisp.elc	3.22 KB	-rw-r--r--
ob-eshell.elc	3.05 KB	-rw-r--r--
ob-eval.elc	3.27 KB	-rw-r--r--
ob-exp.elc	10.81 KB	-rw-r--r--
ob-forth.elc	1.98 KB	-rw-r--r--
ob-fortran.elc	5.24 KB	-rw-r--r--
ob-gnuplot.elc	8.39 KB	-rw-r--r--
ob-groovy.elc	3.68 KB	-rw-r--r--
ob-haskell.elc	8.02 KB	-rw-r--r--
ob-hledger.elc	1.8 KB	-rw-r--r--
ob-io.elc	3.2 KB	-rw-r--r--
ob-java.elc	2.66 KB	-rw-r--r--
ob-js.elc	6.66 KB	-rw-r--r--
ob-latex.elc	6.12 KB	-rw-r--r--
ob-ledger.elc	1.71 KB	-rw-r--r--
ob-lilypond.elc	14 KB	-rw-r--r--
ob-lisp.elc	3.62 KB	-rw-r--r--
ob-lob.elc	4.97 KB	-rw-r--r--
ob-lua.elc	12.95 KB	-rw-r--r--
ob-makefile.elc	920 B	-rw-r--r--
ob-matlab.elc	500 B	-rw-r--r--
ob-maxima.elc	3.73 KB	-rw-r--r--
ob-mscgen.elc	1.32 KB	-rw-r--r--
ob-ocaml.elc	5.59 KB	-rw-r--r--
ob-octave.elc	9.69 KB	-rw-r--r--
ob-org.elc	1.67 KB	-rw-r--r--
ob-perl.elc	4.54 KB	-rw-r--r--
ob-picolisp.elc	4.53 KB	-rw-r--r--
ob-plantuml.elc	3.87 KB	-rw-r--r--
ob-processing.elc	4.58 KB	-rw-r--r--
ob-python.elc	13.04 KB	-rw-r--r--
ob-ref.elc	5.89 KB	-rw-r--r--
ob-ruby.elc	9.6 KB	-rw-r--r--
ob-sass.elc	1.5 KB	-rw-r--r--
ob-scheme.elc	6.45 KB	-rw-r--r--
ob-screen.elc	4.21 KB	-rw-r--r--
ob-sed.elc	2.7 KB	-rw-r--r--
ob-shell.elc	10.78 KB	-rw-r--r--
ob-shen.elc	1.95 KB	-rw-r--r--
ob-sql.elc	9.82 KB	-rw-r--r--
ob-sqlite.elc	4.46 KB	-rw-r--r--
ob-stan.elc	2.25 KB	-rw-r--r--
ob-table.elc	3.34 KB	-rw-r--r--
ob-tangle.elc	17.72 KB	-rw-r--r--
ob-vala.elc	3.04 KB	-rw-r--r--
ob.elc	692 B	-rw-r--r--
ol-bbdb.elc	12.23 KB	-rw-r--r--
ol-bibtex.elc	25.55 KB	-rw-r--r--
ol-docview.elc	2.05 KB	-rw-r--r--
ol-eshell.elc	1.51 KB	-rw-r--r--
ol-eww.elc	3.12 KB	-rw-r--r--
ol-gnus.elc	8.1 KB	-rw-r--r--
ol-info.elc	4.25 KB	-rw-r--r--
ol-irc.elc	5.87 KB	-rw-r--r--
ol-mhe.elc	5.32 KB	-rw-r--r--
ol-rmail.elc	2.61 KB	-rw-r--r--
ol-w3m.elc	3.82 KB	-rw-r--r--
ol.elc	55.84 KB	-rw-r--r--
org-agenda.elc	372.33 KB	-rw-r--r--
org-archive.elc	17.32 KB	-rw-r--r--
org-attach-git.elc	3.66 KB	-rw-r--r--
org-attach.elc	26.55 KB	-rw-r--r--
org-capture.elc	59.36 KB	-rw-r--r--
org-clock.elc	90.95 KB	-rw-r--r--
org-colview.elc	54.76 KB	-rw-r--r--
org-compat.elc	40.97 KB	-rw-r--r--
org-crypt.elc	6.43 KB	-rw-r--r--
org-ctags.elc	11.83 KB	-rw-r--r--
org-datetree.elc	7.31 KB	-rw-r--r--
org-duration.elc	11.6 KB	-rw-r--r--
org-element.elc	170.82 KB	-rw-r--r--
org-entities.elc	26.73 KB	-rw-r--r--
org-faces.elc	23.64 KB	-rw-r--r--
org-feed.elc	19.26 KB	-rw-r--r--
org-footnote.elc	28.36 KB	-rw-r--r--
org-goto.elc	9.24 KB	-rw-r--r--
org-habit.elc	13.51 KB	-rw-r--r--
org-id.elc	21.1 KB	-rw-r--r--
org-indent.elc	14.93 KB	-rw-r--r--
org-inlinetask.elc	8.61 KB	-rw-r--r--
org-install.el	452 B	-rw-r--r--
org-keys.elc	26.5 KB	-rw-r--r--
org-lint.elc	51.54 KB	-rw-r--r--
org-list.elc	88.99 KB	-rw-r--r--
org-loaddefs.el	89.89 KB	-rw-r--r--
org-macro.elc	11.38 KB	-rw-r--r--
org-macs.elc	38.95 KB	-rw-r--r--
org-mobile.elc	36.19 KB	-rw-r--r--
org-mouse.elc	31.71 KB	-rw-r--r--
org-num.elc	12.9 KB	-rw-r--r--
org-pcomplete.elc	12.56 KB	-rw-r--r--
org-plot.elc	9.87 KB	-rw-r--r--
org-protocol.elc	20.19 KB	-rw-r--r--
org-src.elc	38.07 KB	-rw-r--r--
org-table.elc	199.12 KB	-rw-r--r--
org-tempo.elc	4.92 KB	-rw-r--r--
org-timer.elc	14.02 KB	-rw-r--r--
org-version.el	587 B	-rw-r--r--
org.elc	700.45 KB	-rw-r--r--
ox-ascii.elc	66.43 KB	-rw-r--r--
ox-beamer.elc	34.81 KB	-rw-r--r--
ox-html.elc	129.5 KB	-rw-r--r--
ox-icalendar.elc	37.05 KB	-rw-r--r--
ox-latex.elc	116.71 KB	-rw-r--r--
ox-man.elc	31.11 KB	-rw-r--r--
ox-md.elc	23.26 KB	-rw-r--r--
ox-odt.elc	131.63 KB	-rw-r--r--
ox-org.elc	12.35 KB	-rw-r--r--
ox-publish.elc	49.05 KB	-rw-r--r--
ox-texinfo.elc	56.87 KB	-rw-r--r--
ox.elc	238.18 KB	-rw-r--r--

Code Editor : ob-J.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; 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,�\302\303\211\224#\304\303\"\302\303\225\"\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\\|$\$" substring 0 match-string "" 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#\306\307!\310!\210\311\312\230\203P�\313\314!\315\316\317\320\321!\322\"\323$\216r\211q\210c\210)r\211q\210\324\325\211\325\316%\210*\266\326\327\330#\331\"\202S�\332!!\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" generate-new-buffer " *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 (#$ . 1776)])
#@69 Sends STR to the `j-console-cmd' session and executes it.

(fn STR)
(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 (#$ . 2612)])
#@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 (#$ . 2945)])
#@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\252�G\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\210�U\203\210�\202\252�\315A@!\211\262\203\251�\315\3138!\211\262\203\251�U\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 (#$ . 3217)])
#@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 (#$ . 4035)])
#@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 (#$ . 4521)])
#@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 (#$ . 4732)])
#@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 (#$ . 4952)])
#@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 (#$ . 5245)])
(provide 'ob-J)

${this.title}

Code Editor : ob-J.elc