JezK
Edit File: ob-js.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:42 2026 ;;; 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\211 4 5 6\3267B7\327\216\330\331p!!b\210`d 8\211 98{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\307 6\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)