From 55f277e77428d7423ae906a8e1f1324d35b07a7d Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Fri, 4 Mar 2022 12:32:20 -0500
Subject: import Miranda 2.066 from upstream

---
 big.h | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 big.h

(limited to 'big.h')

diff --git a/big.h b/big.h
new file mode 100644
index 0000000..ce8b91c
--- /dev/null
+++ b/big.h
@@ -0,0 +1,62 @@
+/* DEFINITIONS FOR MIRANDA INTEGER PACKAGE (variable length) */
+
+/**************************************************************************
+ * Copyright (C) Research Software Limited 1985-90.  All rights reserved. *
+ * The Miranda system is distributed as free software under the terms in  *
+ * the file "COPYING" which is included in the distribution.              *
+ *                                                                        *
+ * Revised to C11 standard and made 64bit compatible, January 2020        *
+ *------------------------------------------------------------------------*/
+
+#define SIGNBIT 020000000000
+   /* most significant bit of 32 bit word */
+#define IBASE 0100000
+   /* 2^15 (ie 8^5) so digit is a positive short */
+#define MAXDIGIT 077777
+#define DIGITWIDTH 15
+#define digit0(x) (hd[x]&MAXDIGIT)
+#define digit(x) hd[x]
+#define rest(x) tl[x]
+#define poz(x) (!(hd[x]&SIGNBIT))
+#define neg(x) (hd[x]&SIGNBIT)
+#define bigzero(x) (!digit(x)&&!rest(x))
+#define getsmallint(x) (hd[x]&SIGNBIT?-digit0(x):digit(x))
+#define stosmallint(x) make(INT,(x)<0?SIGNBIT|(-(x)):(x),0)
+long long get_int(word);
+word sto_int(long long);
+double bigtodbl(word);
+long double bigtoldbl(word); /* not currently used */
+double biglog(word);
+double biglog10(word);
+int bigcmp(word,word);
+word bigdiv(word,word);
+word bigmod(word,word);
+word bignegate(word);
+word bigoscan(char *,char *);
+word bigplus(word,word);
+word bigpow(word,word);
+word bigscan(char *);
+void bigsetup(void);
+word bigsub(word,word);
+word bigtimes(word,word);
+word bigtostr(word);
+word bigtostr8(word);
+word bigtostrx(word);
+word bigxscan(char *,char *);
+word dbltobig(double);
+int isnat(word);
+word strtobig(word,int);
+#define force_dbl(x) (tag[x]==INT?bigtodbl(x):get_dbl(x))
+#define PTEN 10000
+   /* largest power of ten < IBASE (used by bigscan) */
+#define PSIXTEEN 4096
+   /* largest power of sixteen <= IBASE (used by bigtostr) */
+#define PEIGHT 0100000
+   /* (=32768) largest power of eight <= IBASE (used by bigtostr) */
+#define TENW 4
+   /* number of factors of 10 in PTEN */
+#define OCTW 5
+   /* number of factors of 8 in IBASE */
+
+/* END OF DEFINITIONS FOR INTEGER PACKAGE */
+
-- 
cgit v1.2.1