;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-awk.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!\210\300\303!\210\304\305\306\"\207" [require ob ob-eval org-compat add-to-list org-babel-tangle-lang-exts ("awk" . "awk")] 3)
#@37 Name of the awk executable command.
(defvar org-babel-awk-command "awk" (#$ . 714))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:awk #[(body params &optional processed-params) "\304\305\306\307\"\"\310\211\203%\n@\311\312\313\314	@\"!	A#\nA\211\204*\207" [params pair --dolist-tail-- body mapcar cdr org-babel-get-header :var nil replace-regexp-in-string regexp-quote format "$%s"] 6 (#$ . 804)])
#@103 Execute a block of Awk code with org-babel.  This function is
called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:awk #[(body params) "\306\307!\210\310\311\"A\310\312\"A\310\313\"A\314\f\"\315\316!\2113\317\320\321!!45\322\216r4q\210
c\210)r4q\210\323\324\2115\324\325%\210,3)6\310\326\"A\2117\205\211\315\327!\3307!8\2119\317\320\321!!:;\331\216r:q\210\3328!c\210)r:q\210\323\324\211;\324\325%\210,9*)7\333\334\335\324<\3366\n\257\"\337#=\3407\203\276\341\342!>r>q\210\343\216\344=7p#\210\345 +\202\303\346=\347\"\211?\205
\350	\235\204\333\351	\235\204\333\352	\235\203\340?\202
\315\353!\2119\317\320\321!!@A\354\216r@q\210?c\210)r@q\210\323\324\211A\324\325%\210,\3559!))\356\310\357\"A\310\360\"A\"\356\310\361\"A\310\362\"A\"#.\207" [params result-params cmd-line in-file body full-body message "executing Awk source code block" assoc :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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region nil 0 :stdin "awk-stdin-" org-babel-ref-resolve ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-awk-var-to-awk mapconcat identity remove "-f" " " org-babel-reassemble-table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) call-process-shell-command buffer-string org-babel-eval "" "scalar" "verbatim" "output" "awk-results-" ((byte-code "\301!\203\n\302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames file #1# #5=#:temp-file code-file stdin res tmp #2# #6=#:temp-file org-babel-awk-command cmd #3# results #4# #7=#:temp-file] 10 (#$ . 1182)])
#@62 Return a printed value of VAR suitable for parsing with awk.
(defalias 'org-babel-awk-var-to-awk #[(var &optional sep) "\303	<\203	@<\203\304	\305\n\206\306\307F\"\202,	<\203)\310	\311#\202,	!)\207" [echo-var var sep #[(v) ";\203\207\301\302\"\207" [v format "%S"] 3] orgtbl-to-generic :sep "	" :fmt mapconcat "\n"] 6 (#$ . 3153)])
#@121 If the results look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-awk-table-or-string #[(results) "\301!\207" [results org-babel-script-escape] 2 (#$ . 3510)])
(provide 'ob-awk)