1  // TODO DEBUGGING
       2  #define DWG_TYPE DWG_TYPE_BLOCKLOOKUPACTION
       3  #include "common.c"
       4  
       5  void
       6  api_process (dwg_object *obj)
       7  {
       8    int error, isnew;
       9    BITCODE_BL i;
      10    BLOCKACTION_fields;
      11    BITCODE_BL numelems; /* computed */
      12    BITCODE_BL numrows;  /* DXF 92 */
      13    BITCODE_BL numcols;  /* DXF 93 */
      14    Dwg_BLOCKLOOKUPACTION_lut *lut;
      15    BITCODE_T *exprs;
      16    BITCODE_B b280;
      17  
      18    Dwg_Version_Type dwg_version = obj->parent->header.version;
      19    // #ifdef DEBUG_CLASSES
      20    dwg_obj_blocklookupaction *_obj = dwg_object_to_BLOCKLOOKUPACTION (obj);
      21  
      22    // AcDbBlockAction
      23    CHK_ENTITY_3RD (_obj, BLOCKLOOKUPACTION, display_location);
      24    CHK_ENTITY_TYPE (_obj, BLOCKLOOKUPACTION, num_actions, BL);
      25    CHK_ENTITY_VECTOR_TYPE (_obj, BLOCKLOOKUPACTION, actions, num_actions, BL);
      26    CHK_ENTITY_TYPE (_obj, BLOCKLOOKUPACTION, num_deps, BL);
      27    CHK_ENTITY_HV (_obj, BLOCKLOOKUPACTION, deps, num_deps);
      28    // AcDbBlockLookupAction
      29    CHK_ENTITY_TYPE (_obj, BLOCKLOOKUPACTION, numrows, BL);
      30    CHK_ENTITY_TYPE (_obj, BLOCKLOOKUPACTION, numcols, BL);
      31    if (!_obj->lut)
      32      {
      33        fail ("BLOCKLOOKUPACTION.lut[]: NULL");
      34        return;
      35      }
      36    for (i = 0; i < numrows * numcols; i++)
      37      {
      38        for (int j = 0; j < 3; j++)
      39          {
      40            CHK_SUBCLASS_TYPE (_obj->lut[i].conn_pts[j],
      41                               BLOCKACTION_connectionpts, code, BL);
      42            CHK_SUBCLASS_UTF8TEXT (_obj->lut[i].conn_pts[j],
      43                                   BLOCKACTION_connectionpts, name);
      44          }
      45        CHK_SUBCLASS_TYPE (_obj->lut[i], "BLOCKLOOKUPACTION_lut", b282, BL);
      46        CHK_SUBCLASS_TYPE (_obj->lut[i], "BLOCKLOOKUPACTION_lut", b281, BL);
      47      }
      48    CHK_ENTITY_TYPE (_obj, BLOCKLOOKUPACTION, b280, B);
      49    // ..
      50    // #endif
      51  }