source: XIOS/trunk/src/interface/c_attr/iccontext_attr.cpp @ 2042

Last change on this file since 2042 was 1626, checked in by oabramkina, 6 years ago

Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
  • Property svn:eol-style set to native
File size: 1.5 KB
RevLine 
[325]1/* ************************************************************************** *
[581]2 *               Interface auto generated - do not modify                     *
[325]3 * ************************************************************************** */
4
5#include <boost/multi_array.hpp>
[591]6#include "xios.hpp"
[352]7#include "attribute_template.hpp"
8#include "object_template.hpp"
9#include "group_template.hpp"
[325]10#include "icutil.hpp"
[532]11#include "icdate.hpp"
[347]12#include "timer.hpp"
[369]13#include "node_type.hpp"
[325]14
15extern "C"
16{
[581]17  typedef xios::CContext* context_Ptr;
18
[325]19  void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size)
20  {
21    std::string output_dir_str;
[581]22    if (!cstr2string(output_dir, output_dir_size, output_dir_str)) return;
23    CTimer::get("XIOS").resume();
[325]24    context_hdl->output_dir.setValue(output_dir_str);
[581]25    CTimer::get("XIOS").suspend();
[325]26  }
[581]27
[325]28  void cxios_get_context_output_dir(context_Ptr context_hdl, char * output_dir, int output_dir_size)
29  {
[581]30    CTimer::get("XIOS").resume();
31    if (!string_copy(context_hdl->output_dir.getInheritedValue(), output_dir, output_dir_size))
32      ERROR("void cxios_get_context_output_dir(context_Ptr context_hdl, char * output_dir, int output_dir_size)", << "Input string is too short");
33    CTimer::get("XIOS").suspend();
[325]34  }
[581]35
36  bool cxios_is_defined_context_output_dir(context_Ptr context_hdl)
[432]37  {
38     CTimer::get("XIOS").resume();
[581]39     bool isDefined = context_hdl->output_dir.hasInheritedValue();
[432]40     CTimer::get("XIOS").suspend();
[581]41     return isDefined;
[432]42  }
[325]43}
Note: See TracBrowser for help on using the repository browser.