ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-ocaml.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 comint add-to-list org-babel-tangle-lang-exts ("ocaml" . "ml")] 3)
(defvar org-babel-default-header-args:ocaml nil)
(defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;")
(defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe")
#@47 Name of the command for executing Ocaml code.
(custom-declare-variable 'org-babel-ocaml-command "ocaml" '(#$ . 721) :version "24.4" :package-version '(Org . "8.0") :group 'org-babel :type 'string)
#@43 Execute a block of Ocaml code with Babel.
(defalias 'org-babel-execute:ocaml #[(body params) "\306\307\310\311\"\"\312\n\313!#\314\315\316\"A\" \212\317 \320\216\321\f!\204* \322\323\f\"\210\fq\210\324\325\211 @ A B\326CBC\327\216\330\331p!!b\210`d D\211 ED{AED|\210*\332 !\333FQc\210\334 \210Gb\210\212\335\336H!\325\337#\205z \335I\325\337#)\204\207 \340\331p!!\210\202d \330\331p!!b\210Ac\210) \203\261 \341\342\343\344\336 \206\241 \324!#B\"\203\261 B\345\225\325O@\346BI\". @\336H!\325 J K\347\325\306\350\306\351\352@!\"\"\"*@ L\353\351L!\315\354\"A M @M N\355N\235?\205U\356N\235\2045\357N\235\2045\360N\235\2045\361N\235\2045\362N\235\2045\363N\235\204.\364N\235\204.\365N\235\204.\366N\235\203Q\367N\235\204Q\357M\235\204L\341\370@\"\203L\371\372@\"\202U@\202U\373@!+\374\315\375\"A\315\376\"A\"\374\315\377\"A\315\201O \"A\"#-\207" [params vars body full-body session save-match-data-internal mapcar cdr org-babel-get-header :var org-babel-expand-body:generic org-babel-variable-assignments:ocaml org-babel-prep-session:ocaml assoc :session match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" "" nil #[(text) " P\211\207" [string-buffer text] 2] #[nil "A\211\207" [comint-output-filter-functions] 2] process-mark get-buffer-process org-babel-chomp ";;\n" tuareg-interactive-send-input re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" 0 split-string delq #[(line) "\203 \303 \207\304\n \"\205 \305\303\207" [out line re nil string-match t] 3] org-babel-trim reverse org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" "= \\(.+\\)$" match-string 1 org-babel-ocaml-parse-output org-babel-pick-name :colname-names :colnames :rowname-names raw dangling-text string-buffer comint-output-filter-functions end start org-babel-ocaml-eoe-indicator comint-last-input-end org-babel-ocaml-eoe-output comint-prompt-regexp out re clean result-params #1=#:--params :rownames] 9 (#$ . 924)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:ocaml #[(session params) "\304\305!\210\306\230\204 \307\230\204 ;\203 \202 \310 \311\216\312\313!\203- \313 !\210\2020 \314 \210*\315 !)\207" [session tuareg-interactive-buffer-name #1=#:wconfig org-babel-ocaml-command require tuareg "none" "default" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] fboundp tuareg-run-process-if-needed tuareg-run-caml get-buffer] 2 (#$ . 3140)])
#@66 Return list of ocaml statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:ocaml #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "let %s = %s;;" org-babel-ocaml-elisp-to-ocaml] 5] cdr org-babel-get-header :var] 7 (#$ . 3667)])
#@55 Return a string of ocaml code which evaluates to VAL.
(defalias 'org-babel-ocaml-elisp-to-ocaml #[(val) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [val "[|" mapconcat org-babel-ocaml-elisp-to-ocaml "; " "|]" format "%S"] 5 (#$ . 3995)])
#@62 Parse OUTPUT.
OUTPUT is string output from an ocaml process.
(defalias 'org-babel-ocaml-parse-output #[(output) "\302\303\304\305\" \"\203 \306\307\310 \"!\202^ \303\304\311\" \"\204) \303\304\312\" \"\2032 \313\307\310 \"!\202^ \303\304\314\" \"\203E \315\307\310 \"!\202^ \303\304\316\" \"\203X \317\307\310 \"!\202^ \320\321 \"\210 )\207" [regexp output "[^:]+ : %s = \\(.+\\)$" string-match format "string" org-babel-read match-string 1 "int" "float" string-to-number "list" org-babel-ocaml-read-list "array" org-babel-ocaml-read-array message "don't recognize type of %s"] 4 (#$ . 4248)])
#@168 Convert RESULTS into an elisp table or string.
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-ocaml-read-list #[(results) "\301\302\303\304#!\207" [results org-babel-script-escape replace-regexp-in-string ";" ","] 5 (#$ . 4856)])
#@168 Convert RESULTS into an elisp table or string.
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-ocaml-read-array #[(results) "\301\302\303\304\302\305\306\302\307\310###!\207" [results org-babel-script-escape replace-regexp-in-string "\\[|" "[" "|\\]" "]" "; " ","] 11 (#$ . 5188)])
(provide 'ob-ocaml)
Kontol Shell Bypass