mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
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 (require 'ob)
16 (defvar org-babel-default-header-args:matlab nil)
17 (defvar org-babel-default-header-args:octave nil)
18 #@53 Shell command to run matlab as an external process.
19 (defvar org-babel-matlab-shell-command "matlab -nosplash" (#$ . 522))
20 #@53 Shell command to run octave as an external process.
21 (defvar org-babel-octave-shell-command "octave -q" (#$ . 650))
22 #@150 If non-nil use matlab-shell-run-region for session evaluation.
23   This will use EmacsLink if (matlab-with-emacs-link) evaluates
24   to a non-nil value.
25 (defvar org-babel-matlab-with-emacs-link nil (#$ . 772))
26 (defvar org-babel-matlab-emacs-link-wrapper-method "%s\nif ischar(ans), fid = fopen('%s', 'w'); fprintf(fid, '%%s\\n', ans); fclose(fid);\nelse, save -ascii %s ans\nend\ndelete('%s')\n")
27 (defvar org-babel-octave-wrapper-method "%s\nif ischar(ans), fid = fopen('%s', 'w'); fprintf(fid, '%%s\\n', ans); fclose(fid);\nelse, dlmwrite('%s', ans, '\\t')\nend")
28 (defvar org-babel-octave-eoe-indicator "'org_babel_eoe'")
29 (defvar org-babel-octave-eoe-output "ans = org_babel_eoe")
30 #@62 Execute a block of matlab code with Babel.
31
32 (fn BODY PARAMS)
33 (defalias 'org-babel-execute:matlab #[514 "\300\301#\207" [org-babel-execute:octave matlab] 6 (#$ . 1456)])
34 #@80 Execute a block of octave code with Babel.
35
36 (fn BODY PARAMS &optional MATLABP)
37 (defalias 'org-babel-execute:octave #[770 "\300\301\302\203 \303\202\f\304\"!\305\236A\"\306\236A\307\310!#\3111+\312!0\202-\210\313\314\203C\315\316\317\301\320\"E\321#\202D$?\205h\322\323\324\n\236A\325 \236A\"\323\326 \236A\327\f\236A\"#\207" [intern format "org-babel-%s-initiate-session" "matlab" "octave" :session :result-type org-babel-expand-body:generic org-babel-variable-assignments:octave (error) org-babel-graphical-output-file nil org-babel-octave-evaluate mapconcat identity "set (0, \"defaultfigurevisible\", \"off\");" "print -dpng %s" "\n" org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 16 (#$ . 1633)])
38 #@59 Prepare SESSION according to PARAMS.
39
40 (fn SESSION PARAMS)
41 (defalias 'org-babel-prep-session:matlab #[514 "\300\301#\207" [org-babel-prep-session:octave matlab] 6 (#$ . 2423)])
42 #@80 Return list of octave statements assigning the block's variables.
43
44 (fn PARAMS)
45 (defalias 'org-babel-variable-assignments:octave #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302A!#\207" [format "%s=%s;" org-babel-octave-var-to-octave] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 2607)])
46 (defalias 'org-babel-variable-assignments:matlab 'org-babel-variable-assignments:octave)
47 #@166 Convert an emacs-lisp value into an octave variable.
48 Converts an emacs-lisp variable into a string of octave code
49 specifying a variable of the same value.
50
51 (fn VAR)
52 (defalias 'org-babel-octave-var-to-octave #[257 "\211<\203\300\301\302\211@<\203\303\202\304#\305Q\207\211;\203\"\306\307\"\207\306\310\"\207" ["[" mapconcat org-babel-octave-var-to-octave "; " "," "]" format "'%s'" "%s"] 6 (#$ . 3004)])
53 #@111 Prepare SESSION according to the header arguments specified in PARAMS.
54
55 (fn SESSION PARAMS &optional MATLABP)
56 (defalias 'org-babel-prep-session:octave #[770 "\301#\302!\303!\204\304\305\"\210\306 \307\310\311\312\313!\314\"\315$\216rq\210\212\316\317\307\320\321\312\313!\322\"\323\324%\"\210,\210\207" [comint-input-filter org-babel-octave-initiate-session org-babel-variable-assignments:octave 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)"] mapc 257 "\301\210\211c\210\302\303\304\"\210\305\300!\207" [1 comint-send-input nil t org-babel-comint-wait-for-output] 4 "\n\n(fn VAR)"] 13 (#$ . 3424)])
57 #@180 Create a matlab inferior process buffer.
58 If there is not a current inferior-process-buffer in SESSION then
59 create.  Return the initialized session.
60
61 (fn &optional SESSION PARAMS)
62 (defalias 'org-babel-matlab-initiate-session #[512 "\300\301#\207" [org-babel-octave-initiate-session matlab] 6 (#$ . 4216)])
63 #@189 Create an octave inferior process buffer.
64 If there is not a current inferior-process-buffer in SESSION then
65 create.  Return the initialized session.
66
67 (fn &optional SESSION PARAMS MATLABP)
68 (defalias 'org-babel-octave-initiate-session #[768 "\211\203 \301\302!\210\202\301\303\304\305#\204\301\306!\210\307\230?\205t\206+\211\203*\310\202+\311\312!\2035\211\202r\313 \314\315\316\317\320!\321\"\322$\216\203Q\204T\323 \210\202T\324 \210\325\326!\203a\327!\202l;\203j\202l\327 !\210p)\262\262\207" [org-babel-matlab-with-emacs-link require matlab octave-inf nil noerror octave "none" "*Inferior Matlab*" "*Inferior Octave*" org-babel-comint-buffer-livep current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 matlab-shell run-octave rename-buffer bufferp buffer-name] 11 (#$ . 4530)])
69 #@269 Pass BODY to the octave process in SESSION.
70 If RESULT-TYPE equals `output' then return the outputs of the
71 statements in BODY, if RESULT-TYPE equals `value' then return the
72 value of the last statement in BODY, as elisp.
73
74 (fn SESSION BODY RESULT-TYPE &optional MATLABP)
75 (defalias 'org-babel-octave-evaluate #[1027 "\203 \300$\207\301#\207" [org-babel-octave-evaluate-session org-babel-octave-evaluate-external-process] 9 (#$ . 5400)])
76 #@77 Evaluate BODY in an external octave process.
77
78 (fn BODY RESULT-TYPE MATLABP)
79 (defalias 'org-babel-octave-evaluate-external-process #[771 "\211\203\202        \303\267\2024\304\"\2025\305\306!\304\307\n\310\311\"\310\311\"$\"\210\312!\262\2025\313\207" [org-babel-matlab-shell-command org-babel-octave-shell-command org-babel-octave-wrapper-method #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 15 value 22)) org-babel-eval org-babel-temp-file "octave-" format org-babel-process-file-name noquote org-babel-octave-import-elisp-from-file nil] 14 (#$ . 5848)])
80 #@76 Evaluate BODY in SESSION.
81
82 (fn SESSION BODY RESULT-TYPE &optional MATLABP)
83 (defalias 'org-babel-octave-evaluate-session #[1027 "\306\203    \307\202\n\310!\306\311!\312\267\202S\313\314D\315#\202T\203;    \203;\316\n\317\320\"\317\320\"%\315P\202T\313\314\316 \317\320\"\317\320\"$D\315#\202T\321\203\254    \203\254\322 \323\324\325\326\327!\330\"\331$\216\332\333!r\211q\210\323\324\334\326\327!\335\"\331$\216c\210\336\337\340\321\211\211\341&\210\342ed\"\210\343\344!\210\345!\203\242\346\347!\210\202\225*\337\262)\262\202^\350!\204\271\351\352\"\210\353 \323\324\354\326\327!\355\"\356$\216rq\210\212\357\337C\323\360\361\326\327!\362\"\363\364% B\321\365\366p!!b\210`d{\262|\266c\210\367\321\370\"\210@b\210\212\371\372\203\f\202A!\321\370#\205\371B\321\370#)\204(\373\366p!!\210\202\374\365\366p!!b\210\211c\210\203R\374\375\315\376\372\206A\337!#\242\"\203R\211\242\324\225\321O\240\210\377\242B\")\266\202,\262\321\201C\267\202\271\201D!\202\272\203\221\201E\201F\337\201G\201H\201G\201I\"\"\"!A\202\251A\201E\201G\201H\201G\201I\"\"!\235A\262\313\201J\201E!\315#\202\272\321\207" [org-babel-octave-eoe-indicator org-babel-matlab-with-emacs-link org-babel-matlab-emacs-link-wrapper-method org-babel-octave-wrapper-method comint-input-filter comint-output-filter-functions org-babel-temp-file "matlab-" "octave-" "matlab-emacs-link-wait-signal-" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 20 value 31)) mapconcat org-babel-chomp "\n" format org-babel-process-file-name noquote nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 generate-new-buffer " *temp*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] write-region "" ignored excl matlab-shell-run-region message "Waiting for Matlab Emacs Link" file-exists-p sit-for 0.01 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)"] 257 "\300\211\242P\240\207" [] 4 "\n\n(fn TEXT)" process-mark get-buffer-process comint-send-input t re-search-forward regexp-quote accept-process-output string-match replace-regexp-in-string "[ \n]+" split-string comint-last-input-end org-babel-octave-eoe-output comint-prompt-regexp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (value 360 output 368)) org-babel-octave-import-elisp-from-file reverse delq mapcar org-babel-strip-quotes org-trim identity] 17 (#$ . 6470)])
84 #@141 Import data from FILE-NAME.
85 This removes initial blank and comment lines and then calls
86 `org-babel-import-elisp-from-file'.
87
88 (fn FILE-NAME)
89 (defalias 'org-babel-octave-import-elisp-from-file #[257 "\300\301!\302\211\303\304\305!!\306\307\310\311\312!\313\"\314$\216r\211q\210\315!\210\316\317\302\320#\210e\211\262\321 \211\262W\2037|\210)r\211q\210\322\302\211\302\307%\210*\266\323\324\"\207" [org-babel-temp-file "octave-matlab-" 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 insert-file-contents re-search-forward "^[     ]*[^#     ]" t point-at-bol write-region org-babel-import-elisp-from-file (16)] 12 (#$ . 9135)])
90 (provide 'ob-octave)