Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfile.cpp

Timestamp:

09/26/11 14:19:55 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfile.cpp (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfile.cpp

@@ -129 +129 @@
       *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CFileGroup>(id).get();
    }
-   
+
+   // -------------------- Vérification des identifiants -----------------------
+
+   void xios_file_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::CFile>(id);
+   }
+
+   void xios_filegroup_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::CFileGroup>(id);
+   }
 } // extern "C"