ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-fortran.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\303\304\305\"\207" [require ob cc-mode 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" (#$ . 602))
#@68 This function should only be called by `org-babel-execute:fortran'
(defalias 'org-babel-execute:fortran #[(body params) "\306\307\310\"\306\311 \"\312\313 \"A \312\314 \"A \3154 \" 5\316\317\320!! 6 7\321\216r6q\2105c\210)r6q\210\322\323\2117\323\324%\210,\325\326\3278\330\n!\331\332
<\203U
\202W
C\333#\330!%\334\" 9\335\325\n\f\203n \333\fP\202o \334P\334\"! :\336\312\337 \"A ;\340;\235?\205\341;\235\204\313 \342;\235\204\313 \343;\235\204\313 \344;\235\204\313 \345;\235\204\313 \346;\235\204\304 \347;\235\204\304 \350;\235\204\304 \351;\235\203\322 \352;\235\204\322 \353:!\202\306\354!\211 <\316\317\320!! = >\355\216r=q\210:c\210)r=q\210\322\323\211>\323\324%\210,\356<!))\357\312\360 \"A\312\361 \"A\"\357\312\362 \"A\312\363 \"A\"#.\207" [tmp-src-file org-babel-exeext tmp-bin-file params cmdline flags org-babel-temp-file "fortran-src-" ".F90" "fortran-bin-" assoc :cmdline :flags org-babel-expand-body:fortran get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil 0 org-babel-eval format "%s -o %s %s %s" org-babel-process-file-name mapconcat identity " " "" org-babel-trim org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" org-babel-read "f-" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames body full-body #1# #3=#:temp-file org-babel-fortran-compiler compile results #4=#:--params tmp-file #2# #5=#:temp-file] 10 (#$ . 747)])
#@94 Expand a block of fortran or fortran code with org-babel according to
it's header arguments.
(defalias 'org-babel-expand-body:fortran #[(body params) "\306\307\310\311\"\"\312\313\"A\314\230?\312\315\"A\206 \316\317\320\321\322#!\316\312\323\"A\206. \316\317\320\324\322#!! \325\326\325\327\n<\203@ \n\202B \nC\330#\325\331 <\203O \202Q C\330# \203d \332\325\333\f\330#
P\"\202e
\330F\330#,\207" [params defines includes main-p vars body mapcar cdr org-babel-get-header :var assoc :main "no" :includes org-babel-read org-entry-get nil "includes" t :defines "defines" mapconcat identity #[(inc) "\301\302\"\207" [inc format "#include %s"] 3] "\n" #[(inc) "\301\302\"\207" [inc format "#define %s"] 3] org-babel-fortran-ensure-main-wrap org-babel-fortran-var-to-fortran] 9 (#$ . 2435)])
#@64 Wrap body in a "program ... end program" block if none exists.
(defalias 'org-babel-fortran-ensure-main-wrap #[(body params) "\303\304\305!\"\203 \306\307\310 \311\"\"\211\203 \312\313!\210)\207\314\315\"\207" [body params vars string-match "^[ ]*program[ ]*.*" capitalize mapcar cdr org-babel-get-header :var error "Cannot use :vars if `program' statement is present" format "program main\n%s\nend program main\n"] 6 (#$ . 3240)])
#@91 This function does nothing as fortran is a compiled language with no
support for sessions
(defalias 'org-babel-prep-session:fortran #[(session params) "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 2 (#$ . 3686)])
#@91 This function does nothing as fortran is a compiled language with no
support for sessions
(defalias 'org-babel-load-session:fortran #[(session body params) "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 2 (#$ . 3944)])
#@88 Convert an elisp val into a string of fortran code specifying a var
of the same value.
(defalias 'org-babel-fortran-var-to-fortran #[(pair) "@A 9\203 \303 !\211G\304U\203 \305 ! \250\203' \306\307\n #\202\207 \310 !\2035 \306\311\n #\202\207 \250\203B \306\312\n #\202\207 ;\203Q \306\313 G\n $\202\207 <\203r \314\315 \"\203r \306\316\n G @G\317 ! @G G&\202\207 <\203\203 \306\320\n G\317 !$\202\207 \321\322\n\"*\207" [pair val var 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" org-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"] 9 (#$ . 4207)])
#@61 Return a fortran representation of enclose syntactic lists.
(defalias 'org-babel-fortran-transform-list #[(val) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [val "(/" mapconcat org-babel-fortran-transform-list ", " "/)" format "%S"] 5 (#$ . 5098)])
(provide 'ob-fortran)
Kontol Shell Bypass