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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\207" [require eieio cl-generic srecode srecode/table srecode/fields defalias srecode-dictionary-p eieio-make-class-predicate srecode-dictionary srecode-dictionary--eieio-childp eieio-make-child-predicate srecode-dictionary-child-p make-obsolete "use (cl-typep ... \\='srecode-dictionary) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((namehash :initarg :namehash :documentation "Hash table containing the names of all the templates.") (buffer :initarg :buffer :documentation "The buffer this dictionary was initialized with.") (parent :initarg :parent :type (or null srecode-dictionary) :documentation "The parent dictionary.\nSymbols not appearing in this dictionary will be checked against the\nparent dictionary.") (origin :initarg :origin :type string :documentation "A string representing the origin of this dictionary.\nUseful only while debugging.")) (:documentation "Dictionary of symbols and what they mean.\nDictionaries are used to look up named symbols from\ntemplates to decide what to do with those symbols.")] 6)
#@75 Create a new object of class type `srecode-dictionary'.

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

(fn WHOLE &rest SLOTS)
(defalias 'srecode-dictionary--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 (#$ . 1669)])
(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\211\316$\207" [defalias srecode-dictionary-compound-value-p eieio-make-class-predicate srecode-dictionary-compound-value srecode-dictionary-compound-value--eieio-childp eieio-make-child-predicate srecode-dictionary-compound-value-child-p make-obsolete "use (cl-typep ... \\='srecode-dictionary-compound-value) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil (:documentation "A compound dictionary value.\nValues stored in a dictionary must be a STRING,\na dictionary for showing sections, or an instance of a subclass\nof this class.\n\nCompound dictionary values derive from this class, and must\nprovide a sequence of method implementations to convert into\na string." :abstract t)] 6)
#@91 You cannot create a new object of type `srecode-dictionary-compound-value'.

(fn &rest _)
(defalias 'srecode-dictionary-compound-value #[128 "\300\301!\207" [error "Class srecode-dictionary-compound-value is abstract"] 3 (#$ . 2756)])
(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 srecode-dictionary-compound-variable-p eieio-make-class-predicate srecode-dictionary-compound-variable srecode-dictionary-compound-variable--eieio-childp eieio-make-child-predicate srecode-dictionary-compound-variable-child-p make-obsolete "use (cl-typep ... \\='srecode-dictionary-compound-variable) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (srecode-dictionary-compound-value) ((value :initarg :value :documentation "The value of this template variable.\nVariables in template files are usually a single string\nwhich can be inserted into a dictionary directly.\n\nSome variables may be more complex and involve dictionary\nlookups, strings, concatenation, or the like.\n\nThe format of VALUE is determined by current template\nformatting rules.") (compiled :initarg :compiled :type list :documentation "The compiled version of VALUE.")) (:documentation "A compound dictionary value for template file variables.\nYou can declare a variable in a template like this:\n\nset NAME \"str\" macro \"OTHERNAME\"\n\nwith appending various parts together in a list.")] 6)
#@93 Create a new object of class type
`srecode-dictionary-compound-variable'.

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

(fn WHOLE &rest SLOTS)
(defalias 'srecode-dictionary-compound-variable--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 (#$ . 4658)])
(cl-generic-define-method 'initialize-instance nil '((this srecode-dictionary-compound-variable) &optional fields) t #[770 "\300\211\203'@\301=\203A@\262
\202A@@BB\262AA\262\202\237\"\210\302\303\"?\205\304\305\"\300
\203v
@\211;\203M\211B\266\202\202o\211<\203i\211@\306=\203i\307\310!\210\311
A\"B\266\202\202o\312\313\"\266
A\262\202:\314\303\237#\266\202\207" [nil :state slot-boundp compiled eieio-oref value macro require srecode/compile srecode-compile-parse-inserter error "Don't know how to handle variable value %S" eieio-oset] 11 "Initialize the compound variable THIS.\nMakes sure that :value is compiled.\n\n(fn CL--CNM THIS &optional FIELDS)"])
#@499 Create a dictionary for BUFFER-OR-PARENT.
If BUFFER-OR-PARENT is not specified, assume a buffer, and
use the current buffer.
If BUFFER-OR-PARENT is another dictionary, then remember the
parent within the new dictionary, and assume that BUFFER
is the same as belongs to the parent dictionary.
The dictionary is initialized with variables setup for that
buffer's table.
If BUFFER-OR-PARENT is t, then this dictionary should not be
associated with a buffer or parent.

(fn &optional BUFFER-OR-PARENT)
(defalias 'srecode-create-dictionary #[256 "\212\301\211\211\211\302!\203q\210\262\303!\262\304\262
\202c\305!\203G\262\306\307\"\262\310!\311\2039\303!\202:\312Q\262\203cq\210\202c\304=\203V\301\262\313\262\202cp\262\314\303!P\262\304\262
\315\316\317\320\321\322\323\324\325\326$\327\n&	
\203\213\330!\330\331!\332\"\210\332\"\266\211\262
\266\204)\207" [major-mode nil bufferp buffer-name t srecode-dictionary--eieio-childp eieio-oref buffer eieio-object-name " in " "no buffer" "Unspecified Origin" "Unspecified.  Assume " make-instance srecode-dictionary :buffer :parent :namehash make-hash-table :test equal :size 20 :origin srecode-get-mode-table default srecode-dictionary-add-template-table] 17 (#$ . 5611)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\210\300\335\302\336\302\337%\210\300\340\302\341\302\342%\210\300\335\302\343\302\344%\210\300\340\302\345\302\346%\210\347\350\351\352!\"\210\347\353\354\352!\"\210\347\355\353\"\210\356\355\357\360#\210\361\352\362\353#\363\352\364\365\366$\207" [cl-generic-define-method srecode-dictionary-add-template-table nil ((dict srecode-dictionary) tpl) #[514 "\211\205=\300\301\302\"!\303\304!\210\211\205;\305
@!\2034\301
@\306\"\211\2033\307@@@A#\210\211A\262
\202\210\211A\262
\202\262
\207" [reverse eieio-oref tables require srecode/find srecode-template-table-in-project-p variables srecode-dictionary-set-value] 8 "Insert into DICT the variables found in table TPL.\nTPL is an object representing a compiled template file.\n\n(fn DICT TPL)"] srecode-dictionary-set-value ((dict srecode-dictionary) name value) #[771 "
;\204\f\300\301\302D\"\210\303\304\305\"#\207" [signal wrong-type-argument stringp puthash slot-value namehash] 9 "In dictionary DICT, set NAME to have VALUE.\n\n(fn DICT NAME VALUE)"] srecode-dictionary-add-section-dictionary ((dict srecode-dictionary) name &optional show-only force) #[1026 ";\204\f\300\301\302D\"\210\303!\304\305#\204B\211\204)\306\307\"\210\306\310\"\210\202B\311
!@\312
\310\"\210\306
\313\"\266\306\314\"\210\306\310\"\210\204N\203N\211\204[\315\316C\"#\210
\207" [signal wrong-type-argument stringp srecode-create-dictionary srecode-dictionary-lookup-name t srecode-dictionary-show-section "FIRST" "LAST" last srecode-dictionary-hide-section "NOTLAST" "NOTFIRST" srecode-dictionary-set-value append] 12 "In dictionary DICT, add a section dictionary for section macro NAME.\nReturn the new dictionary.\n\nYou can add several dictionaries to the same section entry.\nFor each dictionary added to a variable, the block of codes in\nthe template will be repeated.\n\nIf optional argument SHOW-ONLY is non-nil, then don't add a new dictionary\nif there is already one in place.  Also, don't add FIRST/LAST entries.\nThese entries are not needed when we are just showing a section.\n\nEach dictionary added will automatically get values for positional macros\nwhich will enable SECTIONS to be enabled.\n\n * FIRST - The first entry in the table.\n * NOTFIRST - Not the first entry in the table.\n * LAST - The last entry in the table\n * NOTLAST - Not the last entry in the table.\n\nAdding a new dictionary will alter these values in previously\ninserted dictionaries.\n\n(fn DICT NAME &optional SHOW-ONLY FORCE)"] srecode-dictionary-show-section ((dict srecode-dictionary) name) #[514 "\211;\204\f\300\301\302D\"\210\303\304#\210\305\207" [signal wrong-type-argument stringp srecode-dictionary-add-section-dictionary t nil] 6 "In dictionary DICT, indicate that the section NAME should be exposed.\n\n(fn DICT NAME)"] srecode-dictionary-hide-section ((dict srecode-dictionary) name) #[514 "\211;\204\f\300\301\302D\"\210\303
\304\305\"\"\210\306\207" [signal wrong-type-argument stringp remhash slot-value namehash nil] 7 "In dictionary DICT, indicate that the section NAME should be hidden.\n\n(fn DICT NAME)"] srecode-dictionary-add-entries ((dict srecode-dictionary) entries &optional state) #[770 "
\203Z
@A@\211\300=\203\301\"\266\202R\211;\203'\302#\266\202R\303
!\203;\304\305\"\300#\266\202R\204C\306\307!\210\302\310\311\312\n%#\266
AA\262\202\207" [t srecode-dictionary-show-section srecode-dictionary-set-value srecode-dictionary--eieio-childp srecode-dictionary-merge srecode-dictionary-add-section-dictionary error "Cannot insert compound values without state" srecode-dictionary-compound-variable :value :state] 14 "Add ENTRIES to DICT.\n\nENTRIES is a list of even length of dictionary entries to add.\nENTRIES looks like this:\n\n  (NAME_1 VALUE_1 NAME_2 VALUE_2 ...)\n\nThe following rules apply:\n * NAME_N is a string\nand for values\n * If VALUE_N is t, the section NAME_N is shown.\n * If VALUE_N is a string, an ordinary value is inserted.\n * If VALUE_N is a dictionary, it is inserted as entry NAME_N.\n * Otherwise, a compound variable is created for VALUE_N.\n\nThe optional argument STATE has to non-nil when compound values\nare inserted.  An error is signaled if ENTRIES contains compound\nvalues but STATE is nil.\n\n(fn DICT ENTRIES &optional STATE)"] srecode-dictionary-merge ((dict srecode-dictionary) otherdict &optional force) #[770 "
\205\300\301\302#\303\304\"\"\207" [maphash make-closure #[514 "\301\204
\302\300\303#?\2059\211<\2034\304
@!\2034\211\211\2053\211@\305\306\300\303\211$\301#\210
A\266\202\202\207\307\300#\207" [V0 V1 srecode-dictionary-lookup-name t srecode-dictionary-p srecode-dictionary-merge srecode-dictionary-add-section-dictionary srecode-dictionary-set-value] 10 "\n\n(fn KEY ENTRY)"] eieio-oref namehash] 8 "Merge into DICT the dictionary entries from OTHERDICT.\nUnless the optional argument FORCE is non-nil, values in DICT are\nnot modified, even if there are values of the same names in\nOTHERDICT.\n\n(fn DICT OTHERDICT &optional FORCE)"] srecode-dictionary-lookup-name ((dict srecode-dictionary) name &optional non-recursive) #[770 "\300\301\"\205+\302\303\301\"\"\206+\211?\205+
\304\235?\205+\303\305\"\205+\306\303\305\"\"\207" [slot-boundp namehash gethash slot-value ("FIRST" "LAST" "NOTFIRST" "NOTLAST") parent srecode-dictionary-lookup-name] 8 "Return information about DICT's value for NAME.\nDICT is a dictionary, and NAME is a string that is treated as the\nname of an entry in the dictionary.  If such an entry exists, its\nvalue is returned.  Otherwise, nil is returned.  Normally, the\nlookup is recursive in the sense that the parent of DICT is\nsearched for NAME if it is not found in DICT.  This recursive\nlookup can be disabled by the optional argument NON-RECURSIVE.\n\nThis function derives values for some special NAMEs, such as\n`FIRST' and `LAST'.\n\n(fn DICT NAME &optional NON-RECURSIVE)"] srecode-root-dictionary ((dict srecode-dictionary)) #[257 "\211\300
\301\"\203\300
\301\"\262
\202
\207" [eieio-oref parent] 5 "For dictionary DICT, return the root dictionary.\nThe root dictionary is usually for a current or active insertion.\n\n(fn DICT)"] srecode-compound-toString ((cp srecode-dictionary-compound-value) _function _dictionary) #[771 "\300!\207" [eieio-object-name] 5 "Convert the compound dictionary value CP to a string.\nIf FUNCTION is non-nil, then FUNCTION is somehow applied to an aspect\nof the compound value.  The FUNCTION could be a fraction\nof some function symbol with a logical prefix excluded.\n\nIf you subclass `srecode-dictionary-compound-value' then this\nmethod could return nil, but if it does that, it must insert\nthe value itself using `princ', or by detecting if the current\nstandard out is a buffer, and using `insert'.\n\n(fn CP FUNCTION DICTIONARY)"] srecode-dump ((cp srecode-dictionary-compound-value) &optional _indent) #[513 "\300\301!!\207" [princ eieio-object-name] 5 "Display information about this compound value.\n\n(fn CP &optional INDENT)"] ((cp srecode-dictionary-compound-variable) _function dictionary) #[771 "\300\301!\210\302\303\304\"\"\207" [require srecode/insert srecode-insert-code-stream eieio-oref compiled] 7 "Convert the compound dictionary variable value CP into a string.\nFUNCTION and DICTIONARY are as for the baseclass.\n\n(fn CP FUNCTION DICTIONARY)"] ((cp srecode-dictionary-compound-variable) &optional indent) #[513 "\300\301!\210\302\303!\210\304
\206\305\\\306\307\"\310
\311\312\"\"\207" [require srecode/compile princ "# Compound Variable #\n" 4 0 eieio-oref compiled srecode-dump-code-list make-string 32] 9 "Display information about this compound value.\n\n(fn CP &optional INDENT)"] defalias srecode-field-value-p eieio-make-class-predicate srecode-field-value srecode-field-value--eieio-childp eieio-make-child-predicate srecode-field-value-child-p make-obsolete "use (cl-typep ... \\='srecode-field-value) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (srecode-dictionary-compound-value) ((firstinserter :initarg :firstinserter :documentation "The inserter object for the first occurrence of this field.") (defaultvalue :initarg :defaultvalue :documentation "The default value for this inserter.")) (:documentation "When inserting values with editable field mode, a dictionary value.\nCompound values allow a field to be stored in the dictionary for when\nit is referenced a second time.  This compound value can then be\ninserted with a new editable field.")] 6)
#@76 Create a new object of class type `srecode-field-value'.

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

(fn WHOLE &rest SLOTS)
(defalias 'srecode-field-value--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 (#$ . 16012)])
(cl-generic-define-method 'srecode-compound-toString nil '((cp srecode-field-value) function dictionary) nil #[771 "\301!\204\n\302\303!\210
\203\302\304!\210\202w\305\306\"\305\307\"`\305\310\"\204,\211c\210\202^\311!\203=\312#\210\202^;\203N\313\230\203N\211c\210\202^;\203Yc\210\202^\302\314\"\210\315
\316\317\320`\321\305\f\322\"\323\305\324\"&\266\325\207" [standard-output bufferp error "FIELDS invoked while inserting template to non-buffer" "@todo: Cannot mix field insertion with functions" eieio-oref defaultvalue firstinserter object-name srecode-dictionary-compound-value--eieio-childp srecode-compound-toString "" "Unknown default value for value %S" srecode-field :name :start :end :prompt prompt :read-fcn read-fcn nil] 21 "Convert this field into an insertable string.\n\n(fn CP FUNCTION DICTIONARY)"])
#@506 Create a dictionary with entries according to TAGS.

TAGS should be in the format produced by the template file
grammar.  That is

TAGS = (ENTRY_1 ENTRY_2 ...)

where

ENTRY_N = (NAME ENTRY_N_1 ENTRY_N_2 ...) | TAG

where TAG is a semantic tag of class `variable'.  The (NAME ... )
form creates a child dictionary which is stored under the name
NAME.  The TAG form creates a value entry or section dictionary
entry whose name is the name of the tag.

STATE is the current compiler state.

(fn TAGS STATE)
(defalias 'srecode-create-dictionaries-from-tags #[514 "\300\301!\302\303\304\305\306\"\"\"\307#\210
\207" [srecode-create-dictionary t apply append mapcar make-closure #[257 "\211\3011.\211:\205(\211@;\205(\211A@9\205(\211A@\205(\302
8<\205(\303
8<0\262
\2022\210\304\262
\203c\211\211@\262

\211\305\306\302
8\262
\"\266\203

<\203`
G\307U\203`
@;\203`
@\202a
D\207\211@
A
\310\300\"D\207" [V0 (error) 2 3 nil :default-value plist-get 1 srecode-create-dictionaries-from-tags] 9 "\n\n(fn ENTRY)"] srecode-dictionary-add-entries] 9 (#$ . 17108)])
#@43 Run data-debug on this mode's dictionary.
(defalias 'srecode-adebug-dictionary #[0 "\301\302!\210\301\303!\210\304 \305!\210\306!\204\307\310\"\210\311\312p!\313\314\311\315\316\"!\266\202\"\210\317\320!\210\321
\322\"\207" [major-mode require eieio-datadebug srecode/find current-time srecode-load-tables-for-mode srecode-get-mode-table error "No table found for mode %S" nil srecode-create-dictionary message "Creating a dictionary took %.2f seconds." float-time time-subtract data-debug-new-buffer "*SRECODE ADEBUG*" data-debug-insert-object-slots "*"] 12 (#$ . 18188) nil])
#@39 Dump a typical fabricated dictionary.
(defalias 'srecode-dictionary-dump #[0 "\306\307!\210\310
!\210\311
!\211\204\312\313\"\210\314p!	r\315\316!q\210p\317 \210
\320\211\321\211\321\322 \210\323\324!\210+\211\325\326!\210\325!\210\325\327!\210\330!\331!\210)\207" [major-mode default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks require srecode/find srecode-load-tables-for-mode srecode-get-mode-table error "No table found for mode %S" srecode-create-dictionary get-buffer-create "*SRECODE DUMP*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "DICTIONARY FOR " "\n--------------------------------------------\n" srecode-dump internal-temp-output-buffer-show inhibit-read-only standard-output] 9 (#$ . 18781) nil])
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method srecode-dump nil ((dict srecode-dictionary) &optional indent) #[513 "\211C\211\242\204\211\300\240\210\301\302\303#\304\305\"\"\207" [0 maphash make-closure #[514 "\302\303\301\242\304\"!\210\302\305!\210\302!\210\302\305!\210\211<\203T\306
@!\203T\301\242\203,\301\242\307\\\202-\307
\203L\302\310!\210\302\311\300!!\210\302\312!\210\313@\"\210
A\262\202-\210\302\312!\210\202k\314
!\203g\313
\301\242\"\210\302\312!\210\202k\315
!\210\316 \207" [V0 V1 princ make-string 32 " " srecode-dictionary-p 4 " --> SUBDICTIONARY " eieio-object-name "\n" srecode-dump srecode-dictionary-compound-value--eieio-childp prin1 terpri] 6 "\n\n(fn KEY ENTRY)"] eieio-oref namehash] 8 "Dump a dictionary.\n\n(fn DICT &optional INDENT)"] provide srecode/dictionary] 6)