1

/* Copyright (C) 1998 DJ Delorie, see COPYING.DJ for details */

     2

/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */

     3

/* Updated 2008 to use fread/fopen and friends instead of read/open so it compiles with GCC on Unix (Rubidium) */

     4

#include <stdio.h>

     5

#include <stdlib.h>

     6

#include <fcntl.h>

     7

#include <sys/stat.h>

     8

#include <string.h>

     9

#include <unistd.h>

    10

#include <ctype.h>

    11

    12

    13

static void

    14

exe2aout(char *fname)

    15

{

    16

  unsigned short header[3];

    17

  FILE *ifile;

    18

  FILE *ofile;

    19

  char buf[4096];

    20

  int rbytes;

    21

  char *dot = strrchr(fname, '.');

    22

  if (!dot || strlen(dot) != 4

    23

      || tolower(dot[1]) != 'e'

    24

      || tolower(dot[2]) != 'x'

    25

      || tolower(dot[3]) != 'e')

    26

  {

    27

    fprintf(stderr, "%s: Arguments MUST end with a .exe extension\n", fname);

    28

    return;

    29

  }

    30

    31

  ifile = fopen(fname, "rb");

    32

  if (!ifile)

    33

  {

    34

    perror(fname);

    35

    return;

    36

  }

    37

  fread(header, sizeof(header), 1, ifile);

    38

  if (header[0] == 0x5a4d)

    39

  {

    40

    long header_offset = (long)header[2]*512L;

    41

    if (header[1])

    42

      header_offset += (long)header[1] - 512L;

    43

    fseek(ifile, header_offset, SEEK_SET);

    44

    header[0] = 0;

    45

    fread(header, sizeof(header), 1, ifile);

    46

    if ((header[0] != 0x010b) && (header[0] != 0x014c))

    47

    {

    48

      fprintf(stderr, "`%s' does not have a COFF/AOUT program appended to it\n", fname);

    49

      return;

    50

    }

    51

    fseek(ifile, header_offset, SEEK_SET);

    52

  }

    53

  else

    54

  {

    55

    fprintf(stderr, "`%s' is not an .EXE file\n", fname);

    56

    return;

    57

  }

    58

    59

  *dot = 0;

    60

  ofile = fopen(fname, "w+b");

    61

  if (!ofile)

    62

  {

    63

    perror(fname);

    64

    return;

    65

  }

    66

    67

  while ((rbytes=fread(buf, 1, 4096, ifile)) > 0)

    68

  {

    69

    int wb = fwrite(buf, 1, rbytes, ofile);

    70

    if (wb < 0)

    71

    {

    72

      perror(fname);

    73

      break;

    74

    }

    75

    if (wb < rbytes)

    76

    {

    77

      fprintf(stderr, "`%s': disk full\n", fname);

    78

      exit(1);

    79

    }

    80

  }

    81

  fclose(ifile);

    82

  fclose(ofile);

    83

}

    84

    85

int

    86

main(int argc, char **argv)

    87

{

    88

  int i;

    89

  if (argc == 1) printf("Usage: %s <exename>", argv[0]);

    90

  for (i=1; i<argc; i++)

    91

    exe2aout(argv[i]);

    92

  return 0;

    93

}

    94