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-lua.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\300\303!\210\304\305\306\"\207" [require ob org-macs cl-lib add-to-list org-babel-tangle-lang-exts ("lua" . "lua")] 3)
(defvar org-babel-default-header-args:lua nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\210\300\316\302\303\317DD\320\312\313\306\307\310\321\314\322&\210\300\323\302\303\324DD\325\312\313\306\307\310\326\314\315&\210\300\327\302\303\330DD\331\312\313\306\307\310\332\314\322&\207" [custom-declare-variable org-babel-lua-command funcall function #[0 "\300\207" [#1="lua"] 1 #1#] "Name of the command for executing Lua code." :version "26.1" :package-version (Org . "8.3") :group org-babel :type string org-babel-lua-mode #[0 "\300\207" [lua-mode] 1] "Preferred lua mode for use in running lua interactively.\nThis will typically be `lua-mode'." (Org . "8.3") symbol org-babel-lua-hline-to #[0 "\300\207" [#2="None"] 1 #2#] "Replace hlines in incoming tables with this when translating to lua." (Org . "8.3") org-babel-lua-None-to #[0 "\300\207" [hline] 1] "Replace `None' in lua tables with this before returning." (Org . "8.3")] 12)
#@117 Execute a block of Lua code with Babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:lua #[514 "\300\301\236A!\302\236A\303\236A\211\304=\205�?\205�\305\236A\306\236A\307\203/�\310\311\"\2020�\312P\313	!#\314%\315\316\317\236A\320\f\236A\"\316\321\f\236A\322
\236A\"#\207" [org-babel-lua-initiate-session :session :result-params :result-type value :return :preamble org-babel-expand-body:generic format "\nreturn %s" "" org-babel-variable-assignments:lua org-babel-lua-evaluate org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 16 (#$ . 1536)])
#@127 Prepare SESSION according to the header arguments in PARAMS.
VARS contains resolved variable references.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:lua #[514 "\301!\302!\303!\204�\304\305\"\210\306 \307\310\311\312\313!\314\"\315$\216rq\210\212\316\317\307\320\321\312\313!\322\"\315\323%\"\210,\210\207" [comint-input-filter org-babel-lua-initiate-session org-babel-variable-assignments:lua 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)"] mapc 257 "\301\210\211c\210\302 \210\303\300!\207" [1 comint-send-input org-babel-comint-wait-for-output] "\n\n(fn VAR)"] 12 (#$ . 2226)])
#@51 Load BODY into SESSION.

(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:lua #[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:lua process-mark get-buffer-process org-babel-chomp] 10 (#$ . 3005)])
#@79 Return a list of Lua statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:lua #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "%s=%s" org-babel-lua-var-to-lua] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 3410)])
#@156 Convert an elisp value to a lua variable.
Convert an elisp value, VAR, into a string of lua source code
specifying a variable of the same value.

(fn VAR)
(defalias 'org-babel-lua-var-to-lua #[257 "\211<\2038�\211G\301U\203�\211@<\204�\302@!\207\211G\303U\203/�\211@<\204/�\304@!\305\302A!Q\207\306\307\302\310#\311Q\207\211\312=\203@�\207\313;\203Q�\314\315\"\203Q�\316\202R�\317;\203]�\304!\202^�\"\207" [org-babel-lua-hline-to 1 org-babel-lua-var-to-lua 2 substring-no-properties "=" "{" mapconcat ", " "}" hline format string-match "[\n
]" "[=[%s]=]" "%S"] 6 (#$ . 3707)])
#@192 Convert RESULTS into an appropriate elisp value.
If the results look like a list or tuple, then convert them into an
Emacs-lisp table, otherwise return the results as a string.

(fn RESULTS)
(defalias 'org-babel-lua-table-or-string #[257 "\300!\211<\203�\301\302\"\202�\211\207" [org-babel-script-escape mapcar #[257 "\211\301=\203�\207\207" [org-babel-lua-None-to None] 3 "\n\n(fn EL)"]] 5 (#$ . 4303)])
(defvar org-babel-lua-buffers '((:default . "*Lua*")))
#@58 Return the buffer associated with SESSION.

(fn SESSION)
(defalias 'org-babel-lua-session-buffer #[257 "\301\"A\207" [org-babel-lua-buffers assoc] 4 (#$ . 4775)])
#@16

(fn SESSION)
(defalias 'org-babel-lua-with-earmuffs #[257 "\211;\203	�\211\202
�\300\301\"\302\303\304#\305\230\203&�\302\211GS\"\305\230\203&�\211\202*�\300\306\"\207" [format "%s" substring 0 1 "*" "*%s*"] 6 (#$ . 4946)])
#@16

(fn SESSION)
(defalias 'org-babel-lua-without-earmuffs #[257 "\211;\203	�\211\202
�\300\301\"\302\303\304#\305\230\203,�\302\211GS\"\305\230\203,�\302\304GS#\202-�\211\207" [format "%s" substring 0 1 "*"] 6 (#$ . 5182)])
#@156 Initiate a lua session.
If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.

(fn &optional SESSION)
(defalias 'org-babel-lua-initiate-session-by-key #[256 "\303 \304\305\306\307\310!\311\"\312$\216\203�\313!\202�\314\315!\316=\203P�\317\320!\203P�\211\203<�\321!\203<�\322\323\324\325!#\202A�\326\327!P\211\320 \210\330!\262)\210\202T�\331\332!\210B\333\n\"B\266\202)\207" [org-babel-lua-mode lua-which-bufname org-babel-lua-buffers current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 intern :default org-babel-lua-session-buffer lua-mode fboundp lua-start-process buffer-live-p replace-regexp-in-string "^\\*\$[^*]+\$\\*$" "\\1" buffer-name "Lua-" symbol-name org-babel-lua-with-earmuffs error "No function available for running an inferior Lua" assq-delete-all] 9 (#$ . 5417)])
#@84 Create a session named SESSION according to PARAMS.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-lua-initiate-session #[512 "\300\230?\205�\301\302!\210\303\304!!\207" ["none" error "Sessions currently not supported, work in progress" org-babel-lua-session-buffer org-babel-lua-initiate-session-by-key] 5 (#$ . 6332)])
#@53 A string to indicate that evaluation has completed.
(defvar org-babel-lua-eoe-indicator "--eoe" (#$ . 6667))
(defvar org-babel-lua-wrapper-method "\nfunction main()\n%s\nend\n\nfd=io.open(\"%s\", \"w\")\nfd:write( main() )\nfd:close()")
(defvar org-babel-lua-pp-wrapper-method "\n-- table to string\nfunction t2s(t, indent)\n   if indent == nil then\n      indent = \"\"\n   end\n   if type(t) == \"table\" then\n      ts = \"\"\n      for k,v in pairs(t) do\n         if type(v) == \"table\" then\n            ts = ts .. indent .. t2s(k,indent .. \"  \") .. \" = \\n\" ..\n               t2s(v, indent .. \"  \")\n         else\n            ts = ts .. indent .. t2s(k,indent .. \"  \") .. \" = \" ..\n               t2s(v, indent .. \"  \") .. \"\\n\"\n         end\n      end\n      return ts\n   else\n      return tostring(t)\n   end\nend\n\n\nfunction main()\n%s\nend\n\nfd=io.open(\"%s\", \"w\")\nfd:write(t2s(main()))\nfd:close()")
#@92 Evaluate BODY as Lua code.

(fn SESSION BODY &optional RESULT-TYPE RESULT-PARAMS PREAMBLE)
(defalias 'org-babel-lua-evaluate #[1282 "\203�\300$\207\301$\207" [org-babel-lua-evaluate-session org-babel-lua-evaluate-external-process] 10 (#$ . 7612)])
#@262 Evaluate BODY in external lua process.
If RESULT-TYPE equals `output' then return standard output as a
string.  If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp.

(fn BODY &optional RESULT-TYPE RESULT-PARAMS PREAMBLE)
(defalias 'org-babel-lua-evaluate-external-process #[1025 "\303\267\202^�\304\211\205�\305Q\"\202_�\306\307!\304\211\205 �\305\310\311\235\203,�	\202-�\n\312\313\314\315\316\317\203=�\320\202>�\321\322\317\323\322##\266\202!\324\"\305#\325\326\"#Q\"\210\327!\262\202_�\316\330\235?\205\305�\331\235\204\251�\332\235\204\251�\333\235\204\251�\334\235\204\251�\311\235\204\251�\335\235\204\251�\336\235\204\243�\337\235\204\243�\340\235\204\243�\341\235\203\255�\342\235\204\255�\202\305�\343\316\317\203\271�\320\202\272�\321\322\317\323\322##\266\202!\262\207" [org-babel-lua-command org-babel-lua-pp-wrapper-method org-babel-lua-wrapper-method #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 6 value 21)) org-babel-eval "\n" org-babel-temp-file "lua-" format "pp" mapconcat #[257 "\300\301\"\207" [format "	%s"] 4 "\n\n(fn LINE)"] split-string org-remove-indentation nil replace-regexp-in-string "\\`\$[ 	]*\n\$+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" "[
\n]" org-babel-process-file-name noquote org-babel-eval-read-file "none" "scalar" "verbatim" "html" "code" "file" "output" "raw" "org" "drawer" "table" org-babel-lua-table-or-string] 24 (#$ . 7877)])
#@263 Pass BODY to the Lua process in SESSION.
If RESULT-TYPE equals `output' then return standard output as a
string.  If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp.

(fn SESSION BODY &optional RESULT-TYPE RESULT-PARAMS)
(defalias 'org-babel-lua-evaluate-session #[1026 "\306\307\310\311\267\202s\312\313\314\315\n!\204�\316\317\"\210\320 \321\322\323\324\325!\326\"\327$\216r\nq\210\212\330\331C\321\332\333\324\325!\334\"\335\336%	B\337\340\341p!!b\210`d{\262|\266	
\"\210 \210 \210\nc\210 \210b\210\212\342\343\n!\337\344#\205~�\342\f\337\344#)\204\213�\345\341p!!\210\202k�\340\341p!!b\210\211c\210\203\266�\346\347\350\351\343\206\245�\331!#\242\"\203\266�\352\242\322\225\"\240\210\353\242\f\")\266\202,\262\354\"\350#\202t\355\356!\315!\204\330�\316\317	\"\210\320 \321\322\323\324\325!\357\"\327$\216rq\210\212\360\331C\321\332\333\324\325!\334\"\335\336%	B\337\340\341p!!b\210`d{\262|\266\337\"\210\361\235#\210 \210 \210\nc\210 \210)b\210\212\342\343\n!\337\344#\205I\342\f\337\344#)\204V\345\341p!!\210\2026\340\341p!!b\210\211c\210\353\242\f\"\210)\266,\210\362!\262\202t\337\352\n\363\364#\230?\205\324\365\235?\205\322\366\235\204\311\367\235\204\311\370\235\204\311\371\235\204\311\361\235\204\311\372\235\204\311\373\235\204\303\374\235\204\303\375\235\204\303\376\235\203\315\377\235\204\315\202\322\201@�!\262\207" [comint-input-filter comint-output-filter-functions org-babel-lua-eoe-indicator comint-last-input-end comint-prompt-regexp comint-process-echoes #[0 "\300\301\302\"\210\303\304\305\"\207" [comint-send-input nil t sleep-for 0 5] 3] #[771 "\300\301\302\303\304\305!\306\"\307\310%\203�\311\312\313\314\"PD\202'�\315\316\313\314\"\"C\"\207" [mapc make-byte-code 257 "\211c\210\300 \207" vconcat vector #1=[] 2 "\n\n(fn STATEMENT)" "-- table to string\nfunction t2s(t, indent)\n   if indent == nil then\n      indent = \"\"\n   end\n   if type(t) == \"table\" then\n      ts = \"\"\n      for k,v in pairs(t) do\n         if type(v) == \"table\" then\n            ts = ts .. indent .. t2s(k,indent .. \"  \") .. \" = \\n\" ..\n               t2s(v, indent .. \"  \")\n         else\n            ts = ts .. indent .. t2s(k,indent .. \"  \") .. \" = \" ..\n               t2s(v, indent .. \"  \") .. \"\\n\"\n         end\n      end\n      return ts\n   else\n      return tostring(t)\n   end\nend\n" "fd:write(_))\nfd:close()" org-babel-process-file-name noquote format "fd=io.open(\"%s\", \"w\")\nfd:write( _ )\nfd:close()"] 10 "\n\n(fn SEND-WAIT TMP-FILE PP)"] #[514 "\300\301\302\303\304\305!\306\"\307\310%\311\312\"\"\210 \207" [mapc make-byte-code 257 "\211c\210\300 \207" vconcat vector #1# 2 "\n\n(fn LINE)" split-string "[
\n]"] 9 "\n\n(fn SEND-WAIT BODY)"] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 9 value 200)) mapconcat org-trim butlast 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" #1# 4 "\n\n(fn TEXT)" nil process-mark get-buffer-process re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" substring split-string 2 org-babel-temp-file "lua-" [set-match-data evaporate] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "pp" org-babel-eval-read-file 1 -1 "none" "scalar" "verbatim" "html" "code" "file" "output" "raw" "org" "drawer" "table" org-babel-lua-table-or-string] 19 (#$ . 9380)])
#@47 Strip 's from around Lua string.

(fn STRING)
(defalias 'org-babel-lua-read-string #[257 "\300\301\211#\207" [org-unbracket-string "'"] 5 (#$ . 13084)])
(provide 'ob-lua)

${this.title}

Code Editor : ob-lua.elc