JezK
Edit File: ob-lob.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:43 2026 ;;; 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!\210peb\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 \3260!\2110/B\32701\"B1T*,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!\211G\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)