HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/cedet/srecode/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/cedet/srecode/map.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!\207" [require semantic eieio-base srecode] 2)
#@47 Find the base template directory for SRecode.
(defalias 'srecode-map-base-template-dir #[nil "\301\302\"\207" [data-directory expand-file-name "srecode"] 3 (#$ . 502)])
#@47 The current map for global SRecode templates.
(defvar srecode-current-map nil (#$ . 678))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [custom-declare-variable srecode-map-save-file (locate-user-emacs-file "srecode-map.el" ".srecode/srecode-map") "The save location for SRecode's map file.\nIf the save file is nil, then the MAP is not saved between sessions." :group srecode :type file defalias srecode-map-p eieio-make-class-predicate srecode-map srecode-map--eieio-childp eieio-make-child-predicate srecode-map-child-p make-obsolete "use (cl-typep ... \\='srecode-map) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-persistent) ((fileheaderline :initform ";; SRECODE TEMPLATE MAP") (files :initarg :files :initform nil :type list :documentation "An alist of files and the major-mode that they cover.") (apps :initarg :apps :initform nil :type list :documentation "An alist of applications.\nEach app keys to an alist of files and modes (as above.)")) (:documentation "A map of srecode templates.")] 8)
#@50 Create a new object of class type `srecode-map'.
(defalias 'srecode-map #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-map] 4 (#$ . 1863)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-map compiler-macro srecode-map--anon-cmacro] 4)
(defalias 'srecode-map--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\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%\207" [cl-generic-define-method srecode-map-entry-for-file nil ((map srecode-map) file) #[(map file) "\302\303	\304\"\"\207" [file map assoc eieio-oref files] 5 "Return the entry in MAP for FILE."] srecode-map-entries-for-mode ((map srecode-map) mode) #[(map mode) "\305\306	\307\"\305\211\203#@\310\f\nA\"\203\nBA\211\204
*)\207" [ans map f --dolist-tail-- mode nil eieio-oref files mode-local-use-bindings-p] 4 "Return the entries in MAP for major MODE."] srecode-map-entry-for-app ((map srecode-map) app) #[(map app) "\302\303	\304\"\"\207" [app map assoc eieio-oref apps] 5 "Return the entry in MAP for APP."] srecode-map-entries-for-app-and-mode ((map srecode-map) app mode) #[(map app mode) "\306\307	\"\nA\306\211\203&
@\211A=\203\fB
A\211\204**\207" [map app appentry ans f --dolist-tail-- nil srecode-map-entry-for-app mode] 5 "Return the entries in MAP for major MODE."] srecode-map-entry-for-file-anywhere ((map srecode-map) file) #[(map file) "\306	\"\211\205\f\307\nB)\206;\307\310\311\"\307\211\2038
@\312	\fA\"\211\2030\fB)
A\211\204*)\207" [map file globalentry match app --dolist-tail-- srecode-map-entry-for-file nil eieio-oref apps assoc appmatch] 4 "Search in all entry points in MAP for FILE.\nReturn a list ( APP . FILE-ASSOC ) where APP is nil\nin the global map."] srecode-map-delete-file-entry ((map srecode-map) file) #[(map file) "\303	\"\211\205\304\305\n#)\207" [map file entry srecode-map-entry-for-file object-remove-from-list files] 5 "Update MAP to exclude FILE from the file list."] srecode-map-update-file-entry ((map srecode-map) file mode) #[(map file mode) "\305	\"\306\211\203A\f=\203\307\202*\203\"\f\241\210\202*\310\311	\fB#\210\n*\207" [map file dirty entry mode srecode-map-entry-for-file t nil object-add-to-list files] 6 "Update a MAP entry for FILE to be used with MODE.\nReturn non-nil if the MAP was changed."] srecode-map-delete-file-entry-from-app ((map srecode-map) file app) #[(map file app) "\305	\"\306\nA\"\n\307\f\nA\"\241*\207" [map app appe file fentry srecode-map-entry-for-app assoc delete] 4 "Delete from MAP the FILE entry within the APP."] srecode-map-update-app-file-entry ((map srecode-map) file mode app) #[(map file mode app) "\306	\"\307\nA\"\310\f\203\fA=\203\311\202o\f\203*\f\241\210\202o\312\"\211\203R@\204B\313\"\210\202R\306	\"\211\314A\nA\"\241\210))\n\203d\nB\nAB\241\210\202o\315\316	BD#\210
+\207" [map app appentry file appfileentry dirty srecode-map-entry-for-app assoc t nil srecode-map-entry-for-file-anywhere srecode-map-delete-file-entry delete object-add-to-list apps mode any] 7 "Update the MAP entry for FILE to be used with MODE within APP.\nReturn non-nil if the map was changed."]] 6)
#@111 Get a list of maps relevant to the current buffer.
Optional argument RESET forces a reset of the current map.
(defalias 'srecode-get-maps #[(&optional reset) "\306?!\210\307\310!\203\211	r\311\312!q\210p\313 \210\n\314\211\315\211\315\316 \210\317\320!\210+\211 \321\322!\210\323\324!\325\"!\210\321\326!\210\324!\327\"\314\"\211#\203z#@\211\"@\"A$\321$!\210\321\330!\210\323!\210*\321\331!\210#A\211#\204P*\321\332!\210\321\333!\334!\210+\207!C\207" [reset default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list srecode-map-update-map called-interactively-p any get-buffer-create "*SRECODE MAP*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "   -- SRecode Global map --\n" srecode-maps-dump-file-list eieio-oref files "\n   -- Application Maps --\n" apps " :\n" "\n" "\nUse:\n\n M-x customize-variable RET srecode-map-load-path RET" "\n To change the path where SRecode loads templates from." internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output srecode-current-map ap --dolist-tail-- app] 5 (#$ . 5420) "P"])
#@49 Run ADEBUG on the output of `srecode-get-maps'.
(defalias 'srecode-adebug-maps #[nil "\303\304!\210\305 \306\307!\305 \310\311\n\312\313\n\"!*\"\210\314\315!\210\316	\317\"+\207" [end p start require data-debug current-time srecode-get-maps t message "Updating the map took %.2f seconds." float-time time-subtract data-debug-new-buffer "*SRECODE ADEBUG*" data-debug-insert-stuff-list "*"] 6 (#$ . 6586) nil])
#@46 Dump a file list FLIST to `standard-output'.
(defalias 'srecode-maps-dump-file-list #[(flist) "\303\304!\210\303\305!\210\306\211\205I\n@\307	A!\210\303\310!\210\311\312	A!GV\203*\303\310!\210\313\312	A!GV\2038\303\310!\210\303	@!\210\303\314!\210\nA\211\204\306*\207" [flist fe --dolist-tail-- princ "Mode			Filename\n" "------			------------------\n" nil prin1 "	" 16 symbol-name 8 "\n"] 4 (#$ . 7008)])
#@46 Return t if FILENAME should be in MAP still.
(defalias 'srecode-map-file-still-valid-p #[(filename map) "\305\306	!\2050\n\305\211\203.\f@\211G	GW\203'	\307GO\230\203'\310\fA\211\204*)\207" [valid filename srecode-map-load-path p --dolist-tail-- nil file-exists-p 0 t] 5 (#$ . 7430)])
#@262 Update the current map from `srecode-map-load-path'.
Scans all the files on the path, and makes sure we have entries
for them.
If option FAST is non-nil, then only parse a file for the mode-string
if that file is NEW, otherwise assume the mode has not changed.
(defalias 'srecode-map-update-map #[(&optional fast) "\204	\204f\306\307!\310\311!\210\202f	\204K\312!\204K\312\313!!\204E\n\204E\314\315\316\313!\"!\203=\317\313!!\210\202E\320\300!\210\321\322!\210\306\307\323#	\204f\3241]\325\306\"\2110\202e\210\306\307\323#\211\210\326\327\330	\331\"!\326\211\203\217
@\332\f@	\"\204\210\333	\f@\"\210\334
A\211\204u*\327\330	\335\"!\326'\211\203\323
@'\327'A!\326\211\203\313
@\332\f@	\"\204\304\336	\f@'@#\210\334
A\211\204\256*
A\211\204\236*(\326)\211\203/
@)\312)!\203(\337)\334\340#\326*\211\203'
@*\341*!\204 \342*!\204 \343*!\203 \344*+\",\206,)
A\211\204\367*
A\211\204\336*\205C\n?\205C\345	\323\"\205C\346	!)\207" [srecode-map-save-file srecode-current-map noninteractive dirty entry --dolist-tail-- srecode-map "SRecode Map" message "SRecode map created in non-save mode." file-exists-p file-name-directory y-or-n-p format "Create dir %s? " make-directory customize-variable error "Change your SRecode map file" :file (error) eieio-persistent-read nil copy-sequence eieio-oref files srecode-map-file-still-valid-p srecode-map-delete-file-entry t apps srecode-map-delete-file-entry-from-app directory-files "\\.srt$" backup-file-name-p auto-save-file-name-p file-readable-p srecode-map-validate-file-for-mode slot-boundp eieio-persistent-save app srecode-map-load-path dir f fast fdirty] 6 (#$ . 7737) nil])
#@189 Read and validate FILE via the parser.  Return the mode.
Argument FAST implies that the file should not be reparsed if there
is already an entry for it.
Return non-nil if the map changed.
(defalias 'srecode-map-validate-file-for-mode #[(file fast) "\203\f\306	\n\"?\205\270\307\n!\310\212\f\203\fq\210\2023\311\312!q\210\313\n\310\211\211\314%\210\315 \210\310\316 \210)\204;\316 \210\317 \210\320\321p\"\310\320\322p\"\310\203s\211 \323! \324  \325 8)!\"+@\202x\326\327\n\"\210\203\230\211 \323! \324  \325 8)!\"+@\203\254\330	\n\331!\331!$\202\264\332	\n\331!#-*\207" [fast srecode-current-map file dirty buff-orig semantic-init-hook srecode-map-entry-for-file-anywhere get-file-buffer nil get-buffer-create " *srecode-map-tmp*" insert-file-contents t srecode-template-mode semantic-new-buffer-fcn semantic-fetch-tags semantic-find-first-tag-by-name "mode" "application" :default-value plist-get 2 error "There should be a mode declaration in %s" srecode-map-update-app-file-entry read srecode-map-update-file-entry semantic-new-buffer-fcn-was-run mode-tag val app-tag app tag attribute] 7 (#$ . 9446)])
#@54 Set SYM to the new VAL, then update the srecode map.
(defalias 'srecode-map-load-path-set #[(sym val) "\302	\"\210\303\304!\207" [sym val set-default srecode-map-update-map t] 3 (#$ . 10619)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313!\207" [custom-declare-variable srecode-map-load-path (list (srecode-map-base-template-dir) (expand-file-name "~/.srecode/")) "Global load path for SRecode template files." :group srecode :type (repeat file) :set srecode-map-load-path-set provide srecode/map] 10)