HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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 srecode/ctxt srecode/table srecode/map] 2)
#@125 Return the currently active Semantic Recoder table for this buffer.
Optional argument MODE specifies the mode table to use.
(defalias 'srecode-table #[(&optional mode) "\206	\304\n!\211\204'\n\211\305N\206\306N)\211\203'\304\n!\211\203\204/\304\307!*\207" [mode major-mode modeq table srecode-get-mode-table mode-local-parent derived-mode-parent default] 3 (#$ . 514)])
#@232 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.
(defalias 'srecode-load-tables-for-mode #[(mmode &optional appname) "\306\307!\210\203\310\311\312\313\314 \"\"\202\310\311\312\315\314 \"\"\n\316=\204I\n\211\317N\206-\320N)\203D\321\n\211\317N\206=\320N)\"\210\202I\321\316\"\210	\322\211\205t
@\323\n!\211\203f\324\f@\"\204k\325\f@!\210)
A\211\204Q\322+\207" [appname files mmode mode f --dolist-tail-- require srecode/compile apply append mapcar #[(map) "\303	\n#\207" [map appname mmode srecode-map-entries-for-app-and-mode] 4] srecode-get-maps #[(map) "\302	\"\207" [map mmode srecode-map-entries-for-mode] 3] default mode-local-parent derived-mode-parent srecode-load-tables-for-mode nil srecode-get-mode-table srecode-mode-table-find srecode-compile-file mt] 6 (#$ . 910)])
(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)) #[(tab) "\305\306\"\211\204
\307\202\"\310\n!\311\312	!!\313\314P\f\"\205!\307*)\207" [tab proj default-directory projexp dd eieio-oref :project t expand-file-name regexp-quote directory-file-name string-match "^"] 5 "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."] srecode-template-get-table ((tab srecode-template-table) template-name &optional context application) #[(tab template-name &optional context application) "\304!\205#	\203\305	\306\307\"\"\211\205\305\n\")\207\305\306\310\"\"\207" [tab context ctxth template-name srecode-template-table-in-project-p gethash eieio-oref contexthash namehash] 6 "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."] ((tab srecode-mode-table) template-name &optional context application) #[(tab template-name &optional context application) "\306	\307\"\310\2049\n\2039\306\n@\311\"
\204\f\203)
\2032\f
=\2032\312\n@#\nA)\202	\206Q\306\313\"\314\232?\205Q\312\315\314!
$+\207" [tab mt tabs ans app application eieio-oref :tables nil :application srecode-template-get-table :major-mode default srecode-get-mode-table template-name context] 5 "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."] srecode-template-get-table-for-binding ((tab srecode-template-table) binding &optional context) #[(tab binding &optional context) "\306!\205L\307\310<\203\242\202;\203\202\307\203>\311\f\312\313\"\"\211\203=\314\n
\"\210	\203=\f\315	Q)	\204J\314\n\312\316\"\"\210	+\207" [tab keyout hashfcn context contextstr ctxth srecode-template-table-in-project-p nil #[(key value) "\304\301\"\205\305\301\"\205\305\301\"\306H	U\205\n\211\207" [value binding key keyout slot-boundp eieio-oref 0] 3] gethash eieio-oref contexthash maphash ":" namehash] 6 "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."] ((tab srecode-mode-table) binding &optional context application) #[(tab binding &optional context application) "\306	\307\"\310\2049\n\2039\306\n@\311\"
\204\f\203)
\2032\f
=\2032\312\n@#\nA)\202	\206P\306\313\"\314\232?\205P\312\315\314!#+\207" [tab mt tabs ans app application eieio-oref :tables nil :application srecode-template-get-table-for-binding :major-mode default srecode-get-mode-table binding context] 4 "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."]] 6)
#@50 History for completing reads for template names.
(defvar srecode-read-template-name-history nil (#$ . 5498))
#@148 Non-nil if TEMPLATE is intended for user insertion.
Templates not matching this predicate are used for code
generation or other internal purposes.
(defalias 'srecode-user-template-p #[(template) "\300\207" [t] 1 (#$ . 5614)])
#@244 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.
(defalias 'srecode-all-template-hash #[(&optional mode hash predicate) "\206\306\307\310\"\n\206\211\211\311N\206\n\312N)\n\313=\204+\314
\206(\313	\"\210\315\f!\211\2059\316\317\"\211\320\211\203k@\316\321\"\204b\322!\203b\323\324\316\325\"\"\210A\211\204E*	-\207" [hash mhash mode major-mode mmode parent-mode make-hash-table :test equal mode-local-parent derived-mode-parent default srecode-all-template-hash srecode-get-mode-table eieio-oref :tables nil :application srecode-template-table-in-project-p maphash #[(key temp) "\203\n	!\205\304\n	#\207" [predicate temp key mhash puthash] 4] namehash mt tabs tab --dolist-tail--] 6 (#$ . 5847)])
#@179 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'.
(defalias 'srecode-calculate-default-template-string #[(hash) "\303 \211@\304A@Q\305	\n\"\203	\202@\304P*\207" [ctxt ans hash srecode-calculate-context ":" gethash] 4 (#$ . 6793)])
#@237 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.
(defalias 'srecode-read-template-name #[(prompt &optional initial hist default) "\306!\210\307 \n\206\310	!\311\f	\312\313
\206\314&*\207" [major-mode hash initial def prompt hist srecode-load-tables-for-mode srecode-all-template-hash srecode-calculate-default-template-string completing-read nil t srecode-read-template-name-history] 7 (#$ . 7167)])
(provide 'srecode/find)