Re: simple programs -> one file with gps 2008 (gpl)?

[Simon Wright <simon.j.wright@mac.com>]

amado.alves@gmail.com writes:

>> > file) Eventually you use this tool to start development from an Ada
>> > text. But normally you only do this once at the start of development,
>> > because compiler messages will point to the 'new' files, so it's more
>> > convenient to edit them instead of the old,...
>>
>> The -r switch to gnatchop causes error messages to refer to the original
>> pre-chopped file.
>
> Indeed! I stand corrected. This is wonderful. You can work based
> on .ada files :-)
> Thanks for pointing this out.

If you are an Emacs user, I have written a minor mode (gnatchop-mode) so
that every time you save the big source file gnatchop (-r) is run on it.

Um, I guess I should offer it to ada-mode -- tried that when AdaCore
were running it, it wasn't general enough for them (but works for me!)

;; gnatchop.el
;; Copyright (C) 2001 Simon Wright <simon@pushface.org>.
;; $Id: gnatchop.el,v 1.1 2001/12/01 06:58:43 simon Exp $

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; Minor mode for use in Ada buffers that don't have the correct file name
;; for use with GNAT, and which therefore need to be "gnatchop"'d before
;; compilation.

;; Reference: Writing GNU Emacs Extensions by Bob Glickstein (O'Reilly
;; & Associates, Inc, 1997).

(defvar gnatchop-mode nil
  "Mode variable for gnatchop minor mode.")

(defun gnatchop-mode (&optional arg)
  "Gnatchop minor mode."
  (interactive "P")
  (make-variable-buffer-local 'gnatchop-mode)
  (make-local-hook 'after-save-hook)
  (setq gnatchop-mode
	(if (null arg)
	    (not gnatchop-mode)
	  (> (prefix-numeric-value arg) 0)))
  (if gnatchop-mode
      (add-hook 'after-save-hook 'gnatchop-file)
    (remove-hook 'after-save-hook 'gnatchop-file))
)

(defun gnatchop-file ()
  "Run gnatchop on current buffer's file after save."
  (if gnatchop-mode
      (progn
	(message (concat "chopping " (buffer-file-name)))
	(let (compilation-read-command
	      (compilation-buffer-name-function
	       (lambda (mode) "*Gnatchop*")))
	  (compile (concat "gnatchop -w -r " (buffer-file-name)))
	  (bury-buffer (get-buffer "*Gnatchop*")))))
)

(if (not (assq 'gnatchop-mode minor-mode-alist))
    (setq minor-mode-alist
	  (cons '(gnatchop-mode " Chop")
		minor-mode-alist)))