;ELC   
;;; Compiled
;;; in Emacs version 24.5.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)
(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-query (or (org-id-get) (nth 4 (ignore-errors (org-heading-components))))) (export-buffer (current-buffer)) results) when org-babel-exp-reference-buffer (set-buffer org-babel-exp-reference-buffer) save-restriction (when heading-query (condition-case nil (let ((org-link-search-inhibit-query t)) (org-link-search heading-query)) (error (when heading-query (goto-char (point-min)) (re-search-forward (regexp-quote heading-query) 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)
#@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) "\212\306\307!\310\212	\203 	b\210n\203 \311\202 \312\313\311`\"\\*@\3148\310$\2043 \315\316\n#\210\205\246 \317\320\3148\"A\321\235\203\241 \322\323P!%\324 \206U \325\310\326\327\2178&p'\310()\203\234 )q\210\214&\203q \310\330\331\217\210AA\211*\332\333\334+\335%!\205\207 \336%!\337\340!\fC\"$!\240)()'q\210(\210,\341!\342\343#.\207" [info pos line lang raw-params hash org-babel-get-src-block-info light nil 1 0 count-lines 2 message "org-babel-exp process %s at line %d..." assoc :exports ("both" "results") intern "org-babel-default-header-args:" org-id-get 4 (org-heading-components) ((error)) (byte-code "\302\303	!\210)\302\207" [org-link-search-inhibit-query heading-query t org-link-search] 2) ((error (byte-code "\203 eb\210\301\302!\303\304#\210\303\207" [heading-query re-search-forward regexp-quote nil t] 4))) 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 noninteractive lang-headers heading-query export-buffer results org-babel-exp-reference-buffer #1=#:c org-babel-default-header-args] 10 (#$ . 1865) 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 "" '(#$ . 3601) :group 'org-babel :type 'string)
#@257 Execute all Babel blocks in current buffer.
REFERENCE-BUFFER is the buffer containing a pristine copy of the
buffer being processed.  It is used to properly resolve
references in source blocks, as modifications in current buffer
may make them unreachable.
(defalias 'org-babel-exp-process-buffer #[(reference-buffer) "\306 \307\216\212\310	\n\311\311\312\260@eb\210\313\f\314\310#\205`\315 A\316\216\317 *\204 \212\320u\210\315 A\321\216\322 +B\323B!C\324\325\326B\"!D\324\212\325\327B\"b\210\330\314x\210`)!E\331C\332\"\203\317 \333\224F\334\335 \314\211FE\"G\336G8HGA\211I\337\340H\"A\203\231 \337\340H\"A\341\230\203\231 \342G\"\202\235 GA@\240\210)Db\210\343G\344\"\211J\345\232\203\301 DEb\210\346\314w\210`|\210\202\313 DE|\210Jc\210,\202P\347C\350\"\203\202\351 K\343\352\353\354\355LM\334\356 \357\360\361\362\363K\336\"\364#P\314NO\365\366!\203\366\333OG\314O$\210\202(N\203\367\333OGPO$\210\202(\366\333OG\314O$\210O*!C\"$\345\370K8\336K8\257\371\"Q\372R\373K@BC\"\211S\345\232\203pDEb\210C\374=\204e\346\314w\210`\202k\330\314w\210\375 |\210\202~Db\210DE|\210Sc\210+\202P\331C\376\"\203P\324\333\224!T\377 U\325\201Y B\"\206\262\201Z \201[ \325\201\\ B\"\206\261\201] \"\211V\325\201^ B\"\211H\205\310\201_ H!)BWTb\210\201` W!\211J\204\343Eb\210\202HJ\345\232\203\377Eb\210\330\314w\210\201a  \210D`|\210\202HTb\210`\212Eb\210\201b  )|\210Jc\210X\204#\325\201c B\"\203>\212\330\314x\210\201d U!\210Tb\210\201d U!\210)\202H\201e T`U#\210)T\314\211\223\210,D\314\211\223\210E\314\211\223\210,\202 .\207" [#1=#:wconfig reference-buffer org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp regexp org-babel-exp-reference-buffer current-window-configuration ((set-window-configuration #1#)) t "\\|" "^[ 	]*#\\+BEGIN_SRC" re-search-forward nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-in-commented-heading-p -1 ((byte-code "\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 0 append org-babel-parse-inline-src-block-match 2 assoc :noweb "yes" org-babel-expand-noweb-references 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 org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast " " fboundp set-text-properties remove-text-properties 3 lob org-fill-template "line" babel-call line-beginning-position src-block org-get-indentation case-fold-search save-match-data-internal element type begin end head 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 lang headers org-src-preserve-indentation :language user-error "No language for src block: %s" :name "(unnamed)" :parameters org-split-string org-babel-exp-src-block beginning-of-line line-end-position :preserve-indent indent-line-to indent-rigidly] 17 (#$ . 4135) 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 (#$ . 7397)])
#@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\202[ \315\320\"\2037 	 \210 \210\321\n\f\"\202[ \315\322\"\203I \323\n\f\324$\210\317\202[ \315\325\"\205[ \323\n\f\324$\210\321\n\f\"+\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=\203	 \303 \207\304	!\207" [type info inline org-babel-remove-inline-result 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 (#$ . 8028)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307\313\314\315\316&\207" [custom-declare-variable org-babel-exp-code-template "#+BEGIN_SRC %lang%switches%flags\n%body\n#+END_SRC" "Template used to export the body of code blocks.\nThis template may be customized to include additional information\nsuch as the code block name, or the values of particular header\narguments.  The template is filled out using `org-fill-template',\nand the following %keys may be used.\n\n lang ------ the language of the code block\n name ------ the name of the code block\n body ------ the body of the code block\n switches -- the switches associated to the code block\n flags ----- the flags passed to the code block\n\nIn addition to the keys mentioned above, every header argument\ndefined for the code block may be used as a key and will be\nreplaced with its value." :group org-babel :type string org-babel-exp-inline-code-template "src_%lang[%switches%flags]{%body}" "Template used to export the body of inline code blocks.\nThis template may be customized to include additional information\nsuch as the code block name, or the values of particular header\narguments.  The template is filled out using `org-fill-template',\nand the following %keys may be used.\n\n lang ------ the language of the code block\n name ------ the name of the code block\n body ------ the body of the code block\n switches -- the switches associated to the code block\n flags ----- the flags passed to the code block\n\nIn addition to the keys mentioned above, every header argument\ndefined for the code block may be used as a key and will be\nreplaced with its value." :version "25.1" :package-version (Org . "8.3")] 12)
#@54 Return the original code block formatted for export.
(defalias 'org-babel-exp-code #[(info type) "A\211\306\307\3108\"A\311\230\203 \312\313 \314A@#\202. \315\3108\316\"\203+ \317\n\"\202. A@\240\210)\320\321=\203< \f\202= \322@B\323\324A@!B\325\3268 \327 !\205Y \330 P)B\331\332\3108\236\211 \205l \330 AP)B\333\334\335\3108\"\336\3378\206} \314BC\"BBBB\"\207" [info #1=#:c org-babel-exp-reference-buffer type org-babel-exp-inline-code-template org-babel-exp-code-template assoc :noweb 2 "strip-export" replace-regexp-in-string org-babel-noweb-wrap "" org-babel-noweb-p :export org-babel-expand-noweb-references org-fill-template inline "lang" "body" org-escape-code-in-string "switches" 3 org-string-nw-p " " "flags" :flags append mapcar #[(pair) "\301@!\302\303O\304\305A\"B\207" [pair symbol-name 1 nil format "%S"] 4] "name" 4 f] 12 (#$ . 10609)])
#@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\362 \310=\205\362 \n\205 \n\311 \232?\205\362 @\312\3138\314\"\2030 \315\f\"\2023 A@\316!\317 ()\320\321\322)P!!\205\361 \323 \210\324A\211*(\240\210)AA\211+\321\325)P!,\326 \206p \327\324\330\331\2178-p.\324/\f\205\247 \fq\210\214-\203\212 \324\332\333\217\210\334\335\3138\3360\203\231 \337\202\232 \340BC\"!/).q\210/,\240\210)	\341\232\203\271 \342\324\"\210\202\361 	\307\232\203\332 \343\344\324\306#\210\3451\324\306#\210\343\346\324\306#\210\342\324\"\210\202\361 	\347\232\203\361 \212\3432\324\306#\210\3243\342\324\"\210*,\207" [org-export-babel-evaluate type hash info org-babel-exp-reference-buffer org-babel-current-src-block-location t inline inline-only org-babel-current-result-hash org-babel-noweb-p 2 :eval org-babel-expand-noweb-references copy-sequence point-marker fboundp intern "org-babel-execute:" org-babel-eval-wipe-error-buffer nil "org-babel-default-header-args:" org-id-get 4 (org-heading-components) ((error)) (byte-code "\302\303	!\210)\302\207" [org-link-search-inhibit-query heading-query t org-link-search] 2) ((error (byte-code "\203 eb\210\301\302!\303\304#\210\303\207" [heading-query 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 re-search-backward "[ \f	\n]" re-search-forward "src_" lob body lang #1=#:c #2=#:c lang-headers heading-query export-buffer results silent org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp org-confirm-babel-evaluate] 8 (#$ . 11492)])
(provide 'ob-exp)