;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [require ob comint org-macs 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")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable org-babel-ocaml-command funcall function #[0 "\300\207" ["ocaml"] 1 ""] "Name of the command for executing Ocaml code." :version "24.4" :package-version (Org . "8.0") :group org-babel :type string] 12)
#@61 Execute a block of Ocaml code with Babel.

(fn BODY PARAMS)
(defalias 'org-babel-execute:ocaml #[514 "\306\307!#\310\311\236A\"\312
!\204\313\314\"\210\315 \316\317\"\216r
q\210\212\320\321C\316\322\"	B\323\324\325p!!b\210`d

{\262

|\266\326!\327\nQc\210\330 \210b\210\212\331\332\f!\323\333#\205b\331
\323\333#)\204o\334\325p!!\210\202O\324\325p!!b\210\211c\210\335\242
\")\266\202,\262
\332\f!\323C\336\323\337\316\340#\337\341\342	!\"\"\"\266\202@\211\323\343
\203\252\344\202\253\345\321\343\346\321##\266\202\347\236A\350\351\"\210\352\353\"\352\354\"\352\355\"\356\357\235?\205=
\360\235\204
\361\235\204
\362\235\204
\363\235\204
\364\235\204
\365\235\204
\366\235\204
\367\235\204
\370\235\204
\371\235\203-
\372\235\204-
\361\235\203
\202=
\366\235\203)
\202=
\202=

\203<
\203<
\373\"\202=
\374\375
\236A\376\236A\"\374\377\236A\201@\236A\"#\207" [comint-input-filter comint-output-filter-functions org-babel-ocaml-eoe-indicator comint-last-input-end org-babel-ocaml-eoe-output comint-prompt-regexp org-babel-expand-body:generic org-babel-variable-assignments:ocaml org-babel-prep-session:ocaml :session org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" #[257 "\300\211\242P\240\207" [V0] 4 "\n\n(fn TEXT)"] nil process-mark get-buffer-process org-babel-chomp ";;\n" tuareg-interactive-send-input re-search-forward regexp-quote t accept-process-output split-string delq mapcar #[257 "\301\242\203\n\301\302\240\210\207\303\300\"\205\301\304\240\210\302\207" [V0 V1 nil string-match t] 4 "\n\n(fn LINE)"] org-trim reverse replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" :result-params string-match "\\(\\(.*\n\\)*\\)[^:\n]+ : \\([^=\n]+\\) =[[:space:]]+\\(\\(.\\|\n\\)+\\)$" match-string 1 3 4 org-babel-reassemble-table "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-ocaml-parse-output org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 18 (#$ . 722)])
#@83 Prepare SESSION according to the header arguments in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:ocaml #[514 "\302\303!\210
\304\230\204
\305\230\204
;\203
\202\306 \307\310\"\216\311\312!\203/\312	!\210\2022\313 \210)\210\314!)\207" [tuareg-interactive-buffer-name org-babel-ocaml-command require tuareg "none" "default" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] fboundp tuareg-run-process-if-needed tuareg-run-caml get-buffer] 6 (#$ . 2929)])
#@79 Return list of ocaml statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:ocaml #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "let %s = %s;;" org-babel-ocaml-elisp-to-ocaml] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 3466)])
#@65 Return a string of ocaml code which evaluates to VAL.

(fn VAL)
(defalias 'org-babel-ocaml-elisp-to-ocaml #[257 "\211<\203\300\301\302\303#\304Q\207\305\306\"\207" ["[|" mapconcat org-babel-ocaml-elisp-to-ocaml "; " "|]" format "%S"] 6 (#$ . 3778)])
#@100 Parse VALUE of type TYPE.
VALUE and TYPE are string output from an ocaml process.

(fn VALUE TYPE)
(defalias 'org-babel-ocaml-parse-output #[514 "\211\300\230\203\n\301!\207\211\302\230\204\211\303\230\203\304!\207\305\306\"\203%\307!\207\305\310\"\2030\311!\207\312\313\"\210
\207" ["string" org-babel-read "int" "float" string-to-number string-match "list" org-babel-ocaml-read-list "array" org-babel-ocaml-read-array message "don't recognize type %s"] 5 (#$ . 4039)])
#@182 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.

(fn RESULTS)
(defalias 'org-babel-ocaml-read-list #[257 "\300\301\302\303#!\207" [org-babel-script-escape replace-regexp-in-string ";" ","] 6 (#$ . 4531)])
#@182 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.

(fn RESULTS)
(defalias 'org-babel-ocaml-read-array #[257 "\300\301\302\303\301\304\305\301\306\307\n###!\207" [org-babel-script-escape replace-regexp-in-string "\\[|" "[" "|\\]" "]" "; " ","] 12 (#$ . 4863)])
(provide 'ob-ocaml)