0031668: Visualization - WebGL sample doesn't work on Emscripten 1.39
[occt.git] / src / RWHeaderSection / RWHeaderSection_RWFileDescription.cxx
old mode 100755 (executable)
new mode 100644 (file)
index af78dea..98ffe52
@@ -1,7 +1,23 @@
-
-#include <RWHeaderSection_RWFileDescription.ixx>
+// Copyright (c) 1999-2014 OPEN CASCADE SAS
+//
+// This file is part of Open CASCADE Technology software library.
+//
+// This library is free software; you can redistribute it and/or modify it under
+// the terms of the GNU Lesser General Public License version 2.1 as published
+// by the Free Software Foundation, with special exception defined in the file
+// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+// distribution for complete text of the license and disclaimer of any warranty.
+//
+// Alternatively, this file may be used under the terms of Open CASCADE
+// commercial license or contractual agreement.
+
+
+#include <HeaderSection_FileDescription.hxx>
+#include <Interface_Check.hxx>
 #include <Interface_HArray1OfHAsciiString.hxx>
-
+#include <RWHeaderSection_RWFileDescription.hxx>
+#include <StepData_StepReaderData.hxx>
+#include <StepData_StepWriter.hxx>
 
 RWHeaderSection_RWFileDescription::RWHeaderSection_RWFileDescription () {}
 
@@ -21,15 +37,17 @@ void RWHeaderSection_RWFileDescription::ReadStep
 
        Handle(Interface_HArray1OfHAsciiString) aDescription;
        Handle(TCollection_HAsciiString) aDescriptionItem;
-       Standard_Integer nsub1;
-       nsub1 = data->SubListNumber(num, 1, Standard_False);
+       Standard_Integer nsub1 = data->SubListNumber(num, 1, Standard_False);
        if (nsub1 !=0) {
          Standard_Integer nb1 = data->NbParams(nsub1);
-         aDescription = new Interface_HArray1OfHAsciiString (1, nb1);
-         for (Standard_Integer i1 = 1; i1 <= nb1; i1 ++) {
-           Standard_Boolean stat1 = data->ReadString
-                (nsub1,i1,"description",ach,aDescriptionItem);
-           if (stat1) aDescription->SetValue(i1,aDescriptionItem);
+         if (nb1 > 0)
+         {
+           aDescription = new Interface_HArray1OfHAsciiString (1, nb1);
+           for (Standard_Integer i1 = 1; i1 <= nb1; i1 ++) {
+             Standard_Boolean stat1 = data->ReadString
+                  (nsub1,i1,"description",ach,aDescriptionItem);
+             if (stat1) aDescription->SetValue(i1,aDescriptionItem);
+           }
          }
        }
        else {
@@ -39,8 +57,7 @@ void RWHeaderSection_RWFileDescription::ReadStep
        // --- own field : implementationLevel ---
 
        Handle(TCollection_HAsciiString) aImplementationLevel;
-       Standard_Boolean stat2;
-       stat2 = data->ReadString (num,2,"implementation_level",ach,aImplementationLevel);
+       data->ReadString (num,2,"implementation_level",ach,aImplementationLevel);
 
        //--- Initialisation of the read entity ---