ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-js.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ob)
#@46 Default header arguments for js code blocks.
(defvar org-babel-default-header-args:js nil (#$ . 424))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-js-eoe "org-babel-js-eoe" (#$ . 532))
#@45 Name of command used to evaluate js blocks.
(custom-declare-variable 'org-babel-js-cmd "node" '(#$ . 644) :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}()));" (#$ . 805))
#@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!# \306\313\"A\314\230\204\324 \315\306\313\"A\" \212\316 >\317\216\320
!\204= \321\322
\"\210
q\210\323\324\211 ? @ A\325BBB\326\216\327\330p!!b\210`d C\211 DC{@DC|\210*\331\332 \333\334E\"D\"\210Fb\210\212\335\336\333\334E\"!\324\337#\205\217 \335G\324\337#)\204\234 \340\330p!!\210\202v \327\330p!!b\210@c\210) \203\306 \341\342\343\344\336 \206\266 \323!#A\"\203\306 A\345\225\324O?\346AG\".A@)\202\347\350!\211 H\351\352\353!! I J\354\216rIq\210\n\355\230\203\370 \333K\f\"\202\371 \fc\210)rIq\210\356\324\211J\324\345%\210,\357\333\360 \361H!#\323\") L\306\362\"A M\314M\235?\205w\363M\235\204n\364M\235\204n\365M\235\204n\366M\235\204n\367M\235\204n\370M\235\204g\371M\235\204g\372M\235\204g\373M\235\203s\374M\235\204sL\202w\375L!-\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 :session "none" org-babel-prep-session:js match-data #[nil "\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] #[nil "A\211\207" [comint-output-filter-functions] 2] 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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] "value" write-region org-babel-eval "%s %s" org-babel-process-file-name :result-params "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" org-babel-js-read 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 result #3=#:--params] 7 (#$ . 968)])
#@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 (#$ . 3315)])
#@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 (#$ . 3766)])
#@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 #[nil "\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 (#$ . 4075)])
#@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 (#$ . 4795)])
#@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 #[nil "\301!\207" [#1# 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\""] 2 (#$ . 5115)])
(provide 'ob-js)
Kontol Shell Bypass