ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-exp.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314& \210\315\304\316\317#\207" [require ob-core org-src custom-declare-variable org-export-babel-evaluate t "Switch controlling code evaluation during export.\nWhen set to nil no code will be evaluated as part of the export\nprocess. When set to `inline-only', only inline code blocks will\nbe executed." :group org-babel :version "24.1" :type (choice (const :tag "Never" nil) (const :tag "Only inline code" inline-only) (const :tag "Always" t)) put safe-local-variable #[(x) "\301=\207" [x nil] 2]] 10)
#@47 Return the current export buffer if possible.
(defalias 'org-babel-exp-get-export-buffer #[nil "\301!\203 \207\203 \302!\207\303\304!\207" [org-current-export-file bufferp get-file-buffer error "Requested export buffer when `org-current-export-file' is nil"] 2 (#$ . 992)])
(defalias 'org-babel-exp-in-export-file '(macro . #[(lang &rest body) "\302\303\304\305\306EDD\307B\310\311\312\313\314\315\316 BBE\317BBBBE\207" [lang body let* lang-headers intern concat "org-babel-default-header-args:" ((heading (nth 4 (ignore-errors (org-heading-components)))) (export-buffer (current-buffer)) (original-buffer (org-babel-exp-get-export-buffer)) results) when original-buffer (set-buffer original-buffer) save-restriction (when heading (condition-case nil (let ((org-link-search-inhibit-query t)) (org-link-search heading)) (error (when heading (goto-char (point-min)) (re-search-forward (regexp-quote heading) nil t))))) setq results ((set-buffer export-buffer) results)] 10]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-exp-in-export-file lisp-indent-function 1 put edebug-form-spec (form body)] 4)
#@501 Process source block for export.
Depending on the `export' headers argument, replace the source
code block like this:
both ---- display the code and the results
code ---- the default, display the code inside the block but do
not process
results - just like none only the block is run on export ensuring
that it's results are present in the org-mode buffer
none ---- do not display either code or results upon export
Assume point is at the beginning of block's starting line.
(defalias 'org-babel-exp-src-block #[(&rest headers) "\204 \306\307!\210\212\310\311!\211@\312 8\313 \205\252 \314\315\312 8\"A\316\235\203\245 \317\320\nP! \321\32217 \323 0\2029 \210\3138 $p %\324 &\313 '&\203\240 &q\210\214$\203w \3251e \326 (\327$!)0\202v \210$\203w eb\210\330\331$!\313\326#\210 AA\211 )\332\333\334*\335
!\205\213 \336
!\337\340\n! C\"$!\240)')%q\210'\210-\341 !\342 \343\f#-\207" [noninteractive info lang raw-params hash lang-headers message "org-babel-exp processing..." org-babel-get-src-block-info light 2 nil assoc :exports ("both" "results") intern "org-babel-default-header-args:" 4 (error) org-heading-components org-babel-exp-get-export-buffer (error) t org-link-search re-search-forward regexp-quote org-babel-process-params apply org-babel-merge-params boundp eval append org-babel-params-from-properties org-babel-sha1-hash org-babel-exp-do-export block heading export-buffer original-buffer results org-link-search-inhibit-query #1=#:c org-babel-default-header-args] 10 (#$ . 2139) nil])
#@420 Template used to export call lines.
This template may be customized to include the call line name
with any export markup. The template is filled out using
`org-fill-template', and the following %keys may be used.
line --- call line
An example value would be "\n: call: %line" to export the call line
wrapped in a verbatim environment.
Note: the results are inserted separately after the contents of
this template.
(custom-declare-variable 'org-babel-exp-call-line-template "" '(#$ . 3689) :group 'org-babel :type 'string)
#@45 Execute all Babel blocks in current buffer.
(defalias 'org-babel-exp-process-buffer #[nil "\306 \307\216\212\310 \311\n\311\312\260 eb\210\313 \314\310#\205-\212\315u\210\316 \317\216\320 + @\321@! A\322\323\324@\"! B\322\212\323\325@\"b\210\326\314x\210`)! C\327A\330\"\203\265 \331 D\332D8 EDA\211 F\333\334E\"A\203 \333\334E\"A\335\230\203 \336D\337 \"\202\203 DA@\240\210)Bb\210\340D\341\"\211 G\342\232\203\247 BCb\210\343\314w\210`|\210\202\261 BC|\210Gc\210+\202 \344A\345\"\203h\346 H\340\347\350\351\352IJ\353\354 \355\356\357\360\361H\332\"\362#P\314 K L\363\364!\203\361 \364\365LG\314L$\210\202K\203\366\365LGML$\210\202\364\365LG\314L$\210L*!C\"$\342\367H8\332H8\257\370\" N\371O\372H@BC\"\211 P\342\232\203VBCb\210A\373=\204K\343\314w\210`\202Q\326\314w\210\374 |\210\202dBb\210BC|\210Pc\210+\202 \327A\375\"\203 \322\365\224! Q\376 R\323\377@\"\323\201U @\"\211 E\205\225\201V E\201W \")B SQb\210\201X S!\211 G\204\260Cb\210\202G\342\232\203\314Cb\210\326\314w\210\201Y \210B`|\210\202Qb\210`\212Cb\210\201Z )|\210Gc\210T\204\360\323\201[ @\"\203 \212\326\314x\210\201\\ R!\210Qb\210\201\\ R!\210)\202\201] Q`R#\210)Q\314\211\223\210+B\314\211\223\210C\314\211\223\210,\202 -\207" [#1=#:wconfig org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp regexp case-fold-search save-match-data-internal current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] t "\\|" "^[ ]*#\\+BEGIN_SRC" re-search-forward nil -1 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-element-context org-element-type copy-marker org-element-property :begin :end "
\n" eql inline-src-block org-babel-parse-inline-src-block-match 2 assoc :noweb "yes" org-babel-expand-noweb-references org-babel-exp-get-export-buffer org-babel-exp-do-export inline "" " " memql (babel-call inline-babel-call) org-babel-lob-get-info "emacs-lisp" "results" apply org-babel-merge-params append org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast " " fboundp set-text-properties 0 remove-text-properties 3 lob org-fill-template "line" babel-call line-beginning-position src-block org-get-indentation :language element type begin end info params #2=#:c replacement lob-info org-babel-default-header-args org-babel-default-lob-header-args restricted s org-rm-props results org-babel-exp-call-line-template rep match-start ind headers org-src-preserve-indentation :parameters org-split-string "[ ]+" org-babel-exp-src-block beginning-of-line line-end-position :preserve-indent indent-line-to indent-rigidly] 17 (#$ . 4222) nil])
#@180 Return true if point is in example or verbatim code.
Example and verbatim code include escaped portions of
an org-mode buffer code that should be treated as normal
org-mode text.
(defalias 'org-babel-in-example-or-verbatim #[nil "\302 \303\216\212\304 b\210\305\306!+\206 \307 \206 \310 !\206 \311\312\313\"\207" [save-match-data-internal org-list-forbidden-blocks match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] point-at-bol looking-at "[ ]*:[ ]" org-in-verbatim-emphasis org-in-block-p org-between-regexps-p "^[ ]*#\\+begin_src" "^[ ]*#\\+end_src"] 3 (#$ . 6967)])
#@125 Return a string with the exported content of a code block.
The function respects the value of the :exports header argument.
(defalias 'org-babel-exp-do-export #[(info type &optional hash) "\306\307\310\311\312\313\n8\"A\206 \314!\315 \316\"\203# \210 \210\317\202Y \315 \320\"\2036 \210 \210\321\n!\202Y \315 \322\"\203H \323\n\f\324
$\210\317\202Y \315 \325\"\205Y \323\n\f\324
$\210\321\n!+\207" [clean silently info #1=#:temp type hash #[nil "\303\304\3058\"A\211\205 \306\232?\205 \307\n\310#)\207" [info session type assoc :session 2 "none" org-babel-exp-results silent] 5] #[nil "\302=?\205\n \303 !\207" [type info inline org-babel-remove-result] 2] intern assoc :exports 2 "code" memql 'none "" 'code org-babel-exp-code 'results org-babel-exp-results nil 'both] 5 (#$ . 7591)])
#@660 Template used to export the body of code blocks.
This template may be customized to include additional information
such as the code block name, or the values of particular header
arguments. The template is filled out using `org-fill-template',
and the following %keys may be used.
lang ------ the language of the code block
name ------ the name of the code block
body ------ the body of the code block
switches -- the switches associated to the code block
flags ----- the flags passed to the code block
In addition to the keys mentioned above, every header argument
defined for the code block may be used as a key and will be
replaced with its value.
(custom-declare-variable 'org-babel-exp-code-template "#+BEGIN_SRC %lang%switches%flags\n%body\n#+END_SRC" '(#$ . 8401) :group 'org-babel :type 'string)
#@54 Return the original code block formatted for export.
(defalias 'org-babel-exp-code #[(info) "A\211\304\305\3068\"A\307\230\203 \310\311 \312A@#\202/ \313\3068\314\"\203, \315\316 \"\202/ A@\240\210)\317\n\320@B\321\322A@!B\323\3248\325 !\205M \326 P)B\327\330\3068\236\211\205^ \326 AP)B\331\332\333\3068\"\334\3358\206o \312BC\"BBBB\"\207" [info #1=#:c org-babel-exp-code-template f assoc :noweb 2 "strip-export" replace-regexp-in-string org-babel-noweb-wrap "" org-babel-noweb-p :export org-babel-expand-noweb-references org-babel-exp-get-export-buffer org-fill-template "lang" "body" org-escape-code-in-string "switches" 3 org-string-nw-p " " "flags" :flags append mapcar #[(pair) "\301@!\302\303O\304\305A\"B\207" [pair symbol-name 1 nil format "%S"] 4] "name" 4] 12 (#$ . 9219)])
#@313 Evaluate and return the results of the current code block for export.
Results are prepared in a manner suitable for export by org-mode.
This function is called by `org-babel-exp-do-export'. The code
block will be evaluated. Optional argument SILENT can be used to
inhibit insertion of results into the buffer.
(defalias 'org-babel-exp-results #[(info type &optional silent hash) "\306=\204 \307=\205\310=\205\n\205 \n\311 \232?\205 @\312\313 8\314\"\2031 \315 \316 \"\2024 A@\317 !\320 )\321\322\323)P!!\205\324 \210\325 A\211 *
\240\210) AA\211 +\322\326)P! ,\327\3301o \331 0\202q \210\3258 -p .\316 /\325 0/\205\314 /q\210\214-\203\257 \3321\235 \306 1\333-!)0\202\256 \210-\203\257 eb\210\334\335-!\325\306#\210\336\337\313 8\3402\203\276 \341\202\277 \342BC\"!0).q\2100-\240\210) \343\232\203\336 \344\325 \"\210\202 \307\232\203\377 \345\346\325\306#\210\3343\325\306#\210\345\347\325\306#\210\344\325 \"\210\202 \350\232\203\212\3454\325\306#\210\325 5\344\325 \"\210*,\207" [org-export-babel-evaluate type hash info org-babel-current-src-block-location body t inline inline-only org-babel-current-result-hash org-babel-noweb-p 2 :eval org-babel-expand-noweb-references org-babel-exp-get-export-buffer copy-sequence point-marker fboundp intern "org-babel-execute:" org-babel-eval-wipe-error-buffer nil "org-babel-default-header-args:" 4 (error) org-heading-components (error) org-link-search re-search-forward regexp-quote org-babel-process-params org-babel-merge-params :results "silent" "replace" block org-babel-execute-src-block re-search-backward "[ \f \n
]" "src_" lob lang #1=#:c #2=#:c lang-headers heading export-buffer original-buffer results org-link-search-inhibit-query silent org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp org-confirm-babel-evaluate] 8 (#$ . 10029)])
(provide 'ob-exp)
Kontol Shell Bypass