Current File : //usr/local/share/emacs/27.2/lisp/org/ob-fortran.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\304!\210\305\306\307\"\207" [require ob org-macs cc-mode cl-lib add-to-list org-babel-tangle-lang-exts ("fortran" . "F90")] 3)
(defvar org-babel-default-header-args:fortran nil)
#@82 fortran command used to compile a fortran source code file into an
executable.
(defvar org-babel-fortran-compiler "gfortran" (#$ . 642))
#@87 This function should only be called by `org-babel-execute:fortran'.
(fn BODY PARAMS)
(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$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\324\325\326 \327!\330\331<\203R \202U C\332#\327 !%\333\"\210\334\324\203m \332P\202n \333P\333\"!\323\335\203| \336\202} \337\333\335\340\333##\266\202\341\342\236A\343\235?\205 \344\235\204\326 \345\235\204\326 \346\235\204\326 \347\235\204\326 \350\235\204\326 \351\235\204\326 \352\235\204\320 \353\235\204\320 \354\235\204\320 \355\235\203\334 \356\235\204\334 \357!\202 \302\360!\211\311\312!\313\314\315\316\317!\361\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\362!\262\262\363\364\n\236A\365 \236A\"\363\366 \236A\367\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 generate-new-buffer " *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-remove-indentation replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "[ \n
]+\\'" 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 (#$ . 787)])
#@111 Expand a block of fortran or fortran code with org-babel according to
its header arguments.
(fn BODY PARAMS)
(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 (#$ . 2478)])
#@82 Wrap body in a "program ... end program" block if none exists.
(fn BODY PARAMS)
(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 (#$ . 3222)])
#@113 This function does nothing as fortran is a compiled language with no
support for sessions.
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:fortran #[514 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 4 (#$ . 3622)])
#@118 This function does nothing as fortran is a compiled language with no
support for sessions.
(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:fortran #[771 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 5 (#$ . 3890)])
#@99 Convert an elisp val into a string of fortran code specifying a var
of the same value.
(fn PAIR)
(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 (#$ . 4162)])
#@71 Return a fortran representation of enclose syntactic lists.
(fn VAL)
(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 (#$ . 5070)])
(provide 'ob-fortran)
Mini Shell