HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/cedet/srecode/
Current File : //usr/share/emacs/26.1/lisp/cedet/srecode/table.elc
;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!\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 eieio-base mode-local srecode defalias srecode-template-table-p eieio-make-class-predicate srecode-template-table srecode-template-table--eieio-childp eieio-make-child-predicate srecode-template-table-child-p make-obsolete "use (cl-typep ... \\='srecode-template-table) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((file :initarg :file :type string :documentation "The name of the file this table was built from.") (filesize :initarg :filesize :type number :documentation "The size of the file when it was parsed.") (filedate :initarg :filedate :type cons :documentation "Date from the inode of the file when it was last edited.\nFormat is from the `file-attributes' function.") (major-mode :initarg :major-mode :documentation "The major mode this table of templates is associated with.") (application :initarg :application :type symbol :documentation "Tracks the name of the application these templates belong to.\nIf this is nil, then this template table belongs to a set of generic\ntemplates that can be used with no additional dictionary values.\nWhen it is non-nil, it is assumed the template macros need specialized\nEmacs Lisp code to fill in the dictionary.") (framework :initarg :framework :type symbol :documentation "Tracks the name of the framework these templates belong to.\nIf nil, then this template table belongs to any framework, or can be\nconsidered generic for all files of this language.\nA framework might be a specific library or build environment for which\nspecial templates are desired.  OpenGL might be a framework that\nexists for multiple languages.") (priority :initarg :priority :type number :documentation "For file of this Major Mode, what is the priority of this file.\nWhen there are multiple template files with similar names, templates with\nthe highest priority are scanned last, allowing them to override values in\nprevious template files.") (project :initarg :project :type (or null string) :documentation "Scope some project files to a specific project.\nThe value is a directory which forms the root of a particular project,\nor a subset of a particular project.") (templates :initarg :templates :type list :documentation "The list of templates compiled into this table.") (namehash :initarg :namehash :documentation "Hash table containing the names of all the templates.") (contexthash :initarg :contexthash :documentation "") (variables :initarg :variables :documentation "AList of variables.\nThese variables are used to initialize dictionaries.")) (:documentation "Semantic recoder template table.\nA Table contains all templates from a single .srt file.\nTracks various lookup hash tables.")] 6)
#@61 Create a new object of class type `srecode-template-table'.
(defalias 'srecode-template-table #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-table] 4 (#$ . 3326)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-template-table compiler-macro srecode-template-table--anon-cmacro] 4)
(defalias 'srecode-template-table--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])
#@66 List of all the SRecode mode table classes that have been built.
(defvar srecode-mode-table-list nil (#$ . 3884))
(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-mode-table-p eieio-make-class-predicate srecode-mode-table srecode-mode-table--eieio-childp eieio-make-child-predicate srecode-mode-table-child-p make-obsolete "use (cl-typep ... \\='srecode-mode-table) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-instance-tracker) ((tracking-symbol :initform 'srecode-mode-table-list) (major-mode :initarg :major-mode :documentation "Table of template tables for this major-mode.") (modetables :initarg :modetables :documentation "All that tables unique to this major mode.") (tables :initarg :tables :documentation "All the tables that can be used for this major mode.")) (:documentation "Track template tables for a particular major mode.\nTracks all the template-tables for a specific major mode.")] 6)
#@57 Create a new object of class type `srecode-mode-table'.
(defalias 'srecode-mode-table #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-mode-table] 4 (#$ . 4946)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-mode-table compiler-macro srecode-mode-table--anon-cmacro] 4)
(defalias 'srecode-mode-table--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])
#@164 Get the SRecoder mode table for the major mode MODE.
This will find the mode table specific to MODE, and then
calculate all inherited templates from parent modes.
(defalias 'srecode-get-mode-table #[(mode) "\303\211\n\203C\304\n\305\306#\n\211\307N\206\n\310N)\203	\2041\311	\312\313	\314\"#\210\202\311	\312\315\313	\314\"\313\314\"\"#\210\202	*\207" [tmptable table mode nil eieio-instance-tracker-find major-mode srecode-mode-table-list mode-local-parent derived-mode-parent eieio-oset tables eieio-oref modetables append] 9 (#$ . 5481)])
#@54 Get the SRecoder mode table for the major mode MODE.
(defalias 'srecode-make-mode-table #[(mode) "\304\305\306#\211\203	\2020;\203\202\307!\310\n\311\312\313\314\313&\315\316\317F!\210*)\207" [mode old ms new eieio-instance-tracker-find major-mode srecode-mode-table-list symbol-name srecode-mode-table :major-mode :modetables nil :tables eval setq-mode-local srecode-table] 9 (#$ . 6048)])
(cl-generic-define-method 'srecode-mode-table-find nil '((mt srecode-mode-table) file) nil #[(mt file) "\302\300\303	\304\"#\207" [file mt object-assoc eieio-oref modetables] 6 "Look in the mode table MT for a template table from FILE.\nReturn nil if there was none."])
#@114 Create a new template table for MODE in FILE.
INIT are the initialization parameters for the new template table.
(defalias 'srecode-mode-table-new #[(mode file &rest init) "\306!\307	\n\"\310\n!\311\312\313\n!\314\n\315\316\f8\317\320\f8\321
&\203-\322	\323#\210\324	\323#\210\325	\323\326#\210,\207" [mode mt file old attr init srecode-make-mode-table srecode-mode-table-find file-attributes apply srecode-template-table file-name-nondirectory :file :filesize 7 :filedate 5 :major-mode object-remove-from-list modetables object-add-to-list object-sort-list #[(a b) "\302\303\"\302	\303\"V\207" [a b eieio-oref :priority] 4] new] 12 (#$ . 6736)])
#@88 Sort the items in OBJECT's SLOT.
Use PREDICATE is the same as for the `sort' function.
(defalias 'object-sort-list #[(object slot predicate) "\303	\"\205\304	\"<\205\305	\306\304	\"\n\"#\207" [object slot predicate slot-boundp eieio-oref eieio-oset sort] 7 (#$ . 7405)])
#@48 Dump a list of the current templates for MODE.
(defalias 'srecode-dump-templates #[(mode) "\306\307!\210\310\230\203	\202 \311\312\"\204\313\312P!\202 \313!\314\n!\210\315\n!\211\2042\316\317\n\"\210\fr\320\321!q\210p\322 \210
\323\211\324\211\324\325 \210\326\327!\210+\211 \330!\331!\210-\207" [mode major-mode modesym tmp default-directory #1=#:old-dir require srecode/find "" string-match "-mode" intern-soft srecode-load-tables-for-mode srecode-get-mode-table error "No table found for mode %S" get-buffer-create "*SRECODE DUMP*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook 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 (#$ . 7690) "sMode: "])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\307\310!\207" [cl-generic-define-method srecode-dump nil ((tab srecode-mode-table)) #[(tab) "\302\303!\210\302\304\305\"!\210\302\306!\210\304\307\"\302	G!\210\302\310!\210	\205.\311	@!\210	A\211\204!\312)\207" [tab subtab princ "MODE TABLE FOR " eieio-oref :major-mode "\n--------------------------------------------\n\nNumber of tables: " :tables "\n\n" srecode-dump nil] 5 "Dump the contents of the SRecode mode table TAB."] ((tab srecode-template-table)) #[(tab) "\303\304!\210\303\305!!\210\303\306!\210\307\310\311\"!\210\310\312\"\203'\303\313!\210\303\310\312\"!\210\310\314\"\2039\303\315!\210\303\310\314\"!\210\310\316\"\203Y\317\320!\210\303\321!\210\303\310\316\"!\210\322!\204Y\303\323!\210\303\324!\210\310\325\"\211\203\216\303	@@!\210\303\326!\210	@@G\327W\203}\303\326!\210\307	@A!\210\303\330!\210	A\211\204f)\303\331!\210\310\332\"\211\205\251\333\n@!\210\nA\211\204\234\334)\207" [tab vars temp princ "Template Table for " eieio-object-name-string "\nPriority: " prin1 eieio-oref :priority :application "\nApplication: " :framework "\nFramework: " :project require srecode/find "\nProject Directory: " srecode-template-table-in-project-p "\n   ** Not Usable in this file. **" "\n\nVariables:\n" variables "	" 9 "\n" "\n\nTemplates:\n" templates srecode-dump nil] 5 "Dump the contents of the SRecode template table TAB."] provide srecode/table] 6)