src/IFSelect/IFSelect_SessionFile.cxx

   1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   2 //
   3 // This file is part of Open CASCADE Technology software library.
   4 //
   5 // This library is free software; you can redistribute it and/or modify it under
   6 // the terms of the GNU Lesser General Public License version 2.1 as published
   7 // by the Free Software Foundation, with special exception defined in the file
   8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
   9 // distribution for complete text of the license and disclaimer of any warranty.
  10 //
  11 // Alternatively, this file may be used under the terms of Open CASCADE
  12 // commercial license or contractual agreement.
  13
  14
  15 #include <IFSelect_BasicDumper.hxx>
  16 #include <IFSelect_Dispatch.hxx>
  17 #include <IFSelect_GeneralModifier.hxx>
  18 #include <IFSelect_IntParam.hxx>
  19 #include <IFSelect_Modifier.hxx>
  20 #include <IFSelect_SelectAnyList.hxx>
  21 #include <IFSelect_SelectAnyType.hxx>
  22 #include <IFSelect_SelectCombine.hxx>
  23 #include <IFSelect_SelectControl.hxx>
  24 #include <IFSelect_SelectDeduct.hxx>
  25 #include <IFSelect_SelectExtract.hxx>
  26 #include <IFSelect_Selection.hxx>
  27 #include <IFSelect_SessionDumper.hxx>
  28 #include <IFSelect_SessionFile.hxx>
  29 #include <IFSelect_ShareOut.hxx>
  30 #include <IFSelect_Transformer.hxx>
  31 #include <IFSelect_WorkSession.hxx>
  32 #include <Interface_Macros.hxx>
  33 #include <Message.hxx>
  34 #include <Message_Messenger.hxx>
  35 #include <OSD_OpenFile.hxx>
  36 #include <Standard_Transient.hxx>
  37 #include <TCollection_AsciiString.hxx>
  38 #include <TCollection_HAsciiString.hxx>
  39 #include <TColStd_HSequenceOfInteger.hxx>
  40
  41 #include <stdio.h>
  42 static int deja = 0;
  43
  44
  45     IFSelect_SessionFile::IFSelect_SessionFile
  46   (const Handle(IFSelect_WorkSession)& WS)
  47 {
  48   ClearLines();
  49   themode = Standard_False;
  50   if (!deja) {    // au moins celui-la :
  51     Handle(IFSelect_BasicDumper) basedumper = new IFSelect_BasicDumper;
  52     deja = 1;
  53   }
  54   thedone = Standard_False;
  55   thelastgen = 0;
  56   thesess = WS;
  57 }
  58
  59     IFSelect_SessionFile::IFSelect_SessionFile
  60   (const Handle(IFSelect_WorkSession)& WS, const Standard_CString filename)
  61 {
  62   ClearLines();
  63   themode = Standard_True;
  64   if (!deja) {    // au moins celui-la :
  65     Handle(IFSelect_BasicDumper) basedumper = new IFSelect_BasicDumper;
  66     deja = 1;
  67   }
  68   thedone = Standard_False;
  69   theownflag = Standard_False;
  70   thelastgen = 0;
  71   thesess = WS;
  72   thedone = (Write (filename) == 0);
  73 //  Close fait par Write (selon les cas)
  74 }
  75
  76
  77     void  IFSelect_SessionFile::ClearLines ()
  78       {  thelist.Clear();  thenl = 0;  }
  79
  80     Standard_Integer  IFSelect_SessionFile::NbLines () const
  81       {  return thelist.Length();  }
  82
  83
  84     const TCollection_AsciiString&  IFSelect_SessionFile::Line
  85   (const Standard_Integer num) const
  86       {  return thelist.Value(num);  }
  87
  88
  89     void  IFSelect_SessionFile::AddLine (const Standard_CString line)
  90       {  thelist.Append (TCollection_AsciiString(line) );  }
  91
  92     void  IFSelect_SessionFile::RemoveLastLine ()
  93       {  if (thelist.Length() > 1) thelist.Remove(thelist.Length());  }
  94
  95
  96     Standard_Boolean  IFSelect_SessionFile::WriteFile
  97   (const Standard_CString filename)
  98 {
  99   FILE* lefic = OSD_OpenFile(filename,"w");
 100   Standard_Integer nbl = thelist.Length();
 101   for (Standard_Integer i = 1; i <= nbl; i ++)
 102     fprintf (lefic,"%s\n",thelist.Value(i).ToCString());
 103   fclose ( lefic );
 104   ClearLines();
 105   return Standard_True;
 106 }
 107
 108     Standard_Boolean  IFSelect_SessionFile::ReadFile
 109   (const Standard_CString filename)
 110 {
 111   char ligne[201];
 112   FILE* lefic = OSD_OpenFile(filename,"r");
 113   if (!lefic) return Standard_False;
 114   ClearLines();
 115 //  read mode : lire les lignes
 116 //  On charge le fichier dans "thelist"
 117   Standard_Boolean header = Standard_False;
 118   for(;;) {
 119     ligne[0] = '\0';
 120     if (fgets(ligne,200,lefic) == NULL
 121      || feof(lefic) != 0)
 122     {
 123       break;
 124     }
 125     if (ligne[0] == '\0') continue;
 126 //  D abord ligne initiale ?
 127     if (!header)
 128       {  if (!RecognizeFile(ligne)) break;  header = Standard_True;  }
 129     ligne[200] = '\0';  // fin forcee ...
 130     TCollection_AsciiString onemore(ligne);
 131     thelist.Append(onemore);
 132   }
 133   fclose ( lefic );
 134   return header;
 135 }
 136
 137     Standard_Boolean  IFSelect_SessionFile::RecognizeFile
 138   (const Standard_CString headerline)
 139 {
 140   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 141
 142   SplitLine (headerline);
 143   if (theline.Length() != 4) { sout<<"File Form Incorrect"<<endl; return Standard_False; }
 144   Handle(Standard_Type) sesstype = thesess->DynamicType();
 145   if (!theline.Value(1).IsEqual("!XSTEP")  ||
 146       !theline.Value(2).IsEqual("SESSION") ||
 147       !theline.Value(4).IsEqual(sesstype->Name()) )
 148     { sout<<"Lineno."<<thenl<<" : File Header Description Incorrect"<<endl; return Standard_False; }
 149 //   Value(3) definit la VERSION du format de fichier
 150   return Standard_True;
 151 }
 152
 153
 154     Standard_Integer  IFSelect_SessionFile::Write
 155   (const Standard_CString filename)
 156 {
 157   thenewnum = 0;
 158   Standard_Integer stat = WriteSession();
 159   if (stat != 0) return stat;
 160   stat = WriteEnd();
 161   if (stat != 0) return stat;
 162   return (WriteFile(filename) ? 0 : -1);
 163 }
 164
 165     Standard_Integer  IFSelect_SessionFile::Read
 166   (const Standard_CString filename)
 167 {
 168   if (!ReadFile(filename)) return -1;
 169   thenewnum = 0;
 170   Standard_Integer stat = ReadSession();
 171   if (stat != 0) return stat;
 172   stat = ReadEnd();
 173   return stat;
 174 }
 175
 176
 177 //  ##################################################################
 178 //  ########        WriteSession : Ecriture du contenu        ########
 179
 180     Standard_Integer  IFSelect_SessionFile::WriteSession ()
 181 {
 182   char laligne[200];
 183   thedone = Standard_True;
 184 //  ...  Preparation Specifique
 185   thenames.Clear();
 186   Standard_Integer nbidents = thesess->MaxIdent();
 187   thenums = new TColStd_HArray1OfInteger (0,nbidents); thenums->Init(0);
 188   Standard_Integer i; // svv Jan11 2000 : porting on DEC
 189   for ( i = 1; i <= nbidents; i ++) {
 190     Handle(Standard_Transient) item = thesess->Item(i);
 191     if (!item.IsNull()) thenums->SetValue(i,-1);
 192   }
 193
 194 //  ...  ECRITURE
 195   sprintf (laligne,"!XSTEP SESSION V1 %s",thesess->DynamicType()->Name());
 196   WriteLine(laligne,'\n');
 197   sprintf (laligne,"!GENERALS");
 198   WriteLine(laligne,'\n');
 199   sprintf (laligne,"ErrorHandle %d", (thesess->ErrorHandle() ? 1 : 0));
 200   WriteLine(laligne,'\n');
 201   Handle(TColStd_HSequenceOfInteger) idents;
 202   Standard_Integer nb;
 203   Handle(TCollection_HAsciiString) name;
 204
 205   idents = thesess->ItemIdents(STANDARD_TYPE(IFSelect_IntParam));
 206   nb = idents->Length();
 207   if (nb > 0) WriteLine ("!INTEGERS",'\n');
 208   Standard_Integer j; // svv Jan11 2000 : porting on DEC
 209   for (j = 1; j <= nb; j ++) {
 210     i = idents->Value(j);
 211     Handle(IFSelect_IntParam) P = thesess->IntParam(i);
 212     name = thesess->Name(P);
 213     if (name.IsNull()) {
 214       thenewnum ++;  idents->SetValue(i,thenewnum);
 215       sprintf(laligne," #%d %d",thenewnum,P->Value());
 216     }
 217     else  sprintf(laligne," %s %d",name->ToCString(),P->Value());
 218     WriteLine(laligne,'\n');
 219   }
 220
 221   idents = thesess->ItemIdents(STANDARD_TYPE(TCollection_HAsciiString));
 222   nb = idents->Length();
 223   if (nb > 0) WriteLine ("!TEXTS",'\n');
 224   for (j = 1; j <= nb; j ++) {
 225     i = idents->Value(j);
 226     Handle(TCollection_HAsciiString) P = thesess->TextParam(i);
 227     name = thesess->Name(P);
 228     if (name.IsNull()) {
 229       thenewnum ++;  thenums->SetValue(i,thenewnum);
 230       sprintf(laligne," #%d %s",thenewnum,P->ToCString());
 231     }
 232     else  sprintf(laligne," %s %s",name->ToCString(),P->ToCString());
 233     WriteLine(laligne,'\n');
 234   }
 235
 236   idents = thesess->ItemIdents(STANDARD_TYPE(IFSelect_Selection));
 237   nb = idents->Length();
 238   if (nb > 0) WriteLine ("!SELECTIONS",'\n');
 239   for (j = 1; j <= nb; j ++) {
 240     i = idents->Value(j);
 241     Handle(IFSelect_Selection) P = thesess->Selection(i);
 242     NewItem (i,P);
 243 //  ..  Ecritures particulieres
 244 //  ->  Traiter les principaux sous-types : Extract,AnyList,AnyType
 245     DeclareAndCast(IFSelect_SelectExtract,sxt,P);
 246     if (!sxt.IsNull()) {
 247       sprintf(laligne," %c", (sxt->IsDirect() ? 'D' : 'R'));
 248       WriteLine(laligne);
 249     }
 250     DeclareAndCast(IFSelect_SelectAnyList,sli,P);
 251     if (!sli.IsNull()) {
 252       SetOwn(Standard_False);
 253       WriteLine(" LIST");
 254       SendItem(sli->Lower());
 255       SendItem(sli->Upper());
 256       SetOwn(Standard_True);
 257     }
 258 //  ..  Ecritures specifiques selon dumpers
 259     WriteOwn(P);
 260     WriteLine("",'\n');
 261   }
 262
 263   SetOwn(Standard_False);
 264   if (nb > 0) WriteLine ("!SOURCES",'\n');
 265   for (j = 1; j <= nb; j ++) {
 266     i = idents->Value(j);
 267     Handle(IFSelect_Selection) P = thesess->Selection(i);
 268     Standard_Integer nbs = thesess->NbSources(P);
 269     if (nbs == 0) continue;
 270     name = thesess->Name(P);
 271     if (name.IsNull())  sprintf(laligne," #%d %d",thenums->Value(i),nbs);
 272     else                sprintf(laligne," %s %d",name->ToCString(),nbs);
 273     WriteLine(laligne);
 274     for (Standard_Integer k = 1; k <= nbs; k ++)
 275       SendItem (thesess->Source(P,k));
 276     WriteLine("",'\n');
 277   }
 278
 279   idents = thesess->ItemIdents(STANDARD_TYPE(IFSelect_GeneralModifier));
 280   nb = idents->Length();
 281   if (nb > 0) WriteLine ("!MODIFIERS",'\n');
 282   for (j = 1; j <= nb; j ++) {
 283 //  Description de base des Modifiers, donc sans Selection ni Dispatch-Rank
 284     i = idents->Value(j);
 285     Handle(IFSelect_GeneralModifier) P = thesess->GeneralModifier(i);
 286     NewItem (i,P);
 287     SetOwn(Standard_True);
 288 //  ..  Ecritures specifiques selon dumpers
 289     WriteOwn(P);
 290     WriteLine("",'\n');
 291   }
 292
 293   idents = thesess->ItemIdents(STANDARD_TYPE(IFSelect_Transformer));
 294   nb = idents->Length();
 295   if (nb > 0) WriteLine ("!TRANSFORMERS",'\n');
 296   for (j = 1; j <= nb; j ++) {
 297 //  Description des Transformers
 298     i = idents->Value(j);
 299     Handle(IFSelect_Transformer) P = thesess->Transformer(i);
 300     NewItem (i,P);
 301     SetOwn(Standard_True);
 302 //  ..  Ecritures specifiques selon dumpers
 303     WriteOwn(P);
 304     WriteLine("",'\n');
 305   }
 306
 307   SetOwn(Standard_False);
 308   idents = thesess->ItemIdents(STANDARD_TYPE(IFSelect_Dispatch));
 309   nb = idents->Length();
 310   if (nb > 0) WriteLine ("!DISPATCHES",'\n');
 311   for (j = 1; j <= nb; j ++) {
 312     i = idents->Value(j);
 313     Handle(IFSelect_Dispatch) P = thesess->Dispatch(i);
 314     NewItem (i,P);
 315 //  ..  Final Selection
 316     SetOwn(Standard_False);
 317     SendItem(P->FinalSelection());
 318     SetOwn(Standard_True);
 319 //  ..  Ecritures specifiques selon dumpers
 320     WriteOwn(P);
 321     WriteLine("",'\n');
 322   }
 323
 324   WriteLine ("!FILENAMING");
 325   SetOwn(Standard_False);
 326   Handle(TCollection_HAsciiString) namingpart = thesess->FilePrefix();
 327   if (namingpart->IsEmpty()) namingpart.Nullify();
 328   if (namingpart.IsNull()) SendVoid();
 329   else SendText(namingpart->ToCString());
 330   namingpart = thesess->DefaultFileRoot();
 331   if (namingpart->IsEmpty()) namingpart.Nullify();
 332   if (namingpart.IsNull()) SendVoid();
 333   else SendText(namingpart->ToCString());
 334   namingpart = thesess->FileExtension();
 335   if (namingpart->IsEmpty()) namingpart.Nullify();
 336   if (namingpart.IsNull()) SendVoid();
 337   else SendText(namingpart->ToCString());
 338   WriteLine("",'\n');
 339
 340   for (j = 1; j <= nb; j ++) {
 341     i = idents->Value(j);
 342     Handle(IFSelect_Dispatch) P = thesess->Dispatch(i);
 343     if (!P->HasRootName()) continue;
 344     namingpart = P->RootName();
 345     SetOwn(Standard_False);
 346     SendItem(P);
 347     sprintf(laligne," %s",namingpart->ToCString());
 348     WriteLine(laligne,' ');
 349     WriteLine("",'\n');
 350   }
 351
 352 //   Pour les Modifiers, ATTENTION car il faut respecter l ORDRE effectif
 353 //   Or il y a deux listes : Model Modifiers; File Modifiers
 354 //   Les Modifiers eux-memes ont deja ete ecrits
 355 //   Ici, on ecrit simplement leur utilisation dans l envoi final
 356   for (Standard_Integer formod = 1; formod >= 0; formod --) {
 357     idents = thesess->FinalModifierIdents((formod > 0));  // donnes dans l ordre d application
 358     nb = idents->Length();
 359     if (nb == 0) continue;
 360     if (formod > 0) WriteLine ("!MODELMODIFIERS",'\n');
 361     else            WriteLine ("!FILEMODIFIERS",'\n');
 362     for (j = 1; j <= nb; j ++) {
 363       i = idents->Value(j);
 364       Handle(IFSelect_GeneralModifier) P = thesess->GeneralModifier(i);
 365       SetOwn(Standard_False);
 366       SendItem(P);
 367       //  ..  Parametres Generaux (les specifiques ont deja ete envoyes)
 368       SendItem(P->Selection());
 369       SendItem(P->Dispatch());
 370       WriteLine("",'\n');
 371     }
 372   }
 373
 374 //  ...  Conclusion
 375   theline.Clear();
 376   return 0;
 377 }
 378
 379     Standard_Integer  IFSelect_SessionFile::WriteEnd ()
 380 {
 381   WriteLine("!XSTEP END",'\n');   // sinon, cf sous-types de SessionFile ...
 382   return 0;
 383 }
 384
 385
 386     void  IFSelect_SessionFile::WriteLine
 387   (const Standard_CString line, const Standard_Character follow)
 388 {
 389   if (line[0] != '\0') thebuff.AssignCat (line);
 390   if (follow == '\0') return;
 391   if (follow != '\n') thebuff.AssignCat(follow);
 392   else {
 393     thelist.Append(thebuff);
 394     thebuff.Clear();
 395     thenl ++;
 396   }
 397 }
 398
 399     Standard_Boolean  IFSelect_SessionFile::WriteOwn
 400   (const Handle(Standard_Transient)& item)
 401 {
 402   if (item.IsNull()) return Standard_False;
 403   SetOwn(Standard_True);
 404   Handle(IFSelect_SessionDumper) dumper = IFSelect_SessionDumper::First();
 405   while (!dumper.IsNull()) {
 406     if (dumper->WriteOwn(*this,item)) break;
 407     dumper = dumper->Next();
 408   }
 409   SetOwn(Standard_False);
 410   return (!dumper.IsNull());    // IsNull -> echec
 411 }
 412
 413
 414
 415 //  ##################################################################
 416 //  ########        ReadSession  :  Lecture du contenu        ########
 417
 418     Standard_Integer  IFSelect_SessionFile::ReadSession ()
 419 {
 420   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 421
 422   thedone = Standard_True;
 423 //  ...  Preparation Specifique
 424   thenums.Nullify();
 425   thenames.Clear();
 426 //  ..  Donnees generales, controle
 427   if (!ReadLine()) return 1;
 428   if (theline.Length() != 4) { sout<<"File Form Incorrect"<<endl; return 1; }
 429   Handle(Standard_Type) sesstype = thesess->DynamicType();
 430   if (!theline.Value(1).IsEqual("!XSTEP")  ||
 431       !theline.Value(2).IsEqual("SESSION") ||
 432       !theline.Value(4).IsEqual(sesstype->Name()) )
 433     { sout<<"Lineno."<<thenl<<" : File Header Description Incorrect"<<endl; return 1; }
 434 //   Value(3) definit la VERSION du format de fichier
 435   if (!ReadLine()) return 1;
 436
 437 //  ..  Parametres Generaux
 438   Standard_Integer rubr =
 439     (theline.Length() == 1 && theline.Value(1).IsEqual("!GENERALS"));
 440   while (rubr) {
 441     if (!ReadLine()) return 1;
 442     if (theline.Length() == 0) continue;
 443     const TCollection_AsciiString& ungen = theline.Value(1);
 444     if (ungen.Value(1) == '!') break;  // fin des generaux
 445     if (ungen.IsEqual("ErrorHandle")) {
 446       if (theline.Length() != 2)
 447         { sout<<"Lineno."<<thenl<<" : ErrorHandle Description Incorrect"<<endl; continue; }
 448       if      (theline.Value(2).IsEqual("0"))
 449         thesess->SetErrorHandle(Standard_False);
 450       else if (theline.Value(2).IsEqual("1"))
 451         thesess->SetErrorHandle(Standard_True);
 452       else { sout<<"Lineno."<<thenl<<" : ErrorHandle Incorrect : "<<theline.Value(2)<<endl; continue; }
 453       continue;
 454     }
 455     else sout<<"Lineno."<<thenl<<" : Unknown General Parameter : "<<ungen<<" , ignored"<<endl;
 456   }
 457
 458 //  ..  IntParams
 459 //   deja fait  if (!ReadLine()) return 1;
 460   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!INTEGERS"));
 461   while (rubr) {
 462     if (!ReadLine()) return 1;
 463     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 464     if (theline.Length() != 2)
 465       { sout<<"Lineno."<<thenl<<" : An Integer Parameter is badly defined"<<endl; continue; }
 466     Handle(IFSelect_IntParam) par = new IFSelect_IntParam;
 467     par->SetValue ( atoi(theline.Value(2).ToCString()) );
 468     AddItem (par);
 469   }
 470
 471 //  .. TextParams (ligne de garde deja lue)
 472   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!TEXTS"));
 473   while (rubr) {
 474     if (!ReadLine()) return 1;
 475     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 476     if (theline.Length() != 2)
 477       { sout<<"Lineno."<<thenl<<" : A Text Parameter is badly defined"<<endl; continue; }
 478 //    Attention, un texte peut contenir des blancs ...  repartir de line(thenl)
 479     TCollection_AsciiString oneline = thelist.Value(thenl);
 480     Standard_Integer iw = 0, inc = 0;
 481     for (Standard_Integer ic = 1; ic <= oneline.Length(); ic ++) {
 482       char unc = oneline.Value(1);
 483       inc = ic;
 484       if (unc == ' ') iw = 1;
 485       else if (iw > 0) break;
 486     }
 487     oneline.Remove (1,inc);
 488     AddItem ( new TCollection_HAsciiString (oneline.ToCString()) );
 489   }
 490
 491 //  .. Selections (ligne de garde deja lue)
 492   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!SELECTIONS"));
 493   while (rubr) {
 494     if (!ReadLine()) return 1;
 495     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 496     if (theline.Length() < 2)
 497       { sout<<"Lineno."<<thenl<<" : A Selection is badly defined"<<endl; continue; }
 498 //  ..  Analyse de certains cas generaux
 499     Handle(IFSelect_IntParam) low,up;
 500     Standard_Integer firstown = 3;
 501     Standard_Integer direct   = 0;
 502     Standard_Integer numlist  = 0;
 503     if (theline.Length() > 2) {
 504       if      (theline.Value(3).IsEqual("D")) direct = 1;
 505       else if (theline.Value(3).IsEqual("R")) direct = -1;
 506       if (direct != 0) firstown ++;
 507       if (firstown+2 <= theline.Length()) {
 508         if (theline.Value(firstown).IsEqual("LIST"))  {
 509           numlist = firstown;  firstown += 3;
 510           low = GetCasted(IFSelect_IntParam,ItemValue(numlist+1));
 511           up  = GetCasted(IFSelect_IntParam,ItemValue(numlist+2));
 512         }
 513       }
 514       SetLastGeneral (firstown-1);
 515     }
 516     Handle(Standard_Transient) item;   // a fournir ...
 517     ReadOwn(item);
 518     if (item.IsNull()) continue;
 519     DeclareAndCast(IFSelect_SelectExtract,sxt,item);
 520     if (!sxt.IsNull()) {
 521       if (direct == 0) sout<<"Lineno."<<thenl<<" : A SelectExtract is badly defined"<<endl;
 522       else  sxt->SetDirect( (direct > 0) );
 523     }
 524     DeclareAndCast(IFSelect_SelectAnyList,sli,item);
 525     if (!sli.IsNull()) {
 526       if (numlist == 0) sout<<"Lineno."<<thenl<<" : A SelectAnyList is badly defined"<<endl;
 527       else sli->SetRange(low,up);
 528     }
 529     AddItem(item);
 530   }
 531
 532 //  .. Sources
 533   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!SOURCES"));
 534   while (rubr) {
 535     if (!ReadLine()) return 1;
 536     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 537     if (theline.Length() < 3)
 538       { sout<<"Lineno."<<thenl<<" : A Selection Source List is badly defined"<<endl; continue; }
 539     DeclareAndCast(IFSelect_Selection,sel,ItemValue(1));
 540     if (sel.IsNull())
 541       { sout<<"Lineno."<<thenl<<" : A Source List is not for a Selection"<<endl; continue; }
 542     Standard_Integer nbs = atoi(theline.Value(2).ToCString());
 543 //  .. Differents cas reconnus
 544     DeclareAndCast(IFSelect_SelectExtract,sxt,sel);
 545     if (!sxt.IsNull()) {
 546       if (nbs > 1)
 547         sout<<"Lineno."<<thenl<<" : SelectExtract, more than one source, followings ignored"<<endl;
 548       DeclareAndCast(IFSelect_Selection,source,ItemValue(3));
 549       sxt->SetInput(source);
 550     }
 551     DeclareAndCast(IFSelect_SelectDeduct,sdt,sel);
 552     if (!sdt.IsNull()) {
 553       if (nbs > 1)
 554         sout<<"Lineno."<<thenl<<" : SelectDeduct, more than one source, followings ignored"<<endl;
 555       sdt->SetInput(GetCasted(IFSelect_Selection,ItemValue(3)));
 556     }
 557     DeclareAndCast(IFSelect_SelectControl,sct,sel);
 558     if (!sct.IsNull()) {
 559       if (nbs != 2)
 560         sout<<"Lineno."<<thenl<<" : SelectControl, not two sources, followings ignored"<<endl;
 561       sct->SetMainInput   (GetCasted(IFSelect_Selection,ItemValue(3)));
 562       sct->SetSecondInput (GetCasted(IFSelect_Selection,ItemValue(4)));
 563     }
 564     DeclareAndCast(IFSelect_SelectCombine,sco,sel);
 565     if (!sco.IsNull()) {
 566       for (Standard_Integer j = 1; j <= nbs; j ++)
 567         sco->Add(GetCasted(IFSelect_Selection,ItemValue(j+2)));
 568     }
 569   }
 570
 571 //  ... Modifiers en tout genre
 572   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!MODIFIERS"));
 573   while (rubr) {
 574     if (!ReadLine()) return 1;
 575     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 576     if (theline.Length() < 2)
 577       { sout<<"Lineno."<<thenl<<" : A Modifier is badly defined"<<endl; continue; }
 578     Handle(Standard_Transient) item;   // a fournir ...
 579     ReadOwn(item);
 580     if (item.IsNull()) continue;
 581     DeclareAndCast(IFSelect_GeneralModifier,modif,item);
 582     if (modif.IsNull())
 583       { sout<<"Lineno."<<thenl<<" : A Modifier has not been Recognized"<<endl; continue; }
 584     AddItem(modif,Standard_False);  // active plus tard
 585   }
 586
 587 //  ... Transformers
 588   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!TRANSFORMERS"));
 589   while (rubr) {
 590     if (!ReadLine()) return 1;
 591     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 592     if (theline.Length() < 2)
 593       { sout<<"Lineno."<<thenl<<" : A Transformer is badly defined"<<endl; continue; }
 594     Handle(Standard_Transient) item;   // a fournir ...
 595     ReadOwn(item);
 596     if (item.IsNull()) continue;
 597     DeclareAndCast(IFSelect_Transformer,trf,item);
 598     if (trf.IsNull())
 599       { sout<<"Lineno."<<thenl<<" : A Transformer has not been Recognized"<<endl; continue; }
 600     AddItem(trf,Standard_False);  // active plus tard
 601   }
 602
 603 //  ... Dispatches (ligne de garde deja lue)
 604   rubr = (theline.Length() == 1 && theline.Value(1).IsEqual("!DISPATCHES"));
 605   while (rubr) {
 606     if (!ReadLine()) return 1;
 607     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 608     if (theline.Length() < 3)
 609       { sout<<"Lineno."<<thenl<<" : A Dispatch is badly defined"<<endl; continue; }
 610     DeclareAndCast(IFSelect_Selection,input,ItemValue(3));
 611     SetLastGeneral(3);
 612     Handle(Standard_Transient) item;   // a fournir ...
 613     ReadOwn(item);
 614     if (item.IsNull()) continue;
 615     DeclareAndCast(IFSelect_Dispatch,disp,item);
 616     if (disp.IsNull())
 617       { sout<<"Lineno."<<thenl<<" : A Dispatch has not been Recognized"<<endl; continue; }
 618     AddItem(disp);
 619     thesess->SetItemSelection(disp,input);
 620   }
 621
 622 //  ... FileNaming (ligne de garde deja lue)
 623 //  ..  Modifiers deja lus et charges
 624   rubr = (theline.Length() == 4 && theline.Value(1).IsEqual("!FILENAMING"));
 625   if (rubr) {
 626     if (!IsVoid(2)) thesess->SetFilePrefix      (TextValue(2).ToCString());
 627     if (!IsVoid(3)) thesess->SetDefaultFileRoot (TextValue(3).ToCString());
 628     if (!IsVoid(4)) thesess->SetFileExtension   (TextValue(4).ToCString());
 629   }
 630   while (rubr) {
 631     if (!ReadLine()) return 1;
 632     if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 633     if (theline.Length() != 2)
 634       { sout<<"Lineno."<<thenl<<" : A File Root is badly defined"<<endl; continue; }
 635     DeclareAndCast(IFSelect_Dispatch,disp,ItemValue(1));
 636     thesess->SetFileRoot (disp,theline.Value(2).ToCString());
 637   }
 638
 639 //  ... Modifiers (ligne de garde deja lue)
 640 //  ... Attention, deux listes (MODELMODIFIERS et FILEMODIFIERS)
 641   for (Standard_Integer formod = 1; formod >= 0; formod --) {
 642     rubr = (theline.Length() == 1 &&
 643             ( (formod == 1 && theline.Value(1).IsEqual("!MODELMODIFIERS")) ||
 644               (formod == 0 && theline.Value(1).IsEqual("!FILEMODIFIERS"))  ) );
 645 //    if ( formod == 1 && ( theline.Length() != 1 ||
 646 //                       !theline.Value(1).IsEqual("!MODELMODIFIERS")) )
 647 //      { sout<<"Lineno."<<thenl<<" : Model Modifier List Incorrect"<<endl;  return 1; }
 648 //    if ( formod == 0 && ( theline.Length() != 1 ||
 649 //                       !theline.Value(1).IsEqual("!FILEMODIFIERS")) )
 650 //      { sout<<"Lineno."<<thenl<<" : File Modifier List Incorrect"<<endl;  return 1; }
 651     while (rubr) {
 652       if (!ReadLine()) return 1;
 653       if (theline.Value(1).Value(1) == '!') break;    // liste suivante
 654       if (theline.Length() < 3)
 655         { sout<<"Lineno."<<thenl<<" : A General Modifier is badly defined"<<endl; continue; }
 656       DeclareAndCast(IFSelect_GeneralModifier,modif,ItemValue(1));
 657       DeclareAndCast(IFSelect_Selection,input,ItemValue(2));
 658       DeclareAndCast(IFSelect_Dispatch,disp,ItemValue(3));
 659       if (modif.IsNull())
 660         { sout<<"Lineno."<<thenl<<" : A General Modifier has not been Recognized"<<endl; continue; }
 661       thesess->SetItemSelection   (modif,input);
 662       if (!disp.IsNull()) thesess->SetAppliedModifier (modif,disp);
 663       else                thesess->SetAppliedModifier (modif,thesess->ShareOut());
 664     }
 665   }
 666
 667 //  ...  Conclusion : voir ReadEnd (separe)
 668   return 0;
 669 }
 670
 671     Standard_Integer  IFSelect_SessionFile::ReadEnd ()
 672 {
 673   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 674   if ( theline.Length() != 2 ||
 675       !theline.Value(1).IsEqual("!XSTEP") ||
 676       !theline.Value(2).IsEqual("END"))
 677     { sout<<"End of File Incorrect, lineno"<<thenl<<endl;  return 1; }
 678   return 0;
 679 }
 680
 681
 682     Standard_Boolean  IFSelect_SessionFile::ReadLine ()
 683 {
 684   if (thenl >= thelist.Length()) return Standard_False;
 685   thenl ++;
 686   Standard_CString ligne = thelist.Value(thenl).ToCString();
 687 //   Lignes vides ?
 688   if (ligne[0] == '\0') return ReadLine();
 689   SplitLine (ligne);
 690   return Standard_True;
 691 }
 692
 693
 694     void  IFSelect_SessionFile::SplitLine (const Standard_CString line)
 695 {
 696   char mot[80];
 697   theline.Clear();
 698   Standard_Integer nbc  = 0;
 699   Standard_Boolean word = (line[0] > ' ');
 700   for (Standard_Integer i = 0; line[i] != '\0'; i ++) {
 701     if (line[i] > ' ') {
 702       if (!word) {  nbc = 0; word = Standard_True;  }
 703       mot[nbc] = line[i];  nbc ++;
 704     } else {
 705       if (word) {
 706         word = Standard_False;
 707         mot[nbc] = '\0';
 708         theline.Append (TCollection_AsciiString(mot));
 709       }
 710       if (line[i] == '\0' || line[i] == '\n') break;
 711     }
 712   }
 713   thelastgen = 0;
 714 }
 715
 716     Standard_Boolean  IFSelect_SessionFile::ReadOwn
 717   (Handle(Standard_Transient)& item)
 718 {
 719   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 720
 721   if (theline.Length() < 2) return Standard_False;
 722   const TCollection_AsciiString& type = theline.Value(2);
 723   if (thelastgen < 2) thelastgen = 2;        // mini : ident+type d abord
 724 //  thelastgen = theline.Length();
 725 //  for (Standard_Integer i = theline.Length(); i > 0; i --) {
 726 //    if (theline.Value(i).Value(1) == ':') thelastgen = i - 1;
 727 //  }
 728   Handle(IFSelect_SessionDumper) dumper = IFSelect_SessionDumper::First();
 729   while (!dumper.IsNull()) {
 730     if (dumper->ReadOwn(*this,type,item)) break;
 731     dumper = dumper->Next();
 732   }
 733   if (dumper.IsNull()) sout<<" -- Lineno."<<thenl<<" : an Item could not be read"<<endl;
 734   return (!dumper.IsNull());    // IsNull -> echec
 735 }
 736
 737
 738     void  IFSelect_SessionFile::AddItem
 739   (const Handle(Standard_Transient)& item, const Standard_Boolean active)
 740 {
 741   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 742
 743   const TCollection_AsciiString& name = theline.Value(1);
 744   Standard_Integer id = 0;
 745   if (!item.IsNull()) {
 746     if (name.Value(1) == '#') id = thesess->AddItem(item,active);
 747     else if (!thesess->NamedItem(name.ToCString()).IsNull()) id =
 748       thesess->AddItem(item,active);
 749     else id = thesess->AddNamedItem(name.ToCString(),item,active);
 750   }
 751   else sout<<"Lineno."<<thenl<<" -- Name : "<<name
 752     <<" : Item could not be defined" << endl;
 753   thenames.Bind(name,id);
 754 }
 755
 756     Standard_Boolean  IFSelect_SessionFile::IsDone () const
 757       {  return thedone;  }
 758
 759     Handle(IFSelect_WorkSession)  IFSelect_SessionFile::WorkSession () const
 760       {  return thesess;  }
 761
 762 //  ########                Actions Unitaires d ECRITURE               ########
 763
 764     void  IFSelect_SessionFile::NewItem
 765   (const Standard_Integer ident, const Handle(Standard_Transient)& par)
 766 {
 767   char laligne[100];
 768   if (!thesess->HasName(par)) {
 769     thenewnum ++;  thenums->SetValue(ident,thenewnum);
 770     sprintf(laligne," #%d %s",thenewnum,par->DynamicType()->Name());
 771   }
 772   else  sprintf(laligne," %s %s",thesess->Name(par)->ToCString(),
 773                 par->DynamicType()->Name());
 774   WriteLine(laligne);
 775 }
 776
 777     void  IFSelect_SessionFile::SetOwn (const Standard_Boolean mode)
 778       {  theownflag = mode;  }
 779
 780     void  IFSelect_SessionFile::SendVoid ()
 781 {
 782 ////  if (theownflag) WriteLine(" :$");
 783   WriteLine(" $");
 784 }
 785
 786     void  IFSelect_SessionFile::SendItem (const Handle(Standard_Transient)& par)
 787 {
 788   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 789
 790   char laligne[100];
 791   Standard_Integer filenum = 0;
 792   Standard_Integer id = thesess->ItemIdent(par);
 793   if (id != 0) filenum = thenums->Value(id);
 794   if (filenum == 0) {
 795     if (!par.IsNull()) sout << "Lineno " << thenl << " --  Unknown Item : "
 796        << " Type:" << par->DynamicType()->Name() << endl;  //sout<<Handle par
 797     SendVoid();
 798     thedone = Standard_False;
 799     return;
 800   }
 801 ////  if (theownflag) WriteLine(" :");
 802 ////  else            WriteLine(" ");
 803   if (filenum < 0) sprintf(laligne," :%s",thesess->Name(par)->ToCString());
 804   else sprintf(laligne," #%d",filenum);
 805   WriteLine(laligne);
 806 }
 807
 808     void  IFSelect_SessionFile::SendText (const Standard_CString text)
 809 {
 810   char laligne[100];
 811 ////  if (theownflag) sprintf(laligne," :%s",text);
 812   sprintf(laligne," %s",text);
 813   WriteLine(laligne);
 814 }
 815
 816
 817 //  ########                Actions Unitaires de LECTURE               ########
 818
 819     void  IFSelect_SessionFile::SetLastGeneral (const Standard_Integer lastgen)
 820       {  thelastgen = lastgen;  }
 821
 822     Standard_Integer  IFSelect_SessionFile::NbParams () const
 823       {  return theline.Length() - thelastgen;  }
 824
 825
 826     Standard_Boolean  IFSelect_SessionFile::IsVoid
 827   (const Standard_Integer num) const
 828 {
 829   Standard_Integer nm = num + thelastgen;
 830   if (nm <= 0 || nm > theline.Length()) return Standard_True;
 831   const TCollection_AsciiString& term = theline.Value(nm);
 832   return (term.IsEqual ("$") || term.IsEqual (":$") );
 833 }
 834
 835     Standard_Boolean  IFSelect_SessionFile::IsText
 836   (const Standard_Integer num) const
 837 {
 838   Standard_Integer nm = num + thelastgen;
 839   if (nm <= 0 || nm > theline.Length()) return Standard_False;
 840   const TCollection_AsciiString& term = theline.Value(nm);
 841   if (term.Value(1) == ':') return Standard_False;
 842   if (term.Value(1) == '#') return Standard_False;
 843   if (term.IsEqual("$"))    return Standard_False;
 844   return Standard_True;
 845 }
 846
 847     const TCollection_AsciiString&  IFSelect_SessionFile::ParamValue
 848   (const Standard_Integer num) const
 849       {  return theline.Value(num+thelastgen);  }
 850
 851
 852     TCollection_AsciiString  IFSelect_SessionFile::TextValue
 853   (const Standard_Integer num) const
 854 {
 855   Standard_Integer nm = num + thelastgen;
 856   TCollection_AsciiString res;
 857   if (nm <= 0 || nm > theline.Length()) return res;
 858   res = theline.Value(nm);
 859   if (res.Value( res.Length() ) == '"') res.Remove(res.Length());
 860   if (res.Value(1) == ':') res.Remove(1);
 861   if (res.Value(1) == '"') res.Remove(1);
 862   return res;
 863 }
 864
 865     Handle(Standard_Transient)  IFSelect_SessionFile::ItemValue
 866   (const Standard_Integer num) const
 867 {
 868   Handle(Message_Messenger) sout = Message::DefaultMessenger();
 869
 870   Handle(Standard_Transient) res;
 871   Standard_Integer nm = num + thelastgen;
 872   if (nm <= 0 || nm > theline.Length()) return res;
 873   Standard_Integer id;
 874   TCollection_AsciiString name = theline.Value(nm);
 875   if (name.Value(1) == ':') name.Remove(1);
 876   if (name.IsEqual("$")) return res;    // item non-defini justement
 877   if (!thenames.Find(name, id)) {
 878     sout << " -- Item Unknown in File : " << name
 879       << " lineno " << thenl << " param." << nm << endl;
 880     id = 0;
 881   }
 882   return thesess->Item(id);
 883 }
 884
 885
 886     void  IFSelect_SessionFile::Destroy ()
 887 {   }  // agit si File non ferme, sinon ne fait rien