Integration of OCCT 6.5.0 from SVN

src/RWStepBasic/RWStepBasic_RWSiUnitAndTimeUnit.cxx

@@ -0,0 +1,112 @@
+#include <RWStepBasic_RWSiUnitAndTimeUnit.ixx>
+#include <StepBasic_SiUnit.hxx>
+#include <StepBasic_TimeUnit.hxx>
+#include <StepBasic_DimensionalExponents.hxx>
+#include <StepBasic_SiPrefix.hxx>
+#include <StepBasic_SiUnitName.hxx>
+#include <RWStepBasic_RWSiUnit.hxx>
+
+
+//=======================================================================
+//function : RWStepBasic_RWSiUnitAndTimeUnit
+//purpose  : 
+//=======================================================================
+
+RWStepBasic_RWSiUnitAndTimeUnit::RWStepBasic_RWSiUnitAndTimeUnit ()
+{
+}
+
+
+//=======================================================================
+//function : ReadStep
+//purpose  : 
+//=======================================================================
+
+void RWStepBasic_RWSiUnitAndTimeUnit::ReadStep (const Handle(StepData_StepReaderData)& data,
+						const Standard_Integer num0,
+						Handle(Interface_Check)& ach,
+						const Handle(StepBasic_SiUnitAndTimeUnit)& ent) const
+{
+  Standard_Integer num = num0;
+
+  // --- Instance of common supertype NamedUnit ---
+  if (!data->CheckNbParams(num,1,ach,"named_unit")) return;
+  
+  // --- field : dimensions ---
+  // --- this field is redefined ---
+  //szv#4:S4163:12Mar99 `Standard_Boolean stat1 =`
+  data->CheckDerived(num,1,"dimensions",ach,Standard_False);
+
+  // --- Instance of plex componant SiUnit ---
+  num = data->NextForComplex(num);
+  if (!data->CheckNbParams(num,2,ach,"si_unit")) return;
+
+  // --- field : prefix ---
+  RWStepBasic_RWSiUnit reader;
+  StepBasic_SiPrefix aPrefix;
+  Standard_Boolean hasAprefix = Standard_False;
+  if (data->IsParamDefined(num,1)) {
+    if (data->ParamType(num,1) == Interface_ParamEnum) {
+      Standard_CString text = data->ParamCValue(num,1);
+      hasAprefix = reader.DecodePrefix(aPrefix,text);
+      if(!hasAprefix)
+	ach->AddFail("Enumeration si_prefix has not an allowed value");
+    }
+    else ach->AddFail("Parameter #1 (prefix) is not an enumeration");
+  }
+  
+  // --- field : name ---
+  StepBasic_SiUnitName aName;
+  if (data->ParamType(num,2) == Interface_ParamEnum) {
+    Standard_CString text = data->ParamCValue(num,2);
+    if(!reader.DecodeName(aName,text))
+      ach->AddFail("Enumeration si_unit_name has not an allowed value");
+  }
+  else ach->AddFail("Parameter #2 (name) is not an enumeration");
+  
+  // --- Instance of plex componant TimeUnit ---
+  num = data->NextForComplex(num);
+  if (!data->CheckNbParams(num,0,ach,"time_unit")) return;
+
+  //--- Initialisation of the red entity ---
+  ent->Init(hasAprefix,aPrefix,aName);
+}
+
+
+//=======================================================================
+//function : WriteStep	
+//purpose  : 
+//=======================================================================
+
+void RWStepBasic_RWSiUnitAndTimeUnit::WriteStep	(StepData_StepWriter& SW,
+						 const Handle(StepBasic_SiUnitAndTimeUnit)& ent) const
+{
+
+  // --- Instance of plex componant TimeUnit ---
+  //SW.StartEntity("TIME_UNIT");
+
+  // --- Instance of common supertype NamedUnit ---
+  SW.StartEntity("NAMED_UNIT");
+  
+  // --- field : dimensions ---
+  // --- redefined field ---
+  SW.SendDerived();
+
+  // --- Instance of plex componant SiUnit ---
+  SW.StartEntity("SI_UNIT");
+  
+  // --- field : prefix ---
+  RWStepBasic_RWSiUnit writer;
+  Standard_Boolean hasAprefix = ent->HasPrefix();
+  if (hasAprefix) 
+    SW.SendEnum(writer.EncodePrefix(ent->Prefix()));
+  else
+    SW.SendUndef();
+  
+  // --- field : name ---
+  SW.SendEnum(writer.EncodeName(ent->Name()));
+
+  // --- Instance of plex componant TimeUnit ---
+  SW.StartEntity("TIME_UNIT");
+
+}