X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/ba6e6b64033b1f9de49feccb5c9cd438354481f7..0f00dc4c8eb47e67bc0f148c2dd109f73a451e0a:/math/mptypes.c

diff --git a/math/mptypes.c b/math/mptypes.c
new file mode 100644
index 00000000..807ffee5
--- /dev/null
+++ b/math/mptypes.c
@@ -0,0 +1,212 @@
+/* -*-c-*-
+ *
+ * Generate `mptypes.h' header file for current architecture
+ *
+ * (c) 1999 Straylight/Edgeware
+ */
+
+/*----- Licensing notice --------------------------------------------------*
+ *
+ * This file is part of Catacomb.
+ *
+ * Catacomb is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Library General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * Catacomb is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with Catacomb; if not, write to the Free
+ * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+ * MA 02111-1307, USA.
+ */
+
+/*----- Header files ------------------------------------------------------*/
+
+#define _GNU_SOURCE
+#include "config.h"
+
+#include <stdio.h>
+#include <limits.h>
+#if __STDC_VERSION__ >= 199900l
+#  include <stdint.h>
+#  include <inttypes.h>
+#endif
+
+/*----- Data types --------------------------------------------------------*/
+
+/* --- Hack for GCC --- *
+ *
+ * WG14 in their infinite wisdom decided not to use the GCC constant name.
+ */
+
+#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 91)
+#  define EXT __extension__
+#else
+#  define EXT
+#endif
+
+#if defined(ULONG_LONG_MAX) && !defined(ULLONG_MAX)
+#  define ULLONG_MAX ULONG_LONG_MAX
+#endif
+
+/* --- Choose the largest integer type --- */
+
+#if defined(UINTMAX_MAX) && defined(PRIuMAX)
+  typedef uintmax_t umax;
+# define P_UMAX PRIuMAX
+#elif defined(ULLONG_MAX)
+  EXT typedef unsigned long long umax;
+# define P_UMAX "llu"
+#else
+  typedef unsigned long umax;
+# define P_UMAX "lu"
+#endif
+
+/* --- Table of interesting types --- *
+ *
+ * These are in preference order.
+ */
+
+enum {
+  f_stdint = 1u,
+  f_ext = 2u
+};
+
+struct itype {
+  const char *name;
+  const char *suff;
+  umax max;
+  unsigned flags;
+  unsigned bits;
+} tytab[] = {
+  { "unsigned int",		"u",	UINT_MAX,		0 },
+  { "unsigned short",		"u",	USHRT_MAX,		0 },
+  { "unsigned long",		"ul",	ULONG_MAX,		0 },
+#ifdef ULLONG_MAX
+  { "unsigned long long",	"ull",	EXT ULLONG_MAX,		f_ext },
+#endif
+#ifdef UINTMAX_MAX
+  { "uintmax_t",		"u",	UINTMAX_MAX,		f_stdint },
+#endif
+  { 0,				0 },
+};
+
+typedef struct itype itype;
+
+/*----- Main code ---------------------------------------------------------*/
+
+int main(int argc, char *argv[])
+{
+  itype *i;
+  itype *largest, *mpw, *mpd;
+  const static char *extstr = "CATACOMB_MPTYPES_EXTENSION ";
+  unsigned p2;
+
+  /* --- Find the bitcounts --- */
+
+  for (i = tytab; i->name; i++) {
+    unsigned bits;
+    umax u = i->max;
+    for (bits = 0; u; bits++)
+      u >>= 1;
+    i->bits = bits;
+  }
+
+  /* --- Now try to find the interesting types --- *
+   *
+   * The first thing to do is to find the largest type.  Then I find the
+   * `best' type which is less than half that size, and then the `best' type
+   * which is twice as big as that one.
+   */
+
+#if defined(FORCE_MPW_CUSSID)
+  largest = mpd = &tytab[3];
+  mpw = &tytab[2];
+  mpw->bits = 19; mpw->max = 0x7ffff;
+  mpd->bits = 38; mpd->max = 0x3fffffffffll;
+#elif defined(FORCE_MPW_SHORT)
+  largest = mpd = &tytab[2];
+  mpw = &tytab[1];
+  mpw->bits = 16; mpw->max = 0xffff;
+  mpd->bits = 32; mpd->max = 0xffffffff;
+#else
+  largest = tytab;
+  for (i = tytab; i->name; i++) {
+    if (i->bits > largest->bits)
+      largest = i;
+  }
+  for (mpw = 0, i = tytab; i->name; i++) {
+    if (i->bits * 2 <= largest->bits && (!mpw || i->bits > mpw->bits))
+      mpw = i;
+  }
+  if (!mpw)
+    mpw = tytab;
+  for (mpd = 0, i = tytab; i->name; i++) {
+    if (i->bits >= mpw->bits * 2 && (!mpd || i->bits < mpd->bits))
+      mpd = i;
+  }
+  if (!mpd) {
+    static itype w, d;
+    d = w = *mpw;
+    w.bits /= 2; w.max = ~(~((umax)0) << w.bits);
+    d.bits = w.bits * 2; d.max = ~(~((umax)0) << d.bits);
+    mpw = &w; mpd = &d;
+  }
+#endif
+  for (p2 = 1; (p2 << 1) < mpw->bits; p2 <<= 1);
+
+  /* --- Output time --- */
+
+  puts("\
+/* -*-c-*-\n\
+ *\n\
+ * mptypes.h [generated]\n\
+ */\n\
+\n\
+#ifndef CATACOMB_MPTYPES_H\n\
+#define CATACOMB_MPTYPES_H\n\
+");
+  if ((mpd->flags | mpw->flags) & f_stdint) {
+    puts("\
+#if __STDC_VERSION__ >= 199900l\n\
+#  include <stdint.h>\n\
+#endif\n\
+");
+  }
+  if ((mpd->flags | mpw->flags) & f_ext) {
+    printf("\
+#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 91)\n\
+#  define %s __extension__\n\
+#else\n\
+#  define %s\n\
+#endif\n\
+", extstr, extstr);
+  }
+  printf("\
+%stypedef %s mpw;\n\
+#define MPW_BITS %u\n\
+#define MPW_P2 %u\n\
+#define MPW_MAX %s%" P_UMAX "%s\n\
+\n\
+%stypedef %s mpd;\n\
+#define MPD_BITS %u\n\
+#define MPD_MAX %s%" P_UMAX "%s\n\
+\n\
+#endif\n\
+",
+  mpw->flags & f_ext ? extstr : "", mpw->name,
+  mpw->bits, p2,
+  mpw->flags & f_ext ? extstr : "", mpw->max, mpw->suff,
+  mpd->flags & f_ext ? extstr : "", mpd->name,
+  mpd->bits,
+  mpd->flags & f_ext ? extstr : "", mpd->max, mpd->suff);
+
+  return (0);
+}
+
+/*----- That's all, folks -------------------------------------------------*/