.emacs.d.git - Gitblit

;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\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)
(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" (#$ . 620))
#@86 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\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\325\326\327    \330!\331\332<\203T\202WC\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)])
#@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 (#$ . 2380)])
#@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 (#$ . 3124)])
#@112 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 (#$ . 3528)])
#@117 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 (#$ . 3795)])
#@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 (#$ . 4066)])
#@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 (#$ . 4974)])
(provide 'ob-fortran)