;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/speedbar.el
;;; in Emacs version 24.3.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!\210\300\303!\207" [require speedbar eieio-speedbar ede] 2)
#@49 A Generic object based speedbar display keymap.
(defvar ede-speedbar-key-map nil (#$ . 655))
#@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 (#$ . 754)])
#@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))]) (#$ . 1456))
(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 (#$ . 2478) 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 (#$ . 2723)])
#@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 (#$ . 2938) nil])
#@51 Compile/Build the project or target on this line.
(defalias 'ede-speedbar-compile-line #[nil "\303 \304\305\306\217\205'\307	\"\203\310!\202'\307\n\"\203$\311!\202'\312\313!)\207" [obj ede-project ede-target eieio-speedbar-find-nearest-object nil (byte-code "\211\302H\303=\205\304\305\306\217)\207" [obj tobj 0 object nil (byte-code "	H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error)) obj-of-class-p project-compile-project project-compile-target error "Error in speedbar structure"] 3 (#$ . 3150) nil])
#@40 Return a project object for this line.
(defalias 'ede-speedbar-get-top-project-for-line #[nil "\303 \304\305\306\217\204\307\310!\202)\311	\"\203\312!\311\n\"\203&\202)\307\310!)\207" [obj ede-target ede-project eieio-speedbar-find-nearest-object nil (byte-code "\211\302H\303=\205\304\305\306\217)\207" [obj tobj 0 object nil (byte-code "	H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error)) error "Error in speedbar or ede structure" obj-of-class-p ede-target-parent] 3 (#$ . 3730) 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 (#$ . 4294) 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 (#$ . 4495) 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 (#$ . 4901) 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 (#$ . 5092) 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 (#$ . 5289)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\303\"\"\210\304\301\305\310\311$\210\300\312\302\312\313\"\"\210\304\312\305\306\314$\210\300\312\302\312\313\"\"\210\304\312\305\310\315$\210\300\316\302\316\317\"\"\210\304\316\305\310\320$\210\300\321\302\321\322\"\"\210\304\321\305\306\323$\210\300\321\302\321\322\"\"\210\304\321\305\310\324$\210\300\325\302\325\326\"\"\210\304\325\305\306\327$\210\300\325\302\325\326\"\"\210\304\325\305\310\330$\210\300\331\302\331\332\"\"\210\304\331\305\310\333$\207" [eieio--defalias eieio-speedbar-derive-line-path eieio--defgeneric-init-form #1="Return the path to OBJ.\nOptional DEPTH is the depth we start at." eieio--defmethod nil ede-project #[(obj &optional depth) "\301\302\303\"!\207" [obj file-name-directory eieio-oref file] 4 #1#] ede-target #[(obj &optional depth) "\303!\212\304 \305\306\307\217\204\n;\203\310	!\202 \310	!\311 P+\207" [obj proj lt ede-target-parent speedbar-line-token nil (byte-code "\211\302H\303=\205\304\305\306\217)\207" [lt tobj 0 object nil (byte-code "	H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error)) eieio-speedbar-derive-line-path ede-find-nearest-file-line] 3 "Return the path to OBJ.\nOptional DEPTH is the depth we start at."] eieio-speedbar-description #2="Provide a speedbar description for OBJ." #[(obj) "\301!\207" [obj ede-description] 2 #2#] #[(obj) "\301!\207" [obj ede-description] 2 "Provide a speedbar description for OBJ."] eieio-speedbar-child-description #3="Provide a speedbar description for a plain-child of OBJ.\nA plain child is a child element which is not an EIEIO object." #[(obj) "\300 \206\301 \207" [speedbar-item-info-file-helper speedbar-item-info-tag-helper] 1 #3#] eieio-speedbar-object-buttonname #4="Return a string to use as a speedbar button for OBJECT." #[(object) "\301!\203\n\302!\207\302!\303\304\305\"Q\207" [object ede-parent-project ede-name " " eieio-oref version] 5 #4#] #[(object) "\301!\207" [object ede-name] 2 "Return a string to use as a speedbar button for OBJECT."] eieio-speedbar-object-children #5="Return the list of speedbar display children for THIS." #[(this) "\300\301\302\217\207" [nil (byte-code "\301\302\303\"\302\304\"\"\207" [this append slot-value subproj targets] 5) ((error))] 3 #5#] #[(this) "\301\302\"\207" [this eieio-oref source] 3 "Return the list of speedbar display children for THIS."] eieio-speedbar-child-make-tag-lines #6="Create a speedbar tag line for a child of THIS.\nIt has depth DEPTH." #[(this depth) "\301\302\303\304\"\"\207" [this 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 #6#]] 5)
#@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 speedbar-maybee-jump-to-attached-frame] 5 (#$ . 8489)])
#@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 (#$ . 8790)])
#@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 (#$ . 9153)])
#@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 speedbar-maybee-jump-to-attached-frame] 2 (#$ . 9855)])
#@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)]) (#$ . 10250))
#@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) (#$ . 10714))
#@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 (#$ . 11141)])
(provide 'ede/speedbar)