| 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 | (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require ob org-compat add-to-list org-babel-tangle-lang-exts ("awk" . "awk")] 3) | |
| 16 | #@37 Name of the awk executable command. | |
| 17 | (defvar org-babel-awk-command "awk" (#$ . 548)) | |
| 18 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (defalias 'org-babel-expand-body:awk #[514 "\207" [] 3 (#$ . 638)]) | |
| 22 | #@121 Execute a block of Awk code with org-babel. This function is | |
| 23 | called by `org-babel-execute-src-block' | |
| 24 | ||
| 25 | (fn BODY PARAMS) | |
| 26 | (defalias 'org-babel-execute:awk #[514 "\301\302!\210\303\236A\304\236A\305\236A\306\"\307\310!\211\311\312\313!!\314\315\316\317\320!\321\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\211\262\325\236A\211\205\200 \307\326!\327!\311\312\313!!\314\315\316\317\320!\330\"\322$\216r\211q\210\331!c\210)r\211q\210\323\324\211\324\315%\210*\266\266\202\262\332\333\334\335\nF\336\337\340 !\"C#\341#\342\203\277 \343\344!r\211q\210\314\315\316\317\320!\345\"\322$\216\346p#\210\347 *\262\202\303 \350\351\"\211\205I\352\235?\205G\353\235\204\354\235\204\355\235\204\356\235\204\357\235\204\360\235\204\361\235\204\f\362\235\204\f\363\235\204\f\364\235\203\365\235\204\202G\307\366!\211\311\312\313!!\314\315\316\317\320!\367\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\370!\262\262\262\371\372 \236A\373\f\236A\"\371\374\f\236A\375 \236A\"#\207" [org-babel-awk-command message "executing Awk source code block" :result-params :cmd-line :in-file org-babel-expand-body:awk org-babel-temp-file "awk-" 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 "awk-stdin-" org-babel-ref-resolve [buffer-name kill-buffer] org-babel-awk-var-to-awk mapconcat identity append "-f" mapcar #[257 "\300\301@\302A!#\207" [format "-v %s='%s'" org-babel-awk-var-to-awk] 6 "\n\n(fn PAIR)"] org-babel--get-vars " " 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" "awk-results-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 21 (#$ . 791)]) | |
| 27 | #@86 Return a printed value of VAR suitable for parsing with awk. | |
| 28 | ||
| 29 | (fn VAR &optional SEP) | |
| 30 | (defalias 'org-babel-awk-var-to-awk #[513 "\300<\203 @<\203 \301\302\206 \303\304F\"\202+ <\203( \305\306#\202+ \211!\207" [#[257 "\211;\203 \207\300\301\"\207" [format "%S"] 4 "\n\n(fn V)"] orgtbl-to-generic :sep " " :fmt mapconcat "\n"] 9 (#$ . 2847)]) | |
| 31 | (provide 'ob-awk) | |
