home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / plotting / imagetoo / imagetl1.lha / Imagetool / HDF / dfi.h < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-20  |  18.2 KB  |  507 lines
  1. /* cat > headers/dfsun.h << "EOF" */
  2. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  3. /* dfsun.h: include file to specify Sun hardware when    */
  4. /*        building the HDF library for ImageTool 1.1.    */
  5. /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  6. /* SCCS information: %W%    %G% */
  7.  
  8. #if sun
  9. #if i386 || i486
  10. #define SUN386
  11. #elif mc68000 || mc68010 || mc68020 || mc68030 || sparc
  12. #define SUN
  13. #endif
  14. #endif
  15. /* EOF */
  16. /*****************************************************************************
  17. * 
  18. *              NCSA HDF version 3.10
  19. *                July 1, 1990
  20. *
  21. * NCSA HDF Version 3.10 source code and documentation are in the public
  22. * domain.  Specifically, we give to the public domain all rights for future
  23. * licensing of the source code, all resale rights, and all publishing rights.
  24. * 
  25. * We ask, but do not require, that the following message be included in all
  26. * derived works:
  27. * 
  28. * Portions developed at the National Center for Supercomputing Applications at
  29. * the University of Illinois at Urbana-Champaign.
  30. * 
  31. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  32. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  33. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  34. * 
  35. *****************************************************************************/
  36.  
  37. #ifdef RCSID
  38. static char RcsId[] = "@(#)$Revision: 3.7 $"
  39. #endif
  40. /*
  41. $Header: /pita/work/HDF/dev/RCS/src/dfi.h,v 3.7 90/06/28 09:41:26 clow beta $
  42. $Log:    dfi.h,v $
  43.  * Revision 3.7  90/06/28  09:41:26  clow
  44.  * Added segment for APOLLO machines
  45.  * 
  46.  * Revision 3.6  90/05/23  15:47:37  clow
  47.  * added MACRO "DF_OPENERR" to give uniform error open checking,
  48.  * especially for unbufferred I/O open
  49.  * 
  50.  * Revision 3.5  90/05/18  11:09:12  clow
  51.  * added missing #endif
  52.  * 
  53.  * Revision 3.4  90/05/17  17:06:00  clow
  54.  * added _fcd and _fcdtocp for LS FORTRAN so we don't have to go through
  55.  * an extra layer of Fortran stubs
  56.  * 
  57.  * Revision 3.4  90/05/17  16:04:14  clow
  58.  * added _fcd and _fcdtocp for LS FORTRAN so we don't have to go through
  59.  * an extra layer of Fortran stubs
  60.  * 
  61.  * Revision 3.3  90/05/14  23:15:45  clow
  62.  * added definition of MACRO "FCALLKEYW"
  63.  * 
  64. */
  65. /*-----------------------------------------------------------------------------
  66.  * File:    dfi.h
  67.  * Purpose: HDF internal header file
  68.  * Invokes: stdio.h, sys/file.h
  69.  * Contents: 
  70.  *  Compilation parameters
  71.  *  Machine-dependent definitions
  72.  *  Flexibility definitions: i/o buffering, dynamic memory, structure i/o
  73.  *  Size parameters
  74.  * Remarks: To port to a new system, only dfi.h and Makefile need be modified.
  75.  *          This file is included with user programs, but users do not see it.
  76.  *---------------------------------------------------------------------------*/
  77.  
  78.  
  79. #ifndef DF_MAGICK        /* avoid re-inclusion */
  80.  
  81. #define    DF_MAGICK    "\016\003\023\001" /* ^N^C^S^A */
  82.  
  83. #ifndef FILE
  84. #include <stdio.h>
  85. #endif /*FILE*/
  86.  
  87. /*--------------------------------------------------------------------------*/
  88. /*          Compilation Parameters for Flexibility and Portability          */
  89.  
  90. /* modify this line to allow for machine dependencies */
  91. /*#define    SUN*/
  92. /**IMPORTANT** this is now in the in the makefile */
  93.  
  94. /* modify this line for buffered/unbuffered i/o */
  95. #define    DF_BUFFIO
  96.  
  97. /* modify this line for dynamic/static memory allocation */
  98. #define    DF_DYNAMIC
  99.  
  100. /* modify this line if structures cannot be read/written as is */
  101. #undef    DF_STRUCTOK        /* leave it this way - hdfsh expects it */
  102.  
  103. /* Current version number */
  104. #define    DFVERSION   3.00
  105.  
  106. /*--------------------------------------------------------------------------*/
  107. /*                              MT/NT constants                             */
  108. /*      four MT nibbles represent int, float, double, uchar                 */
  109. #define    DFMT_SUN        0x1111
  110. #define    DFMT_ALLIANT    0x1111
  111. #define    DFMT_IRIS4      0x1111
  112. #define DFMT_APOLLO    0x1111
  113. #define    DFMT_UNICOS     0x3331
  114. #define    DFMT_CTSS       0x3331
  115. #define    DFMT_VAX        0x2221
  116. #define    DFMT_PC         0x4144    /* note byte swapping ??? */
  117.                 /* check this... */
  118. #define    DFMT_MAC        0x1111
  119. #define DFMT_SUN386    0x1444
  120.  
  121. #define    DFNT_VERSION    1    /* current version of NT info */
  122.  
  123. /* type info codes */
  124. #define    DFNT_UINT       1
  125. #define    DFNT_INT        2
  126. #define    DFNT_UCHAR      3
  127. #define    DFNT_CHAR       4
  128. #define    DFNT_FLOAT      5
  129. #define    DFNT_DOUBLE     6
  130.  
  131. /* class info codes for int */
  132. #define    DFNTI_MBO       1    /* Motorola byte order 2's compl */
  133. #define    DFNTI_VBO       2    /* Vax byte order 2's compl */
  134. #define    DFNTI_IBO       4    /* Intel byte order 2's compl */
  135.  
  136. /* class info codes for float */
  137. #define    DFNTF_IEEE      1    /* IEEE format */
  138. #define    DFNTF_VAX       2    /* Vax format */
  139. #define    DFNTF_CRAY      3    /* Cray format */
  140. #define    DFNTF_PC        4    /* PC floats - flipped IEEE */
  141.  
  142. /* class info codes for char */
  143. #define    DFNTC_BYTE      0    /* bitwise/numeric field */
  144. #define    DFNTC_ASCII     1    /* ASCII */
  145. #define    DFNTC_EBCDIC    5    /* EBCDIC */
  146.  
  147. /* array order */
  148. #define    DFO_FORTRAN     1    /* column major order */
  149. #define    DFO_C           2    /* row major order */
  150.  
  151. /*--------------------------------------------------------------------------*/
  152. /*                      Machine dependencies                                */
  153. #ifdef PC
  154. #ifndef O_RDONLY
  155. #include <fcntl.h>
  156. #define    L_INCR  1
  157. #endif /*O_RDONLY*/
  158. typedef    int int16;
  159. typedef    unsigned int uint16;
  160. typedef    long int int32;
  161. typedef    double float32;
  162. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  163. #undef DF_STRUCTOK                  /* structure writing will not work on PC */
  164. #undef DF_BUFFIO                    /* unbuffered i/o is faster */
  165. long longswap();                    /* provided elsewhere */
  166.  
  167.     /* in the next 3 lines, p is recast so right number of bytes passed */
  168.     /* ### Note that all calls modify p.  Need to use temporary ptr */
  169. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  170. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  171. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  172.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  173. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  174. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  175. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  176.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  177. #define    DF_CREAT(name, prot) creat(name, prot)
  178. #define    DF_MT   DFMT_PC
  179. #endif /*PC*/
  180.  
  181.  
  182. #ifdef UNICOS
  183. #ifndef O_RDONLY
  184. #include <sys/fcntl.h>              /* for unbuffered i/o stuff */
  185. #define    L_INCR  1
  186. #endif /*O_RDONLY*/
  187. typedef    int int16;
  188. typedef    int uint16;
  189. typedef    int int32;
  190. typedef    float float32;
  191. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  192. #undef DF_STRUCTOK          /* cannot directly read/write structures */
  193. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  194. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  195. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  196. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  197.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  198. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  199. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  200. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  201.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  202. #define    DF_CREAT(name, prot) creat(name, prot)
  203. #define    DF_MT   DFMT_UNICOS
  204. #endif /*UNICOS*/
  205.  
  206.  
  207. #ifdef SUN
  208. #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030
  209. #undef DF_STRUCTOK
  210. #endif
  211. #include <sys/file.h>               /* for unbuffered i/o stuff */
  212. typedef    short int16;
  213. typedef    unsigned short uint16;
  214. typedef    long int32;
  215. typedef    float float32;
  216. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  217. #ifndef DF_STRUCTOK
  218. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  219. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  220. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  221.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  222. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  223. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  224. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  225.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  226. #endif /*DF_STRUCTOK*/
  227. #define    DF_CREAT(name, prot) creat(name, prot)
  228. #define    DF_MT   DFMT_SUN
  229. #endif /*SUN*/
  230.  
  231. #ifdef SUN386
  232. #undef DF_STRUCTOK
  233. #include <sys/file.h>               /* for unbuffered i/o stuff */
  234. typedef    short int16;
  235. typedef    unsigned short uint16;
  236. typedef    long int32;
  237. typedef    float float32;
  238. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  239. #ifndef DF_STRUCTOK
  240. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  241. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  242. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  243.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  244. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  245. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  246. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  247.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  248. #endif /*DF_STRUCTOK*/
  249. #define    DF_CREAT(name, prot) creat(name, prot)
  250. #define    DF_MT   DFMT_SUN386
  251. #endif /* SUN386 */
  252.  
  253. #ifdef ALLIANT
  254. #include <sys/file.h>               /* for unbuffered i/o stuff */
  255. typedef    short int16;
  256. typedef    unsigned short uint16;
  257. typedef    long int32;
  258. typedef    float float32;
  259. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  260. #ifndef DF_STRUCTOK
  261. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  262. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  263. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  264.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  265. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  266. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  267. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  268.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  269. #endif /*DF_STRUCTOK*/
  270. #define    DF_CREAT(name, prot) creat(name, prot)
  271. #define    DF_MT   DFMT_ALLIANT
  272. #endif /*ALLIANT*/
  273.  
  274.  
  275. #ifdef IRIS4
  276. #undef DF_STRUCTOK
  277. #include <sys/types.h>
  278. #include <sys/file.h>               /* for unbuffered i/o stuff */
  279. typedef    short int16;
  280. typedef    unsigned short uint16;
  281. typedef    long int32;
  282. typedef    float float32;
  283. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  284. #ifndef DF_STRUCTOK
  285. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  286. #define INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  287. #define INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  288.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  289. #define UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  290. #define INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  291. #define INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  292.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  293. #endif /*DF_STRUCTOK*/
  294. #define DF_CREAT(name, prot) creat(name, prot)
  295. #define DF_MT   DFMT_IRIS4
  296. #endif /*IRIS4*/
  297.  
  298.  
  299. #ifdef MAC
  300. #undef DF_BUFFIO        /* use unbuffered i/o */
  301. #include <memory.h>             /* malloc stuff for MPW 3.0 */
  302. #include <fcntl.h>              /* unbuffered IO stuff for MPW 3.0 */
  303. #ifdef THINK_C                  /* for LightSpeed C */
  304. #include <unix.h>
  305. #else /*THINK_C                   MPW, possibly others */
  306. #include <Files.h>              /* for unbuffered i/o stuff */
  307. #endif /*THINK_C*/
  308. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  309. #define DF_DYNAMIC        /* use dynamic allocation */
  310. typedef short int16;
  311. typedef unsigned short uint16;
  312. typedef long int32;
  313. typedef float float32;
  314. #ifdef THINK_C                   /* LightSpeed C does not have memcpy */
  315. #define DFmovmem(from, to, len) DFImemcopy(from, to, len)
  316. #else /*THINK_C*/
  317. #define DFmovmem(from, to, len) memcpy(to, from, len)
  318. #endif /*THINK_C*/
  319. #define malloc(x)   NewPtr((Size)   (x))    /* don't use malloc on the Mac */
  320. #define free(x)     DisposPtr((Ptr) (x))    /* don't use free on the Nac   */ 
  321. #undef DF_STRUCTOK
  322. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  323. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  324. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  325.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  326. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  327. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  328. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  329.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  330. #define DF_CREAT(name, prot) mopen(name, O_WRONLY|O_TRUNC|O_CREAT)
  331. #define DF_MT   DFMT_MAC
  332. #endif /*MAC*/
  333.  
  334. #ifdef VMS
  335. /*#undef DF_BUFFIO should be buff !!!!*/
  336.    /* use only unbuff i/o - buff doesn't work! */
  337. #ifndef DFopen                  /* avoid double includes */
  338. #include "dfivms.h"
  339. #endif /*DFopen*/
  340. #undef DF_STRUCTOK
  341. #define DF_CAPFNAMES            /* fortran names are in all caps */
  342. #include <file.h>               /* for unbuffered i/o stuff */
  343. typedef short int16;
  344. typedef unsigned short uint16;
  345. typedef long int32;
  346. typedef float float32;
  347. #define DFmovmem(from, to, len) memcpy(to, from, len)
  348. #ifndef DF_STRUCTOK
  349. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  350. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  351. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  352.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  353. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  354. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  355. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  356.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  357. #endif /*DF_STRUCTOK*/
  358. #define DF_CREAT(name, prot) creat(name, prot)
  359. #define DF_MT   DFMT_VAX
  360. #endif /*VMS*/
  361.  
  362. #ifdef APOLLO
  363. #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030
  364. #undef DF_STRUCTOK
  365. #endif
  366. #include <sys/file.h>               /* for unbuffered i/o stuff */
  367. #define int16 short
  368. #define uint16 unsigned short
  369. #define int32 long
  370. #define float32 float
  371. #define DFmovmem(from, to, len) memcpy(to, from, len)
  372. #ifndef DF_STRUCTOK
  373. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  374. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  375. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  376.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  377. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  378. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  379. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  380.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  381. #endif /*DF_STRUCTOK*/
  382. #define DF_CREAT(name, prot) creat(name, prot)
  383. #define DF_MT   DFMT_APOLLO
  384. #endif /*APOLLO*/
  385.  
  386.  
  387. /*--------------------------------------------------------------------------*/
  388. /*                      Flexibility parameters                              */
  389. #ifdef MAC            /* MAC specific file manager calls */
  390. #    define DF_OPEN(x,y) mopen(x,y)
  391. #    define DF_CLOSE(x) mclose(x)
  392. #    define DF_SEEK(x,y,z) mlseek(x,y,z)
  393. #    define DF_SKEND(x,y,z) mlseek(x,-1*y,z)
  394. #    define DF_TELL(x) mlseek(x,0L,1)
  395. #    define DF_READ(a,b,c,d) mread(d,a,b*c)
  396. #    define DF_WRITE(a,b,c,d) mwrite(d,a,b*c)
  397. #    define DF_FLUSH(a)            /* no need to flush */
  398. #    define DF_RDACCESS 0        /* dummy */
  399. #    define DF_WRACCESS 0        /* dummy */
  400. #    define DF_OPENERR(f)    ((f) == -1)
  401. #else /* !MAC */
  402. #ifdef DF_BUFFIO            /* set all calls to do buffered I/O */
  403. #define DF_OPEN(x,y) fopen(x,y)
  404. #define DF_CLOSE(x) fclose(x)
  405. #define DF_SEEK(x,y,z) fseek(x,y,z)
  406. #define DF_SKEND(x,y,z) fseek(x,y,z)
  407. #define DF_TELL(x) ftell(x)
  408. #define DF_READ(a,b,c,d) fread(a,b,c,d)
  409. #define DF_WRITE(a,b,c,d) fwrite(a,b,c,d)
  410. #define DF_FLUSH(a) fflush(a)
  411. #define DF_OPENERR(f)    (!(f))
  412. #ifdef PC
  413. #define DF_RDACCESS "rb"
  414. #define DF_WRACCESS "rb+"
  415. #else /*PC*/
  416. #define DF_RDACCESS "r"
  417. #define DF_WRACCESS "r+"
  418. #endif /*PC*/
  419.  
  420. #else /*DF_BUFFIO         unbuffered i/o */
  421. #define DF_OPEN(x,y) open(x,y)
  422. #define DF_CLOSE(x) close(x)
  423. #define DF_SEEK(x,y,z) lseek(x,y,z)
  424. #define DF_SKEND(x,y,z) lseek(x,-1*y,z)
  425. #define DF_TELL(x) lseek(x,0L,1)
  426. #define DF_READ(a,b,c,d) read(d,a,b*c)
  427. #define DF_WRITE(a,b,c,d) write(d,a,b*c)
  428. #define DF_OPENERR(f)    ((f) == -1)
  429. #define DF_FLUSH(a)                             /* no need to flush */
  430. #  ifdef PC
  431. #    define DF_RDACCESS O_RDONLY | O_RAW
  432. #    define DF_WRACCESS O_RDWR | O_RAW
  433. #  else 
  434. #    define DF_RDACCESS O_RDONLY
  435. #    define DF_WRACCESS O_RDWR
  436. #  endif /*!PC*/
  437. #endif /*DF_BUFFIO*/
  438. #endif /* !MAC */
  439.  
  440.  
  441.     /* if not allocating memory dynamically, need buffer for compression */
  442. #ifndef DF_DYNAMIC
  443. #define DF_TBUF
  444. #define DF_TBUFSZ    10000    /* buffer size */
  445. #endif /*DF_DYNAMIC*/
  446.  
  447.     /* if reading/writing structures not ok, need buffer for conversion */
  448. #ifndef DF_TBUF
  449. #ifndef DF_STRUCTOK
  450. #define DF_TBUF
  451. #define DF_TBUFSZ    256    /* buffer size can be smaller */
  452. #endif /*DF_STRUCTOK*/
  453. #endif /*DF_TBUF*/
  454.  
  455.     /* set buffer size */
  456. #ifdef DF_TBUF
  457. #ifndef DFMASTER
  458. extern
  459. #endif /*DFMASTER*/
  460.     char DFtbuf[DF_TBUFSZ];
  461. #endif /*DF_TBUF*/
  462.  
  463. /* VMS str descriptor conversion macro */
  464. #if defined(VMS)
  465. #   define _fcdtocp(desc) ((char *) *((char **) &desc[4]))
  466.     typedef char *_fcd;
  467. #else /* !VMS */
  468. #if defined(UNICOS)
  469. #   include <fortran.h>
  470. #else /* !VMS && !UNICOS */
  471. #if defined(MAC)        /* with LS_FORTRAN */
  472. #   define _fcdtocp(descp) (*((char**)(descp)))
  473.     typedef char** _fcd;
  474. #else /* !VMS && !UNICOS && !MAC */
  475. #   define _fcdtocp(desc) (desc)
  476.     typedef char *_fcd;
  477. #endif
  478. #endif /* !VMS && !UNICOS */
  479. #endif /* !VMS */
  480.  
  481. /* 
  482. MACRO FCALLKEYW for any special fortran-C stub keyword
  483.  
  484. MacIntosh MPW LS-fortran needs pascal since it can interface best with
  485. pascal functions
  486. */
  487. #if defined(MAC)        /* with LS FORTRAN */
  488. #   define FCALLKEYW    pascal
  489. #else /* !MAC */
  490. #   define FCALLKEYW    /*NONE*/
  491. #endif
  492.  
  493. /*--------------------------------------------------------------------------*/
  494. /*                          Size parameters                                 */
  495. #define DF_MAXDFS           32  /* How many DF's can be open at once */
  496. #define DF_DEFAULTDDS       16  /* How many DD's a file has by default */
  497. #define DF_MAXFNLEN         256 /* maximum length of filename parameters */
  498.  
  499. #ifndef MAC
  500. char *strncpy();
  501. char *strcpy();
  502. char *malloc();
  503. char *memcpy();
  504. #endif /* !MAC */
  505.  
  506. #endif /*DF_MAGICK*/
  507.