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