annotate lisp/progmodes/ada-prj.el @ 85055:0770b6970632

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Sat, 06 Oct 2007 01:51:46 +0000
parents 6c8465b69c48
children 107ccd98fa12 bdb3fe0ba9fa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
1 ;;; ada-prj.el --- GUI editing of project files for the ada-mode
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 73565
diff changeset
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
64699
629afbe74e61 Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents: 64085
diff changeset
4 ;; Free Software Foundation, Inc.
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6 ;; Author: Emmanuel Briot <briot@gnat.com>
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
7 ;; Maintainer: Stephen Leake <stephen_leake@stephe-leake.org>
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 ;; Keywords: languages, ada, project file
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9
38361
d42c9135a92d Say that the file _is_ part of Emacs.
Eli Zaretskii <eliz@gnu.org>
parents: 34304
diff changeset
10 ;; This file is part of GNU Emacs.
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
38401
64d8d90d180d Fix license commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 38361
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
78234
c1ec1c8a8d2e Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 ;; any later version.
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
38401
64d8d90d180d Fix license commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 38361
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
38401
64d8d90d180d Fix license commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 38361
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54770
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 54770
diff changeset
25 ;; Boston, MA 02110-1301, USA.
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38401
diff changeset
27 ;;; Commentary:
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38401
diff changeset
28
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;;; This package provides a set of functions to easily edit the project
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 ;;; files used by the ada-mode.
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
31 ;;; The only function publicly available here is `ada-customize'.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
32 ;;; See the documentation of the Ada mode for more information on the project
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
33 ;;; files.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
34 ;;; Internally, a project file is represented as a property list, with each
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
35 ;;; field of the project file matching one property of the list.
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
37
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
38 ;;; History:
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
39 ;;
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
40
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38401
diff changeset
41 ;;; Code:
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 ;; ----- Requirements -----------------------------------------------------
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 (require 'cus-edit)
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
47 (require 'ada-xref)
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48
50812
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
49 (eval-when-compile
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
50 (require 'ada-mode))
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
51
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
52 ;; ----- Buffer local variables -------------------------------------------
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
54 (defvar ada-prj-current-values nil
50812
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
55 "Hold the current value of the fields, This is a property list.")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
56 (make-variable-buffer-local 'ada-prj-current-values)
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
58 (defvar ada-prj-default-values nil
50812
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
59 "Hold the default value for the fields, This is a property list.")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
60 (make-variable-buffer-local 'ada-prj-default-values)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
61
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
62 (defvar ada-prj-ada-buffer nil
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
63 "Indicates what Ada source file was being edited.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
64
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
65 (defvar ada-old-cross-prefix nil
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
66 "The cross-prefix associated with the currently loaded runtime library.")
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
67
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
68
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
69 ;; ----- Functions --------------------------------------------------------
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
71 (defun ada-prj-new ()
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
72 "Open a new project file."
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
73 (interactive)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
74 (let* ((prj
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
75 (if (and ada-prj-default-project-file
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
76 (not (string= ada-prj-default-project-file "")))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
77 ada-prj-default-project-file
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
78 "default.adp"))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
79 (filename (read-file-name "Project file: "
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
80 (if prj "" nil)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
81 nil
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
82 nil
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
83 prj)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
84 (if (not (string= (file-name-extension filename t) ".adp"))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
85 (error "File name extension for project files must be .adp"))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
86
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
87 (ada-customize nil filename)))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
89 (defun ada-prj-edit ()
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
90 "Editing the project file associated with the current Ada buffer.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
91 If there is none, opens a new project file"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
92 (interactive)
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
93 (if ada-prj-default-project-file
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
94 (ada-customize)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
95 (ada-prj-new)))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
97 (defun ada-prj-initialize-values (symbol ada-buffer filename)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
98 "Set SYMBOL to the property list of the project file FILENAME.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
99 If FILENAME is null, read the file associated with ADA-BUFFER. If no
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
100 project file is found, returns the default values."
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
101 ;; FIXME: rationalize arguments; make ada-buffer optional?
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
102 (if (and filename
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
103 (not (string= filename ""))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
104 (assoc filename ada-xref-project-files))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
105 (set symbol (copy-sequence (cdr (assoc filename ada-xref-project-files))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
106
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
107 ;; Set default values (except for the file name if this was given
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
108 ;; in the buffer
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
109 (ada-xref-set-default-prj-values symbol ada-buffer)
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
110 (if (and filename (not (string= filename "")))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
111 (set symbol (plist-put (eval symbol) 'filename filename)))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
112 ))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
113
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
114
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
115 (defun ada-prj-save-specific-option (field)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
116 "Return the string to print in the project file to save FIELD.
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
117 If the current value of FIELD is the default value, returns an empty string."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
118 (if (string= (plist-get ada-prj-current-values field)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
119 (plist-get ada-prj-default-values field))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
120 ""
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
121 (concat (symbol-name field)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
122 "=" (plist-get ada-prj-current-values field) "\n")))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 (defun ada-prj-save ()
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
125 "Save the edited project file."
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 (interactive)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
127 (let ((file-name (plist-get ada-prj-current-values 'filename))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
128 output)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
129 (set 'output
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
130 (concat
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
131
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
132 ;; Save the fields that do not depend on the current buffer
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
133 ;; only if they are different from the default value
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
134
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
135 (ada-prj-save-specific-option 'comp_opt)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
136 (ada-prj-save-specific-option 'bind_opt)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
137 (ada-prj-save-specific-option 'link_opt)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
138 (ada-prj-save-specific-option 'gnatmake_opt)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
139 (ada-prj-save-specific-option 'gnatfind_opt)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
140 (ada-prj-save-specific-option 'cross_prefix)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
141 (ada-prj-save-specific-option 'remote_machine)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
142 (ada-prj-save-specific-option 'debug_cmd)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
143
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
144 ;; Always save the fields that depend on the current buffer
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
145 "main=" (plist-get ada-prj-current-values 'main) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
146 "main_unit=" (plist-get ada-prj-current-values 'main_unit) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
147 "build_dir=" (plist-get ada-prj-current-values 'build_dir) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
148 (ada-prj-set-list "check_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
149 (plist-get ada-prj-current-values 'check_cmd)) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
150 (ada-prj-set-list "make_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
151 (plist-get ada-prj-current-values 'make_cmd)) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
152 (ada-prj-set-list "comp_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
153 (plist-get ada-prj-current-values 'comp_cmd)) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
154 (ada-prj-set-list "run_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
155 (plist-get ada-prj-current-values 'run_cmd)) "\n"
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
156 (ada-prj-set-list "src_dir"
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
157 (plist-get ada-prj-current-values 'src_dir)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
158 t) "\n"
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
159 (ada-prj-set-list "obj_dir"
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
160 (plist-get ada-prj-current-values 'obj_dir)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
161 t) "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
162 (ada-prj-set-list "debug_pre_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
163 (plist-get ada-prj-current-values 'debug_pre_cmd))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
164 "\n"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
165 (ada-prj-set-list "debug_post_cmd"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
166 (plist-get ada-prj-current-values 'debug_post_cmd))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
167 "\n"
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
168 ))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
169
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
170 (find-file file-name)
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
171 (erase-buffer)
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
172 (insert output)
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 (save-buffer)
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174 ;; kill the project buffer
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
175 (kill-buffer nil)
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
176
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
177 ;; kill the editor buffer
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
178 (kill-buffer "*Edit Ada Mode Project*")
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
179
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
180 ;; automatically set the new project file as the active one
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
181 (set 'ada-prj-default-project-file file-name)
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
183 ;; force Emacs to reread the project files
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
184 (ada-reread-prj-file file-name)
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
185 )
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
186 )
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
187
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
188 (defun ada-prj-load-from-file (symbol)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
189 "Load SYMBOL value from file. One item per line should be found in the file."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
190 (save-excursion
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
191 (let ((file (read-file-name "File name: " nil nil t))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
192 (buffer (current-buffer))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
193 line
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
194 list)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
195 (find-file file)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
196 (widen)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
197 (goto-char (point-min))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
198 (while (not (eobp))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
199 (set 'line (buffer-substring-no-properties
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
200 (point) (save-excursion (end-of-line) (point))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
201 (add-to-list 'list line)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
202 (forward-line 1)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
203 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
204 (kill-buffer nil)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
205 (set-buffer buffer)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
206 (set 'ada-prj-current-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
207 (plist-put ada-prj-current-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
208 symbol
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
209 (append (plist-get ada-prj-current-values symbol)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
210 (reverse list))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
211 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
212 (ada-prj-display-page 2)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
213 ))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
214
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
215 (defun ada-prj-subdirs-of (dir)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
216 "Return a list of all the subdirectories of DIR, recursively."
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
217 (let ((subdirs (directory-files dir t "^[^.].*"))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
218 (dirlist (list dir)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
219 (while subdirs
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
220 (if (file-directory-p (car subdirs))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
221 (let ((sub (ada-prj-subdirs-of (car subdirs))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
222 (if sub
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
223 (set 'dirlist (append sub dirlist)))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
224 (set 'subdirs (cdr subdirs)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
225 dirlist))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
226
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
227 (defun ada-prj-load-directory (field &optional file-name)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
228 "Append to FIELD in the current project the subdirectories of FILE-NAME.
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
229 If FILE-NAME is nil, ask the user for the name."
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
230
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
231 ;; Do not use an external dialog for this, since it wouldn't allow
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
232 ;; the user to select a directory
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
233 (let ((use-dialog-box nil))
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
234 (unless file-name
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
235 (set 'file-name (read-file-name "Root directory: " nil nil t))))
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
236
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
237 (set 'ada-prj-current-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
238 (plist-put ada-prj-current-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
239 field
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
240 (append (plist-get ada-prj-current-values field)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
241 (reverse (ada-prj-subdirs-of
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
242 (expand-file-name file-name))))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
243 (ada-prj-display-page 2))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
244
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
245 (defun ada-prj-display-page (tab-num)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
246 "Display page TAB-NUM in the notebook.
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
247 The current buffer must be the project editing buffer."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
248
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
249 (let ((inhibit-read-only t))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
250 (erase-buffer))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
251
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
252 ;; Widget support in Emacs 21 requires that we clear the buffer first
50812
15929fed5553 (ada-xemacs): Variable removed, since it's better to use (featurep 'xemacs).
Juanma Barranquero <lekktu@gmail.com>
parents: 50738
diff changeset
253 (if (and (not (featurep 'xemacs)) (>= emacs-major-version 21))
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
254 (progn
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
255 (setq widget-field-new nil
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
256 widget-field-list nil)
84918
6c8465b69c48 (ada-prj-display-page): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents: 78234
diff changeset
257 (mapc (lambda (x) (delete-overlay x)) (car (overlay-lists)))
6c8465b69c48 (ada-prj-display-page): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents: 78234
diff changeset
258 (mapc (lambda (x) (delete-overlay x)) (cdr (overlay-lists)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
259
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
260 ;; Display the tabs
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
261
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
262 (widget-insert "\n Project configuration.\n
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
263 ___________ ____________ ____________ ____________ ____________\n / ")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
264 (widget-create 'push-button :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
265 (lambda (&rest dummy) (ada-prj-display-page 1)) "General")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
266 (widget-insert " \\ / ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
267 (widget-create 'push-button :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
268 (lambda (&rest dummy) (ada-prj-display-page 2)) "Paths")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
269 (widget-insert " \\ / ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
270 (widget-create 'push-button :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
271 (lambda (&rest dummy) (ada-prj-display-page 3)) "Switches")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
272 (widget-insert " \\ / ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
273 (widget-create 'push-button :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
274 (lambda (&rest dummy) (ada-prj-display-page 4)) "Ada Menu")
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
275 (widget-insert " \\ / ")
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
276 (widget-create 'push-button :notify
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
277 (lambda (&rest dummy) (ada-prj-display-page 5)) "Debugger")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
278 (widget-insert " \\\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
279
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
280 ;; Display the currently selected page
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
281
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
282 (cond
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
283
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
284 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
285 ;; First page (General)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
286 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
287 ((= tab-num 1)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
288 (widget-insert "/ \\/______________\\/______________\\/______________\\/______________\\\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
289
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
290 (widget-insert "Project file name:\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
291 (widget-insert (plist-get ada-prj-current-values 'filename))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
292 (widget-insert "\n\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
293 ; (ada-prj-field 'filename "Project file name"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
294 ; "Enter the name and directory of the project
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
295 ; file. The name of the file should be the
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
296 ; name of the project itself. The extension
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
297 ; must be .adp")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
298 ; (ada-prj-field 'casing "Casing Exceptions Dictionnaries"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
299 ; "List of files that contain casing exception
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
300 ; dictionnaries. All these files contain one
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
301 ; identifier per line, with a special casing.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
302 ; The first file has the highest priority."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
303 ; t)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
304 (ada-prj-field 'main "Executable file name"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
305 "Name of the executable generated when you
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
306 compile your application. This should include
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
307 the full directory name, using ${build_dir} if
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
308 you wish.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
309 (ada-prj-field 'main_unit "File name of the main unit"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
310 "Name of the file to pass to the gnatmake command,
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
311 and that will create the executable.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
312 This should not include any directory specification.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
313 (ada-prj-field 'build_dir "Build directory"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
314 "Reference directory for relative paths in
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
315 src_dir and obj_dir below. This is also the directory
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
316 where the compilation is done.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
317 (ada-prj-field 'remote_machine "Name of the remote machine (if any)"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
318 "If you want to remotely compile, debug and
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
319 run your application, specify the name of a
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
320 remote machine here. This capability requires
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
321 the 'rsh' protocol on the remote machine.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
322 (ada-prj-field 'cross_prefix "Prefix used in for the cross tool chain"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
323 "When working on multiple cross targets, it is
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
324 most convenient to specify the prefix of the
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
325 tool chain here. For instance, on PowerPc
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
326 vxworks, you would enter 'powerpc-wrs-vxworks-'.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
327 To use JGNAT, enter 'j'.")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
328 )
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
330
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
331 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
332 ;; Second page (Paths)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
333 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
334 ((= tab-num 2)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
335 (if (not (equal (plist-get ada-prj-current-values 'cross_prefix)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
336 ada-old-cross-prefix))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
337 (progn
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
338 (setq ada-old-cross-prefix
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
339 (plist-get ada-prj-current-values 'cross_prefix))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
340 (ada-initialize-runtime-library ada-old-cross-prefix)))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
341
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
342
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
343 (widget-insert "/_____________\\/ \\/______________\\/______________\\/______________\\\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
344 (ada-prj-field 'src_dir "Source directories"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
345 "Enter the list of directories where your Ada
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
346 sources can be found. These directories will be
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
347 used for the cross-references and for the default
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
348 compilation commands.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
349 Note that src_dir includes both the build directory
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
350 and the standard runtime."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
351 t t
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
352 (mapconcat (lambda(x)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
353 (concat " " x))
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
354 ada-xref-runtime-library-specs-path
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
355 "\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
356 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
357 (widget-insert "\n\n")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
358
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
359 (ada-prj-field 'obj_dir "Object directories"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
360 "Enter the list of directories where the GNAT
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
361 library files (ALI files) can be found. These
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
362 files are used for cross-references and by the
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
363 gnatmake command.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
364 Note that obj_dir includes both the build directory
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
365 and the standard runtime."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
366 t t
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
367 (mapconcat (lambda(x)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
368 (concat " " x))
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
369 ada-xref-runtime-library-ali-path
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
370 "\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
371 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
372 (widget-insert "\n\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
373 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
374
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
375 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
376 ;; Third page (Switches)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
377 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
378 ((= tab-num 3)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
379 (widget-insert "/_____________\\/______________\\/ \\/______________\\/______________\\\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
380 (ada-prj-field 'comp_opt "Switches for the compiler"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
381 "These switches are used in the default
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
382 compilation commands, both for compiling a
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
383 single file and rebuilding the whole project")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
384 (ada-prj-field 'bind_opt "Switches for the binder"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
385 "These switches are used in the default build
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
386 command and are passed to the binder")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
387 (ada-prj-field 'link_opt "Switches for the linker"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
388 "These switches are used in the default build
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
389 command and are passed to the linker")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
390 (ada-prj-field 'gnatmake_opt "Switches for gnatmake"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
391 "These switches are used in the default gnatmake
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
392 command.")
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
393 (ada-prj-field 'gnatfind_opt "Switches for gnatfind"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
394 "The command gnatfind is run every time the Ada/Goto/List_References menu.
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
395 You should for instance add -a if you are working in an environment
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
396 where most ALI files are write-protected, since otherwise they get
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
397 ignored by gnatfind and you don't see the references within.")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
398 )
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
399
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
400 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
401 ;; Fourth page
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
402 ;;
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
403 ((= tab-num 4)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
404 (widget-insert "/_____________\\/______________\\/______________\\/ \\/______________\\\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
405 (widget-insert
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
406 "All the fields below can use variable substitution The syntax is ${name},
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
407 where name is the name that appears after the Help buttons in this buffer. As
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
408 a special case, ${current} is replaced with the name of the file currently
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
409 edited, with directory name but no extension, whereas ${full_current} is
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
410 replaced with the name of the current file with directory name and
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
411 extension.\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
412 (widget-insert
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
413 "The environment variables ADA_INCLUDE_PATH and ADA_OBJECTS_PATH are set to
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
414 ${src_dir} and ${obj_dir} before running the compilation commands, so that you
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
415 don't need to specify the -aI and -aO switches on the command line\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
416 (widget-insert
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
417 "You can reference any environment variable using the same ${...} syntax as
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
418 above, and put the name of the variable between the quotes.\n\n")
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
419 (ada-prj-field 'check_cmd
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
420 "Check syntax of a single file (menu Ada->Check File)"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
421 "This command is run to check the syntax and semantics of a file.
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
422 The file name is added at the end of this command." t)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
423 (ada-prj-field 'comp_cmd
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
424 "Compiling a single file (menu Ada->Compile File)"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
425 "This command is run when the recompilation
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
426 of a single file is needed. The file name is
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
427 added at the end of this command." t)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
428 (ada-prj-field 'make_cmd "Rebuilding the whole project (menu Ada->Build)"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
429 "This command is run when you want to rebuild
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
430 your whole application. It is never issues
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
431 automatically and you will need to ask for it.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
432 If remote_machine has been set, this command
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
433 will be executed on the remote machine." t)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
434 (ada-prj-field 'run_cmd "Running the application (menu Ada->Run)"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
435 "This command specifies how to run the
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
436 application, including any switch you need to
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
437 specify. If remote_machine has been set, this
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
438 command will be executed on the remote host." t)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
439 )
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
440
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
441 ;;
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
442 ;; Fifth page
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
443 ;;
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
444 ((= tab-num 5)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
445 (widget-insert "/_____________\\/______________\\/______________\\/______________\\/ \\\n")
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
446 (ada-prj-field 'debug_pre_cmd "Commands to execute before launching the
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
447 debugger"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
448 "The following commands are executed one after the other before starting
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
449 the debugger. These can be used to set up your environment." t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
450
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
451 (ada-prj-field 'debug_cmd "Debugging the application"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
452 "Specifies how to debug the application, possibly
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
453 remotely if remote_machine has been set. We
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
454 recommend the following debuggers:
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
455 > gdb
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
456 > gvd --tty
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
457 > ddd --tty -fullname -toolbar")
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
458
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
459 (ada-prj-field 'debug_post_cmd "Commands to execute in the debugger"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
460 "The following commands are executed one in the debugger once it has been
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
461 started. These can be used to initialize the debugger, for instance to
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
462 connect to the target when working with cross-environments" t)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
463 )
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
464
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
465 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
466
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
467
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
468 (widget-insert "______________________________________________________________________\n\n ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
469 (widget-create 'push-button
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
470 :notify (lambda (&rest ignore)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
471 (ada-xref-set-default-prj-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
472 'ada-prj-current-values ada-prj-ada-buffer)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
473 (ada-prj-display-page 1))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
474 "Reset to Default Values")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
475 (widget-insert " ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
476 (widget-create 'push-button :notify (lambda (&rest ignore) (kill-buffer nil))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
477 "Cancel")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
478 (widget-insert " ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
479 (widget-create 'push-button :notify (lambda (&rest ignore) (ada-prj-save))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
480 "Save")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
481 (widget-insert "\n\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
482
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
483 (widget-setup)
64803
126d8b68ff09 (ada-prj-display-page): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 64699
diff changeset
484 (with-no-warnings
126d8b68ff09 (ada-prj-display-page): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 64699
diff changeset
485 (beginning-of-buffer))
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
486 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
487
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
488
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
489 (defun ada-customize (&optional new-file filename)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
490 "Edit the project file associated with the current buffer.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
491 If there is none or NEW-FILE is non-nil, make a new one.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
492 If FILENAME is given, edit that file."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
493 (interactive)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
494
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
495 (let ((ada-buffer (current-buffer))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
496 (inhibit-read-only t))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
497
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
498 ;; We can only edit interactively the standard ada-mode project files. If
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
499 ;; the user is using other formats for the project file (through hooks in
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
500 ;; `ada-load-project-hook', we simply edit the file
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
501
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
502 (if (and (not new-file)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
503 (or ada-prj-default-project-file filename)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
504 (string= (file-name-extension
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
505 (or filename ada-prj-default-project-file))
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
506 "gpr"))
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
507 (progn
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
508 (find-file ada-prj-default-project-file)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
509 (add-hook 'after-save-hook 'ada-reread-prj-file t t)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
510 )
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
512 (if filename
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
513 (ada-reread-prj-file filename)
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
514 (if (not (string= ada-prj-default-project-file ""))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
515 (ada-reread-prj-file ada-prj-default-project-file)
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
516 (ada-reread-prj-file)))
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
517
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
518 ;; Else start the interactive editor
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
519 (switch-to-buffer "*Edit Ada Mode Project*")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
520
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
521 (ada-xref-set-default-prj-values 'ada-prj-default-values ada-buffer)
50738
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
522 (ada-prj-initialize-values 'ada-prj-current-values
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
523 ada-buffer
1f13d7a73837 (ada-prj-add-keymap): Moved to ada-mode.el directly. Add dependency on
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
524 ada-prj-default-project-file)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
525
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
526 (set (make-local-variable 'ada-prj-ada-buffer) ada-buffer)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
527
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
528 (use-local-map (copy-keymap custom-mode-map))
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
529 (local-set-key "\C-x\C-s" 'ada-prj-save)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
530
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
531 (make-local-variable 'widget-keymap)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
532 (define-key widget-keymap "\C-x\C-s" 'ada-prj-save)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
533
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
534 (set (make-local-variable 'ada-old-cross-prefix)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
535 (ada-xref-get-project-field 'cross-prefix))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45929
diff changeset
536
45929
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
537 (ada-prj-display-page 1)
8542d59b76af Update copyright. Improve `revision' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44468
diff changeset
538 )))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
539
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
540 ;; ---------------- Utilities --------------------------------
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
541
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
542 (defun ada-prj-set-list (string ada-list &optional is-directory)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
543 "Prepend STRING to strings in ADA-LIST, return new-line separated string.
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
544 If IS-DIRECTORY is non-nil, each element of ADA-LIST is explicitly
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
545 converted to a directory name."
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
546
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
547 (mapconcat (lambda (x) (concat string "="
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
548 (if is-directory
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
549 (file-name-as-directory x)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
550 x)))
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
551 ada-list "\n"))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
552
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
553
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
554 (defun ada-prj-field-modified (widget &rest dummy)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
555 "Callback for modification of WIDGET.
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
556 Remaining args DUMMY are ignored.
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
557 Save the change in `ada-prj-current-values' so that selecting
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
558 another page and coming back keeps the new value."
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
559 (set 'ada-prj-current-values
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
560 (plist-put ada-prj-current-values
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
561 (widget-get widget ':prj-field)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
562 (widget-value widget))))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
563
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
564 (defun ada-prj-display-help (widget widget-modified event)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
565 "Callback for help button in WIDGET.
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
566 Parameters WIDGET-MODIFIED, EVENT match :notify for the widget."
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
567 (let ((text (widget-get widget 'prj-help)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
568 (if event
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
569 ;; If we have a mouse-event, popup a menu
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
570 (widget-choose "Help"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
571 (mapcar (lambda (a) (cons a t))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
572 (split-string text "\n"))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
573 event)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
574 ;; Else display the help string just before the next group of
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
575 ;; variables
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
576 (momentary-string-display
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
577 (concat "*****Help*****\n" text "\n**************\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
578 (save-excursion (forward-line) (beginning-of-line) (point)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
579 )))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
580
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
581 (defun ada-prj-show-value (widget widget-modified event)
73565
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
582 "Show the current field value in WIDGET.
e9cef9a59abe (ada-prj-new): Change maintainer, apply whitespace-cleanup, checkdoc. Minor
Juanma Barranquero <lekktu@gmail.com>
parents: 68773
diff changeset
583 Parameters WIDGET-MODIFIED, EVENT match :notify for the widget."
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
584 (let* ((field (widget-get widget ':prj-field))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
585 (value (plist-get ada-prj-current-values field))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
586 (inhibit-read-only t)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
587 w)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
588
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
589 ;; If the other widget is already visible, delete it
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
590 (if (widget-get widget 'prj-other-widget)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
591 (progn
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
592 (widget-delete (widget-get widget 'prj-other-widget))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
593 (widget-put widget 'prj-other-widget nil)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
594 (widget-put widget ':prj-field field)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
595 (widget-default-value-set widget "Show Value")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
596 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
597
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
598 ;; Else create it
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
599 (save-excursion
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
600 (mouse-set-point event)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
601 (forward-line 1)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
602 (beginning-of-line)
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
603 (setq w (widget-create 'editable-list
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
604 :entry-format "%i%d %v"
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
605 :notify 'ada-prj-field-modified
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
606 :help-echo (widget-get widget 'prj-help)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
607 :value value
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
608 (list 'editable-field :keymap widget-keymap)))
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
609 (widget-put widget 'prj-other-widget w)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
610 (widget-put w ':prj-field field)
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
611 (widget-put widget ':prj-field field)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
612 (widget-default-value-set widget "Hide Value")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
613 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
614 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
615 (widget-setup)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
616 ))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
617
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
618 (defun ada-prj-field (field text help-text &optional is-list is-paths after-text)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
619 "Create a widget to edit FIELD in the current buffer.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
620 TEXT is a short explanation of what the field means, whereas HELP-TEXT
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
621 is the text displayed when the user pressed the help button.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
622 If IS-LIST is non-nil, the field contains a list. Otherwise, it contains
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
623 a single string.
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
624 if IS-PATHS is true, some special buttons are added to load paths,...
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
625 AFTER-TEXT is inserted just after the widget."
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
626 (let ((value (plist-get ada-prj-current-values field))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
627 (inhibit-read-only t)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
628 widget)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
629 (unless value
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
630 (set 'value
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
631 (if is-list '() "")))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
632 (widget-insert text)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
633 (widget-insert ":")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
634 (move-to-column 54 t)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
635 (widget-put (widget-create 'push-button
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
636 :notify 'ada-prj-display-help
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
637 "Help")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
638 'prj-help
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
639 help-text)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
640 (widget-insert (concat " (" (symbol-name field) ")\n"))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
641 (if is-paths
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
642 (progn
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
643 (widget-create 'push-button
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
644 :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
645 (list 'lambda '(&rest dummy) '(interactive)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
646 (list 'ada-prj-load-from-file
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
647 (list 'quote field)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
648 "Load From File")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
649 (widget-insert " ")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
650 (widget-create 'push-button
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
651 :notify
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
652 (list 'lambda '(&rest dummy) '(interactive)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
653 (list 'ada-prj-load-directory
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
654 (list 'quote field)))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
655 "Load Recursive Directory")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
656 (widget-insert "\n ${build_dir}\n")))
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
657
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
658 (set 'widget
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
659 (if is-list
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
660 (if (< (length value) 15)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
661 (widget-create 'editable-list
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
662 :entry-format "%i%d %v"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
663 :notify 'ada-prj-field-modified
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
664 :help-echo help-text
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
665 :value value
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
666 (list 'editable-field :keymap widget-keymap))
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
667
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
668 (let ((w (widget-create 'push-button
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
669 :notify 'ada-prj-show-value
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
670 "Show value")))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
671 (widget-insert "\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
672 (widget-put w 'prj-help help-text)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
673 (widget-put w 'prj-other-widget nil)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
674 w)
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
675 )
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
676 (widget-create 'editable-field
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
677 :format "%v"
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
678 :notify 'ada-prj-field-modified
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
679 :help-echo help-text
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
680 :keymap widget-keymap
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
681 value)))
44468
539150b68126 Add support for the new project file fields:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38422
diff changeset
682 (widget-put widget ':prj-field field)
30410
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
683 (if after-text
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
684 (widget-insert after-text))
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
685 (widget-insert "\n")
01ac16657214 Rewritten to show a tabbed-dialog.
Gerd Moellmann <gerd@gnu.org>
parents: 26227
diff changeset
686 ))
25901
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
687
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
688
9f327fa7ac10 New file.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
689 (provide 'ada-prj)
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38401
diff changeset
690
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 50812
diff changeset
691 ;;; arch-tag: 65978c77-816e-49c6-896e-6905605d1b4c
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38401
diff changeset
692 ;;; ada-prj.el ends here