Lines Matching +defs:set +defs:line
30 ;;; This Package provides a set of functions to use the output of the
137 this string is not empty. It is set whenever a project file is found."
207 `cmdproxy.exe' doesn't recognize multiple-line commands, so we have to use
222 See `ada-xref-set-default-prj-values' for the list of valid properties.
224 Properties are retrieved with `ada-xref-get-project-field', set with
225 `ada-xref-set-project-field'. If project properties are accessed with no
235 (defmacro ada-line-of (identlist) (list 'aref identlist 1))
243 (defmacro ada-set-name (identlist name) (list 'aset identlist 0 name))
244 (defmacro ada-set-line (identlist line) (list 'aset identlist 1 line))
245 (defmacro ada-set-column (identlist col) (list 'aset identlist 2 col))
246 (defmacro ada-set-file (identlist file) (list 'aset identlist 3 file))
247 (defmacro ada-set-ali-index (identlist index) (list 'aset identlist 4 index))
248 (defmacro ada-set-declare-file (identlist file) (list 'aset identlist 5 file))
249 (defmacro ada-set-references (identlist ref) (list 'aset identlist 6 ref))
250 (defmacro ada-set-on-declaration (ident value) (list 'aset ident 7 value))
276 (set-buffer (get-buffer-create "*gnatls*"))
292 (forward-line 1)
300 (save-excursion (end-of-line) (point)))))
301 (forward-line 1))
306 (forward-line 1)
314 (save-excursion (end-of-line) (point)))))
315 (forward-line 1))
319 (set 'ada-xref-runtime-library-specs-path
321 (set 'ada-xref-runtime-library-ali-path
363 (defun ada-xref-set-default-prj-values (symbol ada-buffer)
369 (set-buffer ada-buffer)
371 (set 'plist
414 (set symbol plist)))
427 (set 'value (plist-get project-plist field))
473 (defun ada-xref-set-project-field (field value)
487 ["Load..." ada-set-default-project-file t]
499 (set 'ada-prj-default-project-file ,(car x))
543 (set 'list (append list (file-name-all-completions string (car dirs)))))
544 (set 'dirs (cdr dirs)))
620 (defun ada-set-default-project-file (name &optional keep-existing)
667 ;; parse-sexp-lookup-properties is set
679 (set 'selected first-choice))
683 (set 'selected (car prj-files)))
709 (set 'selected (nth (1- choice) prj-files))))
719 (set 'selected ada-last-prj-file))))
727 "Read PRJ-FILE, set it as the active project."
739 (ada-xref-set-default-prj-values 'project (current-buffer))
752 (set-buffer buffer))
770 (set 'casing (cons (match-string 2) casing)))
772 (set 'project
789 (set 'project (plist-put project (intern (match-string 1))
791 (forward-line 1))
793 (if src_dir (set 'project (plist-put project 'src_dir
795 (if obj_dir (set 'project (plist-put project 'obj_dir
797 (if casing (set 'project (plist-put project 'casing
799 (if make_cmd (set 'project (plist-put project 'make_cmd
801 (if comp_cmd (set 'project (plist-put project 'comp_cmd
803 (if check_cmd (set 'project (plist-put project 'check_cmd
805 (if run_cmd (set 'project (plist-put project 'run_cmd
807 (if debug_post_cmd (set 'project (plist-put project 'debug_post_cmd
809 (if debug_pre_cmd (set 'project (plist-put project 'debug_pre_cmd
812 (set-buffer ada-buffer)
821 (set 'project
824 (list command-line-default-directory)
827 (set 'project
830 (list command-line-default-directory)
885 (process-environment (ada-set-environment)))
887 (set-buffer (get-file-buffer (ada-file-of identlist)))
897 (ada-line-of identlist)
909 (entity &optional file line column local-only append)
932 (if line (concat ":" line))
948 (set-buffer "*gnatfind*")
956 (set-buffer "*gnatfind*")
967 (defalias 'ada-change-prj (symbol-function 'ada-set-default-project-file))
986 (set-buffer (ada-get-ali-buffer (buffer-file-name)))
999 (set-buffer curbuf)
1011 (mouse-set-point last-input-event)
1017 (mouse-set-point last-input-event)
1090 (defun ada-set-environment ()
1100 (set 'include (concat path-separator include)))
1102 (set 'objects (concat path-separator objects)))
1123 (process-environment (ada-set-environment))
1147 (defun ada-set-main-compile-application ()
1161 (ada-xref-set-project-field 'main main)
1162 (ada-xref-set-project-field 'main_unit main)
1174 (process-environment (ada-set-environment))
1212 (set 'command (list (file-name-sans-extension (buffer-name)))))
1225 (set-buffer (get-buffer-create "*run*"))
1226 (set 'buffer-read-only nil)
1233 ;; the output buffer is scrolled so that only the last output line
1235 (set (make-local-variable 'scroll-step) 0)
1236 (set (make-local-variable 'scroll-conservatively) 0)
1262 (set 'cmd (concat ada-prj-default-debugger
1278 (set 'cmd (concat
1285 (set 'cmd (ada-remote (concat cmd " -fullname ")))
1289 (set 'cmd (read-from-minibuffer "enter command to debug: " cmd)))
1297 (set 'pre-cmd (mapconcat 'identity pre-cmd ada-command-separator))
1301 (set 'post-cmd (mapconcat 'identity post-cmd "\n"))
1303 (set 'post-cmd (concat post-cmd "\n")))
1313 (set 'compilation-buffer-name-function
1387 (set-buffer body-visible)
1411 (set 'found (concat (file-name-as-directory (car dir-list))
1415 (set 'found nil))
1416 (set 'dir-list (cdr dir-list)))
1457 (set-buffer (get-file-buffer file))
1474 (set 'is-spec t))
1475 (set 'specs (cdr specs)))))
1478 (set 'ali-file-name
1511 (set 'parent-name (match-string 1 parent-name))
1512 (set 'ali-file-name (ada-find-ali-file-in-dir
1551 (set-buffer buffer)
1564 (set-buffer (ada-get-ali-buffer file))
1568 (beginning-of-line)
1575 macros `ada-name-of', `ada-line-of', `ada-column-of', `ada-file-of',..."
1608 (set 'identifier (regexp-quote (concat "\"" (match-string 0) "\""))))
1615 (set 'identifier (match-string 0))
1619 (set 'identlist (ada-make-identlist))
1620 (ada-set-name identlist (downcase identifier))
1621 (ada-set-line identlist
1623 (ada-set-column identlist
1625 (ada-set-file identlist (buffer-file-name))
1635 (set-buffer ali-buffer)
1637 (ada-set-on-declaration identlist nil)
1641 ;; the "^X ..." line for the current file, and before the next "^X" line
1647 (set 'declaration-found
1649 (concat "^" (ada-line-of identlist)
1654 (ada-set-on-declaration identlist t))
1665 (set 'declaration-found t)
1666 (ada-set-ali-index
1672 (ada-line-of identlist)
1685 (ada-line-of identlist)
1693 (set 'declaration-found nil)
1697 ;; Last check to be completly sure we have found the correct line (the
1701 (beginning-of-line)
1702 ;; while we have a continuation line, go up one line
1704 (previous-line 1)
1705 (beginning-of-line))
1708 (set 'declaration-found nil))))
1716 (set 'declaration-found t)
1726 ;; Now that we have found a suitable line in the .ali file, get the
1728 (beginning-of-line)
1730 (let ((current-line (buffer-substring
1731 (point) (save-excursion (end-of-line) (point)))))
1733 (next-line 1)
1734 (beginning-of-line)
1736 (set 'current-line (concat current-line (match-string 1)))
1737 (next-line 1))
1744 (ada-set-declare-file
1757 (ada-set-references identlist current-line)
1772 (line-ada "--")
1774 (line-ali 0)
1782 (set 'line-ali (count-lines 1 (point)))
1783 (beginning-of-line)
1784 ;; have a look at the line and column numbers
1787 (setq line-ada (match-string 1))
1789 (setq line-ada "--")
1795 'declist (list line-ali (match-string 1) line-ada col-ada))
1812 (goto-line (caar declist)))
1821 (princ " no. in file at line col\n")
1847 (set-buffer ali-buffer)
1848 (goto-line (car (nth (1- choice) declist)))
1858 (let ((ali-line (ada-references-of identlist))
1861 file line col)
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
1874 ali-line start)
1875 (setq line (match-string 1 ali-line)
1876 col (match-string 3 ali-line)
1879 ;; it there was a file number in the same line
1881 ;; on the line is the type reference.
1884 (match-string 0 ali-line))
1885 ali-line)
1886 (let ((file-number (match-string 1 ali-line)))
1890 (set 'file (match-string 1))
1893 (set 'file (ada-declare-file-of identlist)))
1895 (set 'locations (append locations (list (list line col file)))))
1899 (set 'locations (append locations (list (car locations))))
1904 (setq line (caar locations)
1909 (if (and (string= (caar locations) (ada-line-of identlist))
1914 line (car locations)
1918 (set 'locations (cdr locations))))
1921 (set 'file (ada-get-ada-file-name file (ada-file-of identlist)))
1928 (string-to-number line)
1949 line column
1959 (set-buffer (get-buffer-create "*grep*"))
1968 (set 'dirs (cdr dirs)))
1971 (set 'case-fold-search t)
1975 (beginning-of-line)
1979 (setq line (match-string 1)
1982 (set 'file (list (match-string 1) line column))
1987 (set 'list (append list (list file))))))))
2002 (set 'file (ada-find-src-file-in-dir (caar list)))
2020 (princ " no. in file at line col\n")
2041 (set 'choice (1- choice))
2044 (set 'file (ada-find-src-file-in-dir (car (nth choice list))))
2056 (file line column identlist &optional other-frame)
2068 (set 'declaration-buffer (find-file-noselect file))
2069 (set-buffer declaration-buffer)
2077 (goto-line line)
2143 (set-buffer buffer)
2189 (set-buffer krunch-buf)
2202 (end-of-line)
2224 (set-buffer-modified-p nil)
2232 (set-buffer (cadr (buffer-list))))
2242 (set-buffer buffer)
2252 (set-buffer buffer)
2304 (set 'ada-search-directories-internal