WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/srecode
Viewing File: /usr/share/emacs/24.3/lisp/cedet/srecode/getset.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:46 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/getset.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!\210\300\304!\210\300\305!\207" [require semantic semantic/analyze semantic/find srecode/insert srecode/dictionary] 2)
#@68 Non-nil means accept choices srecode comes up with without asking.
(defvar srecode-insert-getset-fully-automatic-flag nil (#$ . 729))
#@250 Insert get/set methods for the current class.
CLASS-IN is the semantic tag of the class to update.
FIELD-IN is the semantic tag, or string name, of the field to add.
If you do not specify CLASS-IN or FIELD-IN then a class and field
will be derived.
(defalias 'srecode-insert-getset #[(&optional class-in field-in) "\306!\210\306\307\"\210\310 \204\311\312\"\210\313\310 \314\315\307$\204!\311\316!\210\317 \210	\206+\320`!\211\205I\n\211\3218)\322\f!\203E\323\f!\202H\f\324H*\325\326!\n=4\3275\n\204\\\311\330!\2106\203e654\203t5\204t\331`!55\204~\332\n!55;\203L`b\210\333\n4\"\210\334 7\313\310 \335\315\307$\2118\204\243\311\336\"\210\33787\"\210\3407\3415#\2109\203\276\3407\342\343#\210\34487\"\210\317 \210\212
b\210\320`!):;\345\346p!!\327<\211=\203\3475=@\211@)\"\203\371=@<B<=A\211=\204\343<\237+>\345>!\327<\211=\2033=@\211A@)\350=\203*=@<B<=A\211=\204<\237*\211>\203E>@5\202K\311\3515\"\210+5\327\352\353\217)\204[\311\354!\210\355\n5\"\210\356 \n=\204k\357c\210\334 75?\313\310 \314\315\307$\2118\204\205\311\336\"\210\33787\"\210\3407\3605\211@)\361P#\210\3407\362\3635\211@)!#\210\34487\".\207" [major-mode class-in class tag o tagstart srecode-load-tables-for-mode getset srecode-table error "No template table found for mode %s" srecode-template-get-table "getset-in-class" "declaration" "No templates for inserting get/set" semantic-fetch-tags srecode-auto-choose-class 4 semantic-overlay-p semantic-overlay-start 0 semantic-current-tag-of-class type nil "Move point to a class and try again" srecode-auto-choose-field srecode-query-for-field srecode-position-new-field srecode-create-dictionary "getset-field" "Getset templates for %s not loaded!" srecode-resolve-arguments srecode-dictionary-set-value "NAME" "TYPE" "int" srecode-insert-fcn semantic-something-to-tag-table semantic-flatten-tags-table string-match variable "Could not find new field %s" (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) "Must specify field for get/set.  (parts may not be impl'd yet.)" srecode-position-new-methods semantic-current-tag "\n" "GROUPNAME" " Accessors" "NICENAME" srecode-strip-fieldname inclass field field-in dict temp srecode-insert-getset-fully-automatic-flag semantic-case-fold case-fold-search result tags tmptag srecode-semantic-selected-tag] 6 (#$ . 870) nil])
#@53 Strip the fieldname NAME of polish notation things.
(defalias 'srecode-strip-fieldname #[(name) "\301\302\"\203
\303\224\304O\207\207" [name string-match "[a-z]\\([A-Z]\\w+\\)" 1 nil] 3 (#$ . 3315)])
#@163 Position the cursor in CLASS where new getset methods should go.
FIELD is the field for the get sets.
INCLASS specifies if the cursor is already in CLASS or not.
(defalias 'srecode-position-new-methods #[(class field) "\306!\210\307 \310 \311\211\211\2032\f\312\211%\211%A@)
*=\2032\313\314\f\211%@)!P\202S\203S\312\211%\211%A@)
*=\203S\313\314\f\211%@)!P\315\n
\211%\316&%\317%%\320%8)&\"+\"\211\204\317\321
\211%\316&%\317%%\320%8)&\"+!\311'\211(\203\276(@\322&%\317%%\320%8)&\"*\203\265(@'B'(A\211(\204\224'\237*\242\323	
\"\324=\204\317\311	\204(\321
\211%\316&%\317%%\320%8)&\"+!\311'\211(\203(@\325&%\317%%\320%8)&\"*\203(@'B'(A\211(\204\365'\237*\242\2023\323	
\"\324=\2043\311	\204R\315\326
\211%\316&%\317%%\320%8)&\"+\"	\204o
\211%\316&%\317%%\320%8)&\"+@	\203\333	\211%%\327%8))\330)!\203\216\331)!\202\222)\332H*\211*\204\243\333\334	\211%@)\"\210*b\210\335\336+P!\203\327`\310`!,-\337\332!\210,\203\326\340\341,\211%@)!-\342#\203\326-b\210*)\202
\211%%\327%8))\330)!\203\366\331)!\202\372)\332H*b\210\343\344!\210\332u\210\311\210\332u,\207" [field aftertag setname next prev class semantic-go-to-tag semantic-find-tag-by-overlay-prev semantic-find-tag-by-overlay-next nil variable "set" srecode-strip-fieldname semantic-find-first-tag-by-name :members plist-get 2 semantic-something-to-tag-table :destructor-flag semantic-tag-protection public :constructor-flag "public" 4 semantic-overlay-p semantic-overlay-end 1 message "Unknown location for tag-end in %s:" looking-at "\\s-*\n?\\s-*" forward-comment re-search-backward regexp-quote t forward-sexp -1 tag attribute result tags o te semantic-lex-comment-regex rnext pos] 6 (#$ . 3526)])
#@157 Select a position for a new field for CLASS.
If INCLASS is non-nil, then the cursor is already in the class
and should not be moved during point selection.
(defalias 'srecode-position-new-field #[(class inclass) "\204U\306\307!\210\310	\211\311\312\n\313\n8)\"+!\314\211\2039
@\211A@)\315=\2032
@\fB
A\211\204!\f\237*\211\203L\316@	\"\210\202P\316	!\210)\317p!\210\206]\320\321!?\205d\306\322!\207" [inclass class tag attribute result tags error "You must position the cursor where to insert the new field" semantic-something-to-tag-table :members plist-get 2 nil variable semantic-go-to-tag switch-to-buffer y-or-n-p "Insert new field here? " "You must position the cursor where to insert the new field first" kids srecode-insert-getset-fully-automatic-flag] 5 (#$ . 5332)])
#@87 Choose a field for the get/set methods.
Base selection on the field related to POINT.
(defalias 'srecode-auto-choose-field #[(point) "\212\203b\210\304\305!\211\203#\n\204#\306\307\310	\211@)\"!\204#\311	*\207" [point field srecode-insert-getset-fully-automatic-flag tag semantic-current-tag-of-class variable y-or-n-p format "Use field %s? " nil] 5 (#$ . 6139)])
#@29 Query for a field in CLASS.
(defalias 'srecode-query-for-field #[(class) "\306\211\307\310	\311	8)\n\"+!\312\211\2031\f@\211A@)\313=\203*\f@B\fA\211\204\237*\314\315
\"\306
!\312\211\203a\f@\211@)\230\203Z\f@B\fA\211\204I\237+\211\203p@\202r+\207" [class tag attribute result tags kids semantic-something-to-tag-table :members plist-get 2 nil variable completing-read "Use Field: " sel semantic-case-fold case-fold-search fields] 5 (#$ . 6519)])
#@44 Choose a class based on location of POINT.
(defalias 'srecode-auto-choose-class #[(point) "\212\203b\210\306\307!\211\203%	\211\310\311	\312	8)\n\"+\313\230\204\213\306\314!\211\203\213	\211\211\315\311	\312	8)\n\",\203\213	\211\211\315\311	\312	8)\n\",\211;\203^\202}\316\317\320\217)\203p\211@)\202}<\205}@;\205}@\321\f\307\316#\211\203\212
+	\203\266	\307\211\211A@)*=\203\266	\211\310\311	\312	8)\n\"+\313\230\204 \322 \316\211\203\323\324\325\"!\204\203@\316\317\320\217)\203@\307\211\211A@)*=\203@\211\310\311	\312	8)\n\"+\313\230\203@A\202\316+	*\207" [point tag attribute p searchname ptag semantic-current-tag-of-class type :type plist-get 2 "class" function :parent nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic-analyze-find-tag semantic-analyze-current-context reverse eieio-oref prefix class ctxt pfix ans] 5 (#$ . 7014)])
(provide 'srecode/getset)
F1l3 Manager
