WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/ob-exp.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:02 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-exp.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\303\304\305\"\210\306\307!\210\310\311\312\313\314\315\316\317\320\321&	\210\322\311\323\324#\207" [require ob org-exp-blocks add-to-list org-export-interblocks (src org-babel-exp-non-block-elements) org-export-blocks-add-block (src org-babel-exp-src-block nil) 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." :group org-babel :version "24.1" :type boolean 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 (#$ . 1139)])
(defalias 'org-babel-exp-in-export-file '(macro . #[(lang &rest body) "\302\303\304\305\306EDD\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\300\301\304\305#\207" [put org-babel-exp-in-export-file lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@441 Process source block for export.
Depending on the 'export' headers argument in replace the source
code block with...

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
(defalias 'org-babel-exp-src-block #[(body &rest headers) "\204\306\307!\210\212\310\224b\210\311\312!\211@\313	8\314	\205\205\315\316\313	8\"A\317\235\203\200\320\321\nP!\322\314\323\324\2178 p!\325 \"\314#\"\203{\"q\210\214 \203V\314\326\327\217\210	AA\211$\330\331%\332\n!\333
!\205l\334
!$!\240)#)!q\210#\210-\335	!\336	\337\f#-\207" [noninteractive info lang raw-params hash lang-headers message "org-babel-exp processing..." 0 org-babel-get-src-block-info light 2 nil assoc :exports ("both" "results") intern "org-babel-default-header-args:" 4 (org-heading-components) ((error)) org-babel-exp-get-export-buffer (byte-code "\302\303	!\210)\302\207" [org-link-search-inhibit-query heading t org-link-search] 2) ((error (byte-code "\203eb\210\301\302!\303\304#\210\303\207" [heading re-search-forward regexp-quote nil t] 4))) org-babel-process-params org-babel-merge-params org-babel-params-from-properties boundp eval org-babel-sha1-hash org-babel-exp-do-export block heading export-buffer original-buffer results #1=#:c org-babel-default-header-args] 8 (#$ . 2274) 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 "" '(#$ . 3829) :group 'org-babel :type 'string)
#@72 Process inline source and call lines between START and END for export.
(defalias 'org-babel-exp-non-block-elements #[(start end) "\212b\210\306	!\204\307 \211	p\223\210\n)\310\311\f\312\260`\313	!W\205`\314
	\315#\205`\212\316\224b\210\317!)\203\267\320u\210\321 9\322\216\323 *:\324:8;\321 9\325\216\324\224b\210\326 \204\263:A\211<\327\330;\"A\203\327\330;\"A\331\230\203\332:\333 \"\202\203:A@\240\210)\321 9\334\216\335:\336\"*\211=\203\250\337=\340\211\211\320%\210\341\320!\210\202\262\342\320\224\320\225\"\210\324u\210),\202\326 \204\343 >\344\345!?\345\225@\316\225A\321 9\346\216\335\347\350\351BC\352 \353\354\355\356\357>!\360#P\340DE\361\362!\203\362\316EG\340E$\210\202D\203\363\316EGFE$\210\202\362\316EG\340E$\210E*!$\364\340\365>!@\257\366\"*G\367H\370>@BC\"I?\203T\212@b\210@A|\210Ic\210)\202[\337I\315\211#\210.\202*\207" [start end m org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp rx markerp make-marker "\\(" "\\|" "\\)" marker-position re-search-forward t 0 looking-at 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-parse-inline-src-block-match 2 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-in-example-or-verbatim assoc :noweb "yes" org-babel-expand-noweb-references org-babel-exp-get-export-buffer ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-exp-do-export inline replace-match nil delete-char org-babel-examplize-region org-babel-lob-get-info match-string 11 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "emacs-lisp" "results" org-babel-merge-params org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast " " fboundp set-text-properties remove-text-properties "" last lob org-fill-template "line" save-match-data-internal info params #1=#:c code-replacement lob-info inlinep inline-start inline-end org-babel-default-header-args org-babel-default-lob-header-args restricted s org-rm-props results org-babel-exp-call-line-template rep] 14 (#$ . 4362) 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 ((byte-code "\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 (#$ . 6610)])
#@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=#:--cl-var-- type hash #[nil "\303\304\3058\"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 (#$ . 7241)])
#@605 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
 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%flags\n%body\n#+END_SRC" '(#$ . 8057) :group 'org-babel :type 'string)
#@54 Return the original code block formatted for export.
(defalias 'org-babel-exp-code #[(info) "A\211\304\305\3068\"A\307\230\203\310\311 \312A@#\202/\313\3068\314\"\203,\315\316 \"\202/A@\240\210)\317\n\320@B\321@\322\230\203J\310\323\324A@#\202MA@B\325\326\327\3068\"\330\3318\211\205a\332P)B\333\3348\206k\312BD\"BB\"\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" "^" "," append mapcar #[(pair) "\301@!\302\303O\304\305A\"B\207" [pair symbol-name 1 nil format "%S"] 4] "flags" 3 " " "name" 4] 11 (#$ . 8811)])
#@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) "\205\335	\205\f	\306 \232?\205\335\n@\307\310\n8\311\"\203#\312\n\313 \"\202&\nA@\314\n!\315\316\317\fP!!\205\334\320 \210\321\nA\211\240\210)\nAA\211&\316\322\fP!'\323\321\324\325\2178(p)\313 *\321+*\205\222*q\210\214(\203u\321\326\327\217\210\330\331\310\n8\332,\203\204\333\202\205\334BC\"!+))q\210+-\240\210)-\335\232\203\245\336\321\n\"\210\202\334-\337\232\203\307\340\341\321\342#\210\343.\321\342#\210\340\344\321\342#\210\336\321\n\"\210\202\334-\345\232\203\334\212\340/\321\342#\210\336\321\n\"\210)+\207" [org-export-babel-evaluate hash info body lang #1=#:c org-babel-current-result-hash org-babel-noweb-p 2 :eval org-babel-expand-noweb-references org-babel-exp-get-export-buffer copy-sequence fboundp intern "org-babel-execute:" org-babel-eval-wipe-error-buffer nil "org-babel-default-header-args:" 4 (org-heading-components) ((error)) (byte-code "\302\303	!\210)\302\207" [org-link-search-inhibit-query heading t org-link-search] 2) ((error (byte-code "\203eb\210\301\302!\303\304#\210\303\207" [heading re-search-forward regexp-quote nil t] 4))) org-babel-process-params org-babel-merge-params :results "silent" "replace" block org-babel-execute-src-block inline re-search-backward "[ \f	\n
]" t re-search-forward "src_" lob #2=#:c lang-headers heading export-buffer original-buffer results silent type org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp] 8 (#$ . 9566)])
(provide 'ob-exp)
F1l3 Manager
