-/* ---------------------------------------------------------------------- */
-
-/*
- * Print message.
- *
- * Message should include linefeeds as necessary.
- */
-
-
-void RTFMsg (RTF_Info *info, const char *fmt, ...)
-{
- char buf[rtfBufSiz];
-
- va_list args;
- va_start (args,fmt);
- vsprintf (buf, fmt, args);
- va_end (args);
- MESSAGE( "%s", buf);
-}
-
-
-/* ---------------------------------------------------------------------- */
-
-
-/*
- * Process termination. Print error message and exit. Also prints
- * current token, and current input line number and position within
- * line if any input has been read from the current file. (No input
- * has been read if prevChar is EOF).
- */
-
-static void DefaultPanicProc(RTF_Info *info, char *s)
-{
- MESSAGE( "%s", s);
- /*exit (1);*/
-}
-
-
-
-void RTFPanic(RTF_Info *info, const char *fmt, ...)
-{
- char buf[rtfBufSiz];
-
- va_list args;
- va_start (args,fmt);
- vsprintf (buf, fmt, args);
- va_end (args);
- lstrcatA (buf, "\n");
- if (info->prevChar != EOF && info->rtfTextBuf != NULL)
- {
- sprintf (buf + lstrlenA (buf),
- "Last token read was \"%s\" near line %ld, position %d.\n",
- info->rtfTextBuf, info->rtfLineNum, info->rtfLinePos);
- }
- DefaultPanicProc(info, buf);
-}
-