WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/ob-lob.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:07 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-lob.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.

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


(byte-code "\300\301!\210\300\302!\207" [require ob ob-table] 2)
#@125 Library of source-code blocks.
This is an association list.  Populate the library by adding
files to `org-babel-lob-files'.
(defvar org-babel-library-of-babel nil (#$ . 619))
#@124 Files used to populate the `org-babel-library-of-babel'.
To add files to this list use the `org-babel-lob-ingest' command.
(custom-declare-variable 'org-babel-lob-files ''nil '(#$ . 801) :group 'org-babel :version "24.1" :type 'list)
#@66 Default header arguments to use when exporting #+lob/call lines.
(defvar org-babel-default-lob-header-args '((:exports . "results")) (#$ . 1041))
#@78 Add all named source-blocks defined in FILE to
`org-babel-library-of-babel'.
(defalias 'org-babel-lob-ingest #[(&optional file) "\306	\211?\206\307\310\n!!`\311\312 \313\216\n\203!\314\n!\210peb\210\315\311\316#\203\243\306\224b\210\317\306!\306\224\306\225\317\320!\320\224\320\225\317\321!\321\224\321\225\317\322!\322\224\322\225\317\323!\323\224\323\225 !\"#$%&'()*+,-.\324\325!/\322/8\2110\203\231\3260!\2110/B\32701\"B1T*,b\210.\202&*\204\254\330
!\210\fb\210,\331\332\211\333V\203\275\334\202\276\335#\210)\207" [lob-ingest-count file #1=#:file visited-p point to-be-removed 0 get-file-buffer expand-file-name nil current-window-configuration ((set-window-configuration #2=#:wconfig)) find-file re-search-forward t match-string 2 3 4 5 org-babel-get-src-block-info light intern assq-delete-all kill-buffer message "%d src block%s added to Library of Babel" 1 "s" "" #2# org-babel-src-block-regexp end-body beg-body body end-header-args beg-header-args header-args end-switches beg-switches switches end-lang beg-lang lang end-block beg-block full-block info source-name org-babel-library-of-babel] 16 (#$ . 1193) "fFile: "])
#@72 Regexp to match non-inline calls to predefined source block functions.
(defconst org-babel-block-lob-one-liner-regexp "^\\([ 	]*?\\)#\\+call:[ 	]+\\([^()\n]+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\([^\n]*?\\))\\(\\[.+\\]\\|\\)[ 	]*\\(\\([^\n]*\\)\\)?" (#$ . 2381))
#@68 Regexp to match inline calls to predefined source block functions.
(defconst org-babel-inline-lob-one-liner-regexp "\\([^\n]*?\\)call_\\([^()\n]+?\\)\\(\\[\\(.*?\\)\\]\\|\\(\\)\\)(\\([^\n]*?\\))\\(\\[\\(.*?\\)\\]\\)?" (#$ . 2648))
#@61 Regexp to match calls to predefined source block functions.
(defconst org-babel-lob-one-liner-regexp (concat "\\(" org-babel-block-lob-one-liner-regexp "\\|" org-babel-inline-lob-one-liner-regexp "\\)") (#$ . 2885))
#@186 Execute a Library of Babel source block, if appropriate.
Detect if this is context for a Library Of Babel source block and
if so then run the appropriate source block from the Library.
(defalias 'org-babel-lob-execute-maybe #[nil "\301 \211@\205\302 ?\205\303!\210\304)\207" [info org-babel-lob-get-info org-babel-in-example-or-verbatim org-babel-lob-execute t] 3 (#$ . 3108) nil])
#@54 Return a Library of Babel function call as a string.
(defalias 'org-babel-lob-get-info #[nil "\303\304\212\305\306!\210\307\n!\205Y\310\311\312\313\314\315\316\"\317\320\"G\321U\204,\322\317\320\"\323Q\202-\324\325\326\"\2065\324\327\330\"\206=\324%\331\332\"D\"\333\316!G\321U\203S\333\334!\202V\333\335!GC\"+\207" [nonempty case-fold-search org-babel-lob-one-liner-regexp t #[(a b) "\303!\211G\304U\203\303\n!\202	)\207" [a it b match-string 0] 3] beginning-of-line 1 looking-at append mapcar org-no-properties format "%s%s(%s)%s" 3 12 5 14 0 "[" "]" "" 7 16 8 19 9 18 match-string 2 11] 11 (#$ . 3502)])
#@41 Execute the lob call specified by INFO.
(defalias 'org-babel-lob-execute #[(info) "\306\307	\310 \311\312\313\314\315\n!\316#P\317\320\321!\203$\321\322\fG\317\f$\210\202;\2033\323\322\fG
\f$\210\202;\321\322\fG\317\f$\210\f*!#!!!\"\324\325!\"A\205X\324\325!\"A\326\230\211#\205b\327\"!$#\205k\330 %#\203\213$%\232\203\213\212\331 b\210\332y\210\333\334\335 \")\202\236\336\317\337!!!\"$\203\236\340$!\210.\207" [mkinfo org-babel-default-header-args info restricted s org-rm-props #[(p) "\302\303\304\211\305	8\257\207" [p info "emacs-lisp" "results" nil 2] 7] org-babel-merge-params org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast " " nil fboundp set-text-properties 0 remove-text-properties assoc :cache "yes" org-babel-sha1-hash org-babel-current-result-hash org-babel-where-is-src-block-result 1 message "%S" org-babel-read-result org-babel-execute-src-block org-babel-process-params org-babel-set-current-result-hash pre-params pre-info cache\? new-hash old-hash] 10 (#$ . 4136)])
(provide 'ob-lob)
F1l3 Manager
