JezK
Edit File: ob-fortran.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:41 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-fortran.el ;;; in Emacs version 24.3.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 ob-eval 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" (#$ . 770)) #@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 \315* \" +\316\317\320!! , -\321\216r,q\210+c\210)r,q\210\322\323\211-\323\324%\210,\325\326\327.\330\n!\331\332 <\203U \202W C\333#\330!%\334\" /\335\325\n\f\203n \333\fP\202o \334P\334\"! 0\336\337\312\340 \"A\235\203\262 \306\341!\211 1\316\317\320!! 2 3\342\216r2q\2100c\210)r2q\210\322\323\2113\323\324%\210,\3431!)\202\266 \3440!\345\312\346 \"A\312\347 \"A\"\345\312\350 \"A\312\351 \"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*" ((byte-code "\301!\203\n \302!\210\301\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 "vector" :result-params "f-" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-import-elisp-from-file org-babel-read org-babel-pick-name :colname-names :colnames :rowname-names :rownames body full-body #1# #3=#:temp-file org-babel-fortran-compiler compile results tmp-file #2# #4=#:temp-file] 10 (#$ . 915)]) #@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 (#$ . 2356)]) #@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 (#$ . 3161)]) #@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 (#$ . 3607)]) #@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 (#$ . 3865)]) #@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 #\202h \310 !\2035 \306\311\n #\202h \250\203B \306\312\n #\202h ;\203Q \306\313 G\n $\202h <\203b \306\314\n G\315 !$\202h \316\306\317\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" "real, parameter :: %S(%d) = %s\n" org-babel-fortran-transform-list error "the type of parameter %s is not supported by ob-fortran"] 7 (#$ . 4128)]) #@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 (#$ . 4851)]) (provide 'ob-fortran)