;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 250))
#@284 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.

(fn &optional CLASS-IN FIELD-IN)
(defalias 'srecode-insert-getset #[512 "\305!\210\305\306\"\210\307 \204\310\311\"\210\312\307 \313\314\306$\204!\310\315!\210\316 \210
\206+\317`!\211\205I\211\211\320
8\262
\321
!\203D\322
!\266\202\202I\211\323H\266\202\324\325!=\326\204W\310\327!\210\203^\262

\203k\211\204k\330`!\262
\211\204t\331!\262
\211;\203
`b\210\332\"\210\333 \312\307 \334\314\306$\211\204\223\310\335\"\210\336
\"\210\337\340#\210	\203\250\337\341\342#\210\343
\"\210\316 \210\212b\210\317`!\262)\n\344\345p!!\326
\203\337\346@\211@\262
\"\203\330
@
B\262

A\262\202\302\211\237\266\202)\344
!\326
\203

@\211A@\262
\347=\203\376
@
B\262

A\262\202\350\211\237\266\202\262
\211\203
\211@\266\204\202
\310\350\"\266\211\3511J
\211:\205D
\211@;\205D
\211A@9\205D
\211A@\205D
\352
8<\205D
\353
8<0\262
\202N
\210\326\262
\204U
\310\354!\210\355\"\210\356 =\204d
\357c\210\333 
\312\307 \313\314\306$\211\204x
\310\335\"\210\336
\"\210\337\360\211@\262
\361P#\210\337\362\363\211@\262
!#\210\343
\")\207" [major-mode srecode-insert-getset-fully-automatic-flag semantic-case-fold case-fold-search srecode-semantic-selected-tag 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 overlayp 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" (error) 2 3 "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] 14 (#$ . 391) nil])
#@64 Strip the fieldname NAME of polish notation things.

(fn NAME)
(defalias 'srecode-strip-fieldname #[257 "\300\301\"\203
\211\302\224\303O\207\207" [string-match "[a-z]\\([A-Z]\\w+\\)" 1 nil] 4 (#$ . 2760)])
#@181 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.

(fn CLASS FIELD)
(defalias 'srecode-position-new-methods #[514 "\301
!\210\302 \303 \304\211\203+\305
\211A@\262

=\266\202\203+\306\307\211@\262
!P\262\202I\203I\305
\211A@\262

=\266\202\203I\306\307\211@\262
!P\262\310\211\311\312\313
8\262
\"\266\203\"\262
\211\204\251\314\211\311\312\313
8\262
\"\266\203!\304
\203\225
@\315\312\313
8\262
\"\266\202\203\216
@
B\262

A\262\202s\211\237\266\202\242\262
\316
\"\317=\204\251\304\262
\211\204\353\314\211\311\312\313
8\262
\"\266\203!\304
\203\341
@\320\312\313
8\262
\"\266\202\203\332
@
B\262

A\262\202\277\211\237\266\202\242\262
\202\370\316
\"\317=\204\370\304\262
\211\204
\310\321\211\311\312\313
8\262
\"\266\203\"\262
\211\204%
\211\311\312\313
8\262
\"\266\203@\262
\211\203~
\211\211\322
8\262
\323
!\203>
\324
!\266\202\202C
\211\325H\266\202\211\204P
\326\327\211@\262
\"\210\211b\210\330\331P!\203z
`\303`!\332\325!\210\211\203x
\333\334\211@\262
!\335#\203x

b\210\266\210\202\241
\211\322
8\262
\323
!\203\223
\324
!\266\202\202\230
\211\325H\266\202b\210\336\337!\210\325u\210\304\210\325u\207" [semantic-lex-comment-regex 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 overlayp 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] 15 (#$ . 2976)])
#@177 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.

(fn CLASS INCLASS)
(defalias 'srecode-position-new-field #[514 "\211\204Q\301\302!\210\303\211\304\305\306
8\262
\"\266\203!\307
\2036
@\211A@\262
\310=\203/
@
B\262

A\262\202\211\237\266\202\211\203H\311
@\"\266\202M\311!\266\312p!\210\206X\313\314!?\205_\301\315!\207" [srecode-insert-getset-fully-automatic-flag 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"] 10 (#$ . 4774)])
#@99 Choose a field for the get/set methods.
Base selection on the field related to POINT.

(fn POINT)
(defalias 'srecode-auto-choose-field #[257 "\212\211\203\211b\210\301\302!\211\203#\204#\303\304\305\211@\262
\"!\204#\306\262
\211\262
)\207" [srecode-insert-getset-fully-automatic-flag semantic-current-tag-of-class variable y-or-n-p format "Use field %s? " nil] 7 (#$ . 5560)])
#@41 Query for a field in CLASS.

(fn CLASS)
(defalias 'srecode-query-for-field #[257 "\302
\211\303\304\305
8\262
\"\266\203!\306
\203.
@\211A@\262
\307=\203'
@
B\262

A\262\202\211\237\266\202\310\311\"\302!\306
\203X@\211@\262
\230\203Q
@
B\262

A\262\202<\211\237\266\202)\211\203d\211@\207
\207" [semantic-case-fold case-fold-search semantic-something-to-tag-table :members plist-get 2 nil variable completing-read "Use Field: "] 9 (#$ . 5951)])
#@56 Choose a class based on location of POINT.

(fn POINT)
(defalias 'srecode-auto-choose-class #[257 "\212\211\203\211b\210\300\301!\211\203\"\211\211\302\303\304
8\262
\"\266\203\305\230\204\255\300\306!\262
\211\203\255\211\211\211\307\303\304
8\262
\"\266\204\203\255\211\211\211\307\303\304
8\262
\"\266\204\211;\203U\211\202\237\211\3101\203\211:\205}\211@;\205}\211A@9\205}\211A@\205}\304
8<\205}\311
8<0\262
\202\207\210\312\262
\203\222\211\211@\262
\202\237\211<\205\237\211@;\205\237\211@\313
\301\312#\211\203\253\211\262\266\211\203\323\211\301
\211A@\262

=\266\202\203\323\211\211\302\303\304
8\262
\"\266\203\305\230\204R
\314 \312\211\203P
\315\316\317\"!\262\211\204P

\203P

@\3101
\211:\205
\211@;\205
\211A@9\205
\211A@\205
\304
8<\205
\311
8<0\262
\202
\210\312\262
\203I

@\301
\211A@\262

=\266\202\203I

@\211\302\303\304
8\262
\"\266\203\305\230\203I

@\262

A\262\202\343\266\203\211\262
)\207" [semantic-current-tag-of-class type :type plist-get 2 "class" function :parent (error) 3 nil semantic-analyze-find-tag semantic-analyze-current-context reverse eieio-oref prefix] 12 (#$ . 6421)])
(provide 'srecode/getset)