A number of CAD vendors have decided to form the OpenDWG Alliance, which aims at making the DWG format available to everybody who joins them.
typedef word word :=
byte : b1, byte : b2
return (word)f | ((word)s << 8).
typedef longword longp :=
byte : b1, byte : b2, byte : b3, byte : b4
return (longword)b1 | ((longword)b2 << 8)
| ((longword)b3 << 16) | ((longword)b4 << 24).
typedef longword longword :=
byte : b1, byte : b2, byte : b3, byte : b4
return (longword)b1 | ((longword)b2 << 8)
| ((longword)b3 << 16) | ((longword)b4 << 24).
root dwg_file := [begin : end]( char[12] : version, byte, word, word, word, byte, longp : p_entities, longp : p_entend, longp : p_blocksec, byte[4], longp : p_bsend, byte[4], tablepos : block_table, tablepos : layer_table, tablepos : style_table, tablepos : ltype_table, tablepos : view_table, header, [cur : 0x3EF]byte*, tablepos : ucs_table, [cur : 0x500]byte*, tablepos : vport_table, byte[8], tablepos : appid_table, byte[6], tablepos : dimstyle_table, [cur : 0x69F]byte*, tablepos : p13_table, bytes[38], [p_entities : p_entend]entities : ents, byte[19], [block_table.start : ]blocks : block_table, [layer_table.start : ]layers : layer_table, [style_table.start : ]styles : style_table, [ltype_table.start : ]ltypes : ltype_table, [view_table.start : ]table : view_table, [ucs_table.start : ]table : ucs_table, [vport_table.start : vport_table.end]table : vport_table, [appid_table.start : ]appids : appid_table, [dimstyle_table.start : ]table : dimstyle_table, [p13_table.start : ]table : p13_table, [p_blocksec : p_bsend]entities : blocks, bytes[36], longp = p_entities, longp = p_entend, longp = blocksec, longp = bsend, bytes[12], bytes[6], longp = block_table.start, bytes[6], longp = layer_table.start, bytes[6], longp = style_table.start, bytes[6], longp = ltype_table.start, bytes[6] longp = view_table.start, bytes[6], longp = ucs_table.start, bytes[6], longp = vport_table.start, bytes[6], longp = appid_table.start, bytes[6], longp = dimstyle_table.start, bytes[6], longp = p13_table.start, bytes[6], longp bytes*, ).
tablepos := word : size, long : nr, long : start,
header := word, point(TRUE) : inbase, point(TRUE) : extmin, point(TRUE) : extmax, point(FALSE) : limmin, point(FALSE) : limmax, double[4], byte[2], double[2], byte[56], double[3], byte[18], double .
blocks :=
( [size](
byte : flag,
char[32] : name,
word : used,
byte, word, byte, word,
check_2
)
)[nr] : blocks_info,
check_32.
check_2 := byte[2].
check_32 := byte[32].
layers :=
( [size](
byte : flag,
char[32] : name,
word : used,
word : color,
word : style,
check_2
)
)[nr] : layer_info,
check_32.
styles :=
( [size](
byte : flag,
char[32] : name,
word, double[3], byte, double, char[128],
check_2
)
)[nr] : style_info,
check_32.
ltypes :=
( [size](
byte : flag,
char[32] : name,
word, char[48], byte,
byte, double[13],
check_2
)
)[nr] : ltype_info,
check_32 .
appids :=
( [size](
byte : flag,
char[32] : name,
word,
check_2
)
)[nr] : appid_info,
check_32 .
table :=
( [size](
byte : flag,
[size - 3]byte*,
check_2
)
)[nr],
check_32 .
entities :=
( byte : kind,
byte : flag,
word : length,
[length - 4](
word : layer,
word : opts,
if (flag & 1) then byte : color else color = 0 fi,
if (flag & 0x40) then byte : extra else extra = 0 fi,
if (extra & 2) then xdata fi,
if (flag & 2) then word : type fi,
if (flag & 4 && kind > 2 && kind != 22) then double : z fi,
if (flag & 8) then double : th fi,
if (flag & 0x20) then handle fi,
if (extra & 4) then word : paper fi,
switch (kind)
case 1: /* LINE */
point(!(flag & 4)) : l10,
point(!(flag & 4)) : l11,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 2: /* POINT */
point(!(flag & 4)) : l10,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 3: /* CIRCLE */
point(FALSE) : l10,
double : l40,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 4: /* SHAPE */
point(FALSE) : l10,
word : l2,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 7: /* TEXT */
point(FALSE) : l10,
double : l40,
string : l1,
if (opts & 1) then double : l50 fi,
if (opts & 2) then double : l41 fi,
if (opts & 4) then double : l51 fi, /*?*/
if (opts & 8) then byte : l7 fi,
if (opts & 0x10) then byte : l71 fi,
if (opts & 0x20) then byte : l72 fi,
if (opts & 0x40) then point(FALSE) : l11 fi,
if (opts & 0x100) then byte : l73 fi,
case 8: /* ARC */
point(FALSE) : l10,
double : l40,
double : l50,
double : l51,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 9: /* TRACE */
point(FALSE) : l10,
point(FALSE) : l11,
point(FALSE) : l12,
point(FALSE) : l13,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi,
case 11: /* SOLID */
point(FALSE) : l11,
point(FALSE) : l12,
point(FALSE) : l13,
point(FALSE) : l14,
if (opts & 1) then point(TRUE) : l210 fi,
if (opts & 2) then double : l38 fi
case 12: /* BLOCK */
point(FALSE) : l10, /*?*/
string : l1, /* if (opts & 1) then ? */
if (opts & 2) then string : l3 fi
case 13: /* ENDBLK */
case 14: /* INSERT */
word : l1,
point(FALSE) : l10,
if (opts & 1) then double : l41 fi,
if (opts & 2) then double : l42 fi,
if (opts & 4) then double : l43 fi,
if (opts & 8) then double : l50 fi,
if (opts & 0x10) then word : l70 fi,
if (opts & 0x20) then word : l71 fi,
if (opts & 0x40) then double : l44 fi, /*?*/
if (opts & 0x80) then double : l45 fi /*?*/
case 15: /* ATTDEF */
point(FALSE) : l10,
double : l40,
string : l1,
string : l3,
string : l2,
byte : l70,
if (opts & 1) then byte : l73 fi, /*?*/
if (opts & 2) then double : l50 fi, /*?*/
if (opts & 4) then double : l41 fi,
if (opts & 8) then double : l42 fi,
if (opts & 0x10) then byte : l7 fi,
if (opts & 0x20) then byte : l71 fi,
if (opts & 0x40) then byte : l72 fi,
if (opts & 0x80) then point(FALSE) : l11 fi, /*?*/
if (opts & 0x100) then point(TRUE) : l210 fi,
if (opts & 0x200) then double : l38 fi /*?*/
case 16: /* ATTRIB */
point(FALSE) : l10,
double : l40,
string : l1,
string : l2,
byte : l70,
if (opts & 1) then byte : l73 fi, /*?*/
if (opts & 2) then double : l50 fi, /*?*/
if (opts & 4) then double : l41 fi,
if (opts & 8) then double : l42 fi,
if (opts & 0x10) then byte : l7 fi,
if (opts & 0x20) then byte : l71 fi,
if (opts & 0x40) then byte : l72 fi,
if (opts & 0x80) then point(FALSE) : l11 fi, /*?*/
if (opts & 0x100) then point(TRUE) : l210 fi,
if (opts & 0x200) then double : l38 fi /*?*/
case 17: /* S/BEND */
long
case 19: /* PLINE */
if (opts & 1) then byte : l70 fi,
if (opts & 2) then double : l40 fi, /*?*/
if (opts & 4) then byte : l71 fi, /*?*/
if (opts & 8) then byte : l72 fi, /*?*/
if (opts & 0x10) then byte : l73 fi, /*?*/
if (opts & 0x20) then byte : l74 fi, /*?*/
if (opts & 0x40) then byte : l75 fi /*?*/
case 20: /* VERTEX */
point(FALSE) : l10,
if (opts & 1) then double : l40 fi, /*?*/
if (opts & 2) then double : l41 fi, /*?*/
if (opts & 4) then byte : l70 fi, /*?*/
if (opts & 8) then double : l50 fi /*?*/
case 22: /* 3DFACE */
point(!(flag & 4)) : l10,
point(!(flag & 4)) : l11,
point(!(flag & 4)) : l12,
point(!(flag & 4)) : l13
case 23: /* DIM */
word : l1,
point(TRUE) : l10,
point(FALSE) : l11, /*?*/
if (opts & 2) then byte : l70 fi,
if (opts & 1) then point(TRUE) : l12 fi, /*?*/
if (opts & 4) then string : l1 fi,
if (opts & 8) then point(TRUE) : l13 fi,
if (opts & 0x10) then point(TRUE) : l14 fi,
if (opts & 0x20) then point(TRUE) : l15 fi,
if (opts & 0x40) then point(TRUE) : l16 fi,
if (opts & 0x80) then double : l40 fi,
if (opts & 0x100) then double : l50 fi,
if (opts & 0x200) then double : l51 fi,
if (opts & 0x400) then double : l52 fi,
if (opts & 0x800) then double : l53 fi
case 24: /* VPORT */
point(TRUE) : l10,
double : l40,
double : l41,
word : l68
endswitch
check_2
)
)* : entities.
Still need to define xdata and handle.