;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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" ["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 #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" ["None"] 1 #1#] "Replace hlines in incoming tables with this when translating to lua." (Org . "8.3") org-babel-lua-None-to #[0 "\300\207" [hline] 1 #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 (#$ . 1216)])
#@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\"\216rq\210\212\311\312\307\313\"\"\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-closure #[0 "\301\300\302\"\207" [V0 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" [V0 1 comint-send-input org-babel-comint-wait-for-output] 3 "\n\n(fn VAR)"]] 9 (#$ . 1906)])
#@51 Load BODY into SESSION.

(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:lua #[771 "\300 \301\302\"\216\303\"r\211q\210\304\305p!!b\210\306!c\210)\211\262
)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-prep-session:lua process-mark get-buffer-process org-babel-chomp] 8 (#$ . 2632)])
#@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 (#$ . 3003)])
#@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 (#$ . 3300)])
#@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\"\207\207" [org-babel-script-escape mapcar #[257 "\211\301=\203\207\207" [org-babel-lua-None-to None] 3 "\n\n(fn EL)"]] 5 (#$ . 3896)])
(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 (#$ . 4362)])
#@16 

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

(fn SESSION)
(defalias 'org-babel-lua-without-earmuffs #[257 "\211;\203	\211\202
\300\301\"\211\302\303O\304\230\203(\211
GS\305O\304\230\203(\211\303GSO\207\207" [format "%s" 0 1 "*" nil] 5 (#$ . 4757)])
#@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\"\216
\203\306!\202\307\310
!\311=\203I\312\313!\203I\211\2035\314
!\2035\315\316\317\320!#\202:\321\322!P\211\313 \210\323
!\262)\210\202M\324\325!\210

B\326\n\"B
\266\202)\207" [org-babel-lua-mode lua-which-bufname org-babel-lua-buffers current-window-configuration make-closure #[0 "\301\300!\207" [V0 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 (#$ . 4977)])
#@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 (#$ . 5859)])
#@53 A string to indicate that evaluation has completed.
(defvar org-babel-lua-eoe-indicator "--eoe" (#$ . 6194))
(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 (#$ . 7139)])
#@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\301\331\235\204\250\332\235\204\250\333\235\204\250\334\235\204\250\311\235\204\250\335\235\204\250\336\235\204\242\337\235\204\242\340\235\204\242\341\235\203\251\342\235\204\251\207\343
\316\317
\203\265\320\202\266\321\322\317\323\322##\266\202!\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 (#$ . 7404)])
#@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\202U
\312\313\314\315\n!\204\316\317\"\210\320 \321\322\"\216r\nq\210\212\323\324C\321\325\"	B\326\327\330p!!b\210`d

{\262

|\266	
\"\210 \210 \210\nc\210 \210b\210\212\331\332\n!\326\333#\205o\331\f\326\333#)\204|\334\330p!!\210\202\\\327\330p!!b\210\211c\210\203\247\335\336\337\340\332\206\226\324!#\242\"\203\247
\211\242\341\225\326O\240\210\342\242\f\")\266\202,\262
\343\"\337#\202V
\344\345!\315!\204\311\316\317	\"\210\320 \321\346\"\216rq\210\212\347\324C\321\350\"	B\326\327\330p!!b\210`d

{\262

|\266\326\"\210\351\235#\210 \210 \210\nc\210 \210)b\210\212\331\332\n!\326\333#\205+
\331\f\326\333#)\2048
\334\330p!!\210\202
\327\330p!!b\210\211c\210\342\242\f\"\210)\266,\210\352
!\262
\202V
\326\n\353\354O
\230?\205\255
\355\235?\205\255
\356\235\204\251
\357\235\204\251
\360\235\204\251
\361\235\204\251
\351\235\204\251
\362\235\204\251
\363\235\204\243
\364\235\204\243
\365\235\204\243
\366\235\203\252
\367\235\204\252
\207\370
!\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\"\203\303\304\305\306\"PD\202\307\310\305\306\"\"C\"\207" [mapc make-closure #[257 "\211c\210\300 \207" [V0] 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\"\"\210
 \207" [mapc make-closure #[257 "\211c\210\300 \207" [V0] 2 "\n\n(fn LINE)"] split-string "[
\n]"] 7 "\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 185)) mapconcat org-trim butlast org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" #[257 "\300\211\242P\240\207" [V0] 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]+" 0 split-string 2 org-babel-temp-file "lua-" #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] #[257 "\300\211\242P\240\207" [V0] 4 "\n\n(fn TEXT)"] "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 (#$ . 8895)])
#@59 Strip \=' characters from around Lua string.

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