awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(fortran): initial addition of ifort functions

Browse Source
This commit is contained in:
Colin Woodbury
2022-04-02 16:30:37 -07:00
committed by Henrik Lissner
parent ece4a74a9b
commit 81dc9af008
3 changed files with 43 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
modules/lang/fortran/autoload.el
View File

@ -6,22 +6,44 @@
;;;###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 gfortran."
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)
(if (+fortran--fpm-toml)
(+fortran/fpm-build)
(+fortran/gfortran-compile)))
(cond ((+fortran--fpm-toml) (+fortran/fpm-build))
((featurep! +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 gfortran."
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)
(if (+fortran--fpm-toml)
(+fortran/fpm-run)
(+fortran/gfortran-run)))
(cond ((+fortran--fpm-toml) (+fortran/fpm-run))
((featurep! +intel) (+fortran/ifort-run))
(t (+fortran/gfortran-run))))
;; Intel Fortran
;;;###autoload
(defun +fortran/ifort-compile ()
"Compile the current buffer using ifort."
(interactive)
(compile (format "ifort %s"
(buffer-file-name))))
;;;###autoload
(defun +fortran/ifort-run ()
"Run the current buffer using ifort."
(interactive)
(delete-file "./a.out")
(+fortran/ifort-compile)
(while (not (file-exists-p "./a.out"))
(sleep-for 1))
(compile "./a.out"))
;;
;;; GFortran