Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/chart.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!\210\300\304!\210\300\305!\207" [require chart semantic/db semantic/find semantic/db-typecache semantic/scope] 2)
#@287 Create a bar chart representing the number of tags for a given tag class.
Each bar represents how many toplevel tags in TAGTABLE
exist with a given class. See `semantic-symbol->name-assoc-list'
for tokens which will be charted.
TAGTABLE is passed to `semantic-something-to-tag-table'.
(defalias 'semantic-chart-tags-by-class #[(&optional tagtable) "\305\206 p!\306\307\n\"\306\310\n\" \311\312\313 \314\f\315&+\207" [tagtable stream semantic-symbol->name-assoc-list names nums semantic-something-to-tag-table mapcar cdr #[(symname) "\301\302\303\211$G\207" [stream semantic-brute-find-tag-by-function #[(tag) "@ \211A@)=\207" [symname tag] 3] nil] 5] chart-bar-quickie vertical "Semantic Toplevel Tag Volume" "Tag Class" "Volume"] 7 (#$ . 570) nil])
#@212 Create a bar chart representing the size of each file in semanticdb.
Each bar represents how many toplevel tags in TAGTABLE
exist in each database entry.
TAGTABLE is passed to `semantic-something-to-tag-table'.
(defalias 'semantic-chart-database-size #[(&optional tagtable) "\306\307!\203 \307 \204 \310\311!\210\312 !\313\314\315\316\n\"\"\313\317\n\" \320 \321 \322Z\323\245 \324\f\325\"\313\326\f\"\313\314\f\" G V\203Q \233\320\241\210
\233\320\241\210\327\330\331 \332
\333&.\207" [semanticdb-current-database db dbt names numnuts nums fboundp semanticdb-minor-mode-p error "Semanticdb is not enabled" semanticdb-get-database-tables mapcar car object-assoc-list file #[(dba) "\302\303\"\203 \304\303\"G\202 \305 @B A\207" [dba names slot-boundp tags eieio-oref 1] 3] nil frame-height 7 4 sort #[(a b) "@ @V\207" [a b] 2] cdr chart-bar-quickie horizontal "Semantic DB Toplevel Tag Volume" "File" "Volume" fh] 7 (#$ . 1336) nil])
#@42 Calculate the `complexity' of token TOK.
(defalias 'semantic-chart-token-complexity #[(tok) "\303\211\304 8)\305\n!\203 \306\n!\202 \n\307H*\211\304 8)\305\n!\203/ \310\n!\2022 \n\311H*\"\207" [tok tag o count-lines 4 overlayp overlay-end 1 overlay-start 0] 5 (#$ . 2299)])
#@267 Create a bar chart representing the complexity of some tags.
Complexity is calculated for tags of CLASS. Each bar represents
the complexity of some tag in TAGTABLE. Only the most complex
items are charted. TAGTABLE is passed to
`semantic-something-to-tag-table'.
(defalias 'semantic-chart-tag-complexity #[(&optional class tagtable) "?\205 \306\307\211\n\206 p!!\310\211 \203/ \f@\211 A@)=\203( \f@ B\fA\211\204 \237* \311 @!\203F \312\313 @!!\202G \314 \315\316 \" \317\306 \"A \310\211 ! \"\320 \321\"\211 \203\225 !G\322 \323Z\324\245X\203\225 @@\211 @)!B! @A\"B\" A\211 \204i \325\326\327\330\331\332 !! #! \"\333&.\207" [class sym tagtable result tags tag function semantic-something-to-tag-table nil semantic-tag-with-position-p buffer-name semantic-tag-buffer "" mapcar #[(tok) "\301!B\207" [tok semantic-chart-token-complexity] 3] assoc sort #[(a b) "A AV\207" [a b] 2] frame-height 7 4 chart-bar-quickie horizontal format "%s Complexity in %s" capitalize symbol-name "Complexity (Lines of code)" stream name cplx semantic-symbol->name-assoc-list namelabel names nums] 8 (#$ . 2590) nil])
#@43 Chart the extent of the context analysis.
(defalias 'semantic-chart-analyzer #[nil "\306\307\211\"\211G\n\310 ! \311\f\312\"G\311\f\313\"G\\ \314 \311\315\"G \311\316\"G \317\320\321\322\323 \"\324\325
F\326&.\207" [p plen semanticdb-current-table tab tc tclen semanticdb-find-translate-path nil semanticdb-get-typecache eieio-oref filestream includestream semantic-calculate-scope fullscope localvar chart-bar-quickie vertical format "Analyzer Overhead in %s" buffer-name ("includes" "typecache" "scopelen" "localvar") "Overhead Entries" "Number of tags" scope fslen lvarlen] 10 (#$ . 3735) nil])
(provide 'semantic/chart)
Mini Shell