Changeset 131 for XMLIO_V2/dev/dev_rv/src/XMLIO/c_interface.cpp

Timestamp:

10/13/10 15:25:55 (14 years ago)

Author:

hozdoba

Message:

Début Interface c<->fortran

File:

• XMLIO_V2/dev/dev_rv/src/XMLIO/c_interface.cpp (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/XMLIO/c_interface.cpp

@@ -1 @@
-#include "xmlio.hpp"
+#include "c_interface.hpp"
 
-using namespace XMLIOSERVER;
-using namespace XMLIOSERVER::XML;
+/* ********************************************************** */
+/*                      CONVERSION FUNCTION                   */
+/* ********************************************************** */
 
-using namespace std;
+static inline std::string stringXtoStd(XString _str)
+{
+   char * const temp = new char[_str.len+1]();
+   memset(temp, '\0', _str.len+1);
+   memcpy(temp, _str.str, _str.len);
+   std::string _retstr(temp);
+   size_t d = _retstr.find_first_not_of(' ');
+   size_t f = _retstr.find_last_not_of (' ');
 
-extern "C" void main_c_(void) ;
-
-// Cette fonction remplit un tableau à N dimensions de valeurs de type T (T = double ou float) de la maniÚre suivante :
-// 0.0 1.0 2.0 3.0, puis 0.1 1.1 2.1 3.1 ... au second appel de la fonction, etc.
-template <class T>
-   static void updateDataTest(T begin, T end)
-{
-   static int called = 0; int i = 0;
-   for (T it = begin; it != end; it++, i++)
-      (*it) = i + called * 0.01;
-   called++;
+   delete[] temp;
+   return (_retstr.substr(d, f-d+1));
 }
 
-void main_c_ (void)
+static inline XString stringXtoStd(const std::string& _str)
 {
-   try
-   {
-      Array<double, 3> arr(100, 100, 20) ; // Initialisation des données (les arguments en fonction des dimensions).
-      string file("/local/XMLIOSERVER_DEV/dev_rv/test/iodef_simple_test.xml"); // Le fichier de définition.
-      ifstream istr( file.c_str() , ifstream::in );
+   XString _retstr = {new char[_str.size()](), _str.size()};
+   memcpy(_retstr.str, _str.c_str(), _str.size());
+   return (_retstr);
+}
 
-      // On commence la lecture du flux de donnée xml qui doit posséder pour racine un unique noeud nommé "simulation".
-      XMLNode node = XMLNode::CreateNode(istr, Context::GetRootName());
+/* ********************************************************** */
+/*                      HANDLE INTERFACE                      */
+/* ********************************************************** */
 
-      // On parse le fichier xml noeud par noeud (ie on construit dynamiquement notre arbre d'objets).
+void xios_handle_create_(XHandle * _ret, const XDType * const _dtype, const XString * const _id)
+{
+   try {
+      switch(*_dtype)
+      {
+         /*ECONTEXT,
+      EAXIS, EDOMAIN, EFIELD, EFILE, EGRID,
+      GAXIS, GDOMAIN, GFIELD, GFILE, GGRID*/
+         case (ECONTEXT):
+            //if (Context::)
+            break;
+
+         default :
+            break;
+      };
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_verify_(XBool * _ret, const XHandle * const _hd)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_getType_(XDType * _ret, const XHandle * const _hd)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_isType_(XBool * _ret, const XHandle * const _hd, const XDType  * const _dtype)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_isId_(XBool * _ret, const XHandle * const _hd, const XString * const _id)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_isGroup_(XBool * _ret, const XHandle * const _hd)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+void xios_handle_isElement_(XBool * _ret, const XHandle * const _hd)
+{
+   try {
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+/* ********************************************************** */
+/*                      XML INTERFACE                         */
+/* ********************************************************** */
+
+void xios_xml_parse_file_(XString _filename)
+{
+   try {
+      std::string   __filename = stringXtoStd(_filename);
+      std::ifstream __istr( __filename.c_str() , std::ifstream::in );
+
+      // On commence la lecture du flux de donnée xml.
+      XMLNode node = XMLNode::CreateNode(__istr, Context::GetRootName());
+
+      // On parse le fichier xml noeud par noeud
+      // (ie on construit dynamiquement notre arbre d'objets).
       XMLParser::Parse(node);
 
-      // On se place dans le contexte 'context1'.
-      Context::SetCurrentContext("context1", true) ;
-
-      std::cout << " * ----------- Début du traitement ----------- * " << std::endl << std::endl;
-
-      {
-         // On crée une instance de traitement de données dans le format NetCDF4.
-         DataTreatment dtreat;
-         dtreat.createDataOutput<NetCDF4DataOutput>();
-
-         // Récupération du calendrier assossié au context courant et initialisation des delais d'écriture.
-         AbstractCalendar* calendar = dtreat.getCurrentContext()->getCalendar();
-         calendar->setTimeStep(1 * Hour);
-
-         // Affichage de la date initiale (pour vérification).
-         std::cout << "Calendrier associé au contexte : " << *calendar << std::endl << std::endl;
-
-         for(int tcourant = 0, tfinal = 9; tcourant <= tfinal; tcourant++)
-         { /***************************** BOUCLE DE CALCUL *****************************/
-
-            // Mise à jour de la date.
-            calendar->update();
-
-            // Affichage des informations temporelles sur l'itération actuelle.
-            std::cout << "> Itération de calcul effectuée à la date t" << tcourant << " = " << calendar->getCurrentDate()
-                      << " (soit aprÚs " << (Time)calendar->getCurrentDate() << " sec.)." << std::endl;
-
-            // Mise à jour des données.
-            updateDataTest<Array<double, 3>::iterator>(arr.begin(), arr.end());
-
-            // Ecriture des données.
-            dtreat.writeData<Array<double, 3> >("champ1", arr);
-         }
-
-         // Ecriture des avertissements obtenus jusqu'à présent.
-         std::cout << std::endl; ILogger::Flush(std::cout);
-
-         /*std::cout << " * ----------- Affichage de l'arborescence ----------- * " << std::endl << std::endl;
-
-         // On écrit l'arborescence résultante du traitement sur la sortie de log.
-         Context::ShowTree(std::clog);
-         std::cout << std::endl;*/
-      }
-
-   }
-   catch(const Exception &exc)
-   {  // Pour tout type d'exceptions, on note les informations sur la sortie paramétrée.
-      ERROR(exc.displayText());
-      // On retourne le code d'erreur en fin d'application pour traitements éventuels.
-      // return (exc.code());
-   }
-
-   // return (0);
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
 }
 
+void xios_xml_parse_string_(XString _xmlcontent)
+{
+   try {
+      std::string        __xmlcontent = stringXtoStd(_xmlcontent);
+      std::istringstream __istr(__xmlcontent);
 
+      // On commence la lecture du flux de donnée xml.
+      XMLNode node = XMLNode::CreateNode(__istr, Context::GetRootName());
+
+      // On parse le fichier xml noeud par noeud
+      // (ie on construit dynamiquement notre arbre d'objets).
+      XMLParser::Parse(node);
+
+   } catch(const Exception &exc)
+   { ERROR(exc.displayText()); }
+}
+
+/* ********************************************************** */
+/*                      MAIN ENTRY                            */
+/* ********************************************************** */
+
+void main_c_(void) // voué à disparaître
+{ /* Ne rien faire de plus */ }