;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("abc" . "abc")] 3)
|
#@63 Default arguments to use when evaluating an ABC source block.
|
(defvar org-babel-default-header-args:abc '((:results . "file") (:exports . "results")) (#$ . 524))
|
#@78 Expand BODY according to PARAMS, return the expanded body.
|
|
(fn BODY PARAMS)
|
(defalias 'org-babel-expand-body:abc #[514 "C\300!\301\302\303\304\305\306!\307\"\310\311%\"\210\242\262\207" [org-babel--get-vars mapc make-byte-code 257 "\301@!A\300\302\303\304!P;\203 \202 \305\306\"\300\242#\240\207" vconcat vector [symbol-name replace-regexp-in-string "$" regexp-quote format "%S"] 9 "\n\n(fn PAIR)"] 11 (#$ . 692)])
|
#@124 Execute a block of ABC code with org-babel. This function is
|
called by `org-babel-execute-src-block'
|
|
(fn BODY PARAMS)
|
(defalias 'org-babel-execute:abc #[514 "\300\301!\210\302\236A\303\236A\211\203 \304\305\306#\202 \307\310!\262\311\312!\313\314\315\316!\314\316!\260\317\320\321!!\322\323\324\325\326!\327\"\330$\216r\211q\210\331\"c\210)r\211q\210\332\333\211\333\323%\210*\266\334\335\"\210\336!\337\230\204r \336!\340\230\203\200 \341\342!\343\336!Q\344#\210\336\303\236A!\345\230\203\233 \334\346\314\314\303\n\236A\260\335\"\210\333\207" [message "executing Abc source code block" :cmdline :file replace-regexp-in-string ".pdf$" ".ps" error "abc code block requires :file header argument" org-babel-temp-file "abc-" "abcm2ps" " " " -O " org-babel-process-file-name 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 org-babel-expand-body:abc write-region nil org-babel-eval "" file-name-extension "eps" "svg" rename-file file-name-sans-extension "001." t "pdf" "ps2pdf"] 14 (#$ . 1130)])
|
#@77 Return an error because abc does not support sessions.
|
|
(fn SESSION PARAMS)
|
(defalias 'org-babel-prep-session:abc #[514 "\300\301!\207" [error "ABC does not support sessions"] 4 (#$ . 2266)])
|
(provide 'ob-abc)
|
