ALL: Add flint

2014-05-19 00:03:37 +02:00
parent a15ef46ea6
commit d51d8e3652
3752 changed files with 446416 additions and 0 deletions
--- a/external/flint-2.4.3/sprintf.c
+++ b/external/flint-2.4.3/sprintf.c
@@ -0,0 +1,125 @@
+/*=============================================================================
+
+    This file is part of FLINT.
+
+    FLINT is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    FLINT 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 General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with FLINT; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+=============================================================================*/
+/******************************************************************************
+
+    Copyright (C) 2013 William Hart
+
+******************************************************************************/
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+#include <stdarg.h>
+#include "flint.h"
+
+size_t flint_sprintf(char * s, const char * str, ...)
+{
+   va_list ap;
+   size_t len = strlen(str);
+   char * str2 = flint_malloc(len + 1);
+   int w1 = 0, w2 = 0;
+   void * w3;
+   double d;
+   ulong wu;
+   slong w;
+   int args, floating;
+   size_t ret;
+
+   /* deal with first substring */
+   size_t n = strcspn(str, "%");
+   strncpy(str2, str, n);
+   str2[n] = '\0';
+   ret = sprintf(s, "%s", str2);
+   len -= n;
+   str += n;
+
+   va_start(ap, str);
+
+   while (len) /* deal with fmt spec prefixed strings */
+   {
+      n = strcspn(str + 2, "%") + 2; /* be sure to skip a %% */
+      strncpy(str2, str, n);
+      str2[n] = '\0';
+   
+      switch (str[1])
+      {
+      case 'w':
+         if (str[2] == 'x')
+         {
+            wu = (ulong) va_arg(ap, ulong);
+            ret += sprintf(s + ret, WORD_FMT "x", wu);
+            ret += sprintf(s + ret, "%s", str2 + 3);
+         } else if (str[2] == 'u')
+         {
+            wu = (ulong) va_arg(ap, ulong);
+            ret += sprintf(s + ret, WORD_FMT "u", wu);
+            ret += sprintf(s + ret, "%s", str2 + 3);
+         } else if (str[2] == 'd')
+         {
+            w = (slong) va_arg(ap, slong);
+            ret += sprintf(s + ret, WORD_FMT "d", w);
+            ret += sprintf(s + ret, "%s", str2 + 3);
+         } else
+         {
+            w = (slong) va_arg(ap, slong);
+            ret += sprintf(s + ret, WORD_FMT "d", w);
+            ret += sprintf(s + ret, "%s", str2 + 2);
+         }
+         break;
+      default: /* pass to sprintf */
+         args = parse_fmt(&floating, str2);
+         if (args) 
+         {
+            if (args == 3)
+               w1 = va_arg(ap, int);
+            if (args >= 2)
+               w2 = va_arg(ap, int);
+            if (floating)
+            {
+               d = va_arg(ap, double);
+               if (args == 2)
+                  ret += sprintf(s + ret, str2, w2, d);
+               else if (args == 3)
+                  ret += sprintf(s + ret, str2, w1, w2, d);
+               else
+                  ret += sprintf(s + ret, str2, d);
+            } else
+            {
+               w3 = va_arg(ap, void *);
+               if (args == 2)
+                  ret += sprintf(s + ret, str2, w2, w3);
+               else if (args == 3)
+                  ret += sprintf(s + ret, str2, w1, w2, w3);
+               else
+                  ret += sprintf(s + ret, str2, w3);
+            }
+         } else ret += sprintf(s + ret, "%s", str2); /* zero args */
+      }
+
+      len -= n;
+      str += n;
+   }
+
+   va_end(ap);
+   flint_free(str2);
+
+   return ret;
+}