/***************************************************************************** * * NCSA HDF version 2.37 * June 7, 1989 * * NCSA HDF Version 2.37 source code and documentation are in the public domain. * Specifically, we give to the public domain all rights for future licensing * of the source code, all resale rights, and all publishing rights. * * We ask, but do not require, that the following message be included in all * derived works: * * Portions developed at the National Center for Supercomputing Applications at * the University of Illinois at Urbana-Champaign. * * * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION, * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE * *****************************************************************************/ /*------------------------------------------------------------------------------ * File: dfi.h * Purpose: HDF internal header file * Invokes: stdio.h, sys/file.h * Contents: * Compilation parameters * Machine-dependent definitions * Flexibility definitions: i/o buffering, dynamic memory, structure i/o * Size parameters * Remarks: To port to a new system, only dfi.h and Makefile need be modified. * This file is included with user programs, but users do not see it. *----------------------------------------------------------------------------*/ #ifndef DF_MAGICK /* avoid re-inclusion */ #define DF_MAGICK "\016\003\023\001" /* ^N^C^S^A */ #ifndef FILE #include #endif /*--------------------------------------------------------------------------*/ /* Compilation Parameters for Flexibility and Portability */ /* modify this line to allow for machine dependencies */ #define PC /* modify this line for buffered/unbuffered i/o */ #define DF_BUFFIO /* modify this line for dynamic/static memory allocation */ #define DF_DYNAMIC /* modify this line if structures cannot be read/written as is */ #define DF_STRUCTOK /*--------------------------------------------------------------------------*/ /* MT/NT constants */ /* four MT nibbles represent int, float, double, uchar */ #define DFMT_SUN 0x1111 #define DFMT_ALLIANT 0x1111 #define DFMT_IRIS4 0x1111 #define DFMT_UNICOS 0x3331 #define DFMT_CTSS 0x3331 #define DFMT_VAX 0x2221 #define DFMT_PC 0x4144 /* note byte swapping */ #define DFMT_MAC 0x1111 #define DFNT_VERSION 1 /* current version of NT info */ /* type info codes */ #define DFNT_UINT 1 #define DFNT_INT 2 #define DFNT_UCHAR 3 #define DFNT_CHAR 4 #define DFNT_FLOAT 5 #define DFNT_DOUBLE 6 /* class info codes for int */ #define DFNTI_MBO 1 /* Motorola byte order 2's compl */ #define DFNTI_VBO 2 /* Vax byte order 2's compl */ #define DFNTI_IBO 4 /* Intel byte order 2's compl */ /* class info codes for float */ #define DFNTF_IEEE 1 /* IEEE format */ #define DFNTF_VAX 2 /* Vax format */ #define DFNTF_CRAY 3 /* Cray format */ #define DFNTF_PC 4 /* PC floats - flipped IEEE */ /* class info codes for char */ #define DFNTC_BYTE 0 /* bitwise/numeric field */ #define DFNTC_ASCII 1 /* ASCII */ #define DFNTC_EBCDIC 5 /* EBCDIC */ /*--------------------------------------------------------------------------*/ /* Machine dependencies */ #ifdef PC #ifndef O_RDONLY #include #define L_INCR 1 #endif #define int16 int #define uint16 unsigned int #define int32 long int #define float32 double #define DFmovmem(from, to, len) memcpy(to, from, len) #undef DF_STRUCTOK /* structure writing will not work on PC */ #undef DF_BUFFIO /* unbuffered i/o is faster */ long longswap(); /* provided elsewhere */ /* in the next 3 lines, p is recast so right number of bytes passed */ /* ### Note that all calls modify p. Need to use temporary ptr */ #define UINT16READ(p, x) { x = intswap(*(int *)p); p+=2; } #define INT16READ(p, x) { x = intswap(*(int *)p); p+=2; } #define INT32READ(p, x) { x = longswap(*(long *)p); p+=4; } #define UINT16WRITE(p, x) { *(int *)p = intswap(x); p+=2; } #define INT16WRITE(p, x) { *(int *)p = intswap(x); p+=2; } #define INT32WRITE(p, x) { *(long *)p = longswap(x); p+=4; } #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_PC #endif #ifdef UNICOS #ifndef O_RDONLY #include /* for unbuffered i/o stuff */ #define L_INCR 1 #endif #define int16 int #define uint16 int #define int32 int #define float32 float #define DFmovmem(from, to, len) memcpy(to, from, len) #undef DF_STRUCTOK /* cannot directly read/write structures */ #define DF_CAPFNAMES /* All caps names for Fortran */ #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_UNICOS #endif #ifdef SUN #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030 #undef DF_STRUCTOK #endif #include /* for unbuffered i/o stuff */ #define int16 short #define uint16 unsigned short #define int32 long #define float32 float #define DFmovmem(from, to, len) memcpy(to, from, len) #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_SUN #endif #ifdef ALLIANT #include /* for unbuffered i/o stuff */ #define int16 short #define uint16 unsigned short #define int32 long #define float32 float #define DFmovmem(from, to, len) bcopy(from, to, len) #ifndef DF_STRUCTOK #define UINT16READ(p, x) { DFmovmem(p, &x, 2); p+=2; } #define INT16READ(p, x) { DFmovmem(p, &x, 2); p+=2; } #define INT32READ(p, x) { DFmovmem(p, &x, 4); p+=4; } #define UINT16WRITE(p, x) { DFmovmem(&x, p, 2); p+=2; } #define INT16WRITE(p, x) { DFmovmem(&x, p, 2); p+=2; } #define INT32WRITE(p, x) { DFmovmem(&x, p, 4); p+=4; } #endif #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_ALLIANT #endif #ifdef MAC #include /* malloc stuff for MPW 3.0 */ #include /* unbuffered IO stuff for MPW 3.0 */ #ifdef THINK_C #include #else #include /* for unbuffered i/o stuff */ #endif #define int16 short #define uint16 unsigned short #define int32 long #define float32 float #define DFmovmem(from, to, len) memcpy(to, from, len) /* LightSpeed C does not have memcpy */ #ifdef THINK_C #define DFmovmem(from, to, len) DFImemcopy(from, to, len) #endif #define malloc(x) NewPtr((long) (x)) /* don't use malloc on the Mac */ #define free(x) DisposPtr((Ptr) (x)) /* don't use free on the Nac */ #ifndef DF_STRUCTOK #define UINT16READ(p, x) { DFmovmem(p, &x, 2); p+=2; } #define INT16READ(p, x) { DFmovmem(p, &x, 2); p+=2; } #define INT32READ(p, x) { DFmovmem(p, &x, 4); p+=4; } #define UINT16WRITE(p, x) { DFmovmem(&x, p, 2); p+=2; } #define INT16WRITE(p, x) { DFmovmem(&x, p, 2); p+=2; } #define INT32WRITE(p, x) { DFmovmem(&x, p, 4); p+=4; } #endif #define DF_CREAT(name, prot) open(name, O_WRONLY|O_TRUNC|O_CREAT) #define DF_MT DFMT_MAC #endif #ifdef VMS #undef DF_BUFFIO /* use only unbuff i/o - buff i/o doesn't work! */ #include "dfivms.h" #undef DF_STRUCTOK #include /* for unbuffered i/o stuff */ #define int16 short #define uint16 unsigned short #define int32 long #define float32 float #define DFmovmem(from, to, len) memcpy(to, from, len) #define DF_CAPFNAMES /* All caps names for Fortran */ #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_VAX #endif #ifdef IRIS4 #undef DF_STRUCTOK #include #include /* for unbuffered i/o stuff */ #define int16 short #define uint16 unsigned short #define int32 long #define float32 float #define DFmovmem(from, to, len) bcopy(from, to, len) #ifndef DF_STRUCTOK #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; } #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; } #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16; \ x|=((*p++) & 255)<<8; x|=(*p++) & 255; } #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; } #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255; \ *p++ = (x>>8) & 255; *p++ = x & 255; } #endif #define DF_CREAT(name, prot) creat(name, prot) #define DF_MT DFMT_IRIS4 #endif /*--------------------------------------------------------------------------*/ /* Flexibility parameters */ #ifdef DF_BUFFIO /* set all calls to do buffered I/O */ #define DF_OPEN(x,y) fopen(x,y) #define DF_CLOSE(x) fclose(x) #define DF_SEEK(x,y,z) fseek(x,y,z) #define DF_SKEND(x,y,z) fseek(x,y,z) #define DF_TELL(x) ftell(x) #define DF_READ(a,b,c,d) fread(a,b,c,d) #define DF_WRITE(a,b,c,d) fwrite(a,b,c,d) #define DF_FLUSH(a) fflush(a) #ifdef PC #define DF_RDACCESS "rb" #define DF_WRACCESS "rb+" #else #define DF_RDACCESS "r" #define DF_WRACCESS "r+" #endif #else #define DF_OPEN(x,y) open(x,y) #define DF_CLOSE(x) close(x) #define DF_SEEK(x,y,z) lseek(x,y,z) #define DF_SKEND(x,y,z) lseek(x,-1*y,z) #define DF_TELL(x) lseek(x,0L,1) #define DF_READ(a,b,c,d) read(d,a,b*c) #define DF_WRITE(a,b,c,d) write(d,a,b*c) #define DF_FLUSH(a) /* no need to flush */ #ifdef PC #define DF_RDACCESS O_RDONLY | O_RAW #define DF_WRACCESS O_RDWR | O_RAW #else #define DF_RDACCESS O_RDONLY #define DF_WRACCESS O_RDWR #endif #endif /* if not allocating memory dynamically, need buffer for compression */ #ifndef DF_DYNAMIC #define DF_TBUF #endif /* if reading/writing structures not ok, need buffer for conversion */ #ifndef DF_TBUF #ifndef DF_STRUCTOK #define DF_TBUF #endif #endif /* set buffer size */ #ifdef DF_TBUF #define DF_TBUFSZ 10000 #ifndef DFMASTER extern #endif unsigned char DFtbuf[DF_TBUFSZ]; #endif /*--------------------------------------------------------------------------*/ /* Size parameters */ #define DF_MAXDFS 32 /* How many DF's can be open at once */ #define DF_DEFAULTDDS 16 /* How many DD's a file has by default */ #define DF_MAXFNLEN 256 /* maximum length of filename parameters */ #endif