emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(fortran): name executable after the file name

Browse source 
Previously the output was always the default `a.out`. Note that this is
only for the single-file non-fpm case, where the user just wants to
compile and run a one-off Fortran program.
This commit is contained in:
Colin Woodbury 2022-05-24 13:55:11 -07:00 • committed by Henrik Lissner
parent e4184c6bc3
commit 1dfdfd53c6
1 changed files with 25 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

33
modules/lang/fortran/autoload.el
View file

@ -27,23 +27,31 @@ or gfortran, depending on what feature flags are set."
((featurep! +intel) (+fortran/ifort-run))
(t (+fortran/gfortran-run))))
;; Intel Fortran
(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"
(buffer-file-name))))
(compile (format "ifort %S -o %S"
(buffer-file-name)
(+fortran--exec-name))))
;;;###autoload
(defun +fortran/ifort-run ()
"Run the current buffer using ifort."
(interactive)
(delete-file "./a.out")
(let ((exec (+fortran--exec-name)))
(delete-file exec)
(+fortran/ifort-compile)
(while (not (file-exists-p "./a.out"))
(while (not (file-exists-p exec))
(sleep-for 1))
(compile "./a.out"))
(compile (format "%S" exec))))
;;
;;; GFortran
@ -63,20 +71,21 @@ or gfortran, depending on what feature flags are set."
(defun +fortran/gfortran-compile ()
"Compile the current buffer using gfortran."
(interactive)
(compile (format "gfortran %s %S"
(compile (format "gfortran %s %S -o %S"
(+fortran--std)
buffer-file-name)))
buffer-file-name
(+fortran--exec-name))))
;;;###autoload
(defun +fortran/gfortran-run ()
"Run the current buffer using gfortran."
(interactive)
(delete-file "./a.out")
(let ((exec (+fortran--exec-name)))
(delete-file exec)
(+fortran/gfortran-compile)
(while (not (file-exists-p "./a.out"))
(while (not (file-exists-p exec))
(sleep-for 1))
(compile "./a.out"))
(compile (format "%S" exec))))
;;
;;; FPM