2021-09-28 11:58:49 +02:00
|
|
|
|
|
|
|
// 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.
|
|
|
|
//
|
2023-05-03 17:23:49 +02:00
|
|
|
// Copyright (C) 1997-2022 Université Bretagne Sud (France)
|
2021-09-28 11:58:49 +02:00
|
|
|
// 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/>.
|
|
|
|
|
|
|
|
/************************************************************************
|
|
|
|
* DATE: 23/01/97 *
|
|
|
|
* $ *
|
|
|
|
* AUTEUR: G RIO (mailto:gerardrio56@free.fr) *
|
|
|
|
* $ *
|
|
|
|
* PROJET: Herezh++ *
|
|
|
|
* $ *
|
|
|
|
************************************************************************
|
|
|
|
* BUT: Class template pour la lecture d'unbloc delimite par : *
|
|
|
|
* mots cles. *
|
|
|
|
* $ *
|
|
|
|
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' * *
|
|
|
|
* VERIFICATION: *
|
|
|
|
* *
|
|
|
|
* ! date ! auteur ! but ! *
|
|
|
|
* ------------------------------------------------------------ *
|
|
|
|
* ! ! ! ! *
|
|
|
|
* $ *
|
|
|
|
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
|
|
|
|
* MODIFICATIONS: *
|
|
|
|
* ! date ! auteur ! but ! *
|
|
|
|
* ------------------------------------------------------------ *
|
|
|
|
* $ *
|
|
|
|
************************************************************************/
|
|
|
|
#ifndef LECTBLOC_T_H
|
|
|
|
#define LECTBLOC_T_H
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
using namespace std; //introduces namespace std
|
|
|
|
|
|
|
|
#include <iostream>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include "Sortie.h"
|
|
|
|
#include "UtilLecture.h"
|
|
|
|
#include "LesReferences.h"
|
|
|
|
#include "string"
|
|
|
|
#include "MotCle.h"
|
|
|
|
#include <list>
|
|
|
|
#include "string.h"
|
|
|
|
#include "Tableau_T.h"
|
|
|
|
#include "Constante.h"
|
|
|
|
#include "ParaGlob.h"
|
|
|
|
|
|
|
|
|
|
|
|
template <class T>
|
|
|
|
|
|
|
|
/// @addtogroup Goupe_relatif_aux_entrees_sorties
|
|
|
|
/// @{
|
|
|
|
///
|
|
|
|
|
|
|
|
|
|
|
|
class LectBloc
|
|
|
|
{
|
|
|
|
public :
|
|
|
|
// CONSTRUCTEURS :
|
|
|
|
LectBloc () {};
|
|
|
|
// DESTRUCTEUR :
|
|
|
|
~LectBloc () {};
|
|
|
|
// METHODES PUBLIQUES :
|
|
|
|
|
|
|
|
// lecture d'un bloc
|
|
|
|
// entreePrinc : stream de lecture ( sur le fichier d'entree)
|
|
|
|
// lesRef : liste des references generale lue
|
|
|
|
// motcle de debut de lecture
|
|
|
|
// message : a afficher en cas d'erreur
|
|
|
|
// tab : tableau des information a lire
|
|
|
|
// il faut que la classe T possede les proprietees suivantes :
|
|
|
|
// 1) constructeur par defaut, 2) NomRef() fourni une reference sur un string contenant la
|
|
|
|
// reference d'identification de l'instance, 3) les operators == , !=
|
|
|
|
// et = doivent etre surcharges, 4) Lecture(UtilLecture &) une fonction qui permet de lire
|
|
|
|
// une instance de T sur l'unite UtilLecture , 5) Affiche () une fonction qui affiche les infos
|
|
|
|
// specifique a la classe T, 6) NomMaillage() qui ramène un pointeur sur un nom de maillage
|
|
|
|
// éventuelle, le pointeur peut sinon être null.
|
|
|
|
// les derniers arguments sont par defaut, il permet de specifier un tableau de sous mot cle
|
|
|
|
// delimitant des sous blocs.
|
|
|
|
// la lecture s'arretera lorsque l'on aura trouve soit un mot cle ou soit un sous mot cle
|
|
|
|
// saut : indique si l'instance T est a lire immediatement ou s'il faut demander une
|
|
|
|
// nouvelle ligne avant sa lecture
|
|
|
|
|
|
|
|
void Lecture(UtilLecture & entreePrinc,LesReferences& lesRef,
|
|
|
|
string motcle, string message,Tableau<T>& tab,
|
|
|
|
Tableau<string>& TsousMot = tab_Zero_string, bool saut = true);
|
|
|
|
|
|
|
|
|
|
|
|
private :
|
|
|
|
// VARIABLES PROTEGEES :
|
|
|
|
// CONSTRUCTEURS :
|
|
|
|
|
|
|
|
// DESTRUCTEUR :
|
|
|
|
|
|
|
|
// METHODES PROTEGEES :
|
|
|
|
|
|
|
|
};
|
|
|
|
/// @} // end of group
|
|
|
|
|
|
|
|
template <class T>
|
|
|
|
// lecture d'un bloc
|
|
|
|
void LectBloc<T>::Lecture(UtilLecture & entreePrinc,LesReferences& lesRef,
|
|
|
|
string motcle, string message,Tableau<T>& tab,Tableau<string>& TsousMot,
|
|
|
|
bool saut )
|
|
|
|
{ MotCle motCle(TsousMot); // ref aux mots cle
|
|
|
|
if (strstr(entreePrinc.tablcar,motcle.c_str())!=NULL)
|
|
|
|
{ if (ParaGlob::NiveauImpression() >= 7)
|
|
|
|
cout << " lecture " << motcle << flush;
|
|
|
|
if (saut) entreePrinc.NouvelleDonnee();
|
|
|
|
list <T> lili;
|
|
|
|
T elem;
|
|
|
|
while ( !motCle.SimotCle(entreePrinc.tablcar))
|
|
|
|
{ // on initialise elem à partir d'une variable nouvellement construite par défaut
|
|
|
|
T initial;
|
|
|
|
elem = initial;
|
|
|
|
// lecture
|
|
|
|
elem.Lecture(entreePrinc);
|
|
|
|
// on regarde si cela correspond bien a une reference existante
|
|
|
|
if (!lesRef.Existe(elem.NomRef(),elem.NomMaillage()))
|
|
|
|
{ cout << "\n erreur, la ref " << elem.NomRef() << " de(s) " << motcle << " ne correspond a aucun element"
|
|
|
|
<< " de la liste de reference lue !! \n";
|
|
|
|
elem.Affiche();
|
|
|
|
cout << " LectBloc::Lecture( etc ..."
|
|
|
|
<< endl;
|
|
|
|
entreePrinc.MessageBuffer(message);
|
|
|
|
throw (UtilLecture::ErrNouvelleDonnee(-1));
|
|
|
|
Sortie (1);
|
|
|
|
};
|
|
|
|
// on verifie que l'on n'utilise pas deux fois la meme reference
|
|
|
|
// pour deux cibles differentes
|
|
|
|
typename list <T>::iterator ii;
|
|
|
|
for (ii=lili.begin() ; ii != lili.end(); ii++)
|
|
|
|
// if (((*ii).NomRef() == elem.NomRef()) && ((*ii) != elem)) pour adaptation linux
|
|
|
|
if (((*ii).NomRef() == elem.NomRef()) && (!(elem == (*ii)))
|
|
|
|
&& ((*ii).MemeCibleMaisDataDifferents(elem)) )
|
|
|
|
{ // on regarde pour le nom de maillage
|
|
|
|
bool message = true;
|
|
|
|
// si les deux maillages sont différents il n'y a pas d'erreur
|
|
|
|
if (((*ii).NomMaillage() != NULL) && (elem.NomMaillage()!=NULL))
|
|
|
|
if ( *((*ii).NomMaillage()) != *(elem.NomMaillage())) message = false;
|
|
|
|
if ((message) && (ParaGlob::NiveauImpression() > 0))
|
|
|
|
{// on écrit un message pour avertir de l'utilisation d'une référence plusieurs
|
|
|
|
// fois
|
|
|
|
cout << "\n ---- remarque ----- , un meme nom de reference est utilisee pour"
|
|
|
|
<< " deux cibles differentes \n";
|
|
|
|
cout << " premiere cible : "; (*ii).Affiche();
|
|
|
|
cout << " seconde cible : "; elem.Affiche() ;
|
|
|
|
if (ParaGlob::NiveauImpression() >= 4)
|
|
|
|
cout << " LectBloc::Lecture( etc etc .." ;
|
|
|
|
cout << endl;
|
|
|
|
};
|
|
|
|
/* cout << "\n erreur , un meme nom de reference est utilisee pour"
|
|
|
|
<< " deux cibles differentes \n";
|
|
|
|
cout << " premiere cible : "; (*ii).Affiche();
|
|
|
|
cout << " seconde cible : "; elem.Affiche();
|
|
|
|
cout << " LectBloc::Lecture( etc etc .." << endl;
|
|
|
|
entreePrinc.MessageBuffer(message);
|
|
|
|
throw (UtilLecture::ErrNouvelleDonnee(-1));
|
|
|
|
Sortie (1); */
|
|
|
|
};
|
|
|
|
// stockage
|
|
|
|
lili.push_back(elem);
|
|
|
|
entreePrinc.NouvelleDonnee();
|
|
|
|
}
|
|
|
|
// enregistrement des infos
|
|
|
|
int ancien = tab.Taille();
|
|
|
|
tab.Change_taille(((int)lili.size())+ancien);
|
|
|
|
typename list <T>::iterator i,ifin=lili.end();
|
|
|
|
int j;
|
|
|
|
for (i=lili.begin(),j=1 ; i != ifin; i++,j++)
|
|
|
|
tab(j+ancien) = *i;
|
|
|
|
};
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#endif
|