summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipdfm-x/numbers.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/dvipdfm-x/numbers.c
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff)
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipdfm-x/numbers.c')
-rw-r--r--Build/source/texk/dvipdfm-x/numbers.c171
1 files changed, 171 insertions, 0 deletions
diff --git a/Build/source/texk/dvipdfm-x/numbers.c b/Build/source/texk/dvipdfm-x/numbers.c
new file mode 100644
index 00000000000..382612b2f80
--- /dev/null
+++ b/Build/source/texk/dvipdfm-x/numbers.c
@@ -0,0 +1,171 @@
+/* This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks.
+
+ Copyright (C) 2002-2020 by Jin-Hwan Cho and Shunsaku Hirata,
+ the dvipdfmx project team.
+
+ Copyright (C) 1998, 1999 by Mark A. Wicks <mwicks@kettering.edu>
+
+ This program 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.
+
+ This program 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 this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "system.h"
+#include "error.h"
+#include "mfileio.h"
+#include "numbers.h"
+
+unsigned char get_unsigned_byte (FILE *file)
+{
+ int ch;
+ if ((ch = fgetc (file)) < 0)
+ ERROR ("File ended prematurely\n");
+ return (unsigned char) ch;
+}
+
+void skip_bytes (unsigned int n, FILE *file)
+{
+ while (n-- > 0)
+ get_unsigned_byte(file);
+}
+
+signed char get_signed_byte (FILE *file)
+{
+ int byte;
+ byte = get_unsigned_byte(file);
+ if (byte >= 0x80)
+ byte -= 0x100;
+ return (signed char) byte;
+}
+
+unsigned short get_unsigned_pair (FILE *file)
+{
+ unsigned short pair = get_unsigned_byte(file);
+ pair = (pair << 8) | get_unsigned_byte(file);
+ return pair;
+}
+
+unsigned short sget_unsigned_pair (unsigned char *s)
+{
+ unsigned short pair = *(s++);
+ pair = (pair << 8) | *(s++);
+ return pair;
+}
+
+signed short get_signed_pair (FILE *file)
+{
+ signed short pair = get_signed_byte(file);
+ pair = (pair << 8) | get_unsigned_byte(file);
+ return pair;
+}
+
+
+unsigned int get_unsigned_triple(FILE *file)
+{
+ int i;
+ unsigned int triple = 0;
+ for (i=0; i<3; i++) {
+ triple = (triple << 8) | get_unsigned_byte(file);
+ }
+ return triple;
+}
+
+signed int get_signed_triple(FILE *file)
+{
+ int i;
+ signed int triple = get_signed_byte(file);
+ for (i=0; i<2; i++) {
+ triple = (triple << 8) | get_unsigned_byte(file);
+ }
+ return triple;
+}
+
+int32_t get_signed_quad(FILE *file)
+{
+ int i;
+ int32_t quad = get_signed_byte(file);
+ for (i=0; i<3; i++) {
+ quad = (quad << 8) | get_unsigned_byte(file);
+ }
+ return quad;
+}
+
+uint32_t get_unsigned_quad(FILE *file)
+{
+ int i;
+ uint32_t quad = 0;
+ for (i=0; i<4; i++) {
+ quad = (quad << 8) | get_unsigned_byte(file);
+ }
+ return quad;
+}
+
+int32_t get_unsigned_num (FILE *file, unsigned char num)
+{
+ int32_t val = get_unsigned_byte (file);
+ switch (num) {
+ case 3: if (val > 0x7f)
+ val -= 0x100;
+ val = (val << 8) | get_unsigned_byte (file);
+ case 2: val = (val << 8) | get_unsigned_byte (file);
+ case 1: val = (val << 8) | get_unsigned_byte (file);
+ default: break;
+ }
+ return val;
+}
+
+/* Compute a signed quad that must be positive */
+uint32_t get_positive_quad (FILE *file, const char *type, const char *name)
+{
+ int32_t val = get_signed_quad (file);
+ if (val < 0)
+ ERROR ("Bad %s: negative %s: %d", type, name, val);
+ return (uint32_t)val;
+}
+
+int32_t sqxfw (int32_t sq, fixword fw)
+{
+ int sign = 1;
+ uint32_t a, b, c, d, ad, bd, bc, ac;
+ uint32_t e, f, g, h, i, j, k;
+ int32_t result;
+ /* Make positive. */
+ if (sq < 0) {
+ sign = -sign;
+ sq = -sq;
+ }
+ if (fw < 0) {
+ sign = -sign;
+ fw = -fw;
+ }
+ a = ((uint32_t) sq) >> 16;
+ b = ((uint32_t) sq) & 0xffffu;
+ c = ((uint32_t) fw) >> 16;
+ d = ((uint32_t) fw) & 0xffffu;
+ ad = a*d; bd = b*d; bc = b*c; ac = a*c;
+ e = bd >> 16;
+ f = ad >> 16;
+ g = ad & 0xffffu;
+ h = bc >> 16;
+ i = bc & 0xffffu;
+ j = ac >> 16;
+ k = ac & 0xffffu;
+ result = (e+g+i + (1<<3)) >> 4; /* 1<<3 is for rounding */
+ result += (f+h+k) << 12;
+ result += j << 28;
+ return (sign > 0) ? result : -result;
+}