endian.c

   1 /* endian.c -- A trick for determining the byte order of a machine. */
   2
   3 /* Copyright (C) 1993 Free Software Foundation, Inc.
   4
   5    This file is part of GNU Bash, the Bourne Again SHell.
   6
   7    Bash is free software; you can redistribute it and/or modify it under
   8    the terms of the GNU General Public License as published by the Free
   9    Software Foundation; either version 2, or (at your option) any later
  10    version.
  11
  12    Bash is distributed in the hope that it will be useful, but WITHOUT ANY
  13    WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15    for more details.
  16
  17    You should have received a copy of the GNU General Public License along
  18    with Bash; see the file COPYING.  If not, write to the Free Software
  19    Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
  20
  21 #include <sys/types.h>
  22 #include <stdio.h>
  23 #include "bashansi.h"
  24
  25 /* The name of this program, as taken from argv[0]. */
  26 char *progname;
  27
  28 /* The name of the source file that this code is made from. */
  29 char source_name[256];
  30
  31 /* The name of the define.  Either "BIG_ENDIAN" or "LITTLE_ENDIAN". */
  32 char *endian_define;
  33
  34 char string[9];
  35 char nstring[9];
  36
  37 /* Stuff "1234" into a long, and compare it against a character string
  38    "1234".  If the results are EQ, the machine is big endian like a 68000
  39    or Sparc, otherwise it is little endian, like a Vax, or 386. */
  40 main (argc, argv)
  41      int argc;
  42      char **argv;
  43 {
  44 #if defined (__STDC__)
  45   register size_t i;
  46 #else
  47   register int i;
  48 #endif /* !__STDC__ */
  49   FILE *stream = (FILE *)NULL;
  50   char *stream_name = "stdout";
  51   union {
  52       unsigned long l;
  53       char s[sizeof (long)];
  54   } u;
  55
  56   progname = argv[0];
  57
  58   for (i = strlen (progname); i > 0; i--)
  59     if (progname[i] == '/')
  60       {
  61         progname = progname + i + 1;
  62         break;
  63       }
  64
  65   strcpy (source_name, progname);
  66   for (i = strlen (source_name); i > 0; i--)
  67     if (source_name[i] == '.')
  68       {
  69         source_name[i] = '\0';
  70         break;
  71       }
  72
  73   strcat (source_name, ".c");
  74
  75   if (argc == 1)
  76     {
  77       stream_name = "stdout";
  78       stream = stdout;
  79     }
  80   else if (argc == 2)
  81     {
  82       stream_name = argv[1];
  83       stream = fopen (stream_name, "w");
  84     }
  85   else
  86     {
  87       fprintf (stderr, "Usage: %s [output-file]\n", progname);
  88       exit (1);
  89     }
  90
  91   if (!stream)
  92     {
  93       fprintf (stderr, "%s: %s Cannot be opened or written to.\n",
  94                progname, stream_name);
  95       exit (2);
  96     }
  97
  98   if (sizeof (long int) == 4)
  99     {
 100       u.l = 0x04030201L;
 101       (void) strcpy (string, "4321");
 102     }
 103   else if (sizeof (long int) == 8)
 104     {
 105 #if defined (__GNUC__)
 106       unsigned long fake_out_gcc;
 107
 108       fake_out_gcc = (0x08070605L << 31);
 109       fake_out_gcc = (fake_out_gcc << 1);
 110       u.l = fake_out_gcc | 0x04030201L;
 111 #else
 112       u.l = (0x08070605L << 32) | 0x04030201L;
 113 #endif /* !__GNUC__ */
 114       (void) strcpy (string, "87654321");
 115     }
 116   else
 117     {
 118       fprintf (stderr,
 119                "%s: sizeof (long int) = %d, which isn't handled here.\n",
 120                progname, sizeof (long int));
 121       exit (2);
 122     }
 123
 124   for (i = 0; i < sizeof (long); i++)
 125     nstring[i] = u.s[i] + '0';
 126   nstring[i] = '\0';
 127
 128   if (strcmp (nstring, string) == 0)
 129     endian_define = "BIG_ENDIAN";
 130   else
 131     endian_define = "LITTLE_ENDIAN";
 132
 133   fprintf (stream, "/* %s - Define BIG or LITTLE endian. */\n\n", stream_name);
 134   fprintf (stream,
 135 "/* This file was automatically created by `%s'.  You shouldn't\n\
 136    edit this file, because your changes will be overwritten.  Instead,\n\
 137    edit the source code file `%s'. */\n\n",
 138            progname, source_name);
 139
 140   fprintf (stream, "#if !defined (%s)\n", endian_define);
 141   fprintf (stream, "#  define %s\n", endian_define);
 142   fprintf (stream, "#endif /* %s */\n", endian_define);
 143
 144   if (stream != stdout)
 145     fclose (stream);
 146
 147   exit (0);
 148 }