1 files changed, 204 insertions, 0 deletions

diff --git a/tools/ucl/src/ucl_util.c b/tools/ucl/src/ucl_util.c
new file mode 100644
index 0000000000..93b7298302
--- /dev/null
+++ b/tools/ucl/src/ucl_util.c
@@ -0,0 +1,204 @@
+/* ucl_util.c -- utilities for the UCL library
+
+   This file is part of the UCL data compression library.
+
+   Copyright (C) 1996-2002 Markus Franz Xaver Johannes Oberhumer
+   All Rights Reserved.
+
+   The UCL library 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.
+
+   The UCL library 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 the UCL library; see the file COPYING.
+   If not, write to the Free Software Foundation, Inc.,
+   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+   Markus F.X.J. Oberhumer
+   <markus@oberhumer.com>
+   http://www.oberhumer.com/opensource/ucl/
+ */
+
+
+#include "ucl_conf.h"
+#include "ucl_util.h"
+
+
+/***********************************************************************
+//
+************************************************************************/
+
+UCL_PUBLIC(ucl_bool)
+ucl_assert(int expr)
+{
+    return (expr) ? 1 : 0;
+}
+
+
+/***********************************************************************
+//
+************************************************************************/
+
+/* If you use the UCL library in a product, you *must* keep this
+ * copyright string in the executable of your product.
+.*/
+
+const ucl_byte __ucl_copyright[] =
+    "\n\n\n"
+    "UCL real-time data compression library.\n"
+    "$Copyright: UCL (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 Markus Franz Xaver Johannes Oberhumer $\n"
+    "<markus@oberhumer.com>\n"
+    "http://www.oberhumer.com\n"
+    "\n"
+    "UCL version: v" UCL_VERSION_STRING ", " UCL_VERSION_DATE "\n"
+    "UCL build date: " __DATE__ " " __TIME__ "\n\n"
+    "UCL special compilation options:\n"
+#ifdef __cplusplus
+    " __cplusplus\n"
+#endif
+#if defined(__PIC__)
+    " __PIC__\n"
+#elif defined(__pic__)
+    " __pic__\n"
+#endif
+#if (UINT_MAX < UCL_0xffffffffL)
+    " 16BIT\n"
+#endif
+#if defined(__UCL_STRICT_16BIT)
+    " __UCL_STRICT_16BIT\n"
+#endif
+#if (UINT_MAX > UCL_0xffffffffL)
+    " UINT_MAX=" _UCL_MEXPAND(UINT_MAX) "\n"
+#endif
+#if (ULONG_MAX > UCL_0xffffffffL)
+    " ULONG_MAX=" _UCL_MEXPAND(ULONG_MAX) "\n"
+#endif
+#if defined(UCL_BYTE_ORDER)
+    " UCL_BYTE_ORDER=" _UCL_MEXPAND(UCL_BYTE_ORDER) "\n"
+#endif
+#if defined(UCL_UNALIGNED_OK_2)
+    " UCL_UNALIGNED_OK_2\n"
+#endif
+#if defined(UCL_UNALIGNED_OK_4)
+    " UCL_UNALIGNED_OK_4\n"
+#endif
+#if defined(UCL_ALIGNED_OK_4)
+    " UCL_ALIGNED_OK_4\n"
+#endif
+#if defined(__UCL_IN_MINIUCL)
+    " __UCL_IN_MINIUCL\n"
+#endif
+    "\n\n"
+/* RCS information */
+    "$Id: UCL " UCL_VERSION_STRING " built " __DATE__ " " __TIME__
+#if defined(__GNUC__) && defined(__VERSION__)
+    " by gcc " __VERSION__
+#elif defined(__BORLANDC__)
+    " by Borland C " _UCL_MEXPAND(__BORLANDC__)
+#elif defined(_MSC_VER)
+    " by Microsoft C " _UCL_MEXPAND(_MSC_VER)
+#elif defined(__PUREC__)
+    " by Pure C " _UCL_MEXPAND(__PUREC__)
+#elif defined(__SC__)
+    " by Symantec C " _UCL_MEXPAND(__SC__)
+#elif defined(__TURBOC__)
+    " by Turbo C " _UCL_MEXPAND(__TURBOC__)
+#elif defined(__WATCOMC__)
+    " by Watcom C " _UCL_MEXPAND(__WATCOMC__)
+#endif
+    " $\n";
+
+UCL_PUBLIC(const ucl_byte *)
+ucl_copyright(void)
+{
+    return __ucl_copyright;
+}
+
+UCL_PUBLIC(ucl_uint32)
+ucl_version(void)
+{
+    return UCL_VERSION;
+}
+
+UCL_PUBLIC(const char *)
+ucl_version_string(void)
+{
+    return UCL_VERSION_STRING;
+}
+
+UCL_PUBLIC(const char *)
+ucl_version_date(void)
+{
+    return UCL_VERSION_DATE;
+}
+
+UCL_PUBLIC(const ucl_charp)
+_ucl_version_string(void)
+{
+    return UCL_VERSION_STRING;
+}
+
+UCL_PUBLIC(const ucl_charp)
+_ucl_version_date(void)
+{
+    return UCL_VERSION_DATE;
+}
+
+
+/***********************************************************************
+// adler32 checksum
+// adapted from free code by Mark Adler <madler@alumni.caltech.edu>
+// see http://www.cdrom.com/pub/infozip/zlib/
+************************************************************************/
+
+#define UCL_BASE 65521u /* largest prime smaller than 65536 */
+#define UCL_NMAX 5552
+/* NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 */
+
+#define UCL_DO1(buf,i)  {s1 += buf[i]; s2 += s1;}
+#define UCL_DO2(buf,i)  UCL_DO1(buf,i); UCL_DO1(buf,i+1);
+#define UCL_DO4(buf,i)  UCL_DO2(buf,i); UCL_DO2(buf,i+2);
+#define UCL_DO8(buf,i)  UCL_DO4(buf,i); UCL_DO4(buf,i+4);
+#define UCL_DO16(buf,i) UCL_DO8(buf,i); UCL_DO8(buf,i+8);
+
+UCL_PUBLIC(ucl_uint32)
+ucl_adler32(ucl_uint32 adler, const ucl_byte *buf, ucl_uint len)
+{
+    ucl_uint32 s1 = adler & 0xffff;
+    ucl_uint32 s2 = (adler >> 16) & 0xffff;
+    int k;
+
+    if (buf == NULL)
+        return 1;
+
+    while (len > 0)
+    {
+        k = len < UCL_NMAX ? (int) len : UCL_NMAX;
+        len -= k;
+        if (k >= 16) do
+        {
+            UCL_DO16(buf,0);
+            buf += 16;
+            k -= 16;
+        } while (k >= 16);
+        if (k != 0) do
+        {
+            s1 += *buf++;
+            s2 += s1;
+        } while (--k > 0);
+        s1 %= UCL_BASE;
+        s2 %= UCL_BASE;
+    }
+    return (s2 << 16) | s1;
+}
+
+
+/*
+vi:ts=4:et
+*/