data_conversion.c

Go to the documentation of this file.

/* $Id: data_conversion.c,v 1.6 2005/11/10 20:46:08 seymour Exp $ */
/* $UTK_Copyright: $ */

#include "utility.h"

gs_int_swap_f gs_int_swap_func[4][4] = {
   {gs_swap_int_nop,   gs_swap_int_undef, gs_swap_int_undef, gs_swap_int},
   {gs_swap_int_undef, gs_swap_int_nop,   gs_swap_int_undef, gs_swap_int_undef},
   {gs_swap_int_undef, gs_swap_int_undef, gs_swap_int_nop,   gs_swap_int_undef},
   {gs_swap_int,       gs_swap_int_undef, gs_swap_int_undef, gs_swap_int_nop}};

gs_float_swap_f gs_float_swap_func[4][4] = {
   {gs_swap_float_nop,   gs_swap_float_undef, gs_swap_float_undef, gs_swap_float},
   {gs_swap_float_undef, gs_swap_float_nop,   gs_swap_float_undef, gs_swap_float_undef},
   {gs_swap_float_undef, gs_swap_float_undef, gs_swap_float_nop,   gs_swap_float_undef},
   {gs_swap_float,       gs_swap_float_undef, gs_swap_float_undef, gs_swap_float_nop}};

gs_double_swap_f gs_double_swap_func[4][4] = {
   {gs_swap_double_nop,   gs_swap_double_undef, gs_swap_double_undef, gs_swap_double},
   {gs_swap_double_undef, gs_swap_double_nop,   gs_swap_double_undef, gs_swap_double_undef},
   {gs_swap_double_undef, gs_swap_double_undef, gs_swap_double_nop,   gs_swap_double_undef},
   {gs_swap_double,       gs_swap_double_undef, gs_swap_double_undef, gs_swap_double_nop}};

int
gs_swap_int(int *x)
{
  switch(sizeof(int)) {
    case 4:
      *x = ((*x & 0xFF) << 24) |
           ((*x & 0xFF00) << 8) |
           ((*x & 0xFF0000) >> 8) |
           ((*x & 0xFF000000) >> 24);
      return 0;
    case 2:
      *x = ((*x & 0xFF) << 8) | 
           ((*x & 0xFF00) >> 8);
      return 0;
    default:
      ERRPRINTF("Error: unexpected int size\n");
      return -1;
  }
}

int
gs_swap_int_nop(int *x)
{
  return 0;
}

int
gs_swap_int_undef(int *x)
{
  ERRPRINTF("Error: this conversion is undefined\n");
  return -1;
}

int
gs_swap_float(float *f)
{
  int i, size = sizeof(float)-1;
  char *p, tmp;

  p = (char*)f;

  for(i=size;i>size/2;i--) {
    tmp = p[i];
    p[i] = p[size-i];
    p[size-i] = tmp;
  }

  return 0;
}

int
gs_swap_float_nop(float *x)
{
  return 0;
}

int
gs_swap_float_undef(float *x)
{
  ERRPRINTF("Error: this conversion is undefined\n");
  return -1;
}

int
gs_swap_double(double *d)
{
  int i, size = sizeof(double)-1;
  char *p, tmp;

  p = (char*)d;

  for(i=size;i>size/2;i--) {
    tmp = p[i];
    p[i] = p[size-i];
    p[size-i] = tmp;
  }

  return 0;
}

int
gs_swap_double_nop(double *d)
{
  return 0;
}

int
gs_swap_double_undef(double *d)
{
  ERRPRINTF("Error: this conversion is undefined\n");
  return -1;
}