ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-perl.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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("perl" . "pl")] 3)
(defvar org-babel-default-header-args:perl nil)
#@49 Name of command to use for executing perl code.
(defvar org-babel-perl-command "perl" (#$ . 574))
#@100 Execute a block of Perl code with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:perl #[(body params) "\306\307\"A\306\310\"A\306\311\"A\312\f\313!# \314 !\315\316
\n$\317\306\320\"A\306\321\"A\"\317\306\322\"A\306\323\"A\"#-\207" [params session result-params result-type body full-body assoc :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] 8 (#$ . 679)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:perl #[(session params) "\300\301!\207" [error "Sessions are not supported for Perl"] 2 (#$ . 1313)])
#@65 Return list of perl statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:perl #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301A@\"\207" [pair org-babel-perl--var-to-perl] 3] cdr org-babel-get-header :var] 7 (#$ . 1516)])
#@48 Wrapper for variables inserted into Perl code.
(defvar org-babel-perl-var-wrap "q(%s)" (#$ . 1808))
#@147 Convert an elisp value to a perl variable.
The elisp value, VAR, is converted to a string of perl source code
specifying a var of the same value.
(defalias 'org-babel-perl--var-to-perl #[(var &optional varn) "\203 \305 <\306 \307\310!\311 \205 \312\313 !\314\260+\207\315\f\316_\317\"\211 <\203: \fT \320\321\313 \322#\n\323R)\202> \324\325 \"\f\305U?\205F \326Q)\207" [varn var prefix lvar org-babel-perl--lvl 0 nil "my $" symbol-name "=" "\n" org-babel-perl--var-to-perl ";\n" make-string 2 32 "[\n" mapconcat "" "]" format "q(%s)" ",\n"] 7 (#$ . 1915)])
(defvar org-babel-perl-buffers '(:default))
#@56 Return nil because sessions are not supported by perl.
(defalias 'org-babel-perl-initiate-session #[(&optional session params) "\300\207" [nil] 1 (#$ . 2530)])
(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}")
(defvar org-babel-perl-preface nil)
(defvar org-babel-perl-pp-wrapper-method nil)
#@226 Pass BODY to the Perl process in SESSION.
If RESULT-TYPE equals 'output then return a list of the outputs
of the statements in BODY, if RESULT-TYPE equals 'value then
return the value of the last statement in BODY, as elisp.
(defalias 'org-babel-perl-evaluate #[(session ibody &optional result-type result-params) "\203 \306\307!\210 \nP\310\311! \312\f\313\" \314'\315\"\203J \f\316\317\320!! ( )\321\216r(q\210\322* \"c\210\323 )r(q\210\324\325\211)\325\326%\210,\202\\ \314'\327\"\205\\ \322*\330+
#\"\211 ,\205\277 - .\331.\235?\205\276 \332.\235\204\264 \333.\235\204\264 \334.\235\204\264 \335.\235\204\264 \336.\235\204\264 \337.\235\204\255 \340.\235\204\255 \341.\235\204\255 \342.\235\203\272 \343.\235\204\272 \344\f!\202\276 \345\f\346\"),\207" [session org-babel-perl-preface ibody body tmp-file tmp-babel-file error "Sessions are not supported for Perl" org-babel-temp-file "perl-" org-babel-process-file-name noquote eql output get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-babel-eval buffer-string write-region nil 0 value format "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" org-babel-eval-read-file org-babel-import-elisp-from-file (16) result-type #1# #2=#:temp-file org-babel-perl-command org-babel-perl-wrapper-method results result-params #3=#:--params] 8 (#$ . 3266)])
(provide 'ob-perl)
Kontol Shell Bypass