0026377: Passing Handle objects as arguments to functions as non-const reference...
[occt.git] / src / IGESAppli / IGESAppli_LevelToPWBLayerMap.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-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 //--------------------------------------------------------------------
18
19 #include <IGESAppli_LevelToPWBLayerMap.hxx>
20 #include <Standard_DimensionMismatch.hxx>
21 #include <Standard_OutOfRange.hxx>
22 #include <Standard_Type.hxx>
23 #include <TCollection_HAsciiString.hxx>
24
25 IMPLEMENT_STANDARD_RTTIEXT(IGESAppli_LevelToPWBLayerMap,IGESData_IGESEntity)
26
27 IGESAppli_LevelToPWBLayerMap::IGESAppli_LevelToPWBLayerMap ()    {  }
28
29
30     void  IGESAppli_LevelToPWBLayerMap::Init
31   (const Standard_Integer nbPropVal,
32    const Handle(TColStd_HArray1OfInteger)& allExchLevels,
33    const Handle(Interface_HArray1OfHAsciiString)& allNativeLevels,
34    const Handle(TColStd_HArray1OfInteger)& allPhysLevels,
35    const Handle(Interface_HArray1OfHAsciiString)& allExchIdents)
36 {
37   Standard_Integer num = allExchLevels->Length();
38   if ( allExchLevels->Lower()   != 1 ||
39       (allNativeLevels->Lower() != 1 || allNativeLevels->Length() != num) ||
40       (allPhysLevels->Lower()   != 1 || allPhysLevels->Length()   != num) ||
41       (allExchIdents->Lower()   != 1 || allExchIdents->Length()   != num) )
42     Standard_DimensionMismatch::Raise("IGESAppli_LevelToPWBLayerMap: Init");
43   theNbPropertyValues        = nbPropVal;
44   theExchangeFileLevelNumber = allExchLevels;
45   theNativeLevel             = allNativeLevels;
46   thePhysicalLayerNumber     = allPhysLevels;
47   theExchangeFileLevelIdent  = allExchIdents;
48   InitTypeAndForm(406,24);
49 }
50
51     Standard_Integer  IGESAppli_LevelToPWBLayerMap::NbPropertyValues () const
52 {
53   return theNbPropertyValues;
54 }
55
56     Standard_Integer  IGESAppli_LevelToPWBLayerMap::NbLevelToLayerDefs () const
57 {
58   return theExchangeFileLevelNumber->Length();
59 }
60
61     Standard_Integer  IGESAppli_LevelToPWBLayerMap::ExchangeFileLevelNumber
62   (const Standard_Integer Index) const
63 {
64   return theExchangeFileLevelNumber->Value(Index);
65 }
66
67     Handle(TCollection_HAsciiString)  IGESAppli_LevelToPWBLayerMap::NativeLevel
68   (const Standard_Integer Index) const
69 {
70   return theNativeLevel->Value(Index);
71 }
72
73     Standard_Integer  IGESAppli_LevelToPWBLayerMap::PhysicalLayerNumber
74   (const Standard_Integer Index) const
75 {
76   return thePhysicalLayerNumber->Value(Index);
77 }
78
79     Handle(TCollection_HAsciiString)  IGESAppli_LevelToPWBLayerMap::ExchangeFileLevelIdent
80   (const Standard_Integer Index) const
81 {
82   return theExchangeFileLevelIdent->Value(Index);
83 }