;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-haskell.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 ("haskell" . "hs")] 3)
(defvar org-babel-default-header-args:haskell nil)
(defvar org-babel-haskell-lhs2tex-command "lhs2tex")
(defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")
#@34 Execute a block of Haskell code.
(defalias 'org-babel-execute:haskell #[(body params) "\306\307\"A\310\311\312\313\"\"\306\314\"A\315\f\316!#\317	\"\212\320 2\321\216\322	!\2043\323\324	\"\210	q\210\325\326\211345\3276B6\330\216\331\332p!!b\210`d7\21187{487|\210*\333
!c\210\334\326\335\"\2109c\210\334\326\335\"\210:b\210\212\336\3379!\326\335#\205\212\336;\326\335#)\204\227\340\332p!!\210\202t\331\332p!!b\2104c\210)
\203\301\341\342\343\344\337
\206\261\325!#5\"\203\3015\345\225\326O3\3465;\".3\310\3479\350\310\3333\"!\235A\"<\351\352\232\203\356\353\354\350<A!\343#\202\371\355\232\205\371\356<@!\357\306\360\"A\306\360\"A\"\357\306\361\"A\306\361\"A\"#.\207" [params session vars result-type body full-body assoc :session mapcar cdr org-babel-get-header :var :result-type org-babel-expand-body:generic org-babel-variable-assignments:haskell org-babel-haskell-initiate-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-trim comint-send-input t re-search-forward regexp-quote accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" 0 split-string org-babel-haskell-read-string reverse org-babel-reassemble-table output mapconcat identity value org-babel-haskell-table-or-string org-babel-pick-name :colname-names :rowname-names save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-haskell-eoe comint-last-input-end comint-prompt-regexp results] 9 (#$ . 882)])
#@41 Strip \"s from around a haskell string.
(defalias 'org-babel-haskell-read-string #[(string) "\301\302\"\203\f\303\304\"\207\207" [string string-match "^\"\\([^]+\\)\"$" match-string 1] 3 (#$ . 2684)])
#@140 Initiate a haskell session.
If there is not a current inferior-process-buffer in SESSION
then create one.  Return the initialized session.
(defalias 'org-babel-haskell-initiate-session #[(&optional session params) "\301\302!\210\303\304!\206\305 \306\216\307 \210\310\311!\210p*\207" [#1=#:wconfig require inf-haskell get-buffer "*haskell*" current-window-configuration ((set-window-configuration #1#)) run-haskell sleep-for 0.25] 2 (#$ . 2897)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:haskell #[(session body params) "\306 \307\216\310	\n\"\311\312!\313P\314\315!r
q\210\316\216c\210\317\f!\210\320 \210\321 \210+,\207" [#1=#:wconfig session params buffer load-file #2=#:temp-buffer current-window-configuration ((set-window-configuration #1#)) org-babel-prep-session:haskell org-babel-temp-file "haskell-load-" ".hs" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) write-file haskell-mode inferior-haskell-load-file body] 3 (#$ . 3353)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:haskell #[(session params) "\305 \306\216\307	!\212\310 \311\216\312\n!\204\313\314\n\"\210\nq\210\315\316\317\f!\"\210+p+\207" [#1=#:wconfig session buffer save-match-data-internal params current-window-configuration ((set-window-configuration #1#)) org-babel-haskell-initiate-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" mapc #[(line) "c\210\301\302\303\"\207" [line comint-send-input nil t] 3] org-babel-variable-assignments:haskell] 4 (#$ . 3940)])
#@68 Return list of haskell statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:haskell #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "let %s = %s" org-babel-haskell-var-to-haskell] 5] cdr org-babel-get-header :var] 7 (#$ . 4641)])
#@167 Convert RESULTS to an Emacs-lisp table or string.
If RESULTS look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-haskell-table-or-string #[(results) "\301!\207" [results org-babel-script-escape] 2 (#$ . 4974)])
#@156 Convert an elisp value VAR into a haskell variable.
The elisp VAR is converted to a string of haskell source code
specifying a variable of the same value.
(defalias 'org-babel-haskell-var-to-haskell #[(var) "<\203\301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-haskell-var-to-haskell ", " "]" format "%S"] 5 (#$ . 5267)])
#@401 Export to a .lhs file with all haskell code blocks escaped.
When called with a prefix argument the resulting
.lhs file will be exported to a .tex file.  This function will
create two new files, base-name.lhs and base-name.tex where
base-name is the name of the current org-mode file.

Note that all standard Babel literate programming
constructs (header arguments, no-web syntax etc...) are ignored.
(defalias 'org-babel-haskell-export-to-lhs #[(&optional arg) "\306 \307\310\311 !\312\313!\211\314P\315P\n\316P5\n\315P67\317\3205!\321\3206!\26089:\322;\f\323\324\325!!<=\326\216r<q\210c\210eb\210\327	\322\330#\203\227\331 >\332\216\333\334!G;*\335\331 >\336\216\337:\204y\340\341\333\342!\"\203\333\343!\202\204\344\333\343!!\345Q*\330\211#\210\346\347\224\347\225;#\210\202N)r<q\210\350\322\211=\322\347%\210,\212\351\f!\210\352\322!\210\353\322!\210\354\f!\210\351
!\210eb\210\342y\210\355c\210\327\356\322\330#\203\341\335\331 >\357\216\344\333\347!!*\330\211#\210\202\305\306 \360 \210\353\322!\210)\354
!\2105\323\324\325!!?@\361\216r?q\210c\210)r?q\210\350\322\211@\322\347%\210,A\204!
\3515!\2020
\362\3638\"\210\3648!\210\3516!.\207" [contents haskell-regexp base-name tmp-file tmp-org-file tmp-tex-file buffer-string "^\\([ 	]*\\)#\\+begin_src[ 	]haskell*\\(.*\\)?[
\n]\\([^]*?\\)[
\n][ 	]*#\\+end_src.*" file-name-sans-extension buffer-file-name org-babel-temp-file "haskell-" ".org" ".tex" ".lhs" " " org-babel-process-file-name " > " nil get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) re-search-forward t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) match-string 1 replace-match ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "#+begin_latex\n\\begin{code}\n" string-match "-i" 2 3 org-remove-indentation "\n\\end{code}\n#+end_latex\n" indent-code-rigidly 0 write-region find-file org-export-as-latex kill-buffer delete-file "%include polycode.fmt\n" "^[ 	]+\\\\begin{code}[^]+\\\\end{code}" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) save-buffer ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) message "running %s" shell-command lhs-file tex-file org-babel-haskell-lhs2tex-command command org-src-preserve-indentation preserve-indentp indentation #1# #3=#:temp-file save-match-data-internal #2# #4=#:temp-file arg] 7 (#$ . 5624) "P"])
(provide 'ob-haskell)