NeXus  4.4.3
 All Data Structures Files Functions Variables Typedefs Macros Pages
napi_fortran_helper.h
Go to the documentation of this file.
1 /*---------------------------------------------------------------------------
2  NeXus - Neutron & X-ray Common Data Format
3 
4  Application Program Interface Header File
5 
6  Copyright (C) 2015 NeXus International Advisory Committee
7 
8  This library is free software; you can redistribute it and/or
9  modify it under the terms of the GNU Lesser General Public
10  License as published by the Free Software Foundation; either
11  version 2 of the License, or (at your option) any later version.
12 
13  This library is distributed in the hope that it will be useful,
14  but WITHOUT ANY WARRANTY; without even the implied warranty of
15  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16  Lesser General Public License for more details.
17 
18  You should have received a copy of the GNU Lesser General Public
19  License along with this library; if not, write to the Free Software
20  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 
22  For further information, see <http://www.nexusformat.org>
23 
24  ----------------------------------------------------------------------------*/
25 
26 #include <napi.h>
27 
28 /*
29  * FORTRAN helpers - for NeXus internal use only
30  */
31 
32 # define NXfopen MANGLE(nxifopen)
33 # define NXfclose MANGLE(nxifclose)
34 # define NXfflush MANGLE(nxifflush)
35 # define NXfmakedata MANGLE(nxifmakedata)
36 # define NXfcompmakedata MANGLE(nxifcompmakedata)
37 # define NXfcompress MANGLE(nxifcompress)
38 # define NXfputattr MANGLE(nxifputattr)
39 # define NXfgetpath MANGLE(nxifgetpath)
40 
41  extern NXstatus NXfopen(char * filename, NXaccess* am,
42  NXhandle pHandle);
43  extern NXstatus NXfclose (NXhandle pHandle);
44  extern NXstatus NXfputattr(NXhandle fid, const char *name, const void *data,
45  int *pDatalen, int *pIType);
46  extern NXstatus NXfcompress(NXhandle fid, int *compr_type);
47  extern NXstatus NXfcompmakedata(NXhandle fid, char *name,
48  int *pDatatype,
49  int *pRank, int dimensions[],
50  int *compression_type, int chunk[]);
51  extern NXstatus NXfmakedata(NXhandle fid, char *name, int *pDatatype,
52  int *pRank, int dimensions[]);
53  extern NXstatus NXfflush(NXhandle pHandle);
54  extern NXstatus NXfgetpath(NXhandle fid, char *path, int *pathlen);
#define NXfcompmakedata
#define NXfputattr
#define NXfopen
#define NXfclose
#define NXfcompress
#define NXfflush
#define NXfgetpath
#define NXfmakedata