#include "splib.h"


static long
sex_change(long number)
{                /* Most inefficient and cumbersome (but safe) version) */
  long b0, b1, b2, b3;
  b0 = number&255L;   number >>= 8L;
  b1 = number&255L;   number >>= 8L;
  b2 = number&255L;   number >>= 8L;
  b3 = number&255L;
  number = b0;        number <<= 8L;
  number = number|b1; number <<= 8L;
  number = number|b2; number <<= 8L;
  number = number|b3;
  return(number);
}

int
main(int argc, char **argv)
{
  FILE *in;
  FILE *out;
  NODE node;
  long i;
  if (argc != 3) {
    fprintf(stderr, "usage: sextest infile outfile\n");
    exit(EXIT_FAILURE);
  }
  in = fopen(argv[1], READ_BIN);
  if (in == NULL) {
    fprintf(stderr, "sextest: cannot read from %s\n", argv[1]);
    exit(EXIT_FAILURE);
  }
  out = fopen(argv[2], WRITE_BIN);
  if (out == NULL) {
    fprintf(stderr, "sextest: cannot write to %s\n", argv[2]);
    exit(EXIT_FAILURE);
  }
  for (;;) {
    long l;
    if ((i = fread((char *)&node, 1, sizeof(NODE), in)) != sizeof(NODE)) break;
    l = sex_change(node);
    fwrite((char *)&l, 1, sizeof(l), out);
  }
  fclose(in);
  fprintf(stderr, "i = %ld\n", i);
  fclose(out);
}