home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / mac / programm / 14002 < prev    next >
Encoding:
Text File  |  1992-08-14  |  7.8 KB  |  293 lines
  1. Path: sparky!uunet!zephyr.ens.tek.com!shaman!pogo!jonh.wv.tek.com!user
  2. From: jonh@pogo.wv.tek.com (Jon Howell)
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: Think C Debugger & Class dynamic typing... summary
  5. Message-ID: <jonh-140892100942@jonh.wv.tek.com>
  6. Date: 14 Aug 92 17:16:38 GMT
  7. References: <jonh-130892150657@jonh.wv.tek.com>
  8. Sender: nobody@pogo.wv.tek.com
  9. Followup-To: comp.sys.mac.programmer
  10. Organization: Tektronix
  11. Lines: 280
  12.  
  13. [summary]
  14. In article <jonh-130892150657@jonh.wv.tek.com>, jonh@pogo (that's me!)
  15. asked:
  16. > When you look
  17. > at a CObject in the Data window of the debugger, and dereference it to open
  18. > up a view of the object's structure, it views the object as though it were
  19. > the type it's declared as in the context. Why can't/doesn't it use the type
  20. > the object *really* is?  For example:
  21. > 
  22. > {
  23. >    CView *hokey;
  24. > 
  25. >    hokey = new CWindow;
  26. >    hokey ->IWindow(blah blah blah);
  27. > <> hokey ->Update();
  28. > }
  29. [I forgot to cast hokey above to make the method lookups work. I need a
  30.  newsreader with a built-in precompiler. :v]
  31. I also knew I could examine hokey in the debugger as a CWindow with:
  32.        *(CWindow *) hokey
  33. However, I really wish the debugger could do that on its own.
  34. Per Mildner <Per.Mildner@csd.uu.se> points out that
  35.  
  36. PM>There is a macro you can use in the debugger that tells you the class
  37. PM>name of an object as a string. I don't remember the name but it starts
  38. PM>with two (or possibly one) underscore. It's in the documentation
  39. PM>somewhere.
  40.  
  41. This would come in handy when you don't know just what hokey is at the
  42. moment, so you could look it up to do the cast.
  43.  
  44. > Another question: TC provides member() and class_name() (and another I
  45. > forget) functions for figuring out the dynamic type of an object. I'd
  46. > like to be able to see if an object I've been passed is of a certain
  47. > type. However, I don't want to do a string compare (class_name), and
  48. > member() seems to only tell me if the object is a member of class X or
  49. > one of its ancestors.  Is there a way I can get an integer which
  50. > uniquely identifies the class? (It'd be extra cool if it gave some info on
  51. > the hierarchy, but... :v)
  52. To which markw@wc.novell.COM (Mark Wittenberg) responded to in the best
  53. way -- with code! I'll include his message with a minimum of butchering
  54. here. Thanks to you two and d88-jwa@nada.kth.se for the replies.
  55.  
  56. ----- snip here -----
  57. OK, there is a way.  Here are class.h and class.c that do that and more.
  58. GetClassID does what you want, and there are several other very useful
  59. routines as well.  You can just use Think's "__class" call directly if
  60. that's really all that you want (I indicate "not a class" with an id
  61. of -1 rather than Think's 0).
  62.  
  63. Note that MapClassNameToID is code largely ripped from oops.c, and this
  64. code uses unsupported and undocumented features of v5.0.2 (translation:
  65. I carefully studied oops.h and dug through memory a lot); I've been using
  66. it a long and it's been very solid for me, but caveat emptor.
  67.  
  68. NewObjectByClassId is particularly nice because it's noticeably faster
  69. than new_by_name.
  70.  
  71. /markw
  72.  
  73. ---------------- class.h ----------------------
  74. /*
  75.  * Class.h
  76.  *      - Class ID declarations
  77.  *
  78.  * Copyright 1991 Mark Wittenberg
  79.  */
  80.  
  81. #pragma once
  82.  
  83. #include <CObject.h>
  84.  
  85. #define kNilClass       (-1)
  86.  
  87. typedef Str255  MAName;
  88. typedef int             ObjClassID;
  89.  
  90. ObjClassID      GetClassID(CObject *theObject);
  91. void            GetClassName(CObject *obj, MAName theName);
  92. void            GetClassNameFromID(ObjClassID id, MAName theName);
  93. ObjClassID      GetClassIDFromName(const MAName theName);
  94. ObjClassID      MapClassNameToID(const MAName theName);
  95. void            *NewObjectByClassId(ObjClassID currentID);
  96.  
  97. ---------------- class.c ----------------------
  98. /*
  99.  * Class.c
  100.  *      - Class ID routines
  101.  *
  102.  * Copyright 1991 Mark Wittenberg
  103.  */
  104.  
  105. #define OOPS_PRIVATE
  106. #include "Oops.h"               // change case so that <TCL Headers>
  107. doesn't mess us up
  108. #define INDIRECT
  109. #ifdef INDIRECT
  110.         #define __new __new_indirect
  111. #else
  112.         #define __new __new_direct
  113. #endif
  114.  
  115. extern void *__new(...);
  116.  
  117. #if __option(far_code) || __option(far_data)
  118.         ERROR - We assume 2-byte IDs!
  119. #endif
  120.  
  121. #include "Class.h"
  122.  
  123. /*
  124.  * GetClassID
  125.  *      - Return the class id of an object.
  126.  */
  127. ObjClassID
  128. GetClassID(CObject *obj)
  129. {
  130.         ObjClassID      id;
  131.         
  132.         id = (ObjClassID) __class(obj);
  133.         return (id == 0) ? kNilClass : id;
  134. } /* GetClassID */
  135.  
  136. /*
  137.  * GetClassName
  138.  */
  139. void
  140. GetClassName(CObject *obj, MAName theName)
  141. {
  142.         unsigned char   *name;
  143.         
  144.         theName[0] = '\0';
  145.         name = (unsigned char *) class_name(obj);
  146.         if( name )
  147.                 BlockMove( name, theName, name[0] + 1 );
  148. } /* GetClassName */
  149.  
  150. /*
  151.  * GetClassNameFromID
  152.  */
  153. void
  154. GetClassNameFromID(ObjClassID id, MAName theName)
  155. {
  156.         unsigned char   *name;
  157.                 
  158.         theName[0] = '\0';
  159.         name = (unsigned char *) __class_name(id);
  160.         if( name )
  161.                 BlockMove( name, theName, name[0] + 1 );
  162. } /* GetClassNameFromID */
  163.  
  164. /*
  165.  * GetClassIDFromName
  166.  */
  167. ObjClassID
  168. GetClassIDFromName(const MAName theName)
  169. {
  170.         ObjClassID      id;
  171.         
  172.         id = MapClassNameToID( theName );
  173.         return (id == 0) ? kNilClass : id;
  174. } /* GetClassIDFromName */
  175.  
  176. /*
  177.  * MapClassNameToID
  178.  */
  179. ObjClassID
  180. MapClassNameToID(const MAName theName)
  181. {
  182.         struct { void *min, *max; } range;
  183.         register void *p, *q;
  184.  
  185.         asm {
  186.  
  187. ;;
  188. ;
  189. ;  establish search range
  190. ;
  191. ;;
  192.  
  193. #if __option(a4_globals)
  194.                 movea.l a4,a0
  195.                 _RecoverHandle
  196.                 _GetHandleSize
  197.                 move.l  a4,range.min
  198.                 add.l   a4,d0
  199.                 move.l  d0,range.max
  200. #else
  201.                 move.l  CurStackBase,range.min
  202.                 move.l  a5,range.max
  203. #endif
  204.  
  205. ;;
  206. ;
  207. ;  search data area for matching name (this could probably be improved)
  208. ;
  209. ;;
  210.  
  211.                 movea.l range.min,p
  212.                 movea.l theName,q
  213.                 move.w  (q)+,d1                                 ;  D1.W =
  214. 1st two bytes of name
  215. @1              cmp.w   (p)+,d1
  216.                 beq.s   @2
  217.                 cmpa.l  range.max,p
  218.                 blo.s   @1
  219. ;
  220.                 moveq   #0,d0                                   ;  search
  221. failed
  222.                 return
  223. ;
  224. @2              movea.l p,a0
  225.                 movea.l q,a1
  226.                 bra.s   @4
  227. @3              cmpm.b  (a0)+,(a1)+
  228.                 bne.s   @1                                              ; 
  229. name not found - keep looking
  230. @4              tst.b   -1(a1)
  231.                 bne.s   @3
  232.  
  233. ;;
  234. ;
  235. ;  verify we've found a class info record
  236. ;
  237. ;;
  238.  
  239.                 moveq   #~1,d0
  240.                 and.w   -4(p),d0
  241.                 lea             -4(p,d0.w),a0                   ;  A0 ==>
  242. dispatch table
  243.                 cmpa.l  range.min,a0
  244.                 blo.s   @1                                              ; 
  245. out of range - try again
  246.                 cmpa.l  range.max,a0
  247.                 bhs.s   @1                                              ; 
  248. out of range - try again
  249. ;
  250.                 moveq   #1,d0
  251.                 add.w   (a0),d0
  252.                 lsl.w   #DSHIFT,d0
  253.                 lea             ClassInfo_(name[2])+2(a0,d0.w),a1
  254.                 cmpa.l  p,a1
  255.                 bne.s   @1                                              ; 
  256. sanity check failed - try again
  257.  
  258. ;;
  259. ;
  260. ; now a0 points to the dispatch table
  261. ;
  262. ;;
  263.                 move.l  a0,d0
  264.         #ifdef BASE_REG
  265.                 sub.l   BASE_REG,d0
  266.         #endif
  267.                 return
  268.         }
  269. } /* MapClassNameToID */
  270.  
  271. /*
  272.  * NewObjectByClassId
  273.  */
  274. void *
  275. NewObjectByClassId(ObjClassID id)
  276. {
  277.         void    *cptr;
  278.         
  279.         asm {
  280.                 move.w  id,d0
  281.                 ext.l   d0
  282.         #ifdef BASE_REG
  283.                 add.l   BASE_REG,d0
  284.         #endif
  285.                 move.l  d0,cptr
  286.         }
  287.         return __new( cptr );
  288. } /* NewObjectByClassId */
  289. -- 
  290.  
  291. -----------------------------------------------------------------------------
  292. jonh@pogo.wv.tek.com     Jon Howell
  293.