Current File : //kunden/usr/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\202UC\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\2027C\316#\313\317<\203D\202FC\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)