Salome HOME
Movement of examples to CVS EXAMPLES SAMPLES_SRC.
[modules/smesh.git] / src / StdMeshers_I / StdMeshers_StartEndLength_i.cxx
1 //  SMESH SMESH_I : idl implementation based on 'SMESH' unit's calsses
2 //
3 //  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 //  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS 
5 // 
6 //  This library is free software; you can redistribute it and/or 
7 //  modify it under the terms of the GNU Lesser General Public 
8 //  License as published by the Free Software Foundation; either 
9 //  version 2.1 of the License. 
10 // 
11 //  This library is distributed in the hope that it will be useful, 
12 //  but WITHOUT ANY WARRANTY; without even the implied warranty of 
13 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
14 //  Lesser General Public License for more details. 
15 // 
16 //  You should have received a copy of the GNU Lesser General Public 
17 //  License along with this library; if not, write to the Free Software 
18 //  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA 
19 // 
20 //  See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org 
21 //
22 //
23 //
24 //  File   : StdMeshers_StartEndLength_i.cxx
25 //           Moved here from SMESH_LocalLength_i.cxx
26 //  Author : Paul RASCLE, EDF
27 //  Module : SMESH
28 //  $Header$
29
30 using namespace std;
31 #include "StdMeshers_StartEndLength_i.hxx"
32 #include "SMESH_Gen_i.hxx"
33 #include "SMESH_Gen.hxx"
34
35 #include "Utils_CorbaException.hxx"
36 #include "utilities.h"
37
38 #include <TCollection_AsciiString.hxx>
39
40 //=============================================================================
41 /*!
42  *  StdMeshers_StartEndLength_i::StdMeshers_StartEndLength_i
43  *
44  *  Constructor
45  */
46 //=============================================================================
47
48 StdMeshers_StartEndLength_i::StdMeshers_StartEndLength_i( PortableServer::POA_ptr thePOA,
49                                                          int                     theStudyId,
50                                                          ::SMESH_Gen*            theGenImpl )
51      : SALOME::GenericObj_i( thePOA ), 
52        SMESH_Hypothesis_i( thePOA )
53 {
54   MESSAGE( "StdMeshers_StartEndLength_i::StdMeshers_StartEndLength_i" );
55   myBaseImpl = new ::StdMeshers_StartEndLength( theGenImpl->GetANewId(),
56                                                theStudyId,
57                                                theGenImpl );
58 }
59
60 //=============================================================================
61 /*!
62  *  StdMeshers_StartEndLength_i::~StdMeshers_StartEndLength_i
63  *
64  *  Destructor
65  */
66 //=============================================================================
67
68 StdMeshers_StartEndLength_i::~StdMeshers_StartEndLength_i()
69 {
70   MESSAGE( "StdMeshers_StartEndLength_i::~StdMeshers_StartEndLength_i" );
71 }
72
73 //=============================================================================
74 /*!
75  *  StdMeshers_StartEndLength_i::SetLength
76  *
77  *  Set length
78  */
79 //=============================================================================
80
81 void StdMeshers_StartEndLength_i::SetLength(CORBA::Double theLength,
82                                             CORBA::Boolean theIsStart )
83      throw ( SALOME::SALOME_Exception )
84 {
85   MESSAGE( "StdMeshers_StartEndLength_i::SetLength" );
86   ASSERT( myBaseImpl );
87   try {
88     this->GetImpl()->SetLength( theLength, theIsStart );
89   }
90   catch ( SALOME_Exception& S_ex ) {
91     THROW_SALOME_CORBA_EXCEPTION( S_ex.what(),
92                                   SALOME::BAD_PARAM );
93   }
94
95   // Update Python script
96   TCollection_AsciiString aStr, aStrLen ((double)theLength), aStrFlag ((int)theIsStart);
97   SMESH_Gen_i::AddObject(aStr, _this()) += ".SetLength(";
98   aStr += aStrLen + ", " + aStrFlag + ")";
99
100   SMESH_Gen_i::AddToCurrentPyScript(aStr);
101 }
102
103 //=============================================================================
104 /*!
105  *  StdMeshers_StartEndLength_i::GetLength
106  *
107  *  Get length
108  */
109 //=============================================================================
110
111 CORBA::Double StdMeshers_StartEndLength_i::GetLength( CORBA::Boolean theIsStart)
112 {
113   MESSAGE( "StdMeshers_StartEndLength_i::GetLength" );
114   ASSERT( myBaseImpl );
115   return this->GetImpl()->GetLength( theIsStart );
116 }
117
118 //=============================================================================
119 /*!
120  *  StdMeshers_StartEndLength_i::GetImpl
121  *
122  *  Get implementation
123  */
124 //=============================================================================
125
126 ::StdMeshers_StartEndLength* StdMeshers_StartEndLength_i::GetImpl()
127 {
128   MESSAGE( "StdMeshers_StartEndLength_i::GetImpl" );
129   return ( ::StdMeshers_StartEndLength* )myBaseImpl;
130 }
131
132 //================================================================================
133 /*!
134  * \brief Verify whether hypothesis supports given entity type 
135   * \param type - dimension (see SMESH::Dimension enumeration)
136   * \retval CORBA::Boolean - TRUE if dimension is supported, FALSE otherwise
137  * 
138  * Verify whether hypothesis supports given entity type (see SMESH::Dimension enumeration)
139  */
140 //================================================================================  
141 CORBA::Boolean StdMeshers_StartEndLength_i::IsDimSupported( SMESH::Dimension type )
142 {
143   return type == SMESH::DIM_1D;
144 }
145