Current File : //usr/local/share/emacs/27.2/lisp/cedet/srecode/dictionary.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!\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)
#@57 Create a new object of class type `srecode-dictionary'.
(defalias 'srecode-dictionary #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-dictionary] 4 (#$ . 1676)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-dictionary compiler-macro srecode-dictionary--anon-cmacro] 4)
(defalias 'srecode-dictionary--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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)
#@77 You cannot create a new object of type `srecode-dictionary-compound-value'.
(defalias 'srecode-dictionary-compound-value #[(&rest _) "\300\301!\207" [error "Class srecode-dictionary-compound-value is abstract"] 2 (#$ . 3061)])
(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)
#@75 Create a new object of class type `srecode-dictionary-compound-variable'.
(defalias 'srecode-dictionary-compound-variable #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-dictionary-compound-variable] 4 (#$ . 4548)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-dictionary-compound-variable compiler-macro srecode-dictionary-compound-variable--anon-cmacro] 4)
(defalias 'srecode-dictionary-compound-variable--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(cl-generic-define-method 'initialize-instance nil '((this srecode-dictionary-compound-variable) &optional fields) t #[(#1=#:cl--cnm this &optional fields) "\306\211\n\203' \n@\307=\203 \nA@\202 \nA@\n@ BB\nAA\211\204 \f \237\"\210\310\f\311\"?\205\210 \312\f\313\"\306 \211 \203\201 @\211 ;\203S
B\202w <\203q @\314=\203q \315\316!\210\317A\"
B\202w \320\321\"\210)A\211\204A \322\f\311
\237#**\207" [state newfields fields #1# this comp 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 val nval] 5 "Initialize the compound variable THIS.\nMakes sure that :value is compiled."])
#@466 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.
(defalias 'srecode-create-dictionary #[(&optional buffer-or-parent) "\212\306\211\211\211\307\f!\203 \fq\210\f\310\f!\311\202\\ \312\f!\203E \f\313\f\302\"\314\f!\315\n\2038 \310\n!\2029 \316Q\n\203\\ \nq\210\202\\ \f\311=\203R \306\317\202\\ p\320\310\n!P\311\321\322\323\n\324 \325\326\327\330\331\332$\333 & \203\212 \334 !\334\335! !\336
\"\210\336
!\"\210*
.\207" [initfrombuff origin buffer parent buffer-or-parent dict nil bufferp buffer-name t srecode-dictionary--eieio-childp eieio-oref 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 major-mode def mt] 12 (#$ . 5925)])
(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) #[(dict tpl) "\205? \304\305\306\"!\307\310!\210 \205> \311 @!\2036 \305 @\312\"\211\2035 \313 \n@@\n@A#\210\nA\211\204$ ) A\211\204 \314)\207" [tpl tabs vars dict reverse eieio-oref tables require srecode/find srecode-template-table-in-project-p variables srecode-dictionary-set-value nil] 5 "Insert into DICT the variables found in table TPL.\nTPL is an object representing a compiled template file."] srecode-dictionary-set-value ((dict srecode-dictionary) name value) #[(dict name value) ";\204\f \304\305\306D\"\210 \307 \310\n\311\"#)\207" [name dict #:object value signal wrong-type-argument stringp puthash slot-value namehash] 6 "In dictionary DICT, set NAME to have VALUE."] srecode-dictionary-add-section-dictionary ((dict srecode-dictionary) name &optional show-only force) #[(dict name &optional show-only force) ";\204\f \306\307\310D\"\210\311 !\312 \313#\f\204E \n\204+ \314 \315\"\210\314 \316\"\210\202E \317\n!@ \320
\316\"\210\314
\321\"\210)\314 \322\"\210\314 \316\"\210\204R \f\203R \n\204\\ \323 \324\n C\"#\210 *\207" [name dict ov new show-only tail 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 force] 6 "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."] srecode-dictionary-show-section ((dict srecode-dictionary) name) #[(dict name) ";\204\f \302\303\304D\"\210\305 \306#\210\307\207" [name dict signal wrong-type-argument stringp srecode-dictionary-add-section-dictionary t nil] 4 "In dictionary DICT, indicate that the section NAME should be exposed."] srecode-dictionary-hide-section ((dict srecode-dictionary) name) #[(dict name) ";\204\f \303\304\305D\"\210 \306\307\n\310\"\"\210)\311\207" [name dict #:object signal wrong-type-argument stringp remhash slot-value namehash nil] 5 "In dictionary DICT, indicate that the section NAME should be hidden."] srecode-dictionary-add-entries ((dict srecode-dictionary) entries &optional state) #[(dict entries &optional state) "\203V @A@ \305=\203 \306 \n\"\210\202M ;\203' \307 \n #\210\202M \310 !\2039 \311\312 \n\" \305#\210\202M \f\204A \313\314!\210\307 \n\315\n\316 \317\f%#\210*AA\211\204 \207" [entries value name dict state 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] 10 "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."] srecode-dictionary-merge ((dict srecode-dictionary) otherdict &optional force) #[(dict otherdict &optional force) "\205 \301\302\303\304\"\"\207" [otherdict maphash #[(key entry) "\204
\306 \n\307#?\205> <\2039 \310 @!\2039 \311 \211 \2057
@\312\313 \n\307\211$\f#\210
A\211\204! \311*\207\314 \n #\207" [force dict key entry sub-dict --dolist-tail-- srecode-dictionary-lookup-name t srecode-dictionary-p nil srecode-dictionary-merge srecode-dictionary-add-section-dictionary srecode-dictionary-set-value] 7] eieio-oref namehash] 5 "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."] srecode-dictionary-lookup-name ((dict srecode-dictionary) name &optional non-recursive) #[(dict name &optional non-recursive) "\304\305\"\205. \306\n\307 \305\"\"\206- ?\205- \n\310\235?\205- \307 \311\"\205- \312\307 \311\"\n\")\207" [dict #:object name non-recursive slot-boundp namehash gethash slot-value ("FIRST" "LAST" "NOTFIRST" "NOTLAST") parent srecode-dictionary-lookup-name] 5 "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'."] srecode-root-dictionary ((dict srecode-dictionary)) #[(dict) "\302 \303\"\203 \302 \303\"\202 )\207" [dict ans eieio-oref parent] 3 "For dictionary DICT, return the root dictionary.\nThe root dictionary is usually for a current or active insertion."] srecode-compound-toString ((cp srecode-dictionary-compound-value) function dictionary) #[(cp function dictionary) "\301!\207" [cp eieio-object-name] 2 "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'."] srecode-dump ((cp srecode-dictionary-compound-value) &optional indent) #[(cp &optional indent) "\301\302!!\207" [cp princ eieio-object-name] 3 "Display information about this compound value."] ((cp srecode-dictionary-compound-variable) function dictionary) #[(cp function dictionary) "\302\303!\210\304\305\306\" \"\207" [cp dictionary require srecode/insert srecode-insert-code-stream eieio-oref compiled] 4 "Convert the compound dictionary variable value CP into a string.\nFUNCTION and DICTIONARY are as for the baseclass."] ((cp srecode-dictionary-compound-variable) &optional indent) #[(cp &optional indent) "\303\304!\210\305\306!\210\307\206 \310\\\311 \312\"\313\n\314\315\"\"*\207" [indent cp cmp require srecode/compile princ "# Compound Variable #\n" 4 0 eieio-oref compiled srecode-dump-code-list make-string 32] 5 "Display information about this compound value."] 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)
#@58 Create a new object of class type `srecode-field-value'.
(defalias 'srecode-field-value #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-field-value] 4 (#$ . 16106)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-field-value compiler-macro srecode-field-value--anon-cmacro] 4)
(defalias 'srecode-field-value--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(cl-generic-define-method 'srecode-compound-toString nil '((cp srecode-field-value) function dictionary) nil #[(cp function dictionary) "\306!\204\n \307\310!\210 \203 \307\311!\210\202} \312\n\313\"\312\n\314\" ` \312\f\315\" \2042 c\210\202e \316 !\203B \317 #\210\202e ;\203T \320\230\203T c\210\202e ;\203_ c\210\202e \307\321\"\210\322\323\324
\325`\326\312\f\327\"\330\312\f\331\"& \210,\332\207" [standard-output function cp dv sti start 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 name dictionary] 14 "Convert this field into an insertable string."])
#@489 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.
(defalias 'srecode-create-dictionaries-from-tags #[(tags state) "\304\305!\306\307\310\311\"\"\312\n #\210\n*\207" [tags entries dict state srecode-create-dictionary t apply append mapcar #[(entry) "\3061- :\205) @;\205) A@9\205) A@\205) \307 8<\205) \310 8<0\202/ \210\311)\203f \211@)\211\312\313 \307 8)\n\"+\211 <\203b G\314U\203b @;\203b @\202c *D\207@A \211 \315
\"*D\207" [entry tag attribute value name entries (error) 2 3 nil :default-value plist-get 1 srecode-create-dictionaries-from-tags state] 5] srecode-dictionary-add-entries] 6 (#$ . 17540)])
#@43 Run data-debug on this mode's dictionary.
(defalias 'srecode-adebug-dictionary #[nil "\306\307!\210\306\310!\210\311 \312 !\210\313 !\206 \314\315 \"\316p! \317\320\n\321 \322\323
\n\"!*\"\210\324\325!\210\326\f\327\",\207" [major-mode modesym start junk dict end require eieio-datadebug srecode/find current-time srecode-load-tables-for-mode srecode-get-mode-table error "No table found for mode %S" srecode-create-dictionary message "Creating a dictionary took %.2f seconds." nil float-time time-subtract data-debug-new-buffer "*SRECODE ADEBUG*" data-debug-insert-object-slots "*"] 6 (#$ . 18620) nil])
#@39 Dump a typical fabricated dictionary.
(defalias 'srecode-dictionary-dump #[nil "\306\307!\210\310 !\210\311 !\211\204 \312\313 \"\210\314p!\f 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 modesym tmp dict default-directory #1=#:old-dir 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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 4 (#$ . 19237) 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) #[(dict &optional indent) "\204 \302\303\304\305 \306\"\"\207" [indent dict 0 maphash #[(key entry) "\305\306\307\"!\210\305\310!\210\305 !\210\305\310!\210\n<\203R \311\n@!\203R \203) \312\\\202* \312\n\203J \305\313!\210\305\314\f!!\210\305\315!\210\316\n@ \"\210\nA\211\204/ )\305\315!\210\202h \317\n!\203d \316\n\"\210\305\315!\210\202h \320\n!\210\321 \207" [indent key entry newindent dict princ make-string 32 " " srecode-dictionary-p 4 " --> SUBDICTIONARY " eieio-object-name "\n" srecode-dump srecode-dictionary-compound-value--eieio-childp prin1 terpri] 5] eieio-oref namehash] 5 "Dump a dictionary."] provide srecode/dictionary] 6)
Mini Shell