source: XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfile.cpp @ 270

Last change on this file since 270 was 270, checked in by hozdoba, 13 years ago

Début nouvelle interface fortran

File size: 3.0 KB
Line 
1/* ************************************************************************** *
2 *      Copyright © IPSL/LSCE, XMLIOServer, Avril 2010 - Octobre 2011         *
3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
6#include <boost/shared_ptr.hpp>
7
8#include "xmlioserver.hpp"
9
10#include "attribute_template_impl.hpp"
11#include "object_template_impl.hpp"
12#include "group_template_impl.hpp"
13
14#include "icutil.hpp"
15
16extern "C"
17{
18// /////////////////////////////// Définitions ////////////////////////////// //
19
20   // ----------------------- Redéfinition de types ----------------------------
21   
22   typedef xmlioserver::tree::CFile      * XFilePtr;
23   typedef xmlioserver::tree::CFileGroup * XFileGroupPtr;
24
25   // ------------------------- Attributs des axes -----------------------------
26   
27   void xios_set_file_name(XFilePtr file_hdl, const char * name, int name_size)
28   {
29      std::string name_str; 
30      if (!cstr2string(name, name_size, name_str)) return; 
31   }
32   
33   void xios_set_file_description(XFilePtr file_hdl, const char * description, int description_size)
34   {
35      std::string description_str; 
36      if (!cstr2string(description, description_size, description_str)) return; 
37   } 
38   
39   void xios_set_file_output_freq(XFilePtr file_hdl, const char * output_freq, int output_freq_size)
40   {
41      std::string output_freq_str; 
42      if (!cstr2string(output_freq, output_freq_size, output_freq_str)) return; 
43   }
44   
45   void xios_set_file_output_level(XFilePtr file_hdl, int output_level)
46   {
47   
48   }
49   
50   void xios_set_file_enabled(XFilePtr file_hdl, bool enabled)
51   {
52   
53   }
54   
55   // -------------------- Attributs des groupes d'axes ------------------------
56   
57   void xios_set_filegroup_name(XFileGroupPtr filegroup_hdl, const char * name, int name_size)
58   {
59      std::string name_str; 
60      if (!cstr2string(name, name_size, name_str)) return; 
61   }
62   
63   void xios_set_filegroup_description(XFileGroupPtr filegroup_hdl, const char * description, int description_size)
64   {
65      std::string description_str; 
66      if (!cstr2string(description, description_size, description_str)) return; 
67   } 
68   
69   void xios_set_filegroup_output_freq(XFileGroupPtr filegroup_hdl, const char * output_freq, int output_freq_size)
70   {
71      std::string output_freq_str; 
72      if (!cstr2string(output_freq, output_freq_size, output_freq_str)) return; 
73   }
74   
75   void xios_set_filegroup_output_level(XFileGroupPtr filegroup_hdl, int output_level)
76   {
77   
78   }
79   
80   void xios_set_filegroup_enabled(XFileGroupPtr filegroup_hdl, bool enabled)
81   {
82   
83   }
84   
85   // ------------------------ Création des handle -----------------------------
86   
87   void xios_file_handle_create (XFilePtr * _ret, const char * _id, int _id_len)
88   {
89      std::string id; 
90      if (!cstr2string(_id, _id_len, id)) return;
91   }
92   
93   void xios_filegroup_handle_create (XFileGroupPtr * _ret, const char * _id, int _id_len)
94   {
95      std::string id; 
96      if (!cstr2string(_id, _id_len, id)) return;
97   }
98   
99} // extern "C"
Note: See TracBrowser for help on using the repository browser.