| 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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("perl" . "pl")] 3) | |
| 16 | (defvar org-babel-default-header-args:perl nil) | |
| 17 | #@49 Name of command to use for executing perl code. | |
| 18 | (defvar org-babel-perl-command "perl" (#$ . 572)) | |
| 19 | #@118 Execute a block of Perl code with Babel. | |
| 20 | This function is called by `org-babel-execute-src-block'. | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:perl #[514 "\300\236A\301\236A\302\236A\303\304!#\305!\306\307$\310\311 \236A\312\n\236A\"\310\313\n\236A\314 \236A\"#\207" [:session :result-params :result-type org-babel-expand-body:generic org-babel-variable-assignments:perl org-babel-perl-initiate-session org-babel-reassemble-table org-babel-perl-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 14 (#$ . 677)]) | |
| 24 | #@83 Prepare SESSION according to the header arguments in PARAMS. | |
| 25 | ||
| 26 | (fn SESSION PARAMS) | |
| 27 | (defalias 'org-babel-prep-session:perl #[514 "\300\301!\207" [error "Sessions are not supported for Perl"] 4 (#$ . 1245)]) | |
| 28 | #@78 Return list of perl statements assigning the block's variables. | |
| 29 | ||
| 30 | (fn PARAMS) | |
| 31 | (defalias 'org-babel-variable-assignments:perl #[257 "\300\301\302!\"\207" [mapcar #[257 "\300A@\"\207" [org-babel-perl--var-to-perl] 4 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 1456)]) | |
| 32 | #@48 Wrapper for variables inserted into Perl code. | |
| 33 | (defvar org-babel-perl-var-wrap "q(%s)" (#$ . 1732)) | |
| 34 | #@172 Convert an elisp value to a perl variable. | |
| 35 | The elisp value, VAR, is converted to a string of perl source code | |
| 36 | specifying a var of the same value. | |
| 37 | ||
| 38 | (fn VAR &optional VARN) | |
| 39 | (defalias 'org-babel-perl--var-to-perl #[513 "\211\203 \301<\302\303!\304\205 \305\306!\307\260)\207\310\311_\312\"\211<\2039 T\313\314\306\315#\316R)\202= \317\320\"\301U?\205E \321Q\207" [org-babel-perl--lvl 0 "my $" symbol-name "=" "\n" org-babel-perl--var-to-perl ";\n" make-string 2 32 "[\n" mapconcat "" "]" format "q(%s)" ",\n"] 10 (#$ . 1839)]) | |
| 40 | (defvar org-babel-perl-buffers '(:default)) | |
| 41 | #@87 Return nil because sessions are not supported by perl. | |
| 42 | ||
| 43 | (fn &optional SESSION PARAMS) | |
| 44 | (defalias 'org-babel-perl-initiate-session #[512 "\300\207" [nil] 3 (#$ . 2432)]) | |
| 45 | (defvar org-babel-perl-wrapper-method "{\n my $babel_sub = sub {\n %s\n };\n open my $BOH, qq(>%s) or die qq(Perl: Could not open output file.$/);\n my $rv = &$babel_sub();\n my $rt = ref $rv;\n select $BOH;\n if (qq(ARRAY) eq $rt) {\n local $\\=$/;\n local $,=qq( );\n foreach my $rv ( @$rv ) {\n my $rt = ref $rv;\n if (qq(ARRAY) eq $rt) {\n print @$rv;\n } else {\n print $rv;\n }\n }\n } else {\n print $rv;\n }\n}") | |
| 46 | (defvar org-babel-perl-preface nil) | |
| 47 | (defvar org-babel-perl-pp-wrapper-method nil) | |
| 48 | #@284 Pass BODY to the Perl process in SESSION. | |
| 49 | If RESULT-TYPE equals `output' then return a list of the outputs | |
| 50 | of the statements in BODY, if RESULT-TYPE equals `value' then | |
| 51 | return the value of the last statement in BODY, as elisp. | |
| 52 | ||
| 53 | (fn SESSION IBODY &optional RESULT-TYPE RESULT-PARAMS) | |
| 54 | (defalias 'org-babel-perl-evaluate #[1026 "\203 \303\304!\210P\305\306!\307\310\"\311\267\202V \312\313\314!!\315\316\317\320\321!\322\"\323$\216r\211q\210\324 \"c\210\325 )rq\210\326\327\211\327\316%\210*\266\202\202W \324 \330\n#\"\202W \327\211\205\261 \331\235?\205\257 \332\235\204\245 \333\235\204\245 \334\235\204\245 \335\235\204\245 \336\235\204\245 \337\235\204\245 \340\235\204\237 \341\235\204\237 \342\235\204\237 \343\235\203\253 \344\235\204\253 \345!\202\257 \346\347\"\262\262\207" [org-babel-perl-preface org-babel-perl-command org-babel-perl-wrapper-method error "Sessions are not supported for Perl" org-babel-temp-file "perl-" org-babel-process-file-name noquote #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 24 value 74)) 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 org-babel-eval buffer-string write-region nil format "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-eval-read-file org-babel-import-elisp-from-file (16)] 16 (#$ . 3176)]) | |
| 55 | (provide 'ob-perl) | |
