Changeset 132

Timestamp:

10/14/10 14:52:38 (14 years ago)

Author:

hozdoba

Message:

suite interface cpp<->fortran

Location:

XMLIO_V2/dev/dev_rv/src/XMLIO

Files:

• c_interface.cpp (modified) (2 diffs)
• c_interface.hpp (modified) (4 diffs)
• context.hpp (modified) (2 diffs)
• main.f90 (modified) (2 diffs)
• xml_node.hpp (modified) (1 diff)
• xml_parser.hpp (modified) (1 diff)

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

@@ -29 +29 @@
 /* ********************************************************** */
 
-void xios_handle_create_(XHandle * _ret, const XDType * const _dtype, const XString * const _id)
+void xios_handle_create_(XHandle * _ret, const XDType * const _dtype, XString _id)
 {
-   try {
-      switch(*_dtype)
-      {
-         /*ECONTEXT,
-      EAXIS, EDOMAIN, EFIELD, EFILE, EGRID,
-      GAXIS, GDOMAIN, GFIELD, GFILE, GGRID*/
-         case (ECONTEXT):
-            //if (Context::)
-            break;
+   // Si le handle n'est pas initialisé à 0, on ne fait aucun traitement.
+   if (!isNullHandle(*_ret)) return;
+   std::string __id = stringXtoStd(_id);
+   switch(*_dtype)
+   {
+      /* EAXIS, EDOMAIN, EFIELD, EFILE, EGRID, GAXIS, GDOMAIN, GFIELD, GFILE, GGRID*/
+      case (ECONTEXT):
+         // Si le context n'existe pas, on retourne un handle vide/nul.
+         if (!Context::HasContext(__id)) { *_ret = NULLHANDLE; return ; }
+         _ret->data_type = *_dtype;
+         _ret->data_ptr  = Context::GetContext(__id);
+         return ;
 
-         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()); }
+      default :
+         *_ret = NULLHANDLE;
+         return ;
+   };
 }
 
@@ -102 +56 @@
 void xios_xml_parse_file_(XString _filename)
 {
-   try {
-      std::string   __filename = stringXtoStd(_filename);
-      std::ifstream __istr( __filename.c_str() , std::ifstream::in );
+   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 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()); }
+   // On parse le fichier xml noeud par noeud
+   // (ie on construit dynamiquement notre arbre d'objets).
+   XMLParser::Parse(node);
 }
 
 void xios_xml_parse_string_(XString _xmlcontent)
 {
-   try {
-      std::string        __xmlcontent = stringXtoStd(_xmlcontent);
-      std::istringstream __istr(__xmlcontent);
+   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 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 parse le fichier xml noeud par noeud
+   // (ie on construit dynamiquement notre arbre d'objets).
+   XMLParser::Parse(node);
+}
+/* ********************************************************** */
+/*                      DATA TREATMENT INTERFACE              */
+/* ********************************************************** */
 
-   } catch(const Exception &exc)
-   { ERROR(exc.displayText()); }
+static std::vector<DataTreatment *> AllDataTreatment;
+
+static void deleteAllDataTreatment(void)
+{
+   std::vector<DataTreatment *>::iterator it;
+   for (it  = AllDataTreatment.begin();
+        it != AllDataTreatment.end(); it++)
+      delete (*it);
 }
 
-/* ********************************************************** */
-/*                      MAIN ENTRY                            */
-/* ********************************************************** */
+void xios_dtreatment_new_(XHandle * _dt, const XHandle * const _hd)
+{
+   static bool called = false;
 
-void main_c_(void) // voué à disparaître
-{ /* Ne rien faire de plus */ }
+   // Si le handle de traitement n'est pas initialisé à 0, on ne fait aucun traitement.
+   if (!isNullHandle(*_dt) || (_hd->data_type != ECONTEXT)) return;
+   Context* const __ctxt = (Context*) _hd->data_ptr;
+
+   _dt->data_type = DTREATMENT;
+   _dt->data_ptr  = new DataTreatment(__ctxt);
+
+   if (!called)
+   {
+      atexit (&deleteAllDataTreatment);
+      called = true;
+   }
+}
+
+void xios_dtreatment_create_files_and_headers_(const XHandle * const _hd, const XFileType * const _ft)
+{
+   // Si le handle de traitement n'est pas initialisé à 0, on ne fait aucun traitement.
+   if (isNullHandle(*_hd) || (_hd->data_type != DTREATMENT)) return;
+   DataTreatment * const __dt = (DataTreatment*)_hd->data_ptr;
+   AllDataTreatment.push_back (__dt);
+   switch(*_ft)
+   {
+      case (NETCDF4):
+         __dt->createDataOutput<NetCDF4DataOutput>();
+         return;
+      // Autres formats de fichiers si disponibles...
+      default:
+         return;
+   }
+}
+

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

@@ -12 +12 @@
 #endif //__cplusplus
 
-   typedef long int XInt; //integer
-   typedef bool XBool;    //logical
+   typedef long int XInt; // Integer
+   typedef bool XBool;    // Logical
+   typedef void *XPtr;    // Pointeur C non typé
 
    typedef enum _datatype
    {
+      NOTYPE = 0,
       DTREATMENT, DATE, CALENDAR, ECONTEXT,
       EAXIS, EDOMAIN, EFIELD, EFILE, EGRID,
@@ -24 +26 @@
    typedef enum _filetype
    {
-      NETCDF4
+      NETCDF4 = 0
    } XFileType;
-
-   typedef struct _ptr    // Pointeur C non-typé.
-   { void * ptr; } XPtr;
 
    typedef struct _handle // Référence C à une objet de la bibliothÚque.
@@ -39 +38 @@
    { int year, month, day, hour, minute, second; } XDate, XDuration;
 
+   const XHandle NULLHANDLE = { NOTYPE, NULL };
+
+#define isNullHandle(hdl) ((hdl).data_type == NOTYPE && (hdl).data_ptr == NULL)
+
    /* ******************** HANDLE INTERFACE ******************** */
-   void xios_handle_create_ (XHandle * _ret, const XDType  * const _dtype, const XString * const _id);
+   void xios_handle_create_ (XHandle * _ret, const XDType * const _dtype, XString _id);
    void xios_handle_verify_ (XBool   * _ret, const XHandle * const _hd);
    void xios_handle_getType_(XDType  * _ret, const XHandle * const _hd);
 
    void xios_handle_isType_   (XBool * _ret, const XHandle * const _hd, const XDType  * const _dtype);
-   void xios_handle_isId_    (XBool * _ret, const XHandle * const _hd, const XString * const _id);
+   void xios_handle_isId_     (XBool * _ret, const XHandle * const _hd, const XString * const _id);
    void xios_handle_isGroup_  (XBool * _ret, const XHandle * const _hd);
    void xios_handle_isElement_(XBool * _ret, const XHandle * const _hd);
@@ -54 +57 @@
 
    /* ******************** DATA TREATMENT INTERFACE ************ */
-   void xios_dtreatment_new(XHandle * _dt, const XHandle * const _hd);
-   void xios_dtreatment_createFilesAndHeaders(const XHandle * const _hd);
+   void xios_dtreatment_new_(XHandle * _dt, const XHandle * const _hd);
+   void xios_dtreatment_create_files_and_headers_(const XHandle * const _hd, const XFileType * const _ft);
 
    /* ******************** CALENDAR INTERFACE ****************** */

XMLIO_V2/dev/dev_rv/src/XMLIO/context.hpp

@@ -191 +191 @@
          }
 
+         static bool HasContext(const string& id)
+         {
+            Poco::HashMap<string, StrHashMap<Context> > &AllListContext = Context::GetAllListObject();
+            return (AllListContext.find(id) != AllListContext.end());
+         }
+
+         static Context* GetContext(const string& id)
+         { return (Context::GetAllListObject()[id][id]); }
+
          static Context* SwapContext(void)
          {
@@ -208 +217 @@
          { return (Context::GetObject(Context::GetCurrentContextId())); }
 
-         static void SetCurrentContext(const string& id, bool withSwap = false)
+         static void SetCurrentContext(const string& id, bool withSwap = false, bool withcheck = true)
          {
             if (withSwap) Stid.push (Context::GetCurrentContextId());
+
+            if (!Context::HasContext(id) && withcheck)
+               throw new XMLIOUndefinedValueException
+                     ("Impossible de se placer dans le contexte "+id+" car celui-ci n'existe pas dans l'arborescence!");
 
             // On modifie le context courrant pour tout les ObjectTemplate

XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90

@@ -3 +3 @@
 ! --------------------------------------------------- !
 
-MODULE XML
+MODULE XTYPE
+   IMPLICIT NONE
+
+   ! Ne jamais modifier les valeurs internes de ce type dans le code fortran.
+   TYPE XHandle
+      INTEGER :: dtype
+      INTEGER :: daddr
+   END TYPE XHandle
+
+   TYPE XDate
+      INTEGER :: year, month, day, hour, minute, second
+   END TYPE XDate
+
+   TYPE XDuration
+      REAL(kind = 4) :: year, month, day, hour, minute, second
+   END TYPE XDuration
+
+   ! enum XDType
+   INTEGER, PARAMETER  :: NOTYPE = 0
+   INTEGER, PARAMETER  :: DTREATMENT = 1, DDATE = 2, CALENDAR = 3, ECONTEXT = 4
+   INTEGER, PARAMETER  :: EAXIS = 5 , EDOMAIN = 6 , EFIELD = 7 , EFILE = 8 , EGRID = 9
+   INTEGER, PARAMETER  :: GAXIS = 10, GDOMAIN = 11, GFIELD = 12, GFILE = 13, GGRID = 14
+
+   ! enum XFileType
+   INTEGER, PARAMETER  :: NETCDF4 = 0
+
+   ! Autres constantes
+   TYPE(XHandle)  , PARAMETER :: NULLHANDLE = XHandle(0, 0)
+   TYPE(XDuration), PARAMETER :: NONEDUR    = XDuration(0., 0., 0., 0., 0., 0.)
+
+END MODULE XTYPE
+
+MODULE IXHANDLE
+
+   INTERFACE
+
+      SUBROUTINE xios_handle_create(ret, dtype, idt)
+         USE XTYPE
+         TYPE(XHandle), INTENT(OUT) :: ret
+         INTEGER      , INTENT(IN)  :: dtype
+         CHARACTER*(*), INTENT(IN)  :: idt
+      END SUBROUTINE xios_handle_create
+
+   END INTERFACE
+
+END MODULE IXHANDLE
+
+MODULE IXML
+   IMPLICIT NONE
    INTERFACE
 
@@ -15 +63 @@
 
    END INTERFACE
-END MODULE XML
+END MODULE IXML
+
+MODULE IDATATREATMENT
+   IMPLICIT NONE
+   INTERFACE
+
+      SUBROUTINE xios_dtreatment_new(dt, context)
+         USE XTYPE
+         TYPE(XHandle), INTENT(OUT) :: dt
+         TYPE(XHandle), INTENT(IN)  :: context
+      END SUBROUTINE xios_dtreatment_new
+
+      SUBROUTINE xios_dtreatment_create_files_and_headers(dt, ftype)
+         USE XTYPE
+         TYPE(XHandle), INTENT(IN) :: dt
+         INTEGER      , INTENT(IN) :: ftype
+      END SUBROUTINE xios_dtreatment_create_files_and_headers
+
+   END INTERFACE
+END MODULE IDATATREATMENT
 
 PROGRAM MAIN
-   USE XML
+   USE XTYPE
+   USE IXHANDLE
+   USE IXML
+   USE IDATATREATMENT
+
    IMPLICIT NONE
 
-   CHARACTER(LEN = 100):: filename
+   TYPE(XHandle) :: context1 = NULLHANDLE
+   TYPE(XHandle) :: dtreat   = NULLHANDLE
 
-   filename = "/local/XMLIOSERVER_DEV/dev_rv/test/iodef_simple_test.xml"
+   ! Parsing du document xml depuis un fichier situé sur le disque.
+   CALL xios_xml_Parse_File("/local/XMLIOSERVER_DEV/dev_rv/test/iodef_simple_test.xml")
 
-   CALL xios_xml_Parse_File(filename)
+   ! Création d'un handle sur le contexte dans lequel on souhaite travailler, cà d 'context1' ici.
+   CALL xios_handle_create(context1, ECONTEXT, "context1")
+   iF ((context1%dtype == 0) .AND. (context1%daddr == 0)) THEN
+      PRINT *, "Impossible de créer un handle sur l'élément context1 !"
+      STOP
+   END IF
+
+   ! ----------- Début du traitement ----------- !
+
+   ! Création et initialisation d'une instance de traitement des données dans 'context1'.
+   CALL xios_dtreatment_new(dtreat, context1)
+   iF ((dtreat%dtype == 0) .AND. (dtreat%daddr == 0)) THEN
+      PRINT *, "Impossible d'initialiser l'instance de traitement !"
+      STOP
+   END IF
+
+   ! Création des fichiers et des entêtes dans le contexte.
+   CALL xios_dtreatment_create_files_and_headers(dtreat, NETCDF4)
 
 END PROGRAM MAIN

XMLIO_V2/dev/dev_rv/src/XMLIO/xml_node.hpp

@@ -79 +79 @@
             { THashAttributes __attributes; this->getAttributes(__attributes); return (__attributes); }
 
-            ~XMLNode()
+            ~XMLNode(void)
             { /* Ne rien faire de plus */ }
 

XMLIO_V2/dev/dev_rv/src/XMLIO/xml_parser.hpp

@@ -35 +35 @@
                   { WARNING("Le context ne sera pas traité car il existe déjà un autre context possédant le même nom !"); continue; }
 
-                  Context::SetCurrentContext(attributes["id"]);
+                  Context::SetCurrentContext(attributes["id"], false, false);
                   Context& context = *Context::CreateObject(attributes["id"]);