Re: IDE's that support Ada

[Stephen Leake <stephen_leake@stephe-leake.org>]

Jacob Sparre Andersen <jacob@jacob-sparre.dk> writes:

> Stephen Leake wrote:
>> Jacob Sparre Andersen <jacob@jacob-sparre.dk> writes:
>
>>> I'm not completely happy with the Emacs Ada mode indentation, but I
>>> mostly just live with it (and have a fix for the inserted TAB
>>> characters in my makefiles).
>>
>> ada-mode has nothing to do with makefiles, so I'm confused.
>
> My English isn't perfect: What I mean is that I have a "standard" rule
> in my makefiles for substituting TAB characters in Ada source files with
> spaces.

Ah, that makes sense. I do that in Emacs with:

      (add-hook 'before-save-hook
		(lambda () (untabify (point-min) (point-max)))
		nil t))

That's in ada-mode-hook (and in other modes where I want it); the full
code is:

(defun sal-ada-mode-setup ()
  (set (make-local-variable 'hippie-expand-try-functions-list)
	(list 'ada-skel-hippie-try
	      'try-expand-dabbrev
	      'try-expand-dabbrev-all-buffers
	      'try-expand-dabbrev-from-kill))

  (let ((case-fold-search t))
    (cond

     ((string-match "arm_info" default-directory)
      ;; Randy keeps tabs in files, indents 'case'
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      )

     ((string-match "org.emacs.ada-mode.*/test" default-directory)
      ;; use default ada-mode options for tests
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      )

     (t
      ;; my projects
      (setq ada-indent-when 0)
      (setq ada-indent-label 0)
      (setq ada-indent-record-rel-type 0)
      (setq ada-fill-comment-prefix "--  ");; match gnat style
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      (add-hook 'before-save-hook
		(lambda () (untabify (point-min) (point-max)))
		nil t))
      )))

(setq ada-skel-initial-string "{header}")
(add-to-list 'ada-prj-parser-alist (cons "prj" 'ada-prj-parse-file-1))
(add-hook 'ada-mode-hook 'sal-ada-mode-setup)

-- 
-- Stephe