;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ob-core org-macs cl-lib] 2)
#@77 Update the in-buffer results of code blocks executed to resolve references.
(defvar org-babel-update-intermediate nil (#$ . 174))
#@384 Parse a variable ASSIGNMENT in a header argument.

If the right hand side of the assignment has a literal value
return that value, otherwise interpret it as a reference to an
external resource and find its value using `org-babel-ref-resolve'.

Return a list with two elements: the name of the variable, and an
Emacs Lisp representation of the value of the variable.

(fn ASSIGNMENT)
(defalias 'org-babel-ref-parse #[257 "\301\302\"\205{\303\304\"\305\306
\203\307\202\310\311\306\312\311##\266\202
\313\225\305O\305\306
\203/\307\2020\310\311\306\312\311##\266\202\314!\212\203Q\315!\203N\316!\202Ob\210\317!)\211\232\203u\320\321\"\203o\322\321\"\203o\323!\202v\324!\202v\211\262
B\266\202\207" [org-babel-current-src-block-location string-match "\\(.+?\\)=" match-string 1 nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" 0 intern markerp marker-position org-babel-read string-prefix-p "\"" string-suffix-p read org-babel-ref-resolve] 11 (#$ . 311)])
#@11 

(fn ID)
(defalias 'org-babel-ref-goto-headline-id #[257 "\300\301\"\211\205\n\211b\262
\206<\302
!\211\205\303\304#
\205:\211\205:\305\306\"\210\307\310!!\210\211b\210\211\311\211\223\210\312 \210\313\266\202\207" [org-find-property "CUSTOM_ID" org-id-find-id-file org-id-find-id-in-file marker message "file:%S" pop-to-buffer-same-window marker-buffer nil org-show-context t] 6 (#$ . 1333)])
(defalias 'org-babel-ref-headline-body #[0 "\214\300 \210\212eb\210\301 \210`)d{)\207" [org-narrow-to-subtree org-end-of-meta-data] 2])
#@59 Resolve the reference REF and return its value.

(fn REF)
(defalias 'org-babel-ref-resolve #[257 "\304 \305\306\"\216r\206
pq\210\212\307\310\211\211\211\211\211\211\311\312\"\203F	\313\211\224O\314\315\"\314\316\"U\262
\203F\317\320\"\262
	\313\211\224O\262\n\311\321\"\203\216\317\320\"\262\317\322\"\262\317\323\"\262G\313V\203\216G\313V\203z\324\325\326!\"\262G\313V\203\213\327\330!\"\262\262\n\311\331\"\203\253\317\320\"\262\317\332\"\262\333!\210
\262\n\212\214~\210eb\210\327\334\"\335!\3362P
\337
\310\307#\203'
\340 \204\277\341 \342\343\"
\232\203#
\342\344\"b\210\345
!\211\346\267\202
\347\336\350\310\351!#\"\266\202\277\347\336\350\310\211\n?\205
#\"\266\202\277\310\352!\262
\211\203
\347\336\"\266\202\277\353\354!\266\210\202\277\355\f!\2034
\347\336\356 \"\210\357\f!\236A\211\203I
\347\336\350\310#\"\210\210\353\360
\"0\2119\203^
\361\362\"\266\203\202s
\203p
\211<\203p
\363\"\266\203\202s
\211\266\203+\266\210+\207" [org-babel-exp-reference-buffer case-fold-search org-babel-update-intermediate org-babel-library-of-babel current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] t nil string-match "\\[\\([^\\[]+\\)\\]$" 0 cl-count 40 41 match-string 1 "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" 3 5 mapcar #[257 "\300
B\207" [:var] 3 "\n\n(fn REF)"] org-babel-ref-split-args append org-babel-parse-header-arguments "^\\(.+\\):\\(.+\\)$" 2 find-file ((:results . "silent")) org-babel-named-data-regexp-for-name :found re-search-forward org-in-commented-heading-p org-element-at-point org-element-property :name :post-affiliated org-element-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (babel-call 231 src-block 248)) throw org-babel-execute-src-block org-babel-lob-get-info org-babel-read-element error "Reference not found" org-babel-ref-goto-headline-id org-babel-ref-headline-body intern "Reference `%s' not found in this buffer" format "%S" org-babel-ref-index-list] 20 (#$ . 1881)])
#@567 Return the subset of LIS indexed by INDEX.

Indices are 0 based and negative indices count from the end of
LIS, so 0 references the first element of LIS and -1 references
the last.  If INDEX is separated by ","s then each "portion"
is assumed to index into the next deepest nesting or dimension.

A valid "portion" can consist of either an integer index, two
integers separated by a ":" in which case the entire range is
returned, or an empty string or "*" both of which are
interpreted to mean the entire range and as such are equivalent
to "0:-1".

(fn INDEX LIS)
(defalias 'org-babel-ref-index-list #[514 "
G\300V\203\207\301\302\"\203\207\211G\303\304\"\300\225\305O\306\307\211\310\311\312\"G\300U\2042\301\313\"\203x\310\311\314\"\315\316\nG\300V\203f\303\317\f\"\203f\f\320\303\317\"!\"	
\320\303\321\"!\"D\202s\f\300\"	
\322\"D\"\"\202\204\320	!\"	8C\"!\207\207" [0 string-match "^\\([^,]*\\),?" match-string 1 nil #[514 "\211\300W\203\n

\\\207\207" [0] 4 "\n\n(fn LGTH NUM)"] #[257 "\211<\203\211G\300U\203\211@\207\207" [1] 3 "\n\n(fn LS)"] mapcar make-closure #[257 "\211<\203\n\301\300\"\207\207" [V0 org-babel-ref-index-list] 4 "\n\n(fn SUB-LIS)"] "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|\\*\\)" #[257 "\211\3008\207" [V0] 3 "\n\n(fn N)"] apply org-number-sequence 2 string-to-number 3 -1] 21 (#$ . 3985)])
#@85 Split ARG-STRING into top-level arguments of balanced parenthesis.

(fn ARG-STRING)
(defalias 'org-babel-ref-split-args #[257 "\300\301\302\303\"\"\207" [mapcar org-trim org-babel-balanced-split 44] 6 (#$ . 5365)])
(provide 'ob-ref)