home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 47_6.c < prev    next >
Text File  |  2003-04-16  |  490b  |  23 lines
  1. /*
  2.  * Example 47-6
  3.  * The Blob and BlobState data structures.
  4.  */
  5.  
  6. /*
  7. * The Blob structure is created for each blob.
  8. */
  9. typedef struct Blob {
  10.     int N;                        /* Integer-valued property */
  11.     Tcl_Obj *objPtr;                        /* General property */
  12.     Tcl_Obj *cmdPtr;                        /* Callback script */
  13. } Blob;
  14. /*
  15. * The BlobState structure is created once for each interp.
  16. */
  17. typedef struct BlobState {
  18.     Tcl_HashTable hash;                                /* List blobs by name */
  19.     int uid;                                /* Used to generate names */
  20. } BlobState;
  21.  
  22.  
  23.