;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require semantic/db semantic/db-find] 2)
#@116 Hard-coded list of javascript tags for semanticdb.
See bottom of this file for instructions on managing this list.
(defvar semanticdb-javascript-tags '(("eval" function (:arguments (("x" variable nil nil nil))) nil nil) ("parseInt" function (:arguments (("string" variable nil nil nil) ("radix" variable nil nil nil))) nil nil) ("parseFloat" function (:arguments (("string" variable nil nil nil))) nil nil) ("isNaN" function (:arguments (("number" variable nil nil nil))) nil nil) ("isFinite" function (:arguments (("number" variable nil nil nil))) nil nil) ("decodeURI" function (:arguments (("encodedURI" variable nil nil nil))) nil nil) ("decodeURIComponent" function (:arguments (("encodedURIComponent" variable nil nil nil))) nil nil) ("encodeURI" function (:arguments (("uri" variable nil nil nil))) nil nil) ("encodeURIComponent" function (:arguments (("uriComponent" variable nil nil nil))) nil nil)) (#$ . 167))
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semanticdb-table-javascript-p eieio-make-class-predicate semanticdb-table-javascript semanticdb-table-javascript--eieio-childp eieio-make-child-predicate semanticdb-table-javascript-child-p make-obsolete "use (cl-typep ... \\='semanticdb-table-javascript) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-search-results-table) ((major-mode :initform #'javascript-mode)) (:documentation "A table for returning search results from javascript.")] 6)
#@84 Create a new object of class type `semanticdb-table-javascript'.

(fn &rest SLOTS)
(defalias 'semanticdb-table-javascript #[128 "\300\301\302#\207" [apply make-instance semanticdb-table-javascript] 5 (#$ . 1735)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-table-javascript compiler-macro semanticdb-table-javascript--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-table-javascript--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 2097)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semanticdb-project-database-javascript-p eieio-make-class-predicate semanticdb-project-database-javascript semanticdb-project-database-javascript--eieio-childp eieio-make-child-predicate semanticdb-project-database-javascript-child-p make-obsolete "use (cl-typep ... \\='semanticdb-project-database-javascript) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-singleton) ((new-table-class :initform 'semanticdb-table-javascript :type class :documentation "New tables created for this database are of this class.")) (:documentation "Database representing javascript.")] 6)
#@95 Create a new object of class type
`semanticdb-project-database-javascript'.

(fn &rest SLOTS)
(defalias 'semanticdb-project-database-javascript #[128 "\300\301\302#\207" [apply make-instance semanticdb-project-database-javascript] 5 (#$ . 3131)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-project-database-javascript compiler-macro semanticdb-project-database-javascript--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-project-database-javascript--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3548)])
(byte-code "\303 C\304\305BC\306\307#\210\310\311\312\"\307\"\266\313\305\307\314!\315\2044\211\262\2044	\262\n\2052\316\n\"\262
\203_\211\204_\302N\203N\316\302N\"\211\262\2044\211\317N\206X\211\320N\262
\262\2024\266\203\321\322#\210\323\304\324BC\306\307#\210\310\311\325\"\307\"\266\313\324\307\314!\315\204\227\211\262\204\227	\262\n\205\225\316\n\"\262
\203\302\211\204\302\302N\203\261\316\302N\"\211\262\204\227\211\317N\206\273\211\320N\262
\262\202\227\266\203\321\326#\210\327\330\315\331\332\333%\210\327\334\315\335\315\336%\210\327\337\315\340\315\341%\210\327\342\315\343\315\344%\207" [mode-local-active-mode major-mode mode-local-symbol-table semanticdb-project-database-javascript mode-local-bind semanticdb-project-system-databases (mode-variable-flag t) javascript-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semanticdb-project-system-databases make-local-variable] 2] put symbol-name nil intern-soft mode-local-parent derived-mode-parent variable-documentation "Search javascript for symbols." (project omniscience) semanticdb-find-default-throttle #[0 "\302\301!\210\300\211\207" [V0 semanticdb-find-default-throttle make-local-variable] 2] "Search project files, then search this omniscience database.\nIt is not necessary to do system or recursive searching because of\nthe omniscience database." cl-generic-define-method semanticdb-get-database-tables ((obj semanticdb-project-database-javascript)) t #[514 "\300
\301\"\204\302 \303\301C#\210\303
\304#\210\303
\305\306#\266
 \207" [slot-boundp tables semanticdb-table-javascript eieio-oset parent-db tags nil] 7 "For a javascript database, there are no explicit tables.\nCreate one of our special tables that can act as an intermediary.\n\n(fn CL--CNM OBJ)"] semanticdb-file-table ((obj semanticdb-project-database-javascript) _filename) #[514 "\300!@\207" [semanticdb-get-database-tables] 4 "From OBJ, return FILENAME's associated table object.\n\n(fn OBJ FILENAME)"] semanticdb-get-tags ((_table semanticdb-table-javascript)) #[257 "\207" [semanticdb-javascript-tags] 2 "Return the list of tags belonging to TABLE.\n\n(fn TABLE)"] semanticdb-equivalent-mode ((_table semanticdb-table-javascript) &optional buffer) #[513 "r\211q\210\206		)\302=\207" [mode-local-active-mode major-mode javascript-mode] 4 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable.\n\n(fn TABLE &optional BUFFER)"]] 9)
#@270 Return a list of semanticdb tables associated with PATH.
If brutish, do the default action.
If not brutish, do the default action, and append the system
database (if available.)
Override `semanticdb-find-translate-path' in `javascript-mode'
buffers.

(fn PATH BRUTISH)
(defalias 'semanticdb-find-translate-path-javascript-mode #[514 "\302\303\")
\204\204\207\304\305\306\307	\"\"\305\"\207" [semanticdb-search-system-databases semanticdb-project-system-databases nil semanticdb-find-translate-path-default apply append mapcar #[257 "\300
!\207" [semanticdb-get-database-tables] 3 "\n\n(fn DB)"]] 8 (#$ . 6370)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semanticdb-find-translate-path-javascript-mode definition-name semanticdb-find-translate-path mode-local-bind ((semanticdb-find-translate-path . semanticdb-find-translate-path-javascript-mode)) (override-flag t) javascript-mode] 4)
#@70 Search for REGEXP in our fixed list of javascript tags.

(fn REGEXP)
(defalias 'semanticdb-javascript-regexp-search #[257 "\301
\203\302@@\"\203
@
B\262

A\262\202\207" [semanticdb-javascript-tags nil string-match] 6 (#$ . 7291)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\304\313%\210\300\314\302\315\304\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\304\332%\207" [cl-generic-define-method semanticdb-find-tags-by-name-method nil ((_table semanticdb-table-javascript) name &optional tags) t #[1027 "\211\203 \207\301\"\207" [semanticdb-javascript-tags assoc-string] 7 "Find all tags named NAME in TABLE.\nReturn a list of tags.\n\n(fn CL--CNM TABLE NAME &optional TAGS)"] semanticdb-find-tags-by-name-regexp-method ((_table semanticdb-table-javascript) regex &optional tags) #[1027 "\211\203 \207\300!\207" [semanticdb-javascript-regexp-search] 6 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags.\n\n(fn CL--CNM TABLE REGEX &optional TAGS)"] semanticdb-find-tags-for-completion-method ((_table semanticdb-table-javascript) prefix &optional tags) #[1027 "\211\203 \207\300\301\302Q!\207" [semanticdb-javascript-regexp-search "^" ".*"] 8 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags.\n\n(fn CL--CNM TABLE PREFIX &optional TAGS)"] semanticdb-find-tags-by-class-method ((_table semanticdb-table-javascript) _class &optional tags) #[1027 "\211\205 \207" #1=[] 5 "In TABLE, find all occurrences of tags of CLASS.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags.\n\n(fn CL--CNM TABLE CLASS &optional TAGS)"] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-javascript) name &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-method] 7 "Find all tags name NAME in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for javascript.\n\n(fn TABLE NAME &optional TAGS)"] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-javascript) regex &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-regexp-method] 7 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for javascript.\n\n(fn TABLE REGEX &optional TAGS)"] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-javascript) prefix &optional tags) #[770 "\300#\207" [semanticdb-find-tags-for-completion-method] 7 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-for-completion-method' for javascript.\n\n(fn TABLE PREFIX &optional TAGS)"] semanticdb-find-tags-external-children-of-type-method ((_table semanticdb-table-javascript) _type &optional tags) #[1027 "\211\205 \207" #1# 5 "Find all nonterminals which are child elements of TYPE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags.\n\n(fn CL--CNM TABLE TYPE &optional TAGS)"]] 6)
#@58 Strip TAGS from overlays and reparse symbols.

(fn TAGS)
(defalias 'semanticdb-javascript-strip-tags #[257 "\211:\203\211@\300=\203\301\207\302
!\203\301\207\211:\204\207\303
@!\303A!B\207" [reparse-symbol nil overlayp semanticdb-javascript-strip-tags] 4 (#$ . 10598)])
(provide 'semantic/db-javascript)