(root)/
libredwg-0.13/
test/
unit-testing/
group.c
       1  #define DWG_TYPE DWG_TYPE_GROUP
       2  #include "common.c"
       3  
       4  void
       5  api_process (dwg_object *obj)
       6  {
       7    int error, isnew;
       8    BITCODE_TV name;
       9    BITCODE_BS unnamed;
      10    BITCODE_BS selectable;
      11    BITCODE_BL i, num_groups;
      12    BITCODE_H *groups, *hdls;
      13  
      14    Dwg_Version_Type dwg_version = obj->parent->header.version;
      15    dwg_obj_group *_obj = dwg_object_to_GROUP (obj);
      16  
      17    CHK_ENTITY_UTF8TEXT (_obj, GROUP, name);
      18    CHK_ENTITY_TYPE (_obj, GROUP, unnamed, BS);
      19    CHK_ENTITY_TYPE (_obj, GROUP, selectable, BS);
      20    CHK_ENTITY_TYPE (_obj, GROUP, num_groups, BL);
      21    if (!dwg_dynapi_entity_value (_obj, "GROUP", "groups", &groups, NULL))
      22      fail ("GROUP.groups");
      23    hdls = _obj->groups;
      24    for (i = 0; i < num_groups; i++)
      25      {
      26        if (hdls[i] == groups[i])
      27          ok ("GROUP.groups[%d]: " FORMAT_REF, i, ARGS_REF (groups[i]));
      28        else
      29          fail ("GROUP.groups[%d]: " FORMAT_REF, i, ARGS_REF (groups[i]));
      30      }
      31  }