| 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 | (require 'ob) | |
| 16 | #@46 Default header arguments for js code blocks. | |
| 17 | (defvar org-babel-default-header-args:js nil (#$ . 422)) | |
| 18 | #@51 String to indicate that evaluation has completed. | |
| 19 | (defvar org-babel-js-eoe "org-babel-js-eoe" (#$ . 530)) | |
| 20 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-babel-js-cmd funcall function #[0 "\300\207" [#1="node"] 1 #1#] "Name of command used to evaluate js blocks." :group org-babel :version "24.1" :type string] 10) | |
| 21 | #@41 Javascript code to print value of body. | |
| 22 | (defvar org-babel-js-function-wrapper "require('sys').print(require('sys').inspect(function(){\n%s\n}()));" (#$ . 902)) | |
| 23 | #@127 Execute a block of Javascript code with org-babel. | |
| 24 | This function is called by `org-babel-execute-src-block' | |
| 25 | ||
| 26 | (fn BODY PARAMS) | |
| 27 | (defalias 'org-babel-execute:js #[514 "\306\236A\206 \307\236A\310\311!#\312\236A\313\230\204\324 \314\312\236A\"\315!\204/ \316\317\"\210\320 \321\322\323\324\325!\326\"\327$\216rq\210\212\330\331C\321\332\333\324\325!\334\"\335\336%\nB\337\340\341p!!b\210`d{\262|\266\342\343 \344\345 \"D\"\210\fb\210\212\346\347\344\345 \"!\337\350#\205\212 \346 \337\350#)\204\227 \351\341p!!\210\202t \340\341p!!b\210\211c\210\203\302 \352\353\354\355\347\f\206\261 \331!#\242\"\203\302 \211\242\322\225\337O\240\210\356\242 \")\266\202,\262A@\262\202\357\360!\211\361\362\363!!\321\322\364\324\325!\365\"\366$\216r\211q\210\367\230\203\373 \344@\"\202\374 c\210)r\211q\210\370\337\211\337\322%\210*\266\371\344\372\373!#\331\"\262\374\236A\313\235?\205\200\375\235\204w\376\235\204w\377\235\204w\201A \235\204w\201B \235\204w\201C \235\204w\201D \235\204o\201E \235\204o\201F \235\204o\201G \235\203{\201H \235\204{\202\200\201I !\262)\207" [org-babel-js-cmd comint-input-filter comint-output-filter-functions org-babel-js-eoe comint-last-input-end comint-prompt-regexp :cmd :result-type org-babel-expand-body:generic org-babel-variable-assignments:js :session "none" org-babel-prep-session:js 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)" nil process-mark get-buffer-process mapc #[257 "\300!c\210\301\302\303\"\207" [org-babel-chomp comint-send-input nil t] 4 "\n\n(fn LINE)"] format "%S" re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[ \n]+" split-string org-babel-temp-file "js-script-" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 "value" write-region org-babel-eval "%s %s" org-babel-process-file-name :result-params "scalar" "verbatim" "html" org-babel-js-function-wrapper "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-js-read] 14 (#$ . 1069)]) | |
| 28 | #@180 Convert RESULTS into an appropriate elisp value. | |
| 29 | If RESULTS look like a table, then convert them into an | |
| 30 | Emacs-lisp table, otherwise return the results as a string. | |
| 31 | ||
| 32 | (fn RESULTS) | |
| 33 | (defalias 'org-babel-js-read #[257 "\300;\203- \301\302\"\203- \303\304\"\203- \300\305\306\307\310\306\311\312\306\313\314\306\305\315####P!\202. !\207" [org-babel-read string-prefix-p "[" string-suffix-p "]" "'" replace-regexp-in-string "\\[" "(" "\\]" ")" ",[[:space:]]" " " "\""] 17 (#$ . 3389)]) | |
| 34 | #@139 Convert VAR into a js variable. | |
| 35 | Convert an elisp value into a string of js source code | |
| 36 | specifying a variable of the same value. | |
| 37 | ||
| 38 | (fn VAR) | |
| 39 | (defalias 'org-babel-js-var-to-js #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\307\310\311\"#\207" ["[" mapconcat org-babel-js-var-to-js ", " "]" replace-regexp-in-string "\n" "\\\\n" format "%S"] 7 (#$ . 3882)]) | |
| 40 | #@93 Prepare SESSION according to the header arguments specified in PARAMS. | |
| 41 | ||
| 42 | (fn SESSION PARAMS) | |
| 43 | (defalias 'org-babel-prep-session:js #[514 "\301!\302!\203D \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-js-initiate-session org-babel-variable-assignments:js 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 (#$ . 4249)]) | |
| 44 | #@84 Return list of Javascript statements assigning the block's variables. | |
| 45 | ||
| 46 | (fn PARAMS) | |
| 47 | (defalias 'org-babel-variable-assignments:js #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "var %s=%s;" org-babel-js-var-to-js] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 5066)]) | |
| 48 | #@132 If there is not a current inferior-process-buffer in SESSION | |
| 49 | then create. Return the initialized session. | |
| 50 | ||
| 51 | (fn &optional SESSION) | |
| 52 | (defalias 'org-babel-js-initiate-session #[256 "\211\301\230?\205N \302\230\203A \303\304!\210\305 \306\307\310\311\312!\313\"\314$\216\315\316!\210\317!\210p)\262\320!\2039 \321\322!\210\211\202@ \321\323!\210\324!\207\325\230\203K \326\327!\207\326\330!\207" [org-babel-js-cmd "none" "mozrepl" require moz current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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\""] 8 (#$ . 5370)]) | |
| 53 | (provide 'ob-js) | |
