164 lines
6.8 KiB
C++
Executable file
164 lines
6.8 KiB
C++
Executable file
|
|
// This file is part of the Herezh++ application.
|
|
//
|
|
// The finite element software Herezh++ is dedicated to the field
|
|
// of mechanics for large transformations of solid structures.
|
|
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
|
|
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
|
|
//
|
|
// Herezh++ is distributed under GPL 3 license ou ultérieure.
|
|
//
|
|
// Copyright (C) 1997-2021 Université Bretagne Sud (France)
|
|
// AUTHOR : Gérard Rio
|
|
// E-MAIL : gerardrio56@free.fr
|
|
//
|
|
// This program is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License,
|
|
// or (at your option) any later version.
|
|
//
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty
|
|
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
// See the GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
//
|
|
// For more information, please consult: <https://herezh.irdl.fr/>.
|
|
|
|
#include "LectBlocMot.h"
|
|
|
|
|
|
BlocDdlLim< BlocGen> LectBlocmot::Lecture
|
|
(UtilLecture & entreePrinc,LesReferences& lesRef,string message,
|
|
Tableau<string>& tabMot,Tableau<string>& TsousMot)
|
|
{ MotCle motCle(TsousMot); // ref aux mots cle
|
|
// tout d'abord lecture de la reference
|
|
list <string> lili;
|
|
string elem,nom; string* nom_mail=NULL;string nom_du_maillage("");
|
|
// try
|
|
{ // on regarde tout d'abord si il y a un nom de maillage, qui doit être le premier nom
|
|
*(entreePrinc.entree) >> nom;
|
|
if (nom == "nom_mail=")
|
|
{ // cas où il y a un nom de maillage
|
|
*(entreePrinc.entree) >> nom_du_maillage; // lecture du nom
|
|
nom_mail = &nom_du_maillage;
|
|
// puis on prépare la suite en lisant la référence
|
|
*(entreePrinc.entree) >> nom;
|
|
}
|
|
if ((nom.length() == 0) || (nom[0] == ' '))
|
|
// cas d'une chaine vide d'interet
|
|
{ // il n'y a pas de reference
|
|
// on retourne un bloc vide
|
|
BlocDdlLim< BlocGen> blocMot1(nom_mail,BlocGen(0,0));
|
|
return blocMot1;
|
|
}
|
|
// on regarde si cela correspond bien a une reference existante
|
|
if (!lesRef.Existe(nom,nom_mail))
|
|
{ cout << "\n erreur, la ref " << nom ;
|
|
if (nom_mail != NULL) cout << " du maillage " << *nom_mail;
|
|
cout << " ne correspond a aucun element"
|
|
<< " de la liste de reference lue !! \n";
|
|
cout << " LectBlocmot::Lecture( etc ..."
|
|
<< endl;
|
|
entreePrinc.MessageBuffer(message);
|
|
throw (UtilLecture::ErrNouvelleDonnee(-1));
|
|
Sortie (1);
|
|
}
|
|
// stockage
|
|
lili.push_back(nom);
|
|
entreePrinc.NouvelleDonnee();
|
|
}
|
|
/* catch (UtilLecture::ErrNouvelleDonnee erreur)
|
|
{ // il n'y a pas de reference
|
|
// on retourne un bloc vide
|
|
BlocGen blocMot2(0,0);
|
|
return blocMot2;
|
|
} */
|
|
// try
|
|
{ // cas ou l'on a lue une reference
|
|
// lecture de la liste de mot permettant un controle de la sortie
|
|
int il = 0; // nombre de string lu
|
|
bool fin = false;
|
|
// les deux cas qui font sortir de la boucle sont l'apparition
|
|
// d'un mot cle (ou sous mot cle) ou une erreur en lecture d'un string
|
|
// apres une bonne lecture sur la meme ligne
|
|
bool aumoinsune = true;
|
|
bool prem = true; // ne sert que pour le cas ou il n'y a pas de mot
|
|
while ( !fin & aumoinsune)
|
|
{ aumoinsune = false;
|
|
// lecture sur une ligne
|
|
while (!entreePrinc.entree->rdstate()) // lecture tant qu'il n'y a pas d'erreur
|
|
{*(entreePrinc.entree) >> elem; // lecture d'un string
|
|
if ((entreePrinc.entree->rdstate() == 0) ||
|
|
(entreePrinc.entree->eof()))
|
|
// pour mémoire ici on a
|
|
/* enum io_state
|
|
{ badbit = 1<<0, // -> 1 dans rdstate()
|
|
eofbit = 1<<1, // -> 2
|
|
failbit = 1<<2, // -> 4
|
|
goodbit = 0 // -> O
|
|
};*/
|
|
{ // verification que le nom est acceptable
|
|
if(!ExisteString (tabMot,elem))
|
|
{ cout << "\n erreur, le mot lue " << elem
|
|
<< " ne correspond a aucun element acceptable \n";
|
|
if (ParaGlob::NiveauImpression() > 0)
|
|
{ cout << "\n liste des mots acceptables: "
|
|
<< tabMot << endl ;
|
|
};
|
|
if (ParaGlob::NiveauImpression() > 3)
|
|
cout << " LectBlocmot::Lecture( etc ..."
|
|
<< endl;
|
|
entreePrinc.MessageBuffer(message);
|
|
throw (UtilLecture::ErrNouvelleDonnee(-1));
|
|
Sortie (1);
|
|
}
|
|
il++;
|
|
aumoinsune = true;
|
|
prem = false;
|
|
lili.push_back(elem);
|
|
}
|
|
}
|
|
if ((aumoinsune) || prem )
|
|
{ entreePrinc.NouvelleDonnee(); // lecture d'une nouvelle ligne
|
|
if (motCle.SimotCle(entreePrinc.tablcar))
|
|
// c'est un mot cle
|
|
fin = true;
|
|
}
|
|
else
|
|
// remise correcte du flot pour une prochaine lecture
|
|
entreePrinc.FlotDebutDonnee();
|
|
}
|
|
// enregistrement
|
|
if (il == 0 )
|
|
{ // cas d'une liste sans mot specifie
|
|
BlocDdlLim< BlocGen> blocMot3(nom_mail,BlocGen(1,0));
|
|
// blocMot3.Nom(1) = nom;
|
|
blocMot3.Change_nom(1, nom);
|
|
return blocMot3;
|
|
}
|
|
else
|
|
{ list <string>::iterator i; // def d'un iterator adoc
|
|
BlocDdlLim< BlocGen> blocMot4(nom_mail,BlocGen((int)lili.size(),0));
|
|
int j;
|
|
for (i=lili.begin(),j=1 ; i != lili.end(); i++,j++)
|
|
// blocMot4.Nom(j) = *i;
|
|
blocMot4.Change_nom(j, *i);
|
|
return blocMot4;
|
|
}
|
|
}
|
|
/* catch (UtilLecture::ErrNouvelleDonnee erreur)
|
|
{ entreePrinc.ErreurLecture(erreur,"** lecture d\'une liste de mot **");
|
|
entreePrinc.MessageBuffer(message);
|
|
throw (UtilLecture::ErrNouvelleDonnee(-1));
|
|
Sortie (1);
|
|
}*/
|
|
// retour de rien pour la compilation
|
|
// mais en fait on ne passe jamais ici
|
|
BlocDdlLim< BlocGen> blocMot5(nom_mail,BlocGen(0,0));
|
|
return blocMot5;
|
|
};
|
|
|
|
|