Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/ede/speedbar.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\303!\207" [require speedbar eieio-speedbar ede] 2)
#@49 A Generic object based speedbar display keymap.
(defvar ede-speedbar-key-map nil (#$ . 502))
#@48 Make the generic object based speedbar keymap.
(defalias 'ede-speedbar-make-map #[nil "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\207" [ede-speedbar-key-map speedbar-make-specialized-keymap define-key "
" speedbar-edit-line "+" speedbar-expand-line "=" "-" speedbar-contract-line " " speedbar-toggle-line-expansion "C" eieio-speedbar-customize-line "R" ede-speedbar-remove-file-from-target "b" ede-speedbar-compile-line "B" ede-speedbar-compile-project "D" ede-speedbar-make-distribution "E" ede-speedbar-edit-projectfile] 4 (#$ . 601)])
#@71 Menu part in easymenu format used in speedbar while browsing objects.
(defvar ede-speedbar-menu '(["Compile" ede-speedbar-compile-line t] ["Compile Project" ede-speedbar-compile-project (ede-project-child-p (speedbar-line-token))] "---" ["Edit File/Tag" speedbar-edit-line (not (eieio-object-p (speedbar-line-token)))] ["Expand" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))] "---" ["Remove File from Target" ede-speedbar-remove-file-from-target (stringp (speedbar-line-token))] ["Customize Project/Target" eieio-speedbar-customize-line (eieio-object-p (speedbar-line-token))] ["Edit Project File" ede-speedbar-edit-projectfile t] ["Make Distribution" ede-speedbar-make-distribution (ede-project-child-p (speedbar-line-token))]) (#$ . 1303))
(eieio-speedbar-create 'ede-speedbar-make-map 'ede-speedbar-key-map 'ede-speedbar-menu "Project" 'ede-speedbar-toplevel-buttons)
#@59 EDE development environment project browser for speedbar.
(defalias 'ede-speedbar #[nil "\300\301!\210\302\303!\210\304 \207" [speedbar-frame-mode 1 speedbar-change-initial-expansion-list "Project" speedbar-get-focus] 2 (#$ . 2325) nil])
#@122 Return a list of objects to display in speedbar.
Argument DIR is the directory from which to derive the list of objects.
(defalias 'ede-speedbar-toplevel-buttons #[(dir) "\207" [ede-projects] 1 (#$ . 2570)])
#@43 Remove the file at point from its target.
(defalias 'ede-speedbar-remove-file-from-target #[nil "\300 ;\205\301 \210\302 \207" [speedbar-line-token speedbar-edit-line ede-remove-file] 1 (#$ . 2785) nil])
#@51 Compile/Build the project or target on this line.
(defalias 'ede-speedbar-compile-line #[nil "\301 \302!\205&\303\304\"\203\305!\202&\303\306\"\203#\307!\202&\310\311!)\207" [obj eieio-speedbar-find-nearest-object eieio-object-p obj-of-class-p ede-project project-compile-project ede-target project-compile-target error "Error in speedbar structure"] 3 (#$ . 2997) nil])
#@40 Return a project object for this line.
(defalias 'ede-speedbar-get-top-project-for-line #[nil "\301 \302!\204\303\304!\202(\305\306\"\203\307!\305\310\"\203%\202(\303\304!)\207" [obj eieio-speedbar-find-nearest-object eieio-object-p error "Error in speedbar or ede structure" obj-of-class-p ede-target ede-target-parent ede-project] 3 (#$ . 3386) nil])
#@49 Compile/Build the project which owns this line.
(defalias 'ede-speedbar-compile-project #[nil "\300\301 !\207" [project-compile-project ede-speedbar-get-top-project-for-line] 2 (#$ . 3759) nil])
#@61 Compile/Build the target which the current file belongs to.
(defalias 'ede-speedbar-compile-file-project #[nil "\304 \305!\306	\307\"\211\203\310\n!\210\311\312\n!!\202%\313!\210	q\210\314 +\207" [file buf bwin speedbar-frame speedbar-line-file find-file-noselect get-buffer-window 0 select-window raise-frame window-frame dframe-select-attached-frame ede-compile-target] 4 (#$ . 3960) nil])
#@43 Edit the project file based on this line.
(defalias 'ede-speedbar-make-distribution #[nil "\300\301 !\207" [project-make-dist ede-speedbar-get-top-project-for-line] 2 (#$ . 4366) nil])
#@43 Edit the project file based on this line.
(defalias 'ede-speedbar-edit-projectfile #[nil "\300\301 !\207" [project-edit-file-target ede-speedbar-get-top-project-for-line] 2 (#$ . 4557) nil])
#@36 Go backwards until we find a file.
(defalias 'ede-find-nearest-file-line #[nil "\212\301 \210\302\303!\210\304\305\306!!\307\310\311 \312#\204%\313\314\315S\"!\210S\202\316 *\207" [depth beginning-of-line looking-at "^\\([0-9]+\\):" string-to-number match-string 1 re-search-forward "[]] [^ ]" point-at-eol t re-search-backward format "^%d:" speedbar-line-token] 4 (#$ . 4754)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\317\302\322\302\323%\210\300\324\302\325\302\326%\210\300\324\302\327\302\330%\210\300\331\302\332\302\333%\207" [cl-generic-define-method eieio-speedbar-derive-line-path nil ((obj ede-project) &optional depth) #[(obj &optional depth) "\301\302\303\"!\207" [obj file-name-directory eieio-oref file] 4 "Return the path to OBJ.\nOptional DEPTH is the depth we start at."] ((obj ede-target) &optional depth) #[(obj &optional depth) "\303!\212\304 \305\n!\204\n;\203\306	!\202\306	!\307 P+\207" [obj proj lt ede-target-parent speedbar-line-token eieio-object-p eieio-speedbar-derive-line-path ede-find-nearest-file-line] 2 "Return the path to OBJ.\nOptional DEPTH is the depth we start at."] eieio-speedbar-description ((obj ede-project)) #[(obj) "\301!\207" [obj ede-description] 2 "Provide a speedbar description for OBJ."] ((obj ede-target)) #[(obj) "\301!\207" [obj ede-description] 2 "Provide a speedbar description for OBJ."] eieio-speedbar-child-description ((obj ede-target)) #[(obj) "\300 \206\301 \207" [speedbar-item-info-file-helper speedbar-item-info-tag-helper] 1 "Provide a speedbar description for a plain-child of OBJ.\nA plain child is a child element which is not an EIEIO object."] eieio-speedbar-object-buttonname ((object ede-project)) #[(object) "\301!\203\n\302!\207\302!\303\304\305\"Q\207" [object ede-parent-project ede-name " " eieio-oref version] 5 "Return a string to use as a speedbar button for OBJECT."] ((object ede-target)) #[(object) "\301!\207" [object ede-name] 2 "Return a string to use as a speedbar button for OBJECT."] eieio-speedbar-object-children ((this ede-project)) #[(this) "\3021\303\304	\305\"\304	\306\"\")0\207\210\307\207" [this #:object (error) append slot-value subproj targets nil] 5 "Return the list of speedbar display children for THIS."] ((this ede-target)) #[(this) "\301\302\"\207" [this eieio-oref source] 3 "Return the list of speedbar display children for THIS."] eieio-speedbar-child-make-tag-lines ((this ede-target) depth) #[(this depth) "\302\303\304	\305\"\")\207" [this #:object mapcar #[(car) "\302\303\304\305\211\306\307	&	\207" [car depth speedbar-make-tag-line bracket 43 speedbar-tag-file ede-file-find speedbar-file-face] 10] slot-value source] 5 "Create a speedbar tag line for a child of THIS.\nIt has depth DEPTH."]] 6)
#@76 Find the file TEXT at path TOKEN.
INDENT is the current indentation level.
(defalias 'ede-file-find #[(text token indent) "\302\303\304	!\"!\210\305 \207" [token indent speedbar-find-file-in-frame expand-file-name speedbar-line-directory dframe-maybee-jump-to-attached-frame] 5 (#$ . 7663)])
#@60 Create the tag buttons associated with FILENAME at INDENT.
(defalias 'ede-create-tag-buttons #[(filename indent) "\304!\211\204\305\306!\202\307\310S	\311\312$))\207" [filename lst inhibit-read-only indent speedbar-fetch-dynamic-tags speedbar-change-expand-button-char 63 t speedbar-insert-generic-list ede-tag-expand ede-tag-find] 6 (#$ . 7962)])
#@218 Expand a tag sublist.  Imenu will return sub-lists of specialized tag types.
Etags does not support this feature.  TEXT will be the button
string.  TOKEN will be the list, and INDENT is the current indentation
level.
(defalias 'ede-tag-expand #[(text token indent) "\304\305\"\203\306\307!\210\310\212\311\210\312u\210\313\n\314\315$\210*\2025\304\316\"\2031\306\317!\210\320\n!\210\2025\321\322!\210\323 \207" [text inhibit-read-only indent token string-match "\\+" speedbar-change-expand-button-char 45 t nil 1 speedbar-insert-generic-list ede-tag-expand ede-tag-find "-" 43 speedbar-delete-subblock error "Ooops...  not sure what to do" speedbar-center-buffer-smartly] 5 (#$ . 8325)])
#@96 For the tag TEXT in a file TOKEN, goto that position.
INDENT is the current indentation level.
(defalias 'ede-tag-find #[(text token indent) "\302 \303!\210\212\304 \210)	b\210\305\306!\210\307 )\207" [file token ede-find-nearest-file-line speedbar-find-file-in-frame speedbar-stealthy-updates run-hooks speedbar-visiting-tag-hook dframe-maybee-jump-to-attached-frame] 2 (#$ . 9029)])
#@53 Set of menu items to splice into the speedbar menu.
(defvar ede-speedbar-file-menu-additions '("----" ["Create EDE Target" ede-new-target (ede-current-project)] ["Add to project" ede-speedbar-file-add-to-project (ede-current-project)] ["Compile project" ede-speedbar-compile-project (ede-current-project)] ["Compile file target" ede-speedbar-compile-file-target (ede-current-project)] ["Make distribution" ede-make-dist (ede-current-project)]) (#$ . 9422))
#@42 Keymap spliced into the speedbar keymap.
(defvar ede-speedbar-file-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210)\207" [km make-sparse-keymap define-key "a" ede-speedbar-file-add-to-project "t" ede-new-target "s" ede-speedbar "C" ede-speedbar-compile-project "c" ede-speedbar-compile-file-target "d" ede-make-dist] 4) (#$ . 9885))
#@54 Setup some keybindings in the Speedbar File display.
(defalias 'ede-speedbar-file-setup #[nil "\306	\"\307\n\310#\210\f\311\230\205\312
!\205\313\311!\207" [speedbar-easymenu-definition-special ede-speedbar-file-menu-additions speedbar-file-key-map ede-speedbar-file-keymap speedbar-initial-expansion-list-name speedbar-buffer append define-key "." "files" buffer-live-p speedbar-change-initial-expansion-list] 4 (#$ . 10311)])
(provide 'ede/speedbar)