Changeset 447 in Sophya for trunk/SophyaPI/PIext/servnobjm.cc

Timestamp:

Sep 30, 1999, 7:26:52 PM (26 years ago)

Author:

ercodmgr

Message:

intro newnt et ntfrascci (partiel) cmv 30/9/99

File:

• trunk/SophyaPI/PIext/servnobjm.cc (modified) (1 diff)

trunk/SophyaPI/PIext/servnobjm.cc

@@ -703 +703 @@
 mOmg->DisplayObj(nomvec, dopt);
 return;  
+}
+
+/* --Methode-- */
+void Services2NObjMgr::NtFromASCIIFile(string& nom,string& filename,double def_val)
+//      Pour remplir un ntuple "nom" existant a partir du fichier
+//      ASCII table "filename". Si il y a plus de variables dans le
+//      ntuple que dans le fichier "filename",
+//      les sur-numeraires sont mises a "def_val" par defaut.
+{
+NamedObjMgr omg;
+AnyDataObj* mobj = omg.GetObj(nom);
+if(mobj == NULL)
+  {cout<<"NtFromASCIIFile() Error, object "<<nom<<" not existing"<<endl;
+   return;}
+if(typeid(*mobj) != typeid(NTuple))
+  {cout<<"NtFromASCIIFile() Error, object "<<nom<<" not an NTuple"<<endl;
+   return;}
+if (!mImgapp)  return; 
+
+NTuple* nt = (NTuple*) mobj;
+cout<<"CMV -> Reza tu dois mofidier FillFromASCIIFile"<<endl;
+cout<<"CMV -> Reza pour permettre une valeur par defaut"<<endl;
+cout<<"CMV -> Reza n oublie AUSSI pas l arg par def dans servnobj.h"<<endl;
+cout<<"CMV -> Reza > nt->FillFromASCIIFile(filename,def_val);"<<endl;
+nt->FillFromASCIIFile(filename);
+return;
 }