Fix BLOCKSTRETCHACTION object codes

Part of GH#1054
LibreDWG · Dec 3, 2024 · 4127657 · 4127657
1 parent ed5fc34
commit 4127657
Show file tree

Hide file tree

Showing 6 changed files with 159 additions and 108 deletions.
diff --git a/doc/dynapi.texi b/doc/dynapi.texi
@@ -13788,6 +13788,20 @@ BD*
 @end vtable
 @end indentedblock
 
+@strong{Dwg_BLOCKSTRETCHACTION_code_indexes} @anchor{Dwg_BLOCKSTRETCHACTION_code_indexes}
+@vindex Dwg_BLOCKSTRETCHACTION_code_indexes
+
+@indentedblock
+@vtable @code
+
+@item parent
+struct _dwg_object_BLOCKSTRETCHACTION*
+@item index
+BL,	DXF 94
+
+@end vtable
+@end indentedblock
+
 @strong{Dwg_BLOCKSTRETCHACTION_codes} @anchor{Dwg_BLOCKSTRETCHACTION_codes}
 @vindex Dwg_BLOCKSTRETCHACTION_codes
 
@@ -13798,10 +13812,10 @@ BD*
 struct _dwg_object_BLOCKSTRETCHACTION*
 @item bl95
 BL,	DXF 95
-@item bs76
+@item num_indexes
 BS,	DXF 76
-@item bl94
-BL,	DXF 94
+@item indexes
+Dwg_BLOCKSTRETCHACTION_code_indexes*
 
 @end vtable
 @end indentedblock

diff --git a/include/dwg.h b/include/dwg.h
@@ -7809,11 +7809,16 @@ typedef struct _dwg_BLOCKSTRETCHACTION_handles {
   Dwg_BLOCKSTRETCHACTION_handle_indexes *indexes;
 } Dwg_BLOCKSTRETCHACTION_handles;
 
+typedef struct _dwg_BLOCKSTRETCHACTION_code_indexes {
+  struct _dwg_object_BLOCKSTRETCHACTION *parent;
+  BITCODE_BL index;   // 94
+} Dwg_BLOCKSTRETCHACTION_code_indexes;
+
 typedef struct _dwg_BLOCKSTRETCHACTION_codes {
   struct _dwg_object_BLOCKSTRETCHACTION *parent;
-  BITCODE_BL bl95;  // 95
-  BITCODE_BS bs76;  // 76
-  BITCODE_BL bl94;  // 94
+  BITCODE_BL bl95;         // 95
+  BITCODE_BS num_indexes;  // 76
+  Dwg_BLOCKSTRETCHACTION_code_indexes *indexes;
 } Dwg_BLOCKSTRETCHACTION_codes;
 
 typedef struct _dwg_object_BLOCKSTRETCHACTION

diff --git a/src/dwg.spec b/src/dwg.spec
@@ -12441,8 +12441,13 @@ DWG_OBJECT (BLOCKSTRETCHACTION)
   REPEAT (num_codes, codes, Dwg_BLOCKSTRETCHACTION_codes)
   REPEAT_BLOCK
     SUB_FIELD_BL (codes[rcount1], bl95, 95);
-    SUB_FIELD_BS (codes[rcount1], bs76, 76);
-    SUB_FIELD_BL (codes[rcount1], bl94, 94);
+    SUB_FIELD_BS (codes[rcount1], num_indexes, 76);
+    REPEAT2 (codes[rcount1].num_indexes, codes[rcount1].indexes, Dwg_BLOCKSTRETCHACTION_code_indexes)
+    REPEAT_BLOCK
+      SUB_FIELD_BL (codes[rcount1].indexes[rcount2], index, 94);
+      SET_PARENT_OBJ (codes[rcount1].indexes[rcount2]);
+    END_REPEAT_BLOCK
+    END_REPEAT (codes[rcount1].indexes)
     SET_PARENT_OBJ (codes[rcount1]);
   END_REPEAT_BLOCK
   END_REPEAT (codes)