| 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\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("ruby" . "rb")] 3) | |
| 16 | (defvar org-babel-default-header-args:ruby nil) | |
| 17 | #@49 Name of command to use for executing ruby code. | |
| 18 | (defvar org-babel-ruby-command "ruby" (#$ . 572)) | |
| 19 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\307\310\311\312\321\314\322& \207" [custom-declare-variable org-babel-ruby-hline-to funcall function #[0 "\300\207" [#1="nil"] 1 #1#] "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 #[0 "\300\207" [hline] 1] "Replace nil in ruby tables with this before returning." (Org . "8.0") symbol] 12) | |
| 20 | #@118 Execute a block of Ruby code with Babel. | |
| 21 | This function is called by `org-babel-execute-src-block'. | |
| 22 | ||
| 23 | (fn BODY PARAMS) | |
| 24 | (defalias 'org-babel-execute:ruby #[514 "\300\301\236A!\302\236A\303\236A\304\305!#\306\235\203F \307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320\321!\210c\210\322\323\236A!\210\324 *\262\202M \325$\326\327\235?\205\237 \330\235\204\230 \331\235\204\230 \332\235\204\230 \333\235\204\230 \334\235\204\230 \335\235\204\230 \336\235\204\222 \337\235\204\222 \340\235\204\222 \341\235\203\234 \342\235\204\234 \202\237 \343!\262\344\345 \236A\346\n\236A\"\344\347\n\236A\350 \236A\"#\207" [org-babel-ruby-initiate-session :session :result-params :result-type org-babel-expand-body:generic org-babel-variable-assignments:ruby "xmp" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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" "file" "output" "raw" "org" "drawer" "table" org-babel-ruby-table-or-string org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 14 (#$ . 1198)]) | |
| 25 | #@93 Prepare SESSION according to the header arguments specified in PARAMS. | |
| 26 | ||
| 27 | (fn SESSION PARAMS) | |
| 28 | (defalias 'org-babel-prep-session:ruby #[514 "\301!\302!\303!\204 \304\305\"\210\306 \307\310\311\312\313!\314\"\315$\216rq\210\212\316\317\320!\210db\210\321\307\322\323\312\313!\324\"\325\326%\"\210,\210\207" [comint-input-filter org-babel-ruby-initiate-session org-babel-variable-assignments:ruby org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] sit-for 0.5 mapc 257 "\211c\210\301\302\303\"\210\304\300!\210\305\306!\210db\207" [comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 4 "\n\n(fn VAR)"] 12 (#$ . 2429)]) | |
| 29 | #@51 Load BODY into SESSION. | |
| 30 | ||
| 31 | (fn SESSION BODY PARAMS) | |
| 32 | (defalias 'org-babel-load-session:ruby #[771 "\300 \301\302\303\304\305!\306\"\307$\216\310\"r\211q\210\311\312p!!b\210\313!c\210)\211\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-prep-session:ruby process-mark get-buffer-process org-babel-chomp] 10 (#$ . 3245)]) | |
| 33 | #@78 Return list of ruby statements assigning the block's variables. | |
| 34 | ||
| 35 | (fn PARAMS) | |
| 36 | (defalias 'org-babel-variable-assignments:ruby #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "%s=%s" org-babel-ruby-var-to-ruby] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 3652)]) | |
| 37 | #@143 Convert VAR into a ruby variable. | |
| 38 | Convert an elisp value into a string of ruby source code | |
| 39 | specifying a variable of the same value. | |
| 40 | ||
| 41 | (fn VAR) | |
| 42 | (defalias 'org-babel-ruby-var-to-ruby #[257 "\211<\203 \301\302\303\304#\305Q\207\211\306=\203 \207\307\310\"\207" [org-babel-ruby-hline-to "[" mapconcat org-babel-ruby-var-to-ruby ", " "]" hline format "%S"] 6 (#$ . 3951)]) | |
| 43 | #@180 Convert RESULTS into an appropriate elisp value. | |
| 44 | If RESULTS look like a table, then convert them into an | |
| 45 | Emacs-lisp table, otherwise return the results as a string. | |
| 46 | ||
| 47 | (fn RESULTS) | |
| 48 | (defalias 'org-babel-ruby-table-or-string #[257 "\300!\211<\203 \301\302\"\202 \211\207" [org-babel-script-escape mapcar #[257 "\211\204 \207\207" [org-babel-ruby-nil-to] 2 "\n\n(fn EL)"]] 5 (#$ . 4330)]) | |
| 49 | #@168 Initiate a ruby session. | |
| 50 | If there is not a current inferior-process-buffer in SESSION | |
| 51 | then create one. Return the initialized session. | |
| 52 | ||
| 53 | (fn &optional SESSION PARAMS) | |
| 54 | (defalias 'org-babel-ruby-initiate-session #[512 "\302\230?\205I \303\304!\210\305 \"A\306\307\310\"!\211\2062 \311 \312\313\314\315\316!\317\"\320$\216\321\"\210p)\262\322!\203@ \323\324!\210\211\202G \323\325!\210\326!\266\203\207" [inf-ruby-default-implementation inf-ruby-implementations "none" require inf-ruby assoc get-buffer format "*%s*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-ruby org-babel-comint-buffer-livep sit-for 0.25 0.5 org-babel-ruby-initiate-session] 11 (#$ . 4727)]) | |
| 55 | #@51 String to indicate that evaluation has completed. | |
| 56 | (defvar org-babel-ruby-eoe-indicator ":org_babel_ruby_eoe" (#$ . 5469)) | |
| 57 | (defvar org-babel-ruby-f-write "File.open('%s','w'){|f| f.write((_.class == String) ? _ : _.inspect)}") | |
| 58 | (defvar org-babel-ruby-pp-f-write "File.open('%s','w'){|f| $stdout = f; pp(results); $stdout = orig_out}") | |
| 59 | (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") | |
| 60 | (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") | |
| 61 | #@281 Pass BODY to the Ruby process in BUFFER. | |
| 62 | If RESULT-TYPE equals `output' then return a list of the outputs | |
| 63 | of the statements in BODY, if RESULT-TYPE equals `value' then | |
| 64 | return the value of the last statement in BODY, as elisp. | |
| 65 | ||
| 66 | (fn BUFFER BODY &optional RESULT-TYPE RESULT-PARAMS) | |
| 67 | (defalias 'org-babel-ruby-evaluate #[1026 "\2040 \306\267\202. \307\"\207\310\311!\307\312\313\235\203 \202 \n\314\315\"#\"\210\316!\207\317\207\320\267\202\217\312\321 \"\322!\204F \323\324\"\210\325 \326\327\330\331\332!\333\"\334$\216rq\210\212\335 \336C\326\337\340\331\332!\341\"\342\343% B \317\344\345p!!b\210`d{\262|\266c\210\346\317\347\"\210@b\210\212\350\351 !\317\347#\205\235 \350A\317\347#)\204\252 \352\345p!!\210\202\210 \344\345p!!b\210\211c\210\203\324 \353\354\355\356\351\206\303 \336!#\242\"\203\324 \211\242\327\225\317O\240\210\357\242A\"\210)\266,\210\360\361\362\357\360\363\322 !\204\363 \323\324\f\"\210\325 \326\327\330\331\332!\364\"\334$\216r q\210\212\365 \336C\326\337\340\331\332!\341\"\342\343% B \317\344\345p!!b\210`d{\262|\266\366\367\370\371F\"\210@b\210\212\350\351 !\317\347#\205N\350A\317\347#)\204[\352\345p!!\210\2029\344\345p!!b\210\211c\210\f\203\206\353\354\355\356\351\206u\336!#\242\"\203\206\211\242\327\225\317O\240\210\357\242A\")\266\202,\262\355#\372\"\342\"\355#\207\310\311!\373\235\206\247\313\235\322!\204\264\323\324\"\210\325 \326\327\330\331\332!\374\"\334$\216rq\210\212\375 \336C\326\337\340\331\332!\341\"\342\343% B \317\344\345p!!b\210`d{\262|\266\203\373\376c\210\346\317\347\"\210\366\377\201D \nC\204\312B\314 \315\"\"C\202(\201E \201F \201G \312C\314\315\"\"F C#\"\210\346\317\347\"\210@b\210\212\350\351 !\317\347#\205G\350A\317\347#)\204T\352\345p!!\210\2022\344\345p!!b\210\211c\210\203\353\354\355\356\351\f\206n\336!#\242\"\203\211\242\327\225\317O\240\210\357\242A\"\210)\266,\210\316!\207\317\207" [org-babel-ruby-command org-babel-ruby-pp-wrapper-method org-babel-ruby-wrapper-method org-babel-ruby-eoe-indicator comint-input-filter comint-output-filter-functions #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 10 value 15)) org-babel-eval org-babel-temp-file "ruby-" format "pp" org-babel-process-file-name noquote org-babel-eval-read-file nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 54 value 411)) "puts \"%s\"" org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" 257 "\300\211\242P\240\207" [] 4 "\n\n(fn TEXT)" process-mark get-buffer-process comint-send-input t re-search-forward regexp-quote accept-process-output string-match replace-regexp-in-string "\n" "[ \n]+" split-string mapconcat identity butlast org-trim [set-match-data evaporate] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] mapc #[257 "\300!c\210\301\302\303\"\207" [org-babel-chomp comint-send-input nil t] 4 "\n\n(fn LINE)"] "conf.echo=false;_org_prompt_mode=conf.prompt_mode;conf.prompt_mode=:NULL" "conf.prompt_mode=_org_prompt_mode;conf.echo=true" "[ \n]" "code" [set-match-data evaporate] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "require 'pp';" #[257 "\300!c\210\301\302\303\"\207" [org-babel-chomp comint-send-input nil t] 4 "\n\n(fn LINE)"] comint-last-input-end comint-prompt-regexp org-babel-ruby-f-write org-babel-ruby-pp-f-write append "results=_" "require 'pp'" "orig_out = $stdout"] 21 (#$ . 6147)]) | |
| 68 | (provide 'ob-ruby) | |
