WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/srecode
Viewing File: /usr/share/emacs/24.3/lisp/cedet/srecode/map.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:50 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/map.el
;;; in Emacs version 24.3.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 (#$ . 654)])
#@47 The current map for global SRecode templates.
(defvar srecode-current-map nil (#$ . 830))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314$\210\315\316\317\316\320\"\"\210\321\316\322\311\323$\210\315\324\317\324\325\"\"\210\321\324\322\311\326$\210\315\327\317\327\330\"\"\210\321\327\322\311\331$\210\315\332\317\332\325\"\"\210\321\332\322\311\333$\210\315\334\317\334\335\"\"\210\321\334\322\311\336$\210\315\337\317\337\340\"\"\210\321\337\322\311\341$\210\315\342\317\342\343\"\"\210\321\342\322\311\344$\210\315\345\317\345\346\"\"\210\321\345\322\311\347$\210\315\350\317\350\351\"\"\210\321\350\322\311\352$\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 eieio-defclass srecode-map (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.)")) ("A map of srecode templates.") eieio--defalias srecode-map-entry-for-file eieio--defgeneric-init-form #1="Return the entry in MAP for FILE." eieio--defmethod nil #[(map file) "\302\303	\304\"\"\207" [file map assoc eieio-oref files] 5 #1#] srecode-map-entries-for-mode #2="Return the entries in MAP for major MODE." #[(map mode) "\305\306	\307\"\305\211\203#@\310\f\nA\"\203\nBA\211\204
*)\207" [ans map f --dolist-tail-- mode nil eieio-oref files mode-local-use-bindings-p] 4 #2#] srecode-map-entry-for-app #3="Return the entry in MAP for APP'lication." #[(map app) "\302\303	\304\"\"\207" [app map assoc eieio-oref apps] 5 #3#] srecode-map-entries-for-app-and-mode #[(map app mode) "\306\307	\"\nA\306\211\203&
@\211A=\203\fB
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 #4="Search in all entry points in MAP for FILE.\nReturn a list ( APP . FILE-ASSOC ) where APP is nil\nin the global map." #[(map file) "\306	\"\211\205\f\307\nB)\206;\307\310\311\"\307\211\2038
@\312	\fA\"\211\2030\fB)
A\211\204*)\207" [map file globalentry match app --dolist-tail-- srecode-map-entry-for-file nil eieio-oref apps assoc appmatch] 4 #4#] srecode-map-delete-file-entry #5="Update MAP to exclude FILE from the file list." #[(map file) "\303	\"\211\205\304\305\n#)\207" [map file entry srecode-map-entry-for-file object-remove-from-list files] 5 #5#] srecode-map-update-file-entry #6="Update a MAP entry for FILE to be used with MODE.\nReturn non-nil if the MAP was changed." #[(map file mode) "\305	\"\306\211\203A\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 #6#] srecode-map-delete-file-entry-from-app #7="Delete from MAP the FILE entry within the APP'lication." #[(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 #7#] srecode-map-update-app-file-entry #8="Update the MAP entry for FILE to be used with MODE within APP.\nReturn non-nil if the map was changed." #[(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\314A\nA\"\241\210))\n\203d\nB\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 #8#]] 8)
#@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 (#$ . 4786) "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 (#$ . 5952) 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 (#$ . 6374)])
#@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@\211G	GW\203'	\307GO\230\203'\310\fA\211\204*)\207" [valid filename srecode-map-load-path p --dolist-tail-- nil file-exists-p 0 t] 5 (#$ . 6796)])
#@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	\204T\306\307!\310\311!\210\202T	\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#	\204T\324\325\326\217\210\324\327\330	\331\"!\324\211\203}
@\332\f@	\"\204v\333	\f@\"\210\334
A\211\204c*\327\330	\335\"!\324'\211\203\301
@'\327'A!\324\211\203\271
@\332\f@	\"\204\262\336	\f@'@#\210\334
A\211\204\234*
A\211\204\214*(\324)\211\203
@)\312)!\203\337)\334\340#\324*\211\203
@*\341*!\204\342*!\204\343*!\203\344*+\",\206\f,)
A\211\204\345*
A\211\204\314*\2051\n?\2051\345	\323\"\2051\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 nil (byte-code "\303	\"\303\207" [srecode-map-save-file srecode-map srecode-current-map eieio-persistent-read] 3) ((error (byte-code "\302\303\304#\302\207" [srecode-map-save-file srecode-current-map srecode-map "SRecode Map" :file] 4))) 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 (#$ . 7103) 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\260\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)\317 \210\320\321p\"\310\320\322p\"\310\203k\211\323 \324\3258) \"+@\202p\326\327\n\"\210\203\220\211\323 \324\3258) \"+@\203\244\330	\n\331!\331!$\202\254\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 mode-tag val app-tag app tag attribute] 7 (#$ . 8978)])
#@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 (#$ . 10102)])
(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)
F1l3 Manager
