| 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\300\302!\210\303\304\305\"\207" [require ob comint add-to-list org-babel-tangle-lang-exts ("ocaml" . "ml")] 3) | |
| 16 | (defvar org-babel-default-header-args:ocaml nil) | |
| 17 | (defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;") | |
| 18 | (defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe") | |
| 19 | (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" [#1="ocaml"] 1 #1#] "Name of the command for executing Ocaml code." :version "24.4" :package-version (Org . "8.0") :group org-babel :type string] 12) | |
| 20 | #@61 Execute a block of Ocaml code with Babel. | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:ocaml #[514 "\306\307!#\310\311\236A\"\312!\204 \313\314\"\210\315 \316\317\320\321\322!\323\"\324$\216rq\210\212\325\326C\316\327\330\321\322!\331\"\332\333% B\334\335\336p!!b\210`d{\262|\266\337!\340\nQc\210\341 \210 b\210\212\342\343\f!\334\344#\205q \342 \334\344#)\204~ \345\336p!!\210\202^ \335\336p!!b\210\211c\210\346\242 \")\266\202,\262\343\f!\334C\347\334\350\316\327\351\321\322 \"\352\"\332\353%\350\354\355 !\"\"\"\266\202@\354!\356\236A\357\360\"\210\361\362\"\361\324\"\361\363\"\364\365\235?\205K\366\235\204 \367\235\204 \370\235\204 \371\235\204 \372\235\204 \373\235\204 \374\235\204\375\235\204\376\235\204\377\235\2038\201@ \235\2048\367\235\203(\202K\374\235\2033\202K\202K\203I\203I\201A \"\202K\262\201B \201C \236A\201D \236A\"\201B \201E \236A\201F \236A\"#\266\203\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-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" 257 "\300\211\242P\240\207" [] 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 "\301\242\203\n \301\302\240\210\207\303\300\"\205 \301\304\240\210\302\207" [nil string-match t] "\n\n(fn LINE)" org-trim reverse :result-params string-match "\\(\\(.*\n\\)*\\)[^:\n]+ : \\([^=\n]+\\) =\\(\n\\| \\)\\(.+\\)$" match-string 1 5 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 (#$ . 1028)]) | |
| 24 | #@83 Prepare SESSION according to the header arguments in PARAMS. | |
| 25 | ||
| 26 | (fn SESSION PARAMS) | |
| 27 | (defalias 'org-babel-prep-session:ocaml #[514 "\302\303!\210\304\230\204 \305\230\204 ;\203 \202 \306 \307\310\311\312\313!\314\"\315$\216\316\317!\2036 \317 !\210\2029 \320 \210)\210\321!)\207" [tuareg-interactive-buffer-name org-babel-ocaml-command require tuareg "none" "default" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 fboundp tuareg-run-process-if-needed tuareg-run-caml get-buffer] 9 (#$ . 3189)]) | |
| 28 | #@79 Return list of ocaml statements assigning the block's variables. | |
| 29 | ||
| 30 | (fn PARAMS) | |
| 31 | (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 (#$ . 3759)]) | |
| 32 | #@65 Return a string of ocaml code which evaluates to VAL. | |
| 33 | ||
| 34 | (fn VAL) | |
| 35 | (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 (#$ . 4071)]) | |
| 36 | #@100 Parse VALUE of type TYPE. | |
| 37 | VALUE and TYPE are string output from an ocaml process. | |
| 38 | ||
| 39 | (fn VALUE TYPE) | |
| 40 | (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 (#$ . 4332)]) | |
| 41 | #@182 Convert RESULTS into an elisp table or string. | |
| 42 | If the results look like a table, then convert them into an | |
| 43 | Emacs-lisp table, otherwise return the results as a string. | |
| 44 | ||
| 45 | (fn RESULTS) | |
| 46 | (defalias 'org-babel-ocaml-read-list #[257 "\300\301\302\303#!\207" [org-babel-script-escape replace-regexp-in-string ";" ","] 6 (#$ . 4824)]) | |
| 47 | #@182 Convert RESULTS into an elisp table or string. | |
| 48 | If the results look like a table, then convert them into an | |
| 49 | Emacs-lisp table, otherwise return the results as a string. | |
| 50 | ||
| 51 | (fn RESULTS) | |
| 52 | (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 (#$ . 5156)]) | |
| 53 | (provide 'ob-ocaml) | |
