home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / plotting / imagetoo / imagetl1.lha / Imagetool / HDF / dfconvert.h < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-20  |  3.6 KB  |  124 lines
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF version 3.10
  4. *                July 1, 1990
  5. *
  6. * NCSA HDF Version 3.10 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. /*
  23. $Header: /pita/work/HDF/dev/RCS/src/dfconvert.h,v 3.3 90/07/02 09:40:04 clow beta $
  24.  
  25. $Log:    dfconvert.h,v $
  26.  * Revision 3.3  90/07/02  09:40:04  clow
  27.  * enclosed DFconvert macro and function with an #ifdef on FUNC_CONV
  28.  * so that the selection between these is a compilation option
  29.  * 
  30.  * Revision 3.2  90/06/21  10:39:13  clow
  31.  * Expanded DFconvert macro so that it is as complete as the function
  32.  * 
  33.  * Revision 3.1  90/05/21  08:59:15  clow
  34.  * if it's unicos, use the fortran optimized convertsion routines
  35.  * added macros to do above
  36.  * 
  37.  * Revision 3.0  90/02/19  15:22:17  pwebb
  38.  * Macro to replace function call
  39.  * 
  40. */
  41. /* In order to speed the conversion process, eliminate a layer of function
  42.  * calls by making DFconvert into a macro.
  43.  * Peter Webb, Oct 11, 1989
  44.  */
  45. #ifndef DFCONVERT_H
  46. #define DFCONVERT_H
  47. #ifndef FUNC_CONV
  48. /* This is the default */
  49. /* using the DFconvert macro instead of function */
  50. #define DFconvert(src,dest,ntype,stype,dtype,size,status)\
  51. { char *s=(src), *d=(dest);\
  52.   int nt=(ntype), st=(stype), dt=(dtype);\
  53.   int sz=(size);\
  54.   if (nt==DFNT_FLOAT) {\
  55.     if ((st==DFNTF_IEEE && dt==DFNTF_PC) ||\
  56.         (st==DFNTF_PC && dt==DFNTF_IEEE)) {\
  57.       register int i;\
  58.       for (i=0;i<sz*4;i+=4) {\
  59.         d[i] = s[i+3];\
  60.         d[i+1] = s[i+2];\
  61.         d[i+2] = s[i+1];\
  62.         d[i+3] = s[i];\
  63.       }\
  64.       status=0;\
  65.     } else {\
  66.       if (st==DFNTF_PC) {\
  67.         register int i;\
  68.         register char t;\
  69.         for (i=0;i<sz*4;i+=4) {\
  70.           t = s[i];\
  71.           s[i] = s[i+3];\
  72.           s[i+3] = t;\
  73.           t = s[i+1];\
  74.           s[i+1] = s[i+2];\
  75.           s[i+2] = t;\
  76.         }\
  77.         st=DFNTF_IEEE;\
  78.       }\
  79.       if (st==DFNTF_IEEE && dt==DFNTF_CRAY) {\
  80.         SCUP32(s,d,&sz,&(status));\
  81.       } else if (st==DFNTF_CRAY && (dt==DFNTF_IEEE || dt==DFNTF_PC)) {\
  82.         CSPK32(s,d,&sz,&(status));\
  83.       } else if (st==DFNTF_IEEE && dt==DFNTF_VAX) {\
  84.         status = DFCVieeeF2vaxF(s,d,sz);\
  85.       } else if (st==DFNTF_VAX && (dt==DFNTF_IEEE || dt==DFNTF_PC)) {\
  86.         status = DFCVvaxF2ieeeF(s,d,sz);\
  87.       } else {\
  88.         status = -1;\
  89.       }\
  90.       if (dt==DFNTF_PC) {\
  91.         register int i;\
  92.         register char t;\
  93.         for (i=0;i<sz*4;i+=4) {\
  94.           t = d[i];\
  95.           d[i] = d[i+3];\
  96.           d[i+3] = t;\
  97.           t = d[i+1];\
  98.           d[i+1] = d[i+2];\
  99.           d[i+2] = t;\
  100.         }\
  101.       }\
  102.       if ((stype)==DFNTF_PC) {\
  103.         register int i;\
  104.         register char t;\
  105.         for (i=0;i<sz*4;i+=4) {\
  106.           t = s[i];\
  107.           s[i] = s[i+3];\
  108.           s[i+3] = t;\
  109.           t = s[i+1];\
  110.           s[i+1] = s[i+2];\
  111.           s[i+2] = t;\
  112.         }\
  113.         st=DFNTF_IEEE;\
  114.       }\
  115.     }\
  116.   } else {\
  117.   status = -1;\
  118.   }\
  119.   if (status == -1) DFerror = DFE_BADCONV;\
  120. }
  121. #endif /* !FUNC_CONV */
  122.  
  123. #endif /* !DFCONVERT_H */
  124.