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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require srecode/ctxt srecode/table srecode/map srecode/compile] 2)
#@146 Return the currently active Semantic Recoder table for this buffer.
Optional argument MODE specifies the mode table to use.

(fn &optional MODE)
(defalias 'srecode-table #[256 "\211\206\301
!\211\204&
\211\302N\206\211\303N\262
\211\262\203&\301!\262
\202\211\204/\301\304!\262
\207" [major-mode srecode-get-mode-table mode-local-parent derived-mode-parent default] 6 (#$ . 219)])
#@262 Load all the template files for MMODE.
Templates are found in the SRecode Template Map.
See `srecode-get-maps' for more.
APPNAME is the name of an application.  In this case,
all template files for that application will be loaded.

(fn MMODE &optional APPNAME)
(defalias 'srecode-load-tables-for-mode #[513 "\300\301\302\203\303\304#\202\303\305\"\306 \"\"\307=\204G\211\310N\206*\211\311N\262
\203B\312\211\310N\206:\211\311N\262
\"\210\202G\312\307\"\210\211\211\205j\211@\313!\211\203]\314
@\"\204b\315@!\210\210
A\266\202\202H\207" [apply append mapcar make-closure #[257 "\302
\301\300#\207" [V0 V1 srecode-map-entries-for-app-and-mode] 5 "\n\n(fn MAP)"] #[257 "\301
\300\"\207" [V0 srecode-map-entries-for-mode] 4 "\n\n(fn MAP)"] srecode-get-maps default mode-local-parent derived-mode-parent srecode-load-tables-for-mode srecode-get-mode-table srecode-mode-table-find srecode-compile-file] 9 (#$ . 619)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\305\302\310\302\311%\210\300\312\302\313\302\314%\210\300\312\302\315\302\316%\207" [cl-generic-define-method srecode-template-table-in-project-p nil ((tab srecode-template-table)) #[257 "\301
\302\"\211\204\n\303\207\304!\305\306!!\307\310P\"\205\303\207" [default-directory eieio-oref project t expand-file-name regexp-quote directory-file-name string-match "^"] 7 "Return non-nil if the table TAB can be used in the current project.\nIf TAB has a :project set, check that the directories match.\nIf TAB is nil, then always return t.\n\n(fn TAB)"] srecode-template-get-table ((tab srecode-template-table) template-name &optional context _application) #[1026 "\300!\205#
\203\301\302\303\"\"\211\205\301\"\207\301\302\304\"\"\207" [srecode-template-table-in-project-p gethash eieio-oref contexthash namehash] 9 "Find in the template in table TAB, the template with TEMPLATE-NAME.\nOptional argument CONTEXT specifies that the template should part\nof a particular context.\nThe APPLICATION argument is unused.\n\n(fn TAB TEMPLATE-NAME &optional CONTEXT APPLICATION)"] ((tab srecode-mode-table) template-name &optional context application) #[1026 "\300\301\"\302\211\2046
\2036\300@\303\"\204\211\203$\203.\211=\203.\304@#\262A\262\210\202\211\206P\300\305\"\306=?\205P\304\307\306!$\207" [eieio-oref tables nil application srecode-template-get-table major-mode default srecode-get-mode-table] 11 "Find in the template in mode table TAB, the template with TEMPLATE-NAME.\nOptional argument CONTEXT specifies a context a particular template\nwould belong to.\nOptional argument APPLICATION restricts searches to only template tables\nbelonging to a specific application.  If APPLICATION is nil, then only\ntables that do not belong to an application will be searched.\n\n(fn TAB TEMPLATE-NAME &optional CONTEXT APPLICATION)"] srecode-template-get-table-for-binding ((tab srecode-template-table) binding &optional context) #[770 "\300!\205W\301C\302\303#<\203\242\202!;\203 \202!\301\203E\304
\305\306\"\"\211\203D\307\"\210\242\203D\310\242Q\240\210\210\242\204S\307\305\311\"\"\210\242\266\203\207" [srecode-template-table-in-project-p nil make-closure #[514 "\302
\303\"\205\304
\303\"\205\304
\303\"\305H\300U\205\301\240\207" [V0 V1 slot-boundp binding eieio-oref 0] 5 "\n\n(fn KEY VALUE)"] gethash eieio-oref contexthash maphash ":" namehash] 11 "Find in the template name in table TAB, the template with BINDING.\nOptional argument CONTEXT specifies that the template should part\nof a particular context.\n\n(fn TAB BINDING &optional CONTEXT)"] ((tab srecode-mode-table) binding &optional context application) #[1026 "\300\301\"\302\211\2046
\2036\300@\303\"\204\211\203$\203.\211=\203.\304@#\262A\262\210\202\211\206N\300\305\"\306=?\205N\304\307\306!#\207" [eieio-oref tables nil application srecode-template-get-table-for-binding major-mode default srecode-get-mode-table] 11 "Find in the template name in mode table TAB, the template with BINDING.\nOptional argument CONTEXT specifies a context a particular template\nwould belong to.\nOptional argument APPLICATION restricts searches to only template tables\nbelonging to a specific application.  If APPLICATION is nil, then only\ntables that do not belong to an application will be searched.\n\n(fn TAB BINDING &optional CONTEXT APPLICATION)"]] 6)
#@50 History for completing reads for template names.
(defvar srecode-read-template-name-history nil (#$ . 5072))
#@163 Non-nil if TEMPLATE is intended for user insertion.
Templates not matching this predicate are used for code
generation or other internal purposes.

(fn TEMPLATE)
(defalias 'srecode-user-template-p #[257 "\300\207" [t] 2 (#$ . 5188)])
#@280 Create a hash table of all the currently available templates.
Optional argument MODE is the major mode to look for.
Optional argument HASH is the hash table to fill in.
Optional argument PREDICATE can be used to filter the returned
templates.

(fn &optional MODE HASH PREDICATE)
(defalias 'srecode-all-template-hash #[768 "
\206\301\302\303\"\206
\211\211\304N\206\211\305N\262
\306=\204(\307
\206%\306\"\210\310!\211\2053\311
\312\"\211\211\203\\\211@\311
\313\"\204U\314
!\203U\315\316\317\n\n#\311\320\"\"\210
A\266\202\2024\210\207" [major-mode make-hash-table :test equal mode-local-parent derived-mode-parent default srecode-all-template-hash srecode-get-mode-table eieio-oref tables application srecode-template-table-in-project-p maphash make-closure #[514 "\300\203\n\300
!\205\302\301#\207" [V0 V1 puthash] 6 "\n\n(fn KEY TEMP)"] namehash] 15 (#$ . 5429)])
#@190 Calculate the name of the template to use as a DEFAULT.
Templates are read from HASH.
Context into which the template is inserted is calculated
with `srecode-calculate-context'.

(fn HASH)
(defalias 'srecode-calculate-default-template-string #[257 "\300 \211@\301A@Q\302
\"\203\207
@\301P\207" [srecode-calculate-context ":" gethash] 6 (#$ . 6329)])
#@281 Completing read for Semantic Recoder template names.
PROMPT is used to query for the name of the template desired.
INITIAL is the initial string to use.
HIST is a history variable to use.
DEFAULT is what to use if the user presses RET.

(fn PROMPT &optional INITIAL HIST DEFAULT)
(defalias 'srecode-read-template-name #[1025 "\301!\210\302 \206
\303
!\304\305\306	\206\307&\207" [major-mode srecode-load-tables-for-mode srecode-all-template-hash srecode-calculate-default-template-string completing-read nil t srecode-read-template-name-history] 13 (#$ . 6690)])
(provide 'srecode/find)