ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-lob.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require ob-core 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 (#$ . 481))
#@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 '(#$ . 663) :group 'org-babel :version "24.1" :type '(repeat file))
#@66 Default header arguments to use when exporting #+lob/call lines.
(defvar org-babel-default-lob-header-args '((:exports . "results")) (#$ . 910))
#@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\250 \317 \203& \306\224b\210\320\306!\306\224\306\225\320\321!\321\224\321\225\320\322!\322\224\322\225\320\323!\323\224\323\225\320\324!\324\224\324\225 ! \" # $ % & ' ( ) * + , - . /\325\326! 0\32308\211 1\203\236 \3271!\21110B\33012\"B2T*-b\210.\202& * \204\261 \331
!\210\fb\210,\332\333\211\334V\203\302 \335\202\303 \336#\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 #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] find-file re-search-forward t org-babel-active-location-p 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 (#$ . 1061) "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]*\\)\\)?" (#$ . 2308))
#@68 Regexp to match inline calls to predefined source block functions.
(defconst org-babel-inline-lob-one-liner-regexp "\\([^\n]*?\\)call_\\([^()\n]+?\\)\\(\\[\\(.*?\\)\\]\\|\\(\\)\\)(\\([^\n]*?\\))\\(\\[\\(.*?\\)\\]\\)?" (#$ . 2575))
#@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 "\\)") (#$ . 2812))
#@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 (#$ . 3035) nil])
#@54 Return a Library of Babel function call as a string.
(defalias 'org-babel-lob-get-info #[nil "\306\307\212\310\311!\210\312\n!\205\227 \313\314\315\316\317\320\321\"\322\323\"G\324U\204, \325\322\323\"\326Q\202- \327\330\331\"\2065 \327\332\333\"\206= \327%\334\335\"D\"\336\321!G\324U\203S \336\337!\202V \336\340!G\212\341y\210\312 \342P!\205\224 \336\311!\343 \344\345!\203z \345\324
G\343
$\210\202\222 \f\203\212 \346\324
G'
$\210\202\222 \345\324
G\343
$\210
*)D\"+\207" [nonempty case-fold-search org-babel-lob-one-liner-regexp org-babel-src-name-regexp restricted s 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 -1 "\\([^\n]*\\)$" nil fboundp set-text-properties remove-text-properties org-rm-props] 11 (#$ . 3429)])
#@41 Execute the lob call specified by INFO.
(defalias 'org-babel-lob-execute #[(info) "\306\307\310 \n\311\312 \313\314\315\316\317 \320\"\321#P\322 \323\324!\203( \324\325
G\322
$\210\202@ \f\2038 \326\325
G%
$\210\202@ \324\325
G\322
$\210
*!C\"$ &&! '\327\330&\"A\205_ \327\330&\"A\331\230\211 (\205i \332'! )(\205r \333 *\334 +(\203\226 )*\232\203\226 \212\335 b\210\336y\210\337\340\341 \")\202\261 \342&! ,\322 -\343\322,!\"*)\203\261 \344)!\210.\207" [mkinfo org-babel-default-header-args org-babel-default-header-args:emacs-lisp info restricted s #[(p) "\302\303\304\305 8\306 8\257\207" [p info "emacs-lisp" "results" nil 3 2] 7] apply org-babel-merge-params append org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast 2 " " nil fboundp set-text-properties 0 remove-text-properties assoc :cache "yes" org-babel-sha1-hash org-babel-current-result-hash point-marker org-babel-where-is-src-block-result 1 message "%S" org-babel-read-result org-babel-process-params org-babel-execute-src-block org-babel-set-current-result-hash org-rm-props pre-params pre-info cache-p new-hash old-hash org-babel-current-src-block-location proc-params org-confirm-babel-evaluate] 14 (#$ . 4345)])
(provide 'ob-lob)
Kontol Shell Bypass