127 lines
3.5 KiB
EmacsLisp
127 lines
3.5 KiB
EmacsLisp
;;; lang/fortran/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;
|
|
;;; Generalised Building
|
|
|
|
;;;###autoload
|
|
(defun +fortran/build ()
|
|
"Compile a Fortran project or file.
|
|
|
|
If the current file is detected to be within an fpm project, then
|
|
building will occur with fpm. Otherwise it will default to ifort
|
|
or gfortran, depending on what feature flags are set."
|
|
(interactive)
|
|
(cond ((+fortran--fpm-toml) (+fortran/fpm-build))
|
|
((modulep! +intel) (+fortran/ifort-compile))
|
|
(t (+fortran/gfortran-compile))))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/run ()
|
|
"Run a Fortran project or file.
|
|
|
|
If the current file is detected to be within an fpm project, then
|
|
building will occur with fpm. Otherwise it will default to ifort
|
|
or gfortran, depending on what feature flags are set."
|
|
(interactive)
|
|
(cond ((+fortran--fpm-toml) (+fortran/fpm-run))
|
|
((modulep! +intel) (+fortran/ifort-run))
|
|
(t (+fortran/gfortran-run))))
|
|
|
|
(defun +fortran--exec-name ()
|
|
"The name of the output executable."
|
|
(file-name-sans-extension buffer-file-name))
|
|
|
|
;;
|
|
;;; Intel Fortran
|
|
|
|
;;;###autoload
|
|
(defun +fortran/ifort-compile ()
|
|
"Compile the current buffer using ifort."
|
|
(interactive)
|
|
(compile (format "ifort %S -o %S"
|
|
(buffer-file-name)
|
|
(+fortran--exec-name))))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/ifort-run ()
|
|
"Run the current buffer using ifort."
|
|
(interactive)
|
|
(let ((exec (+fortran--exec-name)))
|
|
(delete-file exec)
|
|
(+fortran/ifort-compile)
|
|
(while (not (file-exists-p exec))
|
|
(sleep-for 1))
|
|
(compile (format "%S" exec))))
|
|
|
|
;;
|
|
;;; GFortran
|
|
|
|
(defun +fortran--std ()
|
|
"Which version of Fortran should we target?"
|
|
(pcase major-mode
|
|
(`fortran-mode "-std=legacy")
|
|
(_ "")))
|
|
|
|
;;;###autoload
|
|
(defun +fortran-compilation-buffer-name-fn (_mode)
|
|
"The name of the buffer produced by `compile'."
|
|
"*fortran-compilation*")
|
|
|
|
;;;###autoload
|
|
(defun +fortran/gfortran-compile ()
|
|
"Compile the current buffer using gfortran."
|
|
(interactive)
|
|
(compile (format "gfortran %s %S -o %S"
|
|
(+fortran--std)
|
|
buffer-file-name
|
|
(+fortran--exec-name))))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/gfortran-run ()
|
|
"Run the current buffer using gfortran."
|
|
(interactive)
|
|
(let ((exec (+fortran--exec-name)))
|
|
(delete-file exec)
|
|
(+fortran/gfortran-compile)
|
|
(while (not (file-exists-p exec))
|
|
(sleep-for 1))
|
|
(compile (format "%S" exec))))
|
|
|
|
;;
|
|
;;; FPM
|
|
|
|
;;;###autoload
|
|
(defun +fortran--fpm-toml ()
|
|
"If this is an fpm project, find its toml file."
|
|
(when-let* ((project-root (doom-project-root))
|
|
(toml (expand-file-name "fpm.toml" project-root)))
|
|
(when (file-exists-p toml)
|
|
toml)))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/fpm-build ()
|
|
"Build the current project using fpm."
|
|
(interactive)
|
|
(compile "fpm build"))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/fpm-run ()
|
|
"Run the current project using fpm."
|
|
(interactive)
|
|
(compile "fpm run"))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/fpm-test ()
|
|
"Test the current project using fpm."
|
|
(interactive)
|
|
(compile "fpm test"))
|
|
|
|
;;;###autoload
|
|
(defun +fortran/fpm-open-project-toml (project-root)
|
|
"Open fpm.toml at PROJECT-ROOT (defaults to the open project)."
|
|
(interactive (list (doom-project-root)))
|
|
(let ((file (file-name-concat project-root "fpm.toml")))
|
|
(cond ((file-exists-p file) (find-file file))
|
|
((null project-root) (user-error "Not in a project"))
|
|
(t (user-error "No fpm.toml found at project root (%s)"
|
|
(abbreviate-file-name project-root))))))
|