Add texk/ttf2pk2 (ttf2pk-frretype2), at the moment not built by default

git-svn-id: svn://tug.org/texlive/trunk@22282 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 97 insertions, 0 deletions

diff --git a/Build/source/texk/ttf2pk2/errormsg.c b/Build/source/texk/ttf2pk2/errormsg.c
new file mode 100644
index 00000000000..917036ca7d6
--- /dev/null
+++ b/Build/source/texk/ttf2pk2/errormsg.c
@@ -0,0 +1,97 @@
+/*
+ *   errormsg.c
+ *
+ *   This file is part of the ttf2pk package.
+ *
+ *   Copyright 1997-1999, 2000, 2002 by
+ *     Frederic Loyer <loyer@ensta.fr>
+ *     Werner Lemberg <wl@gnu.org>
+ */
+
+#include <stdio.h>
+#include <stddef.h>         /* for size_t */
+#include <stdarg.h>
+#include <stdlib.h>
+
+#include "errormsg.h"
+
+#ifdef MIKTEX
+#include <miktex.h>
+#endif
+
+
+/*
+ *   Print error message and quit.
+ */
+
+void
+oops(const char *message,
+     ...)
+{
+  va_list args;
+
+
+  va_start(args, message);
+  fprintf(stderr, "%s: ERROR: ", progname);
+  vfprintf(stderr, message, args);
+  va_end(args);
+  putc('\n', stderr);
+
+  exit(1);
+}
+
+
+/*
+ *   Print error message, a buffer, a '^' at the buffer offset, and quit.
+ */
+
+void
+boops(const char *buffer,
+      size_t offset,
+      const char *message,
+      ...)
+{
+  va_list args;
+
+
+  va_start(args, message);
+  fprintf(stderr, "%s: ERROR: ", progname);
+  vfprintf(stderr, message, args);
+  va_end(args);
+  putc('\n', stderr);
+
+  if (*buffer)
+  {
+    fprintf(stderr, "%s\n", buffer);
+    while (offset)
+    {
+      fprintf(stderr, " ");
+      offset--;
+    }
+    fprintf(stderr, "^\n");
+  }
+
+  exit(1);
+}
+
+
+/*
+ *   Print warning message and continue.
+ */
+
+void
+warning(const char *message,
+        ...)
+{
+  va_list args;
+
+
+  va_start(args, message);
+  fprintf(stderr, "%s: WARNING: ", progname);
+  vfprintf(stderr, message, args);
+  va_end(args);
+  putc('\n', stderr);
+}
+
+
+/* end */