ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-ref.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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-core)
(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 (#$ . 530))
#@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) "\306 \"\205I \307\310 \"\307\311 \"\312 !\212\f\203( \313\f!\203% \314\f!\202& \fb\210\315\n!)\211 \n\232\203F \306\316\n\"\203@ \317\n!\202G \320\n!\202G
+B\207" [org-babel-ref-split-regexp assignment ref var org-babel-current-src-block-location out string-match match-string 1 2 intern markerp marker-position org-babel-read "^\".*\"$" read org-babel-ref-resolve] 5 (#$ . 667)])
(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 !!\210 b\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 : ; < = > ? @ A B\312\313C\"\203X C\314\211\224O D\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! E F\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\270K#\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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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 (#$ . 2178)])
#@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) "<\203 G\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 (#$ . 4614)])
#@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 (#$ . 5943)])
#@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 (#$ . 6175)])
(provide 'ob-ref)
Kontol Shell Bypass