| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\207" [require ob-core cl-lib] 2) | |
| 16 | #@77 Update the in-buffer results of code blocks executed to resolve references. | |
| 17 | (defvar org-babel-update-intermediate nil (#$ . 476)) | |
| 18 | #@384 Parse a variable ASSIGNMENT in a header argument. | |
| 19 | ||
| 20 | If the right hand side of the assignment has a literal value | |
| 21 | return that value, otherwise interpret it as a reference to an | |
| 22 | external resource and find its value using `org-babel-ref-resolve'. | |
| 23 | ||
| 24 | Return a list with two elements: the name of the variable, and an | |
| 25 | Emacs Lisp representation of the value of the variable. | |
| 26 | ||
| 27 | (fn ASSIGNMENT) | |
| 28 | (defalias 'org-babel-ref-parse #[257 "\301\302\"\205U \303\304\305\"!\303\306\225\307O!\310!\212\203+ \311!\203( \312!\202) b\210\313!)\211\232\203O \314\315\"\203I \316\315\"\203I \317!\202P \320!\202P \211\262B\266\202\207" [org-babel-current-src-block-location string-match "\\(.+?\\)=" org-trim match-string 1 0 nil intern markerp marker-position org-babel-read string-prefix-p "\"" string-suffix-p read org-babel-ref-resolve] 8 (#$ . 613)]) | |
| 29 | #@11 | |
| 30 | ||
| 31 | (fn ID) | |
| 32 | (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 (#$ . 1463)]) | |
| 33 | (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]) | |
| 34 | #@59 Resolve the reference REF and return its value. | |
| 35 | ||
| 36 | (fn REF) | |
| 37 | (defalias 'org-babel-ref-resolve #[257 "\304 \305\306\307\310\311!\312\"\313$\216r\206 pq\210\212\314\315\211\211\211\211\211\211\316\317 \"\203M \306\211\224O\320\321\"\320\322\"U\262\203M \323\324 \"\262 \306\211\224O\262\n\316\325 \"\203\225 \323\324 \"\262\323\326 \"\262\323\327 \"\262G\306V\203\225 G\306V\203\201 \330\331\332!\"\262G\306V\203\222 \333\334!\"\262\262\n\316\335 \"\203\262 \323\324 \"\262\323\313 \"\262\336!\210\262\n\212\214~\210eb\210\333\337\"\340 !\3412T\342\315\314#\203+\343 \204\306 \344 \345\346\" \232\203'\345\347\"b\210\350!\211\351\267\202\352\341\353\315\354!#\"\210\202&\352\341\353\315\211\n?\205\n#\"\210\202&\355!\211\203!\211\352\341\"\266\202%\356\357!\210\210\210\210\202\306 \360\f!\2038\352\341\361 \"\210\362\f! \236A\211\203M\352\341\353\315#\"\210\210\356\363 \"0\2119\203`\364\365\"\202q\203p\211<\203p\366\"\202q\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-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 t nil string-match "\\[\\([^\\[]+\\)\\]$" cl-count 40 41 match-string 1 "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" 3 5 mapcar #[257 "\300B\207" [:var] 3 "\n\n(fn REF)"] org-babel-ref-split-args append org-babel-parse-header-arguments "^\\(.+\\):\\(.+\\)$" 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 238 src-block 254)) 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 (#$ . 2011)]) | |
| 38 | #@567 Return the subset of LIS indexed by INDEX. | |
| 39 | ||
| 40 | Indices are 0 based and negative indices count from the end of | |
| 41 | LIS, so 0 references the first element of LIS and -1 references | |
| 42 | the last. If INDEX is separated by ","s then each "portion" | |
| 43 | is assumed to index into the next deepest nesting or dimension. | |
| 44 | ||
| 45 | A valid "portion" can consist of either an integer index, two | |
| 46 | integers separated by a ":" in which case the entire range is | |
| 47 | returned, or an empty string or "*" both of which are | |
| 48 | interpreted to mean the entire range and as such are equivalent | |
| 49 | to "0:-1". | |
| 50 | ||
| 51 | (fn INDEX LIS) | |
| 52 | (defalias 'org-babel-ref-index-list #[514 "G\300V\203\231 \301\302\"\203\231 \303G\304\305\"\300\225\306O\307\310\211\311\312\313\314\315\316 !\317\"\320\321%G\300U\204< \301 \"\203\212 \311\312\313\322\315\316!\323\"\324\325%\326\327\nG\300V\203x \304\330\f\"\203x \f\331\304\330\"!\" \331\304\324\"!\"D\202\205 \f\300\" \332\"D\"\"\202\226 \331 !\"\n8C\"!\207\207" [0 string-match "^\\([^,]*\\),?" "\\(\\([-[:digit:]]+\\):\\([-[:digit:]]+\\)\\|\\*\\)" 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-byte-code 257 "\211<\203\n \301\300\"\207\207" vconcat vector [org-babel-ref-index-list] 4 "\n\n(fn SUB-LIS)" "\211\3008\207" [] 3 "\n\n(fn N)" apply org-number-sequence 2 string-to-number -1] 22 (#$ . 4123)]) | |
| 53 | #@85 Split ARG-STRING into top-level arguments of balanced parenthesis. | |
| 54 | ||
| 55 | (fn ARG-STRING) | |
| 56 | (defalias 'org-babel-ref-split-args #[257 "\300\301\302\303\"\"\207" [mapcar org-trim org-babel-balanced-split 44] 6 (#$ . 5561)]) | |
| 57 | (provide 'ob-ref) | |
