| 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 | (require 'ob) | |
| 16 | #@37 Name of the sed executable command. | |
| 17 | (defvar org-babel-sed-command "sed" (#$ . 422)) | |
| 18 | (add-to-list 'org-babel-tangle-lang-exts '("sed" . "sed")) | |
| 19 | #@32 Sed specific header arguments. | |
| 20 | (defconst org-babel-header-args:sed '((:cmd-line . :any) (:in-file . :any)) (#$ . 571)) | |
| 21 | #@54 Default arguments for evaluating a sed source block. | |
| 22 | (defvar org-babel-default-header-args:sed nil (#$ . 696)) | |
| 23 | #@239 Execute a block of sed code with Org Babel. | |
| 24 | BODY is the source inside a sed source block and PARAMS is an | |
| 25 | association list over the source block configurations. This | |
| 26 | function is called by `org-babel-execute-src-block'. | |
| 27 | ||
| 28 | (fn BODY PARAMS) | |
| 29 | (defalias 'org-babel-execute:sed #[514 "\301\302!\210\303\236A\304\236A\305\236A\306\307!\211\310\311\312!!\313\314\315\316\317!\320\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\211\262\324\236A\211\205z \306\325!\326!\310\311\312!!\313\314\315\316\317!\327\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\266\202\262\330\331\332\323\333\334\" F\"\335#\336\203\264 \337\340!r\211q\210\313\314\315\316\317!\341\"\321$\216\342p#\210\343 *\262\202\270 \344\345\"\211\205>\346\235?\205<\347\235\204\350\235\204\351\235\204\352\235\204\353\235\204\354\235\204\355\235\204\356\235\204\357\235\204\360\235\203 \361\235\204 \202<\306\362!\211\310\311\312!!\313\314\315\316\317!\363\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\364!\262\262\262\365\366\n\236A\367 \236A\"\365\370 \236A\371\f\236A\"#\207" [org-babel-sed-command message "executing sed source code block" :result-params :cmd-line :in-file org-babel-temp-file "sed-" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil :stdin "sed-stdin-" org-babel-ref-resolve [buffer-name kill-buffer] mapconcat identity remq format "-f \"%s\"" " " org-babel-reassemble-table generate-new-buffer " *temp*" [buffer-name kill-buffer] call-process-shell-command buffer-string org-babel-eval "" "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "sed-results-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 20 (#$ . 814)]) | |
| 30 | (provide 'ob-sed) | |
