From: Daniel D. <air...@no...> - 2005-06-13 05:30:30
|
Hi, Okay, I think I have a working solution. I wrote an override for semantic-ctxt-scoped-types and the following function to grovel through the output and find the appropriate parent type-tag: (defun type-list-find-type (type-list type-name) "Walk TYPE-LIST until a type named TYPE-NAME is found, and return it" (if (not type-list) nil (if (semantic-tag-of-class-p (car type-list) 'type) (if (string-equal (semantic-tag-name (car type-list)) type-name) (car type-list) (type-list-find-type (semantic-tag-get-attribute (car type-list) :members) type-name)) (type-list-find-type (cdr type-list) type-name)))) I am probably re-inventing the wheel here; I don't know enough about semantic to know if there's already a function that does this. Also, I added the appropriate code to call it to ecb-method-browser.el: 3402,3404d3401 < (let ((types (semantic-ctxt-scoped-types))) < (setq tag (type-list-find-type types data)) < (setq filename (semantic-tag-file-name tag))) Are there any problems with the way I did this? Any other suggestions? TIA, Dan -- Dan Debertin | ai...@no... | www.nodewarrior.org | |