ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-awk.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!\210\303\304\305\"\207" [require ob 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" (#$ . 550))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:awk #[(body 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 (#$ . 640)])
#@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!\211 ;\317\320\321!! < =\322\216r<q\210
c\210)r<q\210\323\324\211=\324\325%\210,;) >\310\326\"A\211 ?\205\211 \315\327!\330?! @\211 A\317\320\321!! B C\331\216rBq\210\332@!c\210)rBq\210\323\324\211C\324\325%\210,A*) ?\333\334\335\324D\336>\n \257\"\337# E\340?\203\276 \341\342! FrFq\210\343\216\344E?p#\210\345 +\202\303 \346E\347\"\211 G\205O H\350H\235?\205N\351H\235\204\352H\235\204\353H\235\204\354H\235\204\355H\235\204\356H\235\204\357H\235\204\360H\235\204\361H\235\203 \362H\235\204 G\202N\315\363!\211 A\317\320\321!! I J\364\216rIq\210Gc\210)rIq\210\323\324\211J\324\325%\210,\365A!)))\366\310\367\"A\310\370\"A\"\366\310\371\"A\310\372\"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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil 0 :stdin "awk-stdin-" org-babel-ref-resolve #[nil "\301!\205 \302!\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*" #[nil "\301!\205 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] call-process-shell-command buffer-string org-babel-eval "" "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" "awk-results-" #[nil "\301!\205 \302!\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 #7=#:--params #4# #8=#:temp-file] 10 (#$ . 991)])
#@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 (#$ . 3093)])
#@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 (#$ . 3450)])
(provide 'ob-awk)
Kontol Shell Bypass