;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-ref.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ob)
(defvar org-babel-ref-split-regexp "[ \f	\n
]*\\(.+?\\)[ \f	\n
]*=[ \f	\n
]*\\(.+\\)[ \f	\n
]*")
#@77 Update the in-buffer results of code blocks executed to resolve references.
(defvar org-babel-update-intermediate nil (#$ . 668))
#@421 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 as a reference to an
external resource and find its value using
`org-babel-ref-resolve'.  Return a list with two elements.  The
first element of the list will be the name of the variable, and
the second will be an emacs-lisp representation of the value of
the variable.
(defalias 'org-babel-ref-parse #[(assignment) "\305	\"\2054\306\307	\"\306\310	\"\311!\312\n!\211\n\232\2031\305\313\n\"\203+\314\n!\2022\315\n!\2022\f+B\207" [org-babel-ref-split-regexp assignment ref var out string-match match-string 1 2 intern org-babel-read "^\".*\"$" read org-babel-ref-resolve] 5 (#$ . 805)])
(defalias 'org-babel-ref-goto-headline-id #[(id) "eb\210\304!\305\306	\307Q\310\311#\206@\312!\211\205\313\n\314#\n\205?\205?\315\316\n\"\210\317\320!!\210b\210\310\211\223\210\321 \210\311*)\207" [id rx file m regexp-quote re-search-forward "^[ 	]*:CUSTOM_ID:[ 	]+" "[ 	]*$" nil t org-id-find-id-file org-id-find-id-in-file marker message "file:%S" org-pop-to-buffer-same-window marker-buffer org-show-context] 5])
(defalias 'org-babel-ref-headline-body #[nil "\214\300 \210\212eb\210\301y\210\302\303!\203\304\305\306\"\210\306u\210`)d{)\207" [org-narrow-to-subtree 1 looking-at "[ 	]*:PROPERTIES:" re-search-forward ":END:" nil] 3])
#@49 Resolve the reference REF and return its value.
(defalias 'org-babel-ref-resolve #[(ref) "\306 \307\216\212\310\311\211\211\211\211\211\211\211\211\211\211\211\211:;<=>?@AB\312\313C\"\203XC\314\211\224OD\315\316D\"\315\317D\"U)\203X\320\321C\"C\314\211\224OC\312\322C\"\203\244\320\321C\"?\320\323C\">\320\324C\"=?G\314V\203\244=G\314V\203\216\325\326\327=!\"@>G\314V\203\240\330\331>!@\"@?C\312\332C\"\203\301\320\321C\":\320\333C\"\334:!\210
C\214~\210eb\210\335C!\336C!EF\337F\311\310#\206\372\337E\311\310#\206\372\340C!\211\206\372\341\342C!G\"A\211;*\203
;\204
	\204
\314\224b\210\202
\343\344C\"\210;\203
\345A\202j
	\203)
\301A\202j
\346H!\203I
\212\321y\210\346I!\206?
\346J!)\203I
\347A\202j
\350 \211A\204j
\321y\210\351 \210`eU\204c
`dU\203I
\343\352!\210\202I
\330@\353\"K\354A\355\"\203~
\356 \202\330
\354A\357\"\203\213
\360 \202\330
\354A\361\"\203\230
\362 \202\330
\354A\363\"\203\245
\364 \202\330
\354A\347\"\203\274
\365\311\211L?\205\270
K#\202\330
\354A\345\"\203\316
\365\311;K#\202\330
\354A\301\"\205\330
\366 <)<9\203\351
\367\370<\"\202\375
\f\203\373
<<\203\373
\371\f<\"\202\375
<.\207" [#1=#:wconfig id index-col index-row index split-ref current-window-configuration ((set-window-configuration #1#)) t nil string-match "\\[\\([^\\[]+\\)\\]$" 0 org-count 40 41 match-string 1 "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" 3 5 mapcar #[(ref) "\301B\207" [ref :var] 2] org-babel-ref-split-args append org-babel-parse-header-arguments "^\\(.+\\):\\(.+\\)$" 2 find-file org-babel-named-src-block-regexp-for-name org-babel-named-data-regexp-for-name re-search-forward org-babel-ref-goto-headline-id assoc intern error "Reference '%s' not found in this buffer" lob looking-at source-block org-babel-ref-at-ref-p beginning-of-line "Reference not found" ((:results . "silent")) eql results-line org-babel-read-result table org-babel-read-table list org-babel-read-list file org-babel-read-link org-babel-execute-src-block org-babel-ref-headline-body format "%S" org-babel-ref-index-list split-file lob-info result new-referent new-header-args new-refere args type case-fold-search ref str res-rx src-rx org-babel-library-of-babel org-babel-src-name-regexp org-babel-src-block-regexp org-babel-multi-line-header-regexp params org-babel-update-intermediate] 14 (#$ . 2210)])
#@551 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".
(defalias 'org-babel-ref-index-list #[(index lis) "G\306V\203y\307\310\"\203y\311\nG\312\313\"\306\225\314O\315\316\211\317\320\fG\306U\2045\307	\f\"\203k\317\321\322\323\fG\306V\203]\312\324\f\"\203]\325\312\324\f\"!!\325\312\326\f\"!!D\202f\306!\327!D\"\"\202t\325\f!!\n8C\"!.\207\n\207" [index ind-re lis lgth portion remainder 0 string-match "^\\([^,]*\\),?" "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|*\\)" match-string 1 nil #[(num) "\302W\203\n	\\\207\207" [num lgth 0] 2] #[(ls) "<\203G\301U\203@\207\207" [ls 1] 2] mapcar #[(sub-lis) "<\203\n\302	\"\207\207" [sub-lis remainder org-babel-ref-index-list] 3] #[(n) "	8\207" [n lis] 2] apply org-number-sequence 2 string-to-number 3 -1 wrap open] 14 (#$ . 4626)])
#@68 Split ARG-STRING into top-level arguments of balanced parenthesis.
(defalias 'org-babel-ref-split-args #[(arg-string) "\301\302\303\304\"\"\207" [arg-string mapcar org-babel-trim org-babel-balanced-split 44] 5 (#$ . 5953)])
#@167 Return the type of reference located at point.
Return nil if none of the supported reference types are found.
Supported reference types are tables and source blocks.
(defalias 'org-babel-ref-at-ref-p #[nil "\302 \203\303\207\304 \203\305\207\306\307!\203\310\207\306!\203\311\207\306	!\205%\312\207" [org-bracket-link-regexp org-babel-result-regexp org-at-table-p table org-at-item-p list looking-at "^[ 	]*#\\+BEGIN_SRC" source-block file results-line] 2 (#$ . 6185)])
(provide 'ob-ref)