1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
// File: XmlMDataXtd_GeometryDriver.cxx
// Created: Fri Aug 24 20:46:58 2001
// Author: Alexnder GRIGORIEV
// Copyright: Open Cascade 2001
// History:
#include <XmlMDataXtd_GeometryDriver.ixx>
#include <TDataXtd_Geometry.hxx>
static const XmlObjMgt_DOMString& GeometryTypeString
(const TDataXtd_GeometryEnum);
static Standard_Boolean GeometryTypeEnum
(const XmlObjMgt_DOMString& theString,
TDataXtd_GeometryEnum& theResult);
IMPLEMENT_DOMSTRING (TypeString, "geomtype")
IMPLEMENT_DOMSTRING (GeomAnyString, "any")
IMPLEMENT_DOMSTRING (GeomPointString, "point")
IMPLEMENT_DOMSTRING (GeomLineString, "line")
IMPLEMENT_DOMSTRING (GeomCircleString, "circle")
IMPLEMENT_DOMSTRING (GeomEllipseString, "ellipse")
//=======================================================================
//function : XmlMDataXtd_GeometryDriver
//purpose : Constructor
//=======================================================================
XmlMDataXtd_GeometryDriver::XmlMDataXtd_GeometryDriver
(const Handle(CDM_MessageDriver)& theMsgDriver)
: XmlMDF_ADriver (theMsgDriver, NULL)
{}
//=======================================================================
//function : NewEmpty
//purpose :
//=======================================================================
Handle(TDF_Attribute) XmlMDataXtd_GeometryDriver::NewEmpty() const
{
return (new TDataXtd_Geometry());
}
//=======================================================================
//function : Paste
//purpose :
//=======================================================================
Standard_Boolean XmlMDataXtd_GeometryDriver::Paste
(const XmlObjMgt_Persistent& theSource,
const Handle(TDF_Attribute)& theTarget,
XmlObjMgt_RRelocationTable& ) const
{
Handle(TDataXtd_Geometry) aT =
Handle(TDataXtd_Geometry)::DownCast (theTarget);
XmlObjMgt_DOMString aType = theSource.Element().getAttribute(::TypeString());
TDataXtd_GeometryEnum aTypeEnum;
if (GeometryTypeEnum (aType, aTypeEnum) == Standard_False) {
WriteMessage ("TDataXtd_GeometryEnum; "
"string value without enum term equivalence");
return Standard_False;
}
aT->SetType (aTypeEnum);
return Standard_True;
}
//=======================================================================
//function : Paste
//purpose :
//=======================================================================
void XmlMDataXtd_GeometryDriver::Paste (const Handle(TDF_Attribute)& theSource,
XmlObjMgt_Persistent& theTarget,
XmlObjMgt_SRelocationTable& ) const
{
Handle(TDataXtd_Geometry) aG = Handle(TDataXtd_Geometry)::DownCast(theSource);
theTarget.Element().setAttribute (::TypeString(),
GeometryTypeString (aG->GetType()));
}
//=======================================================================
//function : GeometryTypeEnum
//purpose :
//=======================================================================
static Standard_Boolean GeometryTypeEnum (const XmlObjMgt_DOMString& theString,
TDataXtd_GeometryEnum& theResult)
{
TDataXtd_GeometryEnum aResult = TDataXtd_ANY_GEOM;
if (!theString.equals (::GeomAnyString()))
{
if (theString.equals (::GeomPointString()))
aResult = TDataXtd_POINT;
else if (theString.equals (::GeomLineString()))
aResult = TDataXtd_LINE;
else if (theString.equals (::GeomCircleString()))
aResult = TDataXtd_CIRCLE;
else if (theString.equals (::GeomEllipseString()))
aResult = TDataXtd_ELLIPSE;
else
return Standard_False;
}
theResult = aResult;
return Standard_True;
}
//=======================================================================
//function : GeometryTypeString
//purpose :
//=======================================================================
static const XmlObjMgt_DOMString& GeometryTypeString
(const TDataXtd_GeometryEnum theE)
{
switch (theE)
{
case TDataXtd_ANY_GEOM : return ::GeomAnyString();
case TDataXtd_POINT : return ::GeomPointString();
case TDataXtd_LINE : return ::GeomLineString();
case TDataXtd_CIRCLE : return ::GeomCircleString();
case TDataXtd_ELLIPSE : return ::GeomEllipseString();
default:
Standard_DomainError::Raise("TDataXtd_GeometryEnum; enum term unknown");
}
static XmlObjMgt_DOMString aNullString;
return aNullString; // To avoid compilation error message.
}
|