]> SALOME platform Git repositories - modules/kernel.git/blob - src/HDFPersist/HDFdatasetWrite.c
Salome HOME
import SalomePro v1.2c
[modules/kernel.git] / src / HDFPersist / HDFdatasetWrite.c
1 /*----------------------------------------------------------------------------
2 SALOME HDFPersist : implementation of HDF persitent ( save/ restore )
3
4  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
5  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS 
6
7  This library is free software; you can redistribute it and/or 
8  modify it under the terms of the GNU Lesser General Public 
9  License as published by the Free Software Foundation; either 
10  version 2.1 of the License. 
11
12  This library is distributed in the hope that it will be useful, 
13  but WITHOUT ANY WARRANTY; without even the implied warranty of 
14  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
15  Lesser General Public License for more details. 
16
17  You should have received a copy of the GNU Lesser General Public 
18  License along with this library; if not, write to the Free Software 
19  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA 
20
21  See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org 
22
23
24
25   File   : HDFdatasetWrite.c
26 Module : SALOME
27 ----------------------------------------------------------------------------*/
28
29 #include "hdfi.h"
30
31 /*
32  * - Name : _MEDdatasetWrite
33  * - Description : writes a HDF dataset
34  * - Parameters :
35  *     - id  (IN)     : dataset ID
36  *     - val  (IN)    : datset values
37  * - Result : 
38  *     - if success : 0
39  *     - if failure : -1
40  */ 
41 hdf_err HDFdatasetWrite(hdf_idt id, void *val)
42 {
43   hdf_idt datatype;
44   hdf_err ret;
45 #ifdef PCLINUX
46   int isI32BE = 0;
47   int size;
48 #endif
49
50   if ((datatype = H5Dget_type(id)) < 0)
51     return -1;
52
53 #ifdef PCLINUX
54   if((H5Tget_class(datatype) == H5T_INTEGER) && (H5Tget_size(datatype) == 4)) {
55     isI32BE = 1; /* See HDFdatasetCreate */
56     size = (int)HDFdatasetGetSize(id) / 4;
57     if(size == 0) 
58       return -1;
59     if(H5Tconvert(H5T_NATIVE_INT, H5T_STD_I32BE, size, (void *)val, NULL, NULL) < 0) 
60       return -1;
61   }
62 #endif
63
64   if ((ret = H5Dwrite(id, datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, val)) < 0) 
65     return -1;
66
67 #ifdef PCLINUX
68   if (isI32BE && (H5Tconvert(H5T_STD_I32BE, H5T_NATIVE_INT, size, (void *)val, NULL, NULL) < 0)) 
69     return -1;
70 #endif
71
72   return 0;
73 }