;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-js.el
;;; in Emacs version 24.3.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\300\304!\207" [require ob ob-ref ob-comint ob-eval] 2)
#@46 Default header arguments for js code blocks.
(defvar org-babel-default-header-args:js nil (#$ . 659))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-js-eoe "org-babel-js-eoe" (#$ . 767))
#@45 Name of command used to evaluate js blocks.
(custom-declare-variable 'org-babel-js-cmd "node" '(#$ . 879) :group 'org-babel :version "24.1" :type 'string)
#@41 Javascript code to print value of body.
(defvar org-babel-js-function-wrapper "require('sys').print(require('sys').inspect(function(){%s}()));" (#$ . 1040))
#@109 Execute a block of Javascript code with org-babel.
This function is called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:js #[(body params) "\306\307\"A\206		\306\310\"A\311\312!#\313\306\314\"A\315\230\204\325\316\306\314\"A\"\212\317 3\320\216\321
!\204>\322\323
\"\210
q\210\324\325\211456\3267B7\327\216\330\331p!!b\210`d8\21198{598|\210*\332\333\334\335:\"D\"\210;b\210\212\336\337\334\335:\"!\325\340#\205\220\336<\325\340#)\204\235\341\331p!!\210\202w\330\331p!!b\2105c\210)\203\307\342\343\344\345\337\206\267\324!#6\"\203\3076\346\225\325O4\3476<\".A@)\202
\350\351!\211=\352\353\354!!>?\355\216r>q\210\n\356\230\203\371\334@\f\"\202\372\fc\210)r>q\210\357\325\211?\325\346%\210,\360\334\361	\362=!#\324\")!+\207" [params org-babel-js-cmd result-type body full-body session assoc :cmd :result-type org-babel-expand-body:generic org-babel-variable-assignments:js org-babel-js-read :session "none" org-babel-prep-session:js match-data ((byte-code "\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 #[(text) "	P\211\207" [string-buffer text] 2] ((byte-code "A\301\207" [comint-output-filter-functions nil] 1)) process-mark get-buffer-process mapc #[(line) "\301!c\210\302\303\304\"\207" [line org-babel-chomp comint-send-input nil t] 3] format "%S" re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" 0 split-string org-babel-temp-file "js-script-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "value" write-region org-babel-eval "%s %s" org-babel-process-file-name save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-js-eoe comint-last-input-end comint-prompt-regexp script-file #1# #2=#:temp-file org-babel-js-function-wrapper] 8 (#$ . 1204)])
#@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-js-read #[(results) "\301;\203%\302\303\"\203%\301\304\305\306\307\305\310\311\305\312\313\305\304\314####P!\202&!\207" [results org-babel-read string-match "^\\[.+\\]$" "'" replace-regexp-in-string "\\[" "(" "\\]" ")" ", " " " "\""] 16 (#$ . 3270)])
#@129 Convert VAR into a js variable.
Convert an elisp value into a string of js source code
specifying a variable of the same value.
(defalias 'org-babel-js-var-to-js #[(var) "<\203\301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-js-var-to-js ", " "]" format "%S"] 5 (#$ . 3721)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:js #[(session params) "\304!\305	!\203-\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-js-initiate-session org-babel-variable-assignments:js match-data ((byte-code "\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 (#$ . 4030)])
#@71 Return list of Javascript statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:js #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "var %s=%s;" org-babel-js-var-to-js] 5] cdr org-babel-get-header :var] 7 (#$ . 4757)])
#@108 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.
(defalias 'org-babel-js-initiate-session #[(&optional session) "\304\230?\205E	\305\230\2038\306\307!\210\310 \311\216\312\313!\210\314!\210p*\315!\203/\316\317!\210\2026\316\320!\210\321!)\207	\322\230\203B\323\324!\207\323\325!\207" [session org-babel-js-cmd #1=#:wconfig session-buffer "none" "mozrepl" require moz current-window-configuration ((set-window-configuration #1#)) run-mozilla nil rename-buffer org-babel-comint-buffer-livep sit-for 0.25 0.5 org-babel-js-initiate-session "node" error "Session evaluation with node.js is not supported" "Sessions are only supported with mozrepl add \":cmd mozrepl\""] 2 (#$ . 5077)])
(provide 'ob-js)