ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-ruby.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("ruby" . "rb")] 3)
(defvar org-babel-default-header-args:ruby nil)
#@49 Name of command to use for executing ruby code.
(defvar org-babel-ruby-command "ruby" (#$ . 574))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\315\316\304\305\306\307\310\317\312\320& \207" [custom-declare-variable org-babel-ruby-hline-to "nil" "Replace hlines in incoming tables with this when translating to ruby." :group org-babel :version "24.4" :package-version (Org . "8.0") :type string org-babel-ruby-nil-to 'hline "Replace nil in ruby tables with this before returning." (Org . "8.0") symbol] 12)
#@100 Execute a block of Ruby code with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:ruby #[(body params) "\306\307\310\"A!\307\311\"A\307\312\"A\313\f\314!# \315\n\235\203C \316\317! )r)q\210\320\216\321\322!\210
c\210\323\307\324\"A!\210\325 +\202I \326
\n$ *\327\n +\330+\235?\205\246 \331+\235\204\235 \332+\235\204\235 \333+\235\204\235 \334+\235\204\235 \335+\235\204\235 \336+\235\204\226 \337+\235\204\226 \340+\235\204\226 \341+\235\203\242 \342+\235\204\242 *\202\246 \343*!)\344\307\345\"A\307\346\"A\"\344\307\347\"A\307\350\"A\"#-\207" [params session result-params result-type body full-body org-babel-ruby-initiate-session assoc :session :result-params :result-type org-babel-expand-body:generic org-babel-variable-assignments:ruby "xmp" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] require rcodetools xmp :xmp-option buffer-string org-babel-ruby-evaluate org-babel-reassemble-table "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" org-babel-ruby-table-or-string org-babel-pick-name :colname-names :colnames :rowname-names :rownames #1# result #2=#:--params] 8 (#$ . 1117)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:ruby #[(session params) "\304!\305 !\212\306 \307\216\310!\204 \311\312\"\210q\210\313\314!\210db\210\315\316\n\"\210+*\207" [session params var-lines save-match-data-internal org-babel-ruby-initiate-session org-babel-variable-assignments:ruby match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" sit-for 0.5 mapc #[(var) "c\210\302\303\304\"\210\305 !\210\306\307!\210db\207" [var session comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 3]] 3 (#$ . 2382)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:ruby #[(session body params) "\305 \306\216\307 \n\"r q\210\310\311p!!b\210\312\f!c\210) +\207" [#1=#:wconfig session params buffer body current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-babel-prep-session:ruby process-mark get-buffer-process org-babel-chomp] 3 (#$ . 3101)])
#@65 Return list of ruby statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:ruby #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "%s=%s" org-babel-ruby-var-to-ruby] 5] cdr org-babel-get-header :var] 7 (#$ . 3479)])
#@133 Convert VAR into a ruby variable.
Convert an elisp value into a string of ruby source code
specifying a variable of the same value.
(defalias 'org-babel-ruby-var-to-ruby #[(var) "<\203 \302\303\304\305#\306Q\207\307\232\203 \207\310\311\"\207" [var org-babel-ruby-hline-to "[" mapconcat org-babel-ruby-var-to-ruby ", " "]" hline format "%S"] 5 (#$ . 3794)])
#@166 Convert RESULTS into an appropriate elisp value.
If RESULTS look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-ruby-table-or-string #[(results) "\302!\211<\203 \303\304 \"\202 )\207" [results res org-babel-script-escape mapcar #[(el) "\302\232\203 \207\207" [el org-babel-ruby-nil-to nil] 2]] 4 (#$ . 4166)])
#@137 Initiate a ruby session.
If there is not a current inferior-process-buffer in SESSION
then create one. Return the initialized session.
(defalias 'org-babel-ruby-initiate-session #[(&optional session params) "\303\230?\205. \304\305!\210\306 \307\216\310\311\"\210p*\312\n!\203& \313\314!\210\n\202- \313\315!\210\316!)\207" [session #1=#:wconfig session-buffer "none" require inf-ruby current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] run-ruby nil org-babel-comint-buffer-livep sit-for 0.25 0.5 org-babel-ruby-initiate-session] 3 (#$ . 4566)])
#@51 String to indicate that evaluation has completed.
(defvar org-babel-ruby-eoe-indicator ":org_babel_ruby_eoe" (#$ . 5154))
(defvar org-babel-ruby-f-write "File.open('%s','w'){|f| f.write((_.class == String) ? _ : _.inspect)}")
(defvar org-babel-ruby-pp-f-write "File.open('%s','w'){|f| $stdout = f; pp(results); $stdout = orig_out}")
(defvar org-babel-ruby-wrapper-method "\ndef main()\n%s\nend\nresults = main()\nFile.open('%s', 'w'){ |f| f.write((results.class == String) ? results : results.inspect) }\n")
(defvar org-babel-ruby-pp-wrapper-method "\nrequire 'pp'\ndef main()\n%s\nend\nresults = main()\nFile.open('%s', 'w') do |f|\n $stdout = f\n pp results\nend\n")
#@225 Pass BODY to the Ruby process in BUFFER.
If RESULT-TYPE equals 'output then return a list of the outputs
of the statements in BODY, if RESULT-TYPE equals 'value then
return the value of the last statement in BODY, as elisp.
(defalias 'org-babel-ruby-evaluate #[(buffer body &optional result-type result-params) "\204O \306 \307\"\203 \310\n \"\207\306 \311\"\205\363\312\313! \310\n\314\315
\235\203) :\202+ ; \316\f\317\"#\"\210\320\f! <\321
\235\204D \315
\235\203I <\202M \322<!*\207\306 \307\"\203 \323\324\325\326\323\327\325\212\330 =\331\216\332!\204o \333\334\"\210q\210\335\336\211 < > ?\337@B@\340\216\341\342p!!b\210`d A\211 BA{>BA|\210*\343\344 CD\"\210\345\336\346\"\210Db\210\212\347\350C!\336\346#\205\300 \347E\336\346#)\204\315 \351\342p!!\210\202\252 \341\342p!!b\210>c\210) \203\367 \352\353\354\355\350 \206\347 \335!#?\"\203\367 ?\356\225\336O<\326?E\".\357\"\354#\360\"!\354#\207\306 \311\"\205\363\312\313! \321
\235\206 \315
\235 F\212\330 =\361\216\332!\2041\333\334\"\210q\210\335\336\211 < > ?\362@B@\363\216\341\342p!!b\210`d A\211 BA{>BA|\210*F\203l\364c\210\345\336\346\"\210\343\365\366 CF\204\202\314G\316\f\317\"\"C\202\216\367\370\371\314H\316\f\317\"\"FCC#\"\210\345\336\346\"\210Db\210\212\347\350C!\336\346#\205\257\347E\336\346#)\204\274\351\342p!!\210\202\231\341\342p!!b\210>c\210) \203\346\352\353\354\355\350 \206\326\335!#?\"\203\346?\356\225\336O<\326?E\"\210.\320\f!*\207" [buffer result-type org-babel-ruby-command body tmp-file result-params eql output org-babel-eval value org-babel-temp-file "ruby-" format "pp" org-babel-process-file-name noquote org-babel-eval-read-file "code" org-babel-ruby-table-or-string mapconcat identity butlast split-string org-babel-trim match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" "" nil #[#1=(text) " P\211\207" [string-buffer text] 2] #[nil "A\211\207" [comint-output-filter-functions] 2] process-mark get-buffer-process mapc #[(line) "\301!c\210\302\303\304\"\207" [line org-babel-chomp comint-send-input nil t] 3] comint-send-input t re-search-forward regexp-quote accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" 0 2 "[
\n]" #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #[#1# " P\211\207" [string-buffer text] 2] #[nil "A\211\207" [comint-output-filter-functions] 2] "require 'pp';" #[(line) "\301!c\210\302\303\304\"\207" [line org-babel-chomp comint-send-input nil t] 3] append "results=_" "require 'pp'" "orig_out = $stdout" org-babel-ruby-pp-wrapper-method org-babel-ruby-wrapper-method raw save-match-data-internal dangling-text string-buffer comint-output-filter-functions end start org-babel-ruby-eoe-indicator comint-last-input-end comint-prompt-regexp ppp org-babel-ruby-f-write org-babel-ruby-pp-f-write] 14 (#$ . 5832)])
#@38 Strip \"s from around a ruby string.
(defalias 'org-babel-ruby-read-string #[(string) "\301\302\"\203\f \303\304\"\207\207" [string string-match "^\"\\([^ ]+\\)\"$" match-string 1] 3 (#$ . 8815)])
(provide 'ob-ruby)
Kontol Shell Bypass