Fortran 90 Code alignments

Fortran 90 Code alignments

[Dr. F.C.Caner]

Hello everyone,

I am wondering if there is a way to alingn a fortran 90/95 code
properly. The f90 mode that comes with emacs does not do that AFAIK.
For example, I would like

 real(kind=doublep), dimension(:,:), allocatable :: coords
 real(kind=doublep), dimension(:), allocatable :: disp
 real(kind=doublep), dimension(1:6) :: stress
 real(kind=doublep) :: vertdisp, gaussp

to be 

 real(kind=doublep), dimension(:,:), allocatable :: coords
 real(kind=doublep), dimension(:),   allocatable :: disp
 real(kind=doublep), dimension(1:6)              :: stress
 real(kind=doublep)                              :: vertdisp, gaussp

automatically. Is ther a package, a command or similar that does this?
I know there is no such thing in f90 mode, but may be, I thought,
there is some function that can do that independent of the programming
language. Am I wrong?

Thanks in advance,

FCC.

Re: Fortran 90 Code alignments

[Eli Zaretskii]

> From: ferhun_caner@yahoo.com (Dr. F.C.Caner)
> Newsgroups: gnu.emacs.help
> Date: 27 May 2003 00:23:58 -0700
> 
> I am wondering if there is a way to alingn a fortran 90/95 code
> properly. The f90 mode that comes with emacs does not do that AFAIK.
> For example, I would like
> 
>  real(kind=doublep), dimension(:,:), allocatable :: coords
>  real(kind=doublep), dimension(:), allocatable :: disp
>  real(kind=doublep), dimension(1:6) :: stress
>  real(kind=doublep) :: vertdisp, gaussp
> 
> to be 
> 
>  real(kind=doublep), dimension(:,:), allocatable :: coords
>  real(kind=doublep), dimension(:),   allocatable :: disp
>  real(kind=doublep), dimension(1:6)              :: stress
>  real(kind=doublep)                              :: vertdisp, gaussp
> 
> automatically. Is ther a package, a command or similar that does this?

I have the function indent-relative bound to M-i, and type M-i
whenever I need to align text like you want above.  Is that what you
want?

Re: Fortran 90 Code alignments

[Glenn Morris]

Dr. F.C.Caner wrote:

[aligning f90 code]

> may be, I thought, there is some function that can do that
> independent of the programming language. Am I wrong?

It's Emacs, of course you're not wrong! :)

There are probably various ways to do what you ask. I use align.el,
which is a part of Emacs. I have the following in my .emacs. I
probably haven't done it the most elegant way, but It Works For Me.

(require 'align)
(add-to-list 'align-open-comment-modes 'f90-mode)
(add-to-list 'align-dq-string-modes    'f90-mode)
(add-to-list 'align-sq-string-modes    'f90-mode)

(add-hook 'f90-mode-hook
          '(lambda ()
             (setq align-mode-rules-list
		   '((f90-bracket-in-declaration
		      (regexp . "\\(\\s-+\\)([^ :]+).*::"))
		     (f90-comma-in-declaration
		      (regexp . "\\(\\s-*\\),\\s-+.*::")
		      (spacing   . 0))
		     (f90-dimension-in-declaration
		      (regexp    . "\\(\\s-*\\),\\s-*dimension.*::")
		      (spacing   . 0)
		      (case-fold . t))
		     (f90-alloc-in-declaration
		      (regexp    . "\\(\\s-*\\),\\s-*allocatable.*::")
		      (spacing   . 0)
		      (case-fold . t))
		     (f90-intent-in-declaration
		      (regexp    . "\\(\\s-*\\),\\s-*intent.*::")
		      (spacing   . 0)
		      (case-fold . t))
		     (f90-parameter-in-declaration
		      (regexp    . "\\(\\s-*\\),\\s-*parameter.*::")
		      (spacing   . 0)
		      (case-fold . t))
		     (f90-save-in-declaration
		      (regexp    . "\\(\\s-*\\),\\s-*save.*::")
		      (spacing   . 0)
		      (case-fold . t))
		     (f90-colon-in-declaration       ; must come last
		      (regexp . "\\(\\s-+\\):: "))))))

(global-set-key "\C-ca" 'align)

Then just mark the region of interest, and hit C-c a.

Re: Fortran 90 Code alignments

[Dr. F.C.Caner]

Glenn: Thanks, it seems to work OK. Best, FCC.

Glenn Morris <gmorris+news@ast.cam.ac.uk> wrote in message news:<ndsmr0iinu.fsf@xpc14.ast.cam.ac.uk>...
> Dr. F.C.Caner wrote:
> 
> [aligning f90 code]
> 
> > may be, I thought, there is some function that can do that
> > independent of the programming language. Am I wrong?
> 
> It's Emacs, of course you're not wrong! :)
> 
> There are probably various ways to do what you ask. I use align.el,
> which is a part of Emacs. I have the following in my .emacs. I
> probably haven't done it the most elegant way, but It Works For Me.
> 
> (require 'align)
> (add-to-list 'align-open-comment-modes 'f90-mode)
> (add-to-list 'align-dq-string-modes    'f90-mode)
> (add-to-list 'align-sq-string-modes    'f90-mode)
> 
> (add-hook 'f90-mode-hook
>           '(lambda ()
>              (setq align-mode-rules-list
> 		   '((f90-bracket-in-declaration
> 		      (regexp . "\\(\\s-+\\)([^ :]+).*::"))
> 		     (f90-comma-in-declaration
> 		      (regexp . "\\(\\s-*\\),\\s-+.*::")
> 		      (spacing   . 0))
> 		     (f90-dimension-in-declaration
> 		      (regexp    . "\\(\\s-*\\),\\s-*dimension.*::")
> 		      (spacing   . 0)
> 		      (case-fold . t))
> 		     (f90-alloc-in-declaration
> 		      (regexp    . "\\(\\s-*\\),\\s-*allocatable.*::")
> 		      (spacing   . 0)
> 		      (case-fold . t))
> 		     (f90-intent-in-declaration
> 		      (regexp    . "\\(\\s-*\\),\\s-*intent.*::")
> 		      (spacing   . 0)
> 		      (case-fold . t))
> 		     (f90-parameter-in-declaration
> 		      (regexp    . "\\(\\s-*\\),\\s-*parameter.*::")
> 		      (spacing   . 0)
> 		      (case-fold . t))
> 		     (f90-save-in-declaration
> 		      (regexp    . "\\(\\s-*\\),\\s-*save.*::")
> 		      (spacing   . 0)
> 		      (case-fold . t))
> 		     (f90-colon-in-declaration       ; must come last
> 		      (regexp . "\\(\\s-+\\):: "))))))
> 
> (global-set-key "\C-ca" 'align)
> 
> Then just mark the region of interest, and hit C-c a.