| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require ob comint add-to-list org-babel-tangle-lang-exts ("haskell" . "hs")] 3) | |
| 17 | (defvar org-babel-default-header-args:haskell '((:padlines . "no"))) | |
| 18 | (defvar org-babel-haskell-lhs2tex-command "lhs2tex") | |
| 19 | (defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"") | |
| 20 | #@52 Execute a block of Haskell code. | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:haskell #[514 "\306\307!\210\310\311\312\"\210\313\236A\314\236A\315\316!#\317\"\320B\321!\204, \322\323\"\210\324 \325\326\327\330\331!\332\"\333$\216rq\210\212\334\335C\325\336\337\330\331!\340\"\341\342%\nB\343\344\345p!!b\210`d{\262|\266\346!c\210\347\343\350\"\210 c\210\347\343\350\"\210\fb\210\212\351\352 !\343\350#\205\213 \351 \343\350#)\204\230 \353\345p!!\210\202x \344\345p!!b\210\211c\210\203\302 \354\355\356\357\352 \206\261 \335!#\242\"\203\302 \211\242\326\225\343O\240\210\360\242 \")\266\202,\262\361\362 \363\361\346\"!\235A\"\364\365\267\202\361 \366\367\363A!\356#\202\362 @\202\362 \343\370 \236A\371\235?\205S\372\235\204J\373\235\204J\374\235\204J\375\235\204J\376\235\204J\377\235\204J\201@ \235\204B\201A \235\204B\201B \235\204B\201C \235\203N\201D \235\204N\202S\201E !\262\262\201F \201G \n\236A\201G \236A\"\201F \201H \236A\201H \f\236A\"#)\207" [comint-preoutput-filter-functions comint-input-filter comint-output-filter-functions org-babel-haskell-eoe comint-last-input-end comint-prompt-regexp require inf-haskell add-hook inferior-haskell-hook #[0 "\302\301!\210\303P\211\207" [haskell-prompt-regexp comint-prompt-regexp make-local-variable "\\|^λ?> "] 2] :session :result-type org-babel-expand-body:generic org-babel-variable-assignments:haskell org-babel-haskell-initiate-session ansi-color-filter-apply 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-trim comint-send-input t re-search-forward regexp-quote accept-process-output string-match replace-regexp-in-string "\n" "[ \n]+" split-string mapcar org-babel-strip-quotes reverse org-babel-reassemble-table #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 225 value 236)) mapconcat identity :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-script-escape org-babel-pick-name :colname-names :rowname-names] 15 (#$ . 728)]) | |
| 24 | #@171 Initiate a haskell session. | |
| 25 | If there is not a current inferior-process-buffer in SESSION | |
| 26 | then create one. Return the initialized session. | |
| 27 | ||
| 28 | (fn &optional SESSION PARAMS) | |
| 29 | (defalias 'org-babel-haskell-initiate-session #[512 "\300\301!\210\302\303!\206# \304 \305\306\307\310\311!\312\"\313$\216\314 \210\315\316!\210p)\262\207" [require inf-haskell get-buffer "*haskell*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-haskell sleep-for 0.25] 9 (#$ . 3075)]) | |
| 30 | #@51 Load BODY into SESSION. | |
| 31 | ||
| 32 | (fn SESSION BODY PARAMS) | |
| 33 | (defalias 'org-babel-load-session:haskell #[771 "\300 \301\302\303\304\305!\306\"\307$\216\310\"\311\312!\313P\314\315!r\211q\210\301\302\316\304\305!\317\"\307$\216c\210\320!\210\321 \210\322 \210*\210\266\202)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-prep-session:haskell org-babel-temp-file "haskell-load-" ".hs" generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] write-file haskell-mode inferior-haskell-load-file] 13 (#$ . 3603)]) | |
| 34 | #@83 Prepare SESSION according to the header arguments in PARAMS. | |
| 35 | ||
| 36 | (fn SESSION PARAMS) | |
| 37 | (defalias 'org-babel-prep-session:haskell #[514 "\301 \302\303\304\305\306!\307\"\310$\216\311!\312!\204 \313\314\"\210\315 \302\303\316\305\306!\317\"\320$\216rq\210\212\321\322\323\324!\"\210,\210p\262)\207" [comint-input-filter current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-haskell-initiate-session org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data "\301\300\302\"\207" [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] mapc #[257 "\211c\210\300\301\302\"\207" [comint-send-input nil t] 4 "\n\n(fn LINE)"] org-babel-variable-assignments:haskell] 11 (#$ . 4219)]) | |
| 38 | #@81 Return list of haskell statements assigning the block's variables. | |
| 39 | ||
| 40 | (fn PARAMS) | |
| 41 | (defalias 'org-babel-variable-assignments:haskell #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "let %s = %s" org-babel-haskell-var-to-haskell] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 5018)]) | |
| 42 | #@166 Convert an elisp value VAR into a haskell variable. | |
| 43 | The elisp VAR is converted to a string of haskell source code | |
| 44 | specifying a variable of the same value. | |
| 45 | ||
| 46 | (fn VAR) | |
| 47 | (defalias 'org-babel-haskell-var-to-haskell #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\"\207" ["[" mapconcat org-babel-haskell-var-to-haskell ", " "]" format "%S"] 6 (#$ . 5335)]) | |
| 48 | #@416 Export to a .lhs file with all haskell code blocks escaped. | |
| 49 | When called with a prefix argument the resulting | |
| 50 | .lhs file will be exported to a .tex file. This function will | |
| 51 | create two new files, base-name.lhs and base-name.tex where | |
| 52 | base-name is the name of the current Org file. | |
| 53 | ||
| 54 | Note that all standard Babel literate programming | |
| 55 | constructs (header arguments, no-web syntax etc...) are ignored. | |
| 56 | ||
| 57 | (fn &optional ARG) | |
| 58 | (defalias 'org-babel-haskell-export-to-lhs #[256 "\303 \304\305\306 !\307\310!\211\311P\312P\313P\312P\314\315!\316\315!\260 \317\320\321\322!!\323\324\325\326\327!\330\"\331$\216r\211q\210\fc\210eb\210\332\f\317\333#\203\235 \334 \323\324\335\326\327!\336\"\337$\216\340\341!G\262)\210\342\334 \323\324\335\326\327!\343\"\337$\216\344\204~ \345\346\340\331!\"\203\204 \340\337!\202\211 \347\340\337!!\350Q)\262\333\211#\210\351\324\224\324\225#\210\202A )r\211q\210\352\317\211\317\324%\210*\266\212\353\354!\210\355!\210\317\356\357\"\210)\360\317!\210\361!\210\355!\210eb\210\331y\210\362c\210\332\363\317\333#\203\375 \342\334 \323\324\335\326\327!\364\"\337$\216\347\340\324!!)\262\333\211#\210\202\327 \303 \262 \365 \210\360\317!\210)\361!\210\320\321\322!!\323\324\325\326\327!\366\"\331$\216r\211q\210\fc\210)r\211q\210\352\317\211\317\324%\210*\266 \204C\355!\202O\367\370\"\210\371!\210\355!\207" [org-babel-haskell-lhs2tex-command org-src-preserve-indentation org-export-copy-to-kill-ring 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*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward t match-data "\301\300\302\"\207" [set-match-data evaporate] 3 match-string 1 replace-match [set-match-data evaporate] "#+begin_export latex\n\\begin{code}\n" string-match "-i" org-remove-indentation "\n\\end{code}\n#+end_export\n" indent-code-rigidly write-region require ox-latex find-file org-export-to-file latex kill-buffer delete-file "%include polycode.fmt\n" "^[ ]+\\\\begin{code}[^ ]+\\\\end{code}" [set-match-data evaporate] save-buffer [buffer-name kill-buffer] message "running %s" shell-command] 22 (#$ . 5699) "P"]) | |
| 59 | (provide 'ob-haskell) | |
