Salome HOME
Correction pour les types des schémas.
[modules/homard.git] / src / HOMARDGUI / MonCreateYACS.cxx
1 // Copyright (C) 2011-2012  CEA/DEN, EDF R&D
2 //
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License.
7 //
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11 // Lesser General Public License for more details.
12 //
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
16 //
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
18 //
19
20 using namespace std;
21
22 #include "MonCreateYACS.h"
23
24 #include <QFileDialog>
25 #include <QMessageBox>
26
27 #include "SalomeApp_Tools.h"
28 #include "HOMARDGUI_Utils.h"
29 #include "HomardQtCommun.h"
30 #include <utilities.h>
31
32
33 // ----------------------------------------------------------------------
34 MonCreateYACS::MonCreateYACS (bool modal, HOMARD::HOMARD_Gen_var myHomardGen0, QString CaseName ):
35 // ----------------------------------------------------------------------
36 /* Constructs a MonCreateYACS
37  * Sets attributes to default values
38  */
39 // ----------------------------------------------------------------------
40   Ui_CreateYACS(),
41   _aCaseName(CaseName),
42   _aScriptFile(""),
43   _aDirName(""),
44   _aMeshFile(""),
45   _Type(1)
46   // La valeur de _Type doit etre la meme que celle dans HOMARD_Gen_i::CreateYACSSchema
47   // et doit correspondre aux defauts des boutons
48   {
49 //     MESSAGE("Debut du constructeur de MonCreateYACS");
50     myHomardGen=HOMARD::HOMARD_Gen::_duplicate(myHomardGen0);
51     setupUi(this);
52     setModal(modal);
53
54     InitConnect();
55
56     SetNewName() ;
57
58     if (_aCaseName != QString(""))
59       { SetCaseName(); }
60     else
61       {setModal(false); /* permet selection du cas dans l arbre d etude */}
62
63     adjustSize();
64 //     MESSAGE("Fin du constructeur de MonCreateYACS");
65   }
66
67 // ----------------------------------------------------------------------
68 MonCreateYACS::MonCreateYACS(HOMARD::HOMARD_Gen_var myHomardGen0,
69                              QString caseName):
70 // ----------------------------------------------------------------------
71 // Constructeur appele par MonEditYACS
72 //
73     myHomardGen(myHomardGen0),
74     _Name (""),
75     Chgt (false)
76     {
77 //       MESSAGE("Debut du constructeur de MonCreateYACS appele par MonEditYACS");
78       setupUi(this) ;
79
80       setModal(true) ;
81       InitConnect() ;
82     }
83
84 // ------------------------------------------------------------------------
85 MonCreateYACS::~MonCreateYACS()
86 // ------------------------------------------------------------------------
87 {
88     // no need to delete child widgets, Qt does it all for us
89 }
90 // ------------------------------------------------------------------------
91 void MonCreateYACS::InitConnect()
92 // ------------------------------------------------------------------------
93 {
94     connect( PBCaseName,     SIGNAL(pressed()), this, SLOT(SetCaseName()));
95     connect( PBScriptFile,   SIGNAL(pressed()), this, SLOT(SetScriptFile()));
96     connect( PBDir,          SIGNAL(pressed()), this, SLOT(SetDirName()));
97     connect( PBMeshFile,     SIGNAL(pressed()), this, SLOT(SetMeshFile()));
98
99     connect( RBConstant,     SIGNAL(clicked()), this, SLOT(SetConstant()));
100     connect( RBVariable,     SIGNAL(clicked()), this, SLOT(SetVariable()));
101
102     connect( buttonOk,       SIGNAL(pressed()), this, SLOT(PushOnOK()));
103     connect( buttonApply,    SIGNAL(pressed()), this, SLOT(PushOnApply()));
104     connect( buttonCancel,   SIGNAL(pressed()), this, SLOT(close()));
105     connect( buttonHelp,     SIGNAL(pressed()), this, SLOT(PushOnHelp()));
106 }
107 // -------------------------------
108 bool MonCreateYACS::PushOnApply()
109 // --------------------------------
110 {
111   MESSAGE("PushOnApply");
112
113 // Le fichier du script
114   QString aFileName=LEScriptFile->text().trimmed();
115   if (aFileName ==QString(""))
116   {
117     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
118                               QObject::tr("HOM_SCRIPT_FILE") );
119     return false;
120   }
121
122 // Le repertoire de calcul
123   QString aDirName=LEDirName->text().trimmed();
124   if (aDirName == QString(""))
125   {
126     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
127                               QObject::tr("HOM_CASE_DIRECTORY_4") );
128     return false;
129   }
130   if ((aDirName != _aDirName) and (myHomardGen->VerifieDir( aDirName.toStdString().c_str()) == false))
131   {
132     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
133                               QObject::tr("HOM_CASE_DIRECTORY_2") );
134     return false;
135   }
136   if (chdir(aDirName.toStdString().c_str()) != 0)
137   {
138     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
139                               QObject::tr("HOM_CASE_DIRECTORY_3") );
140     return false;
141   }
142
143 // Le fichier du tout premier maillage
144   aFileName=LEMeshFile->text().trimmed();
145   if (aFileName ==QString(""))
146   {
147     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
148                               QObject::tr("HOM_CASE_MESH") );
149     return false;
150   }
151   QString aMeshName = HOMARD_QT_COMMUN::LireNomMaillage(aFileName);
152   if (aMeshName == "" )
153   {
154     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
155                               QObject::tr("HOM_MED_FILE_2") );
156     return false;
157   }
158
159   bool bOK = CreateOrUpdate() ;
160
161   if ( bOK ) { HOMARD_UTILS::updateObjBrowser() ; }
162
163   return bOK;
164 }
165 // ---------------------------------------------------
166 bool MonCreateYACS:: CreateOrUpdate()
167 //----------------------------------------------------
168 //  Creation ou modification du schema
169 {
170   MESSAGE("CreateOrUpdate");
171   bool bOK = true ;
172
173   // Le cas
174   if ( _aCaseName == QString (""))
175   {
176     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
177                               QObject::tr("HOM_CASE_NAME") );
178     return false;
179   }
180   // Les donnees
181   QString aScriptFile=LEScriptFile->text().trimmed();
182   if ( aScriptFile != _aScriptFile )
183   {
184     _aScriptFile = aScriptFile ;
185     Chgt = true ;
186   }
187   QString aDirName=LEDirName->text().trimmed();
188   if ( aDirName != _aDirName )
189   {
190     _aDirName = aDirName ;
191     Chgt = true ;
192   }
193   QString aMeshFile=LEMeshFile->text().trimmed();
194   if ( aMeshFile != _aMeshFile )
195   {
196     _aMeshFile = aMeshFile ;
197     Chgt = true ;
198   }
199
200   // Creation de l'objet CORBA
201   try
202   {
203     _Name=LEName->text().trimmed();
204     aYACS=myHomardGen->CreateYACSSchema(CORBA::string_dup(_Name.toStdString().c_str()), CORBA::string_dup(_aCaseName.toStdString().c_str()), CORBA::string_dup(_aScriptFile.toStdString().c_str()), CORBA::string_dup(_aDirName.toStdString().c_str()), CORBA::string_dup(_aMeshFile.toStdString().c_str()));
205   }
206   catch( SALOME::SALOME_Exception& S_ex )
207   {
208     QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
209                               QObject::tr(CORBA::string_dup(S_ex.details.text)) );
210     bOK = false;
211   }
212
213   // Options
214   if ( bOK )
215   { aYACS->SetType(_Type) ; }
216
217   // Ecriture du fichier
218   if ( bOK )
219   {
220     int codret = aYACS->Write() ;
221     if ( codret != 0 ) { bOK = false ; }
222   }
223
224   return bOK;
225 }
226 // ---------------------------
227 void MonCreateYACS::PushOnOK()
228 // ---------------------------
229 {
230   bool bOK = PushOnApply();
231   if ( bOK ) this->close();
232 }
233 //------------------------------
234 void MonCreateYACS::PushOnHelp()
235 //-------------------------------
236 {
237   char* LanguageShort = myHomardGen->GetLanguageShort();
238   HOMARD_UTILS::PushOnHelp(QString("yacs.html"), QString(""), QString(LanguageShort));
239 }
240 // -------------------------------------------------
241 void MonCreateYACS::SetNewName()
242 // --------------------------------------------------
243 {
244
245   HOMARD::listeYACSs_var MyObjects = myHomardGen->GetAllYACSsName();
246   int num = 0; QString aName="";
247   while (aName == QString("") )
248   {
249     aName.setNum(num+1) ;
250     aName.insert(0, QString("YACS_")) ;
251     for ( int i=0; i<MyObjects->length(); i++)
252     {
253       if ( aName ==  QString(MyObjects[i]))
254       {
255           num=num+1;
256           aName="";
257           break;
258       }
259    }
260   }
261   LEName->setText(aName);
262 }
263 // ------------------------------------------------------------------------
264 void MonCreateYACS::SetCaseName()
265 // ------------------------------------------------------------------------
266 {
267   MESSAGE ("SetCaseName avec _aCaseName = " << _aCaseName.toStdString() );
268   if (_aCaseName == QString(""))
269   {
270     _aCaseName=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("CasHomard"), 1);
271     if (_aCaseName == QString("")) { raise();return;};
272   }
273   LECaseName->setText(_aCaseName);
274 }
275 // ------------------------------------------------------------------------
276 void MonCreateYACS::SetDirName()
277 // ------------------------------------------------------------------------
278 {
279   QString aDirName=QFileDialog::getExistingDirectory ();
280   if (!(aDirName.isEmpty()))LEDirName->setText(aDirName);
281 }
282 // ------------------------------------------------------------------------
283 void MonCreateYACS::SetScriptFile()
284 // ------------------------------------------------------------------------
285 {
286   QString fileName0 = LEScriptFile->text().trimmed();
287   QString fileName = HOMARD_QT_COMMUN::PushNomFichier(false);
288   if (fileName.isEmpty()) fileName = fileName0 ;
289   LEScriptFile->setText(fileName);
290 }
291 // ------------------------------------------------------------------------
292 void MonCreateYACS::SetMeshFile()
293 // ------------------------------------------------------------------------
294 {
295   QString fileName0 = LEMeshFile->text().trimmed();
296   QString fileName = HOMARD_QT_COMMUN::PushNomFichier(false);
297   if (fileName.isEmpty()) fileName = fileName0 ;
298   LEMeshFile->setText(fileName);
299 }
300 // ------------------------------------------------------------------------
301 void MonCreateYACS::SetConstant()
302 // ------------------------------------------------------------------------
303 {
304   _Type = 1 ;
305 }
306 // ------------------------------------------------------------------------
307 void MonCreateYACS::SetVariable()
308 // ------------------------------------------------------------------------
309 {
310   _Type = 2 ;
311 }