Changeset 280 for XMLIO_V2/dev/common/src/xmlio/fortran/icaxis.cpp

Timestamp:

09/21/11 11:48:10 (13 years ago)

Author:

hozdoba

Message:

Ajout de fonction à l'interface fortran

File:

• XMLIO_V2/dev/common/src/xmlio/fortran/icaxis.cpp (modified) (1 diff)

XMLIO_V2/dev/common/src/xmlio/fortran/icaxis.cpp

@@ -144 +144 @@
       *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CAxisGroup>(id).get();
    }
+
+   // -------------------- Vérification des identifiants -----------------------
+
+   void xios_axis_valid_id (bool * _ret, const char * _id, int _id_len)
+   {
+      std::string id;
+      if (!cstr2string(_id, _id_len, id)) return;
+
+      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CAxis>(id);
+   }
+
+   void xios_axisgroup_valid_id (bool * _ret, const char * _id, int _id_len)
+   {
+      std::string id;
+      if (!cstr2string(_id, _id_len, id)) return;
+
+      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CAxisGroup>(id);
+   }
    
 } // extern "C"