0031668: Visualization - WebGL sample doesn't work on Emscripten 1.39
[occt.git] / src / RWStepShape / RWStepShape_RWValueFormatTypeQualifier.cxx
1 // Created on: 2015-07-14
2 // Created by: Irina KRYLOVA
3 // Copyright (c) 2015 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 #include <RWStepShape_RWValueFormatTypeQualifier.hxx>
17
18 #include <StepData_StepReaderData.hxx>
19 #include <StepData_StepWriter.hxx>
20 #include <StepShape_ValueFormatTypeQualifier.hxx>
21
22 //=======================================================================
23 //function : RWStepShape_RWValueFormatTypeQualifier
24 //purpose  : 
25 //=======================================================================
26
27 RWStepShape_RWValueFormatTypeQualifier::RWStepShape_RWValueFormatTypeQualifier ()
28 {
29 }
30
31 //=======================================================================
32 //function : ReadStep
33 //purpose  : 
34 //=======================================================================
35
36 void RWStepShape_RWValueFormatTypeQualifier::ReadStep (const Handle(StepData_StepReaderData)& data,
37                                                        const Standard_Integer num,
38                                                        Handle(Interface_Check)& ach,
39                                                        const Handle(StepShape_ValueFormatTypeQualifier) &ent) const
40 {
41   // Check number of parameters
42   if ( ! data->CheckNbParams(num,1,ach,"value_format_type_qualifier") ) return;
43
44   // Own fields of ValueFormatTypeQualifier
45
46   Handle(TCollection_HAsciiString) aFormatType;
47   data->ReadString (num, 1, "format_type", ach, aFormatType);
48
49   // Initialize entity
50   ent->Init(aFormatType);
51 }
52
53 //=======================================================================
54 //function : WriteStep
55 //purpose  : 
56 //=======================================================================
57
58 void RWStepShape_RWValueFormatTypeQualifier::WriteStep (StepData_StepWriter& SW,
59                                                         const Handle(StepShape_ValueFormatTypeQualifier) &ent) const
60 {
61   SW.Send (ent->FormatType());
62 }