;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require cus-edit ada-xref] 2)
#@64 Hold the current value of the fields, This is a property list.
(defvar ada-prj-current-values nil (#$ . 479))
(make-variable-buffer-local 'ada-prj-current-values)
#@65 Hold the default value for the fields, This is a property list.
(defvar ada-prj-default-values nil (#$ . 648))
(make-variable-buffer-local 'ada-prj-default-values)
#@50 Indicates what Ada source file was being edited.
(defvar ada-prj-ada-buffer nil (#$ . 818))
#@72 The cross-prefix associated with the currently loaded runtime library.
(defvar ada-old-cross-prefix nil (#$ . 916))
#@26 Open a new project file.
(defalias 'ada-prj-new #[nil "\203 \303\230\204 \202 \304\305\306 \205 \303\307\211 %\310\n\311\"\312\230\204) \313\314!\210\315\307\n\"*\207" [ada-prj-default-project-file prj filename "" "default.adp" read-file-name "Project file: " nil file-name-extension t ".adp" error "File name extension for project files must be .adp" ada-customize] 6 (#$ . 1038) nil])
#@110 Editing the project file associated with the current Ada buffer.
If there is none, opens a new project file.
(defalias 'ada-prj-edit #[nil "\203 \301 \207\302 \207" [ada-prj-default-project-file ada-customize ada-prj-new] 1 (#$ . 1441) nil])
#@182 Set SYMBOL to the property list of the project file FILENAME.
If FILENAME is null, read the file associated with ADA-BUFFER.
If no project file is found, return the default values.
(defalias 'ada-prj-initialize-values #[(symbol _ada-buffer filename) "\203 \303\230\204 \304 \"\203 \n\305\304 \"A!L\207\n\306 L\210\2054 \303\230?\2054 \n\307\310\n!\300#L\207" [filename ada-xref-project-files symbol "" assoc copy-sequence ada-default-prj-properties plist-put eval] 5 (#$ . 1692)])
#@139 Return the string to print in the project file to save FIELD.
If the current value of FIELD is the default value, return an empty string.
(defalias 'ada-prj-save-specific-option #[(field) "\303 \"\303\n \"\230\203 \304\207\305 !\306\303 \"\307R\207" [ada-prj-current-values field ada-prj-default-values plist-get "" symbol-name "=" "\n"] 5 (#$ . 2190)])
#@31 Save the edited project file.
(defalias 'ada-prj-save #[nil "\304\305\"\206\n \306\307!\310\311\312!\311\313!\311\314!\311\315!\311\316!\311\317!\311\320!\311\321!\322\304\323\"\324\325\304\326\"\324\327\330\304\331\"\"\324\327\332\304\333\"\"\324\327\334\304\335\"\"\324\327\336\304\337\"\"\324\327\340\304\341\"\342#\324\327\343\304\344\"\342#\324\327\345\304\346\"\"\324\327\347\304\350\"\"\324\260 \351\n!\210\352 \210 c\210\353 \210\354\310!\210\354\355!\210\n\356\n!*\207" [ada-prj-current-values output file-name ada-prj-default-project-file plist-get filename read-file-name "Save project as: " nil ada-prj-save-specific-option comp_opt bind_opt link_opt gnatmake_opt gnatfind_opt cross_prefix remote_machine debug_cmd "main=" main "\n" "build_dir=" build_dir ada-prj-set-list "check_cmd" check_cmd "make_cmd" make_cmd "comp_cmd" comp_cmd "run_cmd" run_cmd "src_dir" src_dir t "obj_dir" obj_dir "debug_pre_cmd" debug_pre_cmd "debug_post_cmd" debug_post_cmd find-file erase-buffer save-buffer kill-buffer "*Edit Ada Mode Project*" ada-reread-prj-file] 33 (#$ . 2553) nil])
#@77 Load SYMBOL value from file.
One item per line should be found in the file.
(defalias 'ada-prj-load-from-file #[(symbol) "\212\306\307\310\211\311$p\310\211\312 !\210~\210eb\210m\2045 \313`\314 \"\211\235\203+ \202. B\315y\210\202 \316\310!\210\nq\210\317\f
\320\321\f
\"\322!\"#,\323\324!)\207" [list line buffer file ada-prj-current-values symbol read-file-name "File name: " nil t find-file buffer-substring-no-properties point-at-eol 1 kill-buffer plist-put append plist-get reverse ada-prj-display-page 2] 8 (#$ . 3654)])
#@62 Return a list of all the subdirectories of DIR, recursively.
(defalias 'ada-prj-subdirs-of #[(dir) "\304\305\306#C\211\203* \307\n@!\203# \310\n@!\211\203\" \311 \")\nA\211\204
*\207" [dir dirlist subdirs sub directory-files t "^[^.].*" file-directory-p ada-prj-subdirs-of append] 5 (#$ . 4200)])
#@121 Append to FIELD in the current project the subdirectories of FILE-NAME.
If FILE-NAME is nil, ask the user for the name.
(defalias 'ada-prj-load-directory #[(field &optional file-name) "\304 \204
\305\306\304\211\307$)\310\n \311\312\n \"\313\314\315 !!!\"#\316\317!\207" [use-dialog-box file-name ada-prj-current-values field nil read-directory-name "Root directory: " t plist-put append plist-get reverse ada-prj-subdirs-of expand-file-name ada-prj-display-page 2] 9 (#$ . 4514)])
#@94 Display page TAB-NUM in the notebook.
The current buffer must be the project editing buffer.
(defalias 'ada-prj-display-page #[(tab-num) "\306\307 \210) \310Y\203 \311\211\312\313\314 @\"\210\312\315\314 A\"\210\316\317!\210\320\321\322\323\324$\210\316\325!\210\320\321\322\326\327$\210\316\330!\210\320\321\322\331\332$\210\316\333!\210\320\321\322\334\335$\210\316\333!\210\320\321\322\336\337$\210\316\340!\210\f\341U\203\235 \316\342!\210\316\343!\210\316\344
\345\"!\210\316\346!\210\347\350\351\352\306\311\353\354\355\350!\356#&\210\347\357\360\361#\210\347\362\363\364#\210\347\365\366\367#\210\347\370\371\372#\210\202\311\f\373U\203\361 \344
\370\"@\232\204\270 \344
\370\"@\374@!\210\316\375!\210\347\376\377\201C \306\211\353\201D A\356#&\210\316\346!\210\347\201E \201F \201G \306\211\353\201H B\356#&\210\316\346!\210\202\311\f\201I U\203>\316\201J !\210\347\201K \201L \201M #\210\347\201N \201O \201P #\210\347\201Q \201R \201S #\210\347\201T \201U \201V #\210\347\201W \201X \201Y #\210\202\311\f\201Z U\203\225\316\201[ !\210\316\201\\ !\210\316\201] !\210\316\201^ !\210\347\201_ \201` \201a \306$\210\347\201b \201c \201d \306$\210\347\201e \201f \201g \306$\210\347\201h \201i \201j \306$\210\202\311\f\201k U\203\311\316\201l !\210\347\201m \201n \201o \306$\210\347\201p \201q \201r #\210\347\201s \201t \201u \306$\210\316\201v !\210\320\321\322\201w \201x $\210\316\201y !\210\320\321\322\201z \201{ $\210\316\201y !\210\320\321\322\201| \201} $\210\316\346!\210\201~ \210\201 \207" [inhibit-read-only emacs-major-version widget-field-new widget-field-list tab-num ada-prj-current-values t erase-buffer 21 nil mapc #[(x) "\301!\207" [x delete-overlay] 2] overlay-lists #[(x) "\301!\207" [x delete-overlay] 2] widget-insert "\n Project configuration.\n\n ___________ ____________ ____________ ____________ ____________\n / " widget-create push-button :notify #[(&rest _dummy) "\300\301!\207" [ada-prj-display-page 1] 2] "General" " \\ / " #[(&rest _dummy) "\300\301!\207" [ada-prj-display-page 2] 2] "Paths" " \\ / " #[(&rest _dummy) "\300\301!\207" [ada-prj-display-page 3] 2] "Switches" " \\ / " #[(&rest _dummy) "\300\301!\207" [ada-prj-display-page 4] 2] "Ada Menu" #[(&rest _dummy) "\300\301!\207" [ada-prj-display-page 5] 2] "Debugger" " \\\n" 1 "/ \\/______________\\/______________\\/______________\\/______________\\\n" "Project file name:\n" plist-get filename "\n\n" ada-prj-field casing "Casing Exceptions" "List of files that contain casing exception\ndictionaries. All these files contain one\nidentifier per line, with a special casing.\nThe first file has the highest priority." mapconcat #[(x) "\301P\207" [x " "] 2] ada-xref-get-project-field "\n" main "Executable file name" "Name of the executable generated when you\ncompile your application. This should include\nthe full directory name, using ${build_dir} if\nyou wish." build_dir "Build directory" "Reference directory for relative paths in\nsrc_dir and obj_dir below. This is also the directory\nwhere the compilation is done." remote_machine "Name of the remote machine (if any)" "If you want to remotely compile, debug and\nrun your application, specify the name of a\nremote machine here. This capability requires\nthe `rsh' protocol on the remote machine." cross_prefix "Prefix used in for the cross tool chain" "When working on multiple cross targets, it is\nmost convenient to specify the prefix of the\ntool chain here. For instance, on PowerPc\nvxworks, you would enter `powerpc-wrs-vxworks-'.\nTo use JGNAT, enter `j'." 2 ada-initialize-runtime-library "/_____________\\/ \\/______________\\/______________\\/______________\\\n" src_dir "Source directories" ada-old-cross-prefix ada-xref-runtime-library-specs-path ada-xref-runtime-library-ali-path "Enter the list of directories where your Ada\nsources can be found. These directories will be\nused for the cross-references and for the default\ncompilation commands.\nNote that src_dir includes both the build directory\nand the standard runtime." #[(x) "\301P\207" [x " "] 2] obj_dir "Object directories" "Enter the list of directories where the GNAT\nlibrary files (ALI files) can be found. These\nfiles are used for cross-references and by the\ngnatmake command.\nNote that obj_dir includes both the build directory\nand the standard runtime." #[(x) "\301P\207" [x " "] 2] 3 "/_____________\\/______________\\/ \\/______________\\/______________\\\n" comp_opt "Switches for the compiler" "These switches are used in the default\ncompilation commands, both for compiling a\nsingle file and rebuilding the whole project" bind_opt "Switches for the binder" "These switches are used in the default build\ncommand and are passed to the binder" link_opt "Switches for the linker" "These switches are used in the default build\ncommand and are passed to the linker" gnatmake_opt "Switches for gnatmake" "These switches are used in the default gnatmake\ncommand." gnatfind_opt "Switches for gnatfind" "The command gnatfind is run every time the Ada/Goto/List_References menu.\nYou should for instance add -a if you are working in an environment\nwhere most ALI files are write-protected, since otherwise they get\nignored by gnatfind and you don't see the references within." 4 "/_____________\\/______________\\/______________\\/ \\/______________\\\n" "All the fields below can use variable substitution. The syntax is ${name},\nwhere name is the name that appears after the Help buttons in this buffer. As\na special case, ${current} is replaced with the name of the file currently\nedited, with directory name but no extension, whereas ${full_current} is\nreplaced with the name of the current file with directory name and\nextension.\n" "The environment variables ADA_INCLUDE_PATH and ADA_OBJECTS_PATH are set to\n${src_dir} and ${obj_dir} before running the compilation commands, so that you\ndon't need to specify the -aI and -aO switches on the command line\n" "You can reference any environment variable using the same ${...} syntax as\nabove, and put the name of the variable between the quotes.\n\n" check_cmd "Check syntax of a single file (menu Ada->Check File)" "This command is run to check the syntax and semantics of a file.\nThe file name is added at the end of this command." comp_cmd "Compiling a single file (menu Ada->Compile File)" "This command is run when the recompilation\nof a single file is needed. The file name is\nadded at the end of this command." make_cmd "Rebuilding the whole project (menu Ada->Build)" "This command is run when you want to rebuild\nyour whole application. It is never issues\nautomatically and you will need to ask for it.\nIf remote_machine has been set, this command\nwill be executed on the remote machine." run_cmd "Running the application (menu Ada->Run)" "This command specifies how to run the\napplication, including any switch you need to\nspecify. If remote_machine has been set, this\ncommand will be executed on the remote host." 5 "/_____________\\/______________\\/______________\\/______________\\/ \\\n" debug_pre_cmd "Commands to execute before launching the\ndebugger" "The following commands are executed one after the other before starting\nthe debugger. These can be used to set up your environment." debug_cmd "Debugging the application" "Specifies how to debug the application, possibly\nremotely if remote_machine has been set. We\nrecommend the following debuggers:\n > gdb\n > gvd --tty\n > ddd --tty -fullname -toolbar" debug_post_cmd "Commands to execute in the debugger" "The following commands are executed one in the debugger once it has been\nstarted. These can be used to initialize the debugger, for instance to\nconnect to the target when working with cross-environments" "______________________________________________________________________\n\n " #[(&rest _ignore) "\301 \302\303!\207" [ada-prj-current-values ada-default-prj-properties ada-prj-display-page 1] 2] "Reset to Default Values" " " #[(&rest _ignore) "\300\301!\207" [kill-buffer nil] 2] "Cancel" #[(&rest _ignore) "\300 \207" [ada-prj-save] 1] "Save" widget-setup beginning-of-buffer] 11 (#$ . 5006)])
#@154 Edit the project file associated with the current buffer.
If there is none or NEW-FILE is non-nil, make a new one.
If FILENAME is given, edit that file.
(defalias 'ada-customize #[(&optional new-file filename) "p\306\n\204) \204 \f\203) \307\f\206 !\310\230\203) \311 !\210\312\313\314\306\211$\202\223 \f\2034 \314\f!\210\202D \315\230\204A \314 !\210\202D \314 \210\316\317!\210\320\321 #\210\322\305!\210 \323\324 \325 \"\210\326 \327\330#\210 )!\210\322\331!\210\324 \325 \"\210\326 \327\330#\210 )\322\332!\210\333\334!\335\336!*\207" [inhibit-read-only ada-buffer new-file ada-prj-default-project-file filename ada-prj-ada-buffer t file-name-extension "gpr" find-file add-hook after-save-hook ada-reread-prj-file "" switch-to-buffer "*Edit Ada Mode Project*" ada-prj-initialize-values ada-prj-current-values make-local-variable use-local-map make-sparse-keymap set-keymap-parent define-key "" ada-prj-save widget-keymap ada-old-cross-prefix ada-xref-get-project-field cross-prefix ada-prj-display-page 1 map custom-mode-map] 5 (#$ . 13295) nil])
#@172 Prepend STRING to strings in ADA-LIST, return new-line separated string.
If IS-DIRECTORY is non-nil, each element of ADA-LIST is explicitly
converted to a directory name.
(defalias 'ada-prj-set-list #[(string ada-list &optional is-directory) "\301\302\303#\207" [ada-list mapconcat #[(x) "\303 \203\f \304\n!\202
\nQ\207" [string is-directory x "=" file-name-as-directory] 4] "\n"] 4 (#$ . 14383)])
#@184 Callback for modification of WIDGET.
Remaining args DUMMY are ignored.
Save the change in `ada-prj-current-values' so that selecting
another page and coming back keeps the new value.
(defalias 'ada-prj-field-modified #[(widget &rest _dummy) "\302\303 \304\"\305 !#\211\207" [ada-prj-current-values widget plist-put widget-get :prj-field widget-value] 5 (#$ . 14792)])
#@101 Callback for help button in WIDGET.
Parameters WIDGET-MODIFIED, EVENT match :notify for the widget.
(defalias 'ada-prj-display-help #[(widget _widget-modified event) "\303\304\"\n\203 \305\306\307\310\311 \312\"\"\n#\202 \313\314 \315Q\316\317!\")\207" [widget text event widget-get prj-help widget-choose "Help" mapcar #[(a) "\301B\207" [a t] 2] split-string "\n" momentary-string-display "*****Help*****\n" "\n**************\n" point-at-bol 2] 7 (#$ . 15169)])
#@105 Show the current field value in WIDGET.
Parameters WIDGET-MODIFIED, EVENT match :notify for the widget.
(defalias 'ada-prj-show-value #[(widget _widget-modified event) "\306\307\"\310\n \"\311 \312 \306\313\"\2030 \314\306\313\"!\210\315\313\312#\210\315\307 #\210\316\317\"\210\202i \212\320 !\210\321y\210\322 \210\323\324\325\326\327\330\331\306\332\"\333 \334\335!E&\n\315\313
#\210\315
\307 #\210\315\307 #\210\316\336\"\210)\337 ,\207" [widget field ada-prj-current-values value inhibit-read-only w widget-get :prj-field plist-get t nil prj-other-widget widget-delete widget-put widget-default-value-set "Show Value" mouse-set-point 1 beginning-of-line widget-create editable-list :entry-format "%i%d %v" :notify ada-prj-field-modified :help-echo prj-help :value editable-field :keymap "Hide Value" widget-setup event widget-keymap] 13 (#$ . 15644)])
#@393 Create a widget to edit FIELD in the current buffer.
TEXT is a short explanation of what the field means, whereas HELP-TEXT
is the text displayed when the user pressed the help button.
If IS-LIST is non-nil, the field contains a list. Otherwise, it contains
a single string.
If IS-PATHS is true, some special buttons are added to load paths,...
AFTER-TEXT is inserted just after the widget.
(defalias 'ada-prj-field #[(field text help-text &optional is-list is-paths after-text) "\306 \"\307\310\211 \204
?\205 \311\3124!\210\312\313!\210\314\315\307\"\210\316\317\320\321\322\323$\3245#\210\312\325\326 !\327Q!\2106\203b \317\320\321\330\331\332\333\334 DDF\335$\210\312\336!\210\317\320\321\330\337\340\341\334 DDF\342$\210\312\343!\210
\203\243 \fG\344W\203\202 \317\345\346\347\321\350\3515\352\f\353\3547E&\n\202\262 \317\320\321\355\356$ 8\312\357!\210\3168\3245#\210\3168\360\310#\2108)\202\262 \317\353\361\362\321\350\3515\3547\f&\n\316\n\363 #\2109\203\303 \3129!\210\312\357!+\207" [ada-prj-current-values field widget inhibit-read-only value is-list plist-get t nil "" widget-insert ":" move-to-column 54 widget-put widget-create push-button :notify ada-prj-display-help "Help" prj-help " (" symbol-name ")\n" lambda (&rest dummy) (interactive) ada-prj-load-from-file quote "Load From File" " " (&rest dummy) (interactive) ada-prj-load-directory "Load Recursive Directory" "\n ${build_dir}\n" 15 editable-list :entry-format "%i%d %v" ada-prj-field-modified :help-echo :value editable-field :keymap ada-prj-show-value "Show value" "\n" prj-other-widget :format "%v" :prj-field text help-text is-paths widget-keymap w after-text] 14 (#$ . 16523)])
(provide 'ada-prj)
|