summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipdfm-x/mfileio.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/mfileio.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/mfileio.c')
-rw-r--r--Build/source/texk/dvipdfm-x/mfileio.c171
1 files changed, 171 insertions, 0 deletions
diff --git a/Build/source/texk/dvipdfm-x/mfileio.c b/Build/source/texk/dvipdfm-x/mfileio.c
new file mode 100644
index 00000000000..80f5d3f1067
--- /dev/null
+++ b/Build/source/texk/dvipdfm-x/mfileio.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 <stdio.h>
+#include <stdlib.h>
+#include "system.h"
+#include "mfileio.h"
+#include "error.h"
+
+#ifdef IODEBUG
+static FILE *iodebug_file = NULL;
+static int event = 0;
+static void io_debug_init(void)
+{
+ if (!iodebug_file) {
+ iodebug_file = fopen ("fopen.log", "wb");
+ fprintf (stderr, "\n*** File IO debugging started ***\n");
+ }
+ if (!iodebug_file) {
+ fprintf (stderr, "\nError opening io log\n");
+ }
+}
+#endif
+
+#ifdef IODEBUG
+FILE *mfopen(const char *name, const char *mode, const char *function, int line)
+{
+ FILE *tmp;
+ io_debug_init();
+#if defined(WIN32)
+ tmp = fsyscp_fopen (name, mode);
+#else
+ tmp = fopen (name, mode);
+#endif
+ event += 1;
+ fprintf(iodebug_file, "%p %07d [fopen] %s:%d\n", tmp, event,
+ function, line);
+ return tmp;
+}
+int mfclose(FILE *file, const char *function, int line)
+{
+ io_debug_init();
+ event += 1;
+ fprintf(iodebug_file, "%p %07d [fclose] %s:%d\n", file, event,
+ function, line);
+ return fclose(file);
+}
+#endif
+
+static void os_error(void)
+{
+ ERROR ("io: An OS command failed that should not have.\n");
+}
+
+void seek_absolute (FILE *file, int32_t pos)
+{
+ if (fseek(file, (long)pos, SEEK_SET)) {
+ os_error();
+ }
+}
+
+void seek_relative (FILE *file, int32_t pos)
+{
+ if (fseek(file, (long)pos, SEEK_CUR)) {
+ os_error();
+ }
+}
+
+
+void seek_end (FILE *file)
+{
+ if (fseek(file, 0L, SEEK_END)) {
+ os_error();
+ }
+}
+
+int32_t tell_position (FILE *file)
+{
+ long size = ftell (file);
+ if (size < 0)
+ os_error();
+#if LONG_MAX > 0x7fffffff
+ if (size > 0x7fffffff)
+ ERROR ("ftell: file size %ld exceeds 0x7fffffff.\n", size);
+#endif
+ return size;
+}
+
+int32_t file_size (FILE *file)
+{
+ int32_t size;
+ /* Seek to end */
+ seek_end (file);
+ size = tell_position (file);
+ rewind (file);
+ return size;
+}
+
+off_t xfile_size (FILE *file, const char *name)
+{
+ off_t size;
+ xseek_end (file, name);
+ size = xtell_position (file, name);
+ rewind (file);
+ return size;
+}
+
+/* Unlike fgets, mfgets works with \r, \n, or \r\n end of lines. */
+char *mfgets (char *buffer, int length, FILE *file)
+{
+ int ch = 0, i = 0;
+ while (i < length-1 && (ch = fgetc (file)) >= 0 && ch != '\n' && ch != '\r')
+ buffer[i++] = ch;
+ buffer[i] = 0;
+ if (ch < 0 && i == 0)
+ return NULL;
+ if (ch == '\r' && (ch = fgetc (file)) >= 0 && (ch != '\n'))
+ ungetc (ch, file);
+ return buffer;
+}
+
+/* As each lines may contain null-characters, so outptr here is NOT
+ * null-terminated string.
+ * Returns -1 for when EOF is already reached, and -2 if buffer has no
+ * enough space.
+ */
+int
+mfreadln (char *buf, int size, FILE *fp)
+{
+ int c;
+ int len = 0;
+
+ while ((c = fgetc(fp)) != EOF && c != '\n' && c != '\r') {
+ if (len >= size) {
+ return -2;
+ }
+ buf[len++] = (char) c;
+ }
+ if (c == EOF && len == 0) {
+ return -1;
+ }
+ if (c == '\r' && (c = fgetc(fp)) >= 0 && (c != '\n'))
+ ungetc(c, fp);
+
+ return len;
+}
+
+char work_buffer[WORK_BUFFER_SIZE];