;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:42 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-ocaml.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-comint 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")
#@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\211123\3264B4\327\216\330\331p!!b\210`d5\21165{265|\210*\332!\3337Qc\210\334 \2108b\210\212\335\3369!\325\337#\205z\335:\325\337#)\204\207\340\331p!!\210\202d\330\331p!!b\2102c\210)\203\261\341\342\333\343\336\206\241\324!#3\"\203\2613\344\225\325O1\3453:\".1\3369!\325;<\346\325\306\347\306\350\3511!\"\"\"*@=\352\353\350=!!\354\315\355\"A\315\356\"A\"\354\315\357\"A\315\360\"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 ((byte-code "\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] ((byte-code "A\301\207" [comint-output-filter-functions nil] 1)) 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]+" 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 org-babel-ocaml-parse-output org-babel-pick-name :colname-names :colnames :rowname-names :rownames 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] 9 (#$ . 889)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:ocaml #[(session params) "\303\304!\210\305\230\204\306\230\204;\203\202	\307 \310\216\311 \210\312	!+\207" [session tuareg-interactive-buffer-name #1=#:wconfig require tuareg "none" "default" current-window-configuration ((set-window-configuration #1#)) tuareg-run-caml get-buffer] 2 (#$ . 2698)])
#@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 (#$ . 3112)])
#@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 (#$ . 3440)])
#@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 (#$ . 3693)])
#@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 (#$ . 4293)])
#@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 (#$ . 4625)])
(provide 'ob-ocaml)