0026937: Eliminate NO_CXX_EXCEPTION macro support
[occt.git] / src / XmlMDataXtd / XmlMDataXtd_GeometryDriver.cxx
1 // Created on: 2001-08-24
2 // Created by: Alexnder GRIGORIEV
3 // Copyright (c) 2001-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16
17 #include <CDM_MessageDriver.hxx>
18 #include <Standard_Type.hxx>
19 #include <TDataXtd_Geometry.hxx>
20 #include <TDF_Attribute.hxx>
21 #include <XmlMDataXtd_GeometryDriver.hxx>
22 #include <XmlObjMgt_Persistent.hxx>
23
24 IMPLEMENT_STANDARD_RTTIEXT(XmlMDataXtd_GeometryDriver,XmlMDF_ADriver)
25
26 static const XmlObjMgt_DOMString& GeometryTypeString
27                                         (const TDataXtd_GeometryEnum);
28 static Standard_Boolean           GeometryTypeEnum
29                                         (const XmlObjMgt_DOMString& theString,
30                                          TDataXtd_GeometryEnum&     theResult);
31
32 IMPLEMENT_DOMSTRING (TypeString,        "geomtype")
33
34 IMPLEMENT_DOMSTRING (GeomAnyString,     "any")
35 IMPLEMENT_DOMSTRING (GeomPointString,   "point")
36 IMPLEMENT_DOMSTRING (GeomLineString,    "line")
37 IMPLEMENT_DOMSTRING (GeomCircleString,  "circle")
38 IMPLEMENT_DOMSTRING (GeomEllipseString, "ellipse")
39
40 //=======================================================================
41 //function : XmlMDataXtd_GeometryDriver
42 //purpose  : Constructor
43 //=======================================================================
44 XmlMDataXtd_GeometryDriver::XmlMDataXtd_GeometryDriver
45                         (const Handle(CDM_MessageDriver)& theMsgDriver)
46       : XmlMDF_ADriver (theMsgDriver, NULL)
47 {}
48
49 //=======================================================================
50 //function : NewEmpty
51 //purpose  : 
52 //=======================================================================
53 Handle(TDF_Attribute) XmlMDataXtd_GeometryDriver::NewEmpty() const
54 {
55   return (new TDataXtd_Geometry());
56 }
57
58 //=======================================================================
59 //function : Paste
60 //purpose  : 
61 //=======================================================================
62 Standard_Boolean XmlMDataXtd_GeometryDriver::Paste
63                                         (const XmlObjMgt_Persistent&  theSource,
64                                          const Handle(TDF_Attribute)& theTarget,
65                                          XmlObjMgt_RRelocationTable&  ) const
66 {
67   Handle(TDataXtd_Geometry) aT = 
68     Handle(TDataXtd_Geometry)::DownCast (theTarget);
69
70   XmlObjMgt_DOMString aType = theSource.Element().getAttribute(::TypeString());
71   TDataXtd_GeometryEnum aTypeEnum;
72   if (GeometryTypeEnum (aType, aTypeEnum) == Standard_False) {
73     WriteMessage ("TDataXtd_GeometryEnum; "
74                   "string value without enum term equivalence");
75     return Standard_False;
76   }
77
78   aT->SetType (aTypeEnum);
79   return Standard_True;
80 }
81
82 //=======================================================================
83 //function : Paste
84 //purpose  : 
85 //=======================================================================
86 void XmlMDataXtd_GeometryDriver::Paste (const Handle(TDF_Attribute)& theSource,
87                                         XmlObjMgt_Persistent&        theTarget,
88                                         XmlObjMgt_SRelocationTable&  ) const
89 {
90   Handle(TDataXtd_Geometry) aG = Handle(TDataXtd_Geometry)::DownCast(theSource);
91   theTarget.Element().setAttribute (::TypeString(),
92                                     GeometryTypeString (aG->GetType()));
93 }
94
95 //=======================================================================
96 //function : GeometryTypeEnum
97 //purpose  : 
98 //=======================================================================
99 static Standard_Boolean GeometryTypeEnum (const XmlObjMgt_DOMString& theString,
100                                           TDataXtd_GeometryEnum&     theResult) 
101 {
102   TDataXtd_GeometryEnum aResult = TDataXtd_ANY_GEOM;
103   if (!theString.equals (::GeomAnyString()))
104   {
105     if (theString.equals (::GeomPointString()))
106       aResult = TDataXtd_POINT;
107     else if (theString.equals (::GeomLineString()))
108       aResult = TDataXtd_LINE;
109     else if (theString.equals (::GeomCircleString()))
110       aResult = TDataXtd_CIRCLE;
111     else if (theString.equals (::GeomEllipseString()))
112       aResult = TDataXtd_ELLIPSE;
113     else
114       return Standard_False;
115   }
116   theResult = aResult;
117   return Standard_True;
118 }
119
120 //=======================================================================
121 //function : GeometryTypeString
122 //purpose  : 
123 //=======================================================================
124 static const XmlObjMgt_DOMString& GeometryTypeString
125                                         (const TDataXtd_GeometryEnum theE) 
126 {
127   switch (theE)
128   {
129   case TDataXtd_ANY_GEOM : return ::GeomAnyString();
130   case TDataXtd_POINT    : return ::GeomPointString();
131   case TDataXtd_LINE     : return ::GeomLineString();
132   case TDataXtd_CIRCLE   : return ::GeomCircleString();
133   case TDataXtd_ELLIPSE  : return ::GeomEllipseString();
134     
135   default:
136     throw Standard_DomainError("TDataXtd_GeometryEnum; enum term unknown");
137   }
138 }