| 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\300\303!\210\304\305\306\"\207" [require ob cc-mode cl-lib add-to-list org-babel-tangle-lang-exts ("fortran" . "F90")] 3) | |
| 16 | (defvar org-babel-default-header-args:fortran nil) | |
| 17 | #@82 fortran command used to compile a fortran source code file into an | |
| 18 | executable. | |
| 19 | (defvar org-babel-fortran-compiler "gfortran" (#$ . 620)) | |
| 20 | #@86 This function should only be called by `org-babel-execute:fortran' | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:fortran #[514 "\302\303\304\"\302\305\"\306\236A\307\236A\310\"\311\312\313!!\314\315\316\317\320!\321\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\325\326\327 \330!\331\332<\203T \202W C\333#\330 !%\334\"\210\335\336\325\203r \333P\202s \334P\334\"!!\337\340\236A\341\235?\205\376 \342\235\204\307 \343\235\204\307 \344\235\204\307 \345\235\204\307 \346\235\204\307 \347\235\204\307 \350\235\204\301 \351\235\204\301 \352\235\204\301 \353\235\203\315 \354\235\204\315 \355!\202\376 \302\356!\211\311\312\313!!\314\315\316\317\320!\357\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\360!\262\262\361\362\n\236A\363 \236A\"\361\364 \236A\365\f\236A\"#\262\207" [org-babel-exeext org-babel-fortran-compiler org-babel-temp-file "fortran-src-" ".F90" "fortran-bin-" :cmdline :flags org-babel-expand-body:fortran 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 write-region nil org-babel-eval format "%s -o %s %s %s" org-babel-process-file-name mapconcat identity " " "" org-trim org-remove-indentation org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-read "f-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 19 (#$ . 765)]) | |
| 24 | #@111 Expand a block of fortran or fortran code with org-babel according to | |
| 25 | its header arguments. | |
| 26 | ||
| 27 | (fn BODY PARAMS) | |
| 28 | (defalias 'org-babel-expand-body:fortran #[514 "\300!\301\236A\302\230?\303\236A\206 \304\305\306\307\310#!\304\311\236A\206' \304\305\306\312\310#!!\313\314\313\315<\2035 \2027 C\316#\313\317<\203D \202F C\316#\203] \320\313\321\n\316# P\n\"\202_ \316F\316#\207" [org-babel--get-vars :main "no" :includes org-babel-read org-entry-get nil "includes" t :defines "defines" mapconcat identity #[257 "\300\301\"\207" [format "#include %s"] 4 "\n\n(fn INC)"] "\n" #[257 "\300\301\"\207" [format "#define %s"] 4 "\n\n(fn INC)"] org-babel-fortran-ensure-main-wrap org-babel-fortran-var-to-fortran] 15 (#$ . 2380)]) | |
| 29 | #@82 Wrap body in a "program ... end program" block if none exists. | |
| 30 | ||
| 31 | (fn BODY PARAMS) | |
| 32 | (defalias 'org-babel-fortran-ensure-main-wrap #[514 "\300\301\302!\"\203 \303!\211\203 \304\305!\210\207\306\307\"\207" [string-match "^[ ]*program[ ]*.*" capitalize org-babel--get-vars error "Cannot use :vars if `program' statement is present" format "program main\n%s\nend program main\n"] 6 (#$ . 3124)]) | |
| 33 | #@112 This function does nothing as fortran is a compiled language with no | |
| 34 | support for sessions | |
| 35 | ||
| 36 | (fn SESSION PARAMS) | |
| 37 | (defalias 'org-babel-prep-session:fortran #[514 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 4 (#$ . 3528)]) | |
| 38 | #@117 This function does nothing as fortran is a compiled language with no | |
| 39 | support for sessions | |
| 40 | ||
| 41 | (fn SESSION BODY PARAMS) | |
| 42 | (defalias 'org-babel-load-session:fortran #[771 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 5 (#$ . 3795)]) | |
| 43 | #@99 Convert an elisp val into a string of fortran code specifying a var | |
| 44 | of the same value. | |
| 45 | ||
| 46 | (fn PAIR) | |
| 47 | (defalias 'org-babel-fortran-var-to-fortran #[257 "\211@A\2119\203 \300!\262\211G\301U\203 \302!\262\211\250\203' \303\304#\202\212 \305!\2035 \303\306#\202\212 \211\250\203B \303\307#\202\212 \211;\203Q \303\310G$\202\212 \211<\203u \311\312\"\203u \303\313G@G\314!@GG&\202\212 \211<\203\206 \303\315G\314!$\202\212 \316\317\"\207" [symbol-name 1 string-to-char format "integer, parameter :: %S = %S\n" floatp "real, parameter :: %S = %S\n" "character, parameter :: %S = '%S'\n" "character(len=%d), parameter :: %S = '%s'\n" cl-every listp "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n" org-babel-fortran-transform-list "real, parameter :: %S(%d) = %s\n" error "the type of parameter %s is not supported by ob-fortran"] 11 (#$ . 4066)]) | |
| 48 | #@71 Return a fortran representation of enclose syntactic lists. | |
| 49 | ||
| 50 | (fn VAL) | |
| 51 | (defalias 'org-babel-fortran-transform-list #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\"\207" ["(/" mapconcat org-babel-fortran-transform-list ", " "/)" format "%S"] 6 (#$ . 4974)]) | |
| 52 | (provide 'ob-fortran) | |
