I tried the get/set wizard in the 2.2.8beta6 release, and it didn't
generate anything for the variables. I then tried the patch that
Javier posted last week (8/16/2001 post) but that gave the following
error/trace. I'm running on xemacs, but I think I've seen the same
error on someone else's gnu emacs system.
(eieio-0.17beta2, elib-1.0, semantic-1.4beta9, speedbar-0.14beta1,
xemacs 21.1)
Thanks for writing the functionality - it'll be great to use it.
Laurie Tynor
----------------------------------------------------------------------
Signaling: (wrong-number-of-arguments #<special-form if> 1)
(if (or (member ... functions) (member ... functions)))
)
jde-wiz-get-member-p("testInt" nil)
(not (jde-wiz-get-member-p name set-get-functions))
)
(if (not (jde-wiz-get-member-p name set-get-functions)) (if (or
bothp get-onlyp) (progn ... ...) (setq report ...)) (setq report
(concat report "[Exists ]")))
)
(cond ((string= "Get followed by set for each field" order) (if
... ... ...) (setq report ...) (if ... ... ...)) ((string= "Set
followed by get for each field" order) (if ... ... ...) (setq report
...) (if ... ... ...)) ((string= "All get methods followed by all set
methods" order) (if ... ... ...) (setq report ...) (if ... ... ...))
((string= "All set methods followed by all get methods" order) (if
... ... ...) (setq report ...) (if ... ... ...)))
)
(while non-public-variables (setq var (car non-public-variables))
(setq name (semantic-token-name var)) (setq type (semantic-token-type
var)) (setq staticp (member "static" ...)) (setq finalp (member
"final" ...)) (setq report (concat report ...)) (setq report (concat
report " ")) (cond (... ... ... ...) (... ... ... ...)
(... ... ... ...) (... ... ... ...)) (setq report (concat report
"\n")) (setq non-public-variables (cdr non-public-variables)))
)
(let* ((include ...) (bothp ...) (get-onlyp ...) (set-onlyp ...)
(order ...) (get-firstp ...) (class ...) (classes ...) (class-name
...) (tokens ...) (type ...) (parts ...) (variables ...)
(non-public-variables ...) (functions ...) (set-get-functions ...) var
name staticp finalp report functions temp) (setq report (concat
... ...)) (setq report (concat report ... " --------
--------\n")) (while non-public-variables (setq var ...) (setq name
...) (setq type ...) (setq staticp ...) (setq finalp ...) (setq report
...) (setq report ...) (cond ... ... ... ...) (setq report ...) (setq
non-public-variables ...)) (if temp (insert temp)) (if
jde-wiz-show-report (with-output-to-temp-buffer ... ...)))
)
(lambda nil "Generates get and set methods for all the private
fields\ndefined in the current buffer." (interactive) (let*
(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... var
name staticp finalp report functions temp) (setq report ...) (setq
report ...) (while non-public-variables
... ... ... ... ... ... ... ... ... ...) (if temp ...) (if
jde-wiz-show-report ...)) (goto-char (scan-lists ... -1 1))
(c-indent-exp))()
call-interactively(jde-wiz-get-set-methods)
command-execute(jde-wiz-get-set-methods t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
