0029944: Porting to VC 2017 : Regressions on the gcc (Debian 4.9.2-10) 4.9.2. Excepti...
[occt.git] / src / StepData / StepData_DescrProtocol.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14
15 #include <Interface_GeneralLib.hxx>
16 #include <Interface_ReaderLib.hxx>
17 #include <Standard_Type.hxx>
18 #include <StepData_DescrGeneral.hxx>
19 #include <StepData_DescrProtocol.hxx>
20 #include <StepData_DescrReadWrite.hxx>
21 #include <StepData_WriterLib.hxx>
22
23 IMPLEMENT_STANDARD_RTTIEXT(StepData_DescrProtocol,StepData_FileProtocol)
24
25 StepData_DescrProtocol::StepData_DescrProtocol ()    {  }
26
27     void  StepData_DescrProtocol::SetSchemaName (const Standard_CString name)
28       {  thename.Clear();  thename.AssignCat (name);  }
29
30     void  StepData_DescrProtocol::LibRecord () const
31 {
32   if (!HasDescr()) return;  // rien a recorder dans la lib ?
33   Handle(StepData_DescrGeneral)   gen = new StepData_DescrGeneral   (this);
34   Handle(StepData_DescrReadWrite) rwm = new StepData_DescrReadWrite (this);
35   Interface_GeneralLib::SetGlobal (gen,this);
36   Interface_ReaderLib::SetGlobal   (rwm,this);
37   StepData_WriterLib::SetGlobal   (rwm,this);
38 }
39
40     Standard_CString  StepData_DescrProtocol::SchemaName () const
41       {  return thename.ToCString();  }