texk 1

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

1 files changed, 34 insertions, 0 deletions

diff --git a/Build/source/texk/ps2pkm/basics.c b/Build/source/texk/ps2pkm/basics.c
new file mode 100644
index 00000000000..3191da4df28
--- /dev/null
+++ b/Build/source/texk/ps2pkm/basics.c
@@ -0,0 +1,34 @@
+/* FILE:    basics.c
+ * PURPOSE: basic functions
+ * AUTHOR:  Piet Tutelaers
+ * VERSION: 1.0 (September 1995)
+ */
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>   /* stat() */
+#ifdef WIN32
+#include <win32lib.h>
+#endif
+
+/* Give up ... */
+void fatal(char *fmt, ...)
+{  va_list args;
+
+   va_start(args, fmt);
+   vfprintf(stderr, fmt, args);
+   va_end(args);
+   exit(1);
+}
+
+/* Give a message ... */
+void msg(char *fmt, ...)
+{  va_list args;
+
+   va_start(args, fmt);
+   vfprintf(stderr, fmt, args);
+   fflush(stderr);
+   va_end(args);
+}