Lines Matching +defs:previous +defs:search +defs:string
70 Set to 0, if you don't use crunched filenames. This should be a string."
71 :type 'string :group 'ada)
81 :type '(repeat string) :group 'ada)
85 :type 'string :group 'ada)
89 :type 'string :group 'ada)
93 :type 'string :group 'ada)
97 :type 'string :group 'ada)
105 :type 'string :group 'ada)
113 :type 'string :group 'ada)
121 :type 'string :group 'ada)
125 :type 'string :group 'ada)
132 :type 'string :group 'ada)
136 Emacs will not try to use the search algorithm to find the project file if
137 this string is not empty. It is set whenever a project file is found."
143 :type 'string :group 'ada)
158 (defcustom ada-xref-search-with-egrep t
162 of sources, since it will search in all the files in your project."
198 (if (string-match "cmdproxy.exe" shell-file-name)
261 (mapconcat 'identity (split-string cmd "\\\\") "\\\\"))
291 (search-forward "Source Search Path:")
305 (search-forward "Object Search Path:")
326 (defun ada-treat-cmd-string (cmd-string)
333 (while (string-match "\\(-[^-\$IO]*[IO]\\)?\${\\([^}]+\\)}" cmd-string)
335 (name (match-string 2 cmd-string)))
337 ((string= name "current")
339 ((string= name "full_current")
352 (setq cmd-string (replace-match "" t t cmd-string)))
354 (setq cmd-string (replace-match value t t cmd-string)))
356 (let ((prefix (match-string 1 cmd-string)))
357 (setq cmd-string (replace-match
359 t t cmd-string)))))
361 cmd-string)
433 (ada-treat-cmd-string value))
437 (mapcar (lambda(x) (if x (ada-treat-cmd-string x) x)) value))
502 (if (string= (file-name-extension name)
533 (defun ada-do-file-completion (string predicate flag)
543 (set 'list (append list (file-name-all-completions string (car dirs)))))
546 (assoc string list))
550 (try-completion string
578 (if (not (string= "" ada-prj-default-project-file))
605 (defun ada-xref-goto-previous-reference ()
606 "Go to the previous cross-reference we were on."
638 return `ada-prj-default-project-file'. Otherwise, search for a file with
640 `ada-prj-file-extension' (default .adp). If not found, search for *.adp
647 (if (or (not (string= mode-name "Ada"))
654 (not (string= ada-prj-default-project-file "")))
707 (setq choice (string-to-number
718 (unless (string= ada-last-prj-file "")
728 ;; FIXME: doc nil, search, etc.
763 ((string= (match-string 1) "src_dir")
765 (file-name-as-directory (match-string 2))))
766 ((string= (match-string 1) "obj_dir")
768 (file-name-as-directory (match-string 2))))
769 ((string= (match-string 1) "casing")
770 (set 'casing (cons (match-string 2) casing)))
771 ((string= (match-string 1) "build_dir")
774 (file-name-as-directory (match-string 2)))))
775 ((string= (match-string 1) "make_cmd")
776 (add-to-list 'make_cmd (match-string 2)))
777 ((string= (match-string 1) "comp_cmd")
778 (add-to-list 'comp_cmd (match-string 2)))
779 ((string= (match-string 1) "check_cmd")
780 (add-to-list 'check_cmd (match-string 2)))
781 ((string= (match-string 1) "run_cmd")
782 (add-to-list 'run_cmd (match-string 2)))
783 ((string= (match-string 1) "debug_pre_cmd")
784 (add-to-list 'debug_pre_cmd (match-string 2)))
785 ((string= (match-string 1) "debug_post_cmd")
786 (add-to-list 'debug_post_cmd (match-string 2)))
789 (set 'project (plist-put project (intern (match-string 1))
790 (match-string 2))))))
825 (split-string (or (getenv "ADA_INCLUDE_PATH") "") ":")
831 (split-string (or (getenv "ADA_OBJECTS_PATH") "") ":")
847 ;; Sets up the compilation-search-path so that Emacs is able to
849 (setq compilation-search-path (ada-xref-get-src-dir-field))
857 ;; Add the directories to the search path for ff-find-other-file
859 (setq ada-search-directories-internal
860 (append (mapcar 'directory-file-name compilation-search-path)
861 ada-search-directories))
871 (setq compilation-search-path (list nil default-directory))
940 (not (string= ada-prj-default-project-file "")))
941 (if (string-equal (file-name-extension ada-prj-default-project-file)
949 (setq old-contents (buffer-string))))
976 ;; Note that for regexp search is case insensitive too
990 (while (re-search-backward sofar nil t)
991 (setq symalist (cons (cons (match-string 1) nil) symalist)))
1051 (message (concat (error-message-string err)
1064 (if ada-xref-search-with-egrep
1078 (if (or (not machine) (string= machine ""))
1126 (setq compilation-search-path (ada-xref-get-src-dir-field))
1142 (if (not (string-match ".exe" shell-file-name))
1177 (setq compilation-search-path (ada-xref-get-src-dir-field))
1205 (if (and machine (not (string= machine "")))
1270 (string-match "^[^ \t]*gvd" cmd))
1322 (if (and (string-match "gvd" (comint-arguments cmd 0 0))
1324 (not (string-match "--tty" cmd)))
1327 (if (and (string-match "jdb" (comint-arguments cmd 0 0))
1338 (process-send-string (get-buffer-process (current-buffer)) post-cmd)
1347 (if (or (not (string-match "gvd" (comint-arguments cmd 0 0)))
1348 (string-match "--tty" cmd))
1421 Adds build_dir in front of the search path to conform to gnatmake's behavior,
1427 Adds the standard runtime location at the end of the search path to conform
1469 (if (not (string= (file-name-extension file) "ads"))
1472 (if (string-match (concat (regexp-quote (car specs)) "$")
1509 (string-match "^\\(.*\\)[.-][^.-]*" parent-name))
1511 (set 'parent-name (match-string 1 parent-name))
1519 ;; Recompile only if the user asked for this, and search the ali
1567 (let ((begin (re-search-forward "^D")))
1569 (re-search-forward (concat "^D " (file-name-nondirectory file)))
1591 ;; Just in front of a string => we could have an operator declaration,
1606 (= (char-after (+ (length (match-string 0)) (point))) ?\"))
1608 (set 'identifier (regexp-quote (concat "\"" (match-string 0) "\""))))
1610 (if (ada-in-string-p)
1611 (error "Inside string or character constant"))
1615 (set 'identifier (match-string 0))
1622 (number-to-string (count-lines 1 (point))))
1624 (number-to-string (1+ (current-column))))
1643 (if (re-search-forward
1646 (let ((bound (save-excursion (re-search-forward "^X " nil t))))
1648 (re-search-forward
1662 ;; Since we alread know the number of the file, search for a direct
1668 (number-to-string (ada-find-file-number-in-ali
1670 (unless (re-search-forward (concat (ada-ali-index-of identlist)
1680 (unless (re-search-forward
1704 (previous-line 1)
1736 (set 'current-line (concat current-line (match-string 1)))
1740 (if (re-search-backward "^X [0-9]+ \\([a-zA-Z0-9_.-]+\\)" nil t)
1746 (ada-get-ada-file-name (match-string 1)
1754 (error (error-message-string err)))
1767 (unless (= (string-to-char (ada-name-of identlist)) ?\")
1780 (while (re-search-backward my-regexp nil t)
1787 (setq line-ada (match-string 1))
1788 (setq col-ada (match-string 2)))
1793 (if (re-search-backward "^X [0-9]+ \\([a-zA-Z0-9._-]+\\)" nil t)
1795 'declist (list line-ali (match-string 1) line-ada col-ada))
1844 (string-to-number
1869 (string-match "^\\([0-9]+\\)[a-zA-Z+*]\\([0-9]+\\)[ *]" ali-line)
1870 (set 'locations (list (list (match-string 1 ali-line) ;; line
1871 (match-string 2 ali-line) ;; column
1873 (while (string-match "\\([0-9]+\\)[bc]\\(<[^>]+>\\)?\\([0-9]+\\)"
1875 (setq line (match-string 1 ali-line)
1876 col (match-string 3 ali-line)
1883 (if (string-match (concat "[^{(<0-9]\\([0-9]+\\)|\\([^|bc]+\\)?"
1884 (match-string 0 ali-line))
1886 (let ((file-number (match-string 1 ali-line)))
1888 (re-search-forward "^D \\([a-zA-Z0-9_.-]+\\)" nil t
1889 (string-to-number file-number))
1890 (set 'file (match-string 1))
1909 (if (and (string= (caar locations) (ada-line-of identlist))
1910 (string= (nth 1 (car locations)) (ada-column-of identlist))
1911 (string= (file-name-nondirectory (nth 2 (car locations)))
1928 (string-to-number line)
1929 (1- (string-to-number col))
1961 (insert (shell-command-to-string
1971 (set 'case-fold-search t)
1973 (while (re-search-forward regexp nil t)
1979 (setq line (match-string 1)
1980 column (match-string 2))
1981 (re-search-backward "^X [0-9]+ \\(.*\\)$")
1982 (set 'file (list (match-string 1) line column))
2005 (string-to-number (nth 1 (car list)))
2006 (string-to-number (nth 2 (car list)))
2038 (string-to-number
2047 (string-to-number (nth 1 (nth choice list)))
2048 (string-to-number (nth 2 (nth choice list)))
2084 (ada-xref-search-nearest (ada-name-of identlist)))
2088 (defun ada-xref-search-nearest (name)
2098 (while (search-backward name nil t)
2105 (not (ada-in-string-or-comment-p))
2114 (ada-goto-previous-word)
2145 (re-search-forward "^U \\([^ \t%]+\\)%[bs][ \t]+\\([^ \t]+\\)")
2146 (setq unit-name (match-string 1))
2147 (if (not (string-match "\\(.*\\)\\.[^.]+" unit-name))
2151 (setq unit-name (match-string 1 unit-name))
2156 (re-search-forward (concat "^W " unit-name
2159 (setq body-name (match-string 1))
2160 (setq ali-name (match-string 2))
2172 (re-search-forward (concat "^U " unit-name "%s[ \t]+"
2174 (setq body-name (match-string 1))
2235 (let* ((gnatstub-opts (ada-treat-cmd-string ada-gnatstub-opts))
2254 (search-forward "command not found" nil t))
2303 ;; Add these standard directories to the search path
2304 (set 'ada-search-directories-internal
2306 ada-search-directories))