Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
417
cde/programs/dthelp/parser/pass2/util/error.c
Normal file
417
cde/programs/dthelp/parser/pass2/util/error.c
Normal file
@@ -0,0 +1,417 @@
|
||||
/* $XConsortium: error.c /main/3 1995/11/08 11:04:57 rswiston $ */
|
||||
/* Copyright (c) 1986, 1987, 1988, 1989 Hewlett-Packard Co. */
|
||||
|
||||
/* Error.c contains procedures for issuing error messages and warnings in
|
||||
BUILD and ELTDEF */
|
||||
|
||||
#include <stdio.h>
|
||||
#include "basic.h"
|
||||
|
||||
extern FILE *m_errfile ;
|
||||
extern int m_line ;
|
||||
extern LOGICAL errexit ;
|
||||
|
||||
void eprefix(
|
||||
#if defined(M_PROTO)
|
||||
LOGICAL flag
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_errline(
|
||||
#if defined(M_PROTO)
|
||||
char *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_error(
|
||||
#if defined(M_PROTO)
|
||||
char *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_err1(
|
||||
#if defined(M_PROTO)
|
||||
char *text, const M_WCHAR *arg
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_mberr1(
|
||||
#if defined(M_PROTO)
|
||||
char *text, const char *arg
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_err2(
|
||||
#if defined(M_PROTO)
|
||||
const char *text, const M_WCHAR *arg1, const M_WCHAR *arg2
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_err3(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_err5(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3, M_WCHAR *arg4,
|
||||
M_WCHAR *arg5
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void esuffix(
|
||||
#if defined(M_PROTO)
|
||||
void
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void msgline(
|
||||
#if defined(M_PROTO)
|
||||
char *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void msg1line(
|
||||
#if defined(M_PROTO)
|
||||
char *text, char *arg1
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void skiptoend(
|
||||
#if defined(M_PROTO)
|
||||
M_NOPAR
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_wctrace(
|
||||
#if defined(M_PROTO)
|
||||
M_WCHAR *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void m_trace(
|
||||
#if defined(M_PROTO)
|
||||
char *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void warning(
|
||||
#if defined(M_PROTO)
|
||||
char *text
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void warning1(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void warning2(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg1, M_WCHAR *arg2
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void warning3(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3
|
||||
#endif
|
||||
) ;
|
||||
|
||||
void warning4(
|
||||
#if defined(M_PROTO)
|
||||
char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3, M_WCHAR *arg4
|
||||
#endif
|
||||
) ;
|
||||
|
||||
/* Write error message prefix */
|
||||
#if defined(M_PROTO)
|
||||
void eprefix(LOGICAL flag)
|
||||
#else
|
||||
void eprefix(flag)
|
||||
LOGICAL flag ;
|
||||
#endif
|
||||
{
|
||||
if (flag) errexit = TRUE ;
|
||||
fprintf(stderr, "\n**** ") ;
|
||||
fprintf(m_errfile, "\n**** ") ;
|
||||
}
|
||||
|
||||
/* Writes part of an error message. Called from m_malloc instead of
|
||||
m_err1, since PARSER's version of m_err1 calls m_malloc and recursive
|
||||
calls are possible when the heap is exhausted */
|
||||
void m_errline(text)
|
||||
char *text ;
|
||||
{
|
||||
fputs(text, stderr) ;
|
||||
fputs(text, m_errfile) ;
|
||||
}
|
||||
|
||||
/* Writes an error message to standard error and file "error" */
|
||||
void m_error(text)
|
||||
char *text ;
|
||||
{
|
||||
eprefix(TRUE) ;
|
||||
fprintf(stderr,"%s", text) ;
|
||||
fprintf(m_errfile,"%s", text) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
}
|
||||
|
||||
/* Writes an error message with one argument to standard error and file
|
||||
"error" */
|
||||
#if defined(M_PROTO)
|
||||
void m_err1(char *text, const M_WCHAR *arg)
|
||||
#else
|
||||
void m_err1(text, arg)
|
||||
char *text;
|
||||
M_WCHAR *arg ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg;
|
||||
|
||||
mb_arg = MakeMByteString(arg);
|
||||
eprefix(TRUE) ;
|
||||
fprintf(stderr, text, mb_arg) ;
|
||||
fprintf(m_errfile, text, mb_arg) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
m_free(mb_arg,"multi-byte string");
|
||||
}
|
||||
|
||||
#if defined(M_PROTO)
|
||||
void m_mberr1(char *text, const char *arg)
|
||||
#else
|
||||
void m_err1(text, arg)
|
||||
char *text;
|
||||
char *arg ;
|
||||
#endif
|
||||
{
|
||||
eprefix(TRUE) ;
|
||||
fprintf(stderr, text, arg) ;
|
||||
fprintf(m_errfile, text, arg) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
}
|
||||
|
||||
/* Writes an error message with two arguments to standard error and file
|
||||
"error" */
|
||||
#if defined(M_PROTO)
|
||||
void m_err2( const char *text, const M_WCHAR *arg1, const M_WCHAR *arg2)
|
||||
#else
|
||||
void m_err2(text, arg1, arg2)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
eprefix(TRUE) ;
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes an error message with three arguments to standard error and file
|
||||
"error" */
|
||||
#if defined(M_PROTO)
|
||||
void m_err3( char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3)
|
||||
#else
|
||||
void m_err3(text, arg1, arg2, arg3)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2, *arg3 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2, *mb_arg3;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
mb_arg3 = MakeMByteString(arg3);
|
||||
eprefix(TRUE) ;
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2, mb_arg3) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2, mb_arg3) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
m_free(mb_arg3,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes an error message with five arguments to standard error and file
|
||||
"error" */
|
||||
#if defined(M_PROTO)
|
||||
void m_err5( char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3,
|
||||
M_WCHAR *arg4, M_WCHAR *arg5)
|
||||
#else
|
||||
void m_err5(text, arg1, arg2, arg3, arg4, arg5)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2, *arg3, *arg4, *arg5 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2, *mb_arg3, *mb_arg4, *mb_arg5;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
mb_arg3 = MakeMByteString(arg3);
|
||||
mb_arg4 = MakeMByteString(arg4);
|
||||
mb_arg5 = MakeMByteString(arg5);
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2, mb_arg3, mb_arg4, mb_arg5) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2, mb_arg3, mb_arg4, mb_arg5) ;
|
||||
esuffix() ;
|
||||
skiptoend() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
m_free(mb_arg3,"multi-byte string");
|
||||
m_free(mb_arg4,"multi-byte string");
|
||||
m_free(mb_arg5,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Write error message suffix */
|
||||
void esuffix(M_NOPAR)
|
||||
{
|
||||
fprintf(stderr, " (line %d) ****\n", m_line) ;
|
||||
fprintf(m_errfile, " (line %d) ****\n", m_line) ;
|
||||
}
|
||||
|
||||
/* Print something to both stderr and m_errfile */
|
||||
void msgline(text)
|
||||
char *text ;
|
||||
{
|
||||
fprintf(stderr, text) ;
|
||||
fprintf(m_errfile, text) ;
|
||||
}
|
||||
|
||||
/* Print something to both stderr and m_errfile */
|
||||
void msg1line(text, arg1)
|
||||
char *text, *arg1 ;
|
||||
{
|
||||
fprintf(stderr, text, arg1) ;
|
||||
fprintf(m_errfile, text, arg1) ;
|
||||
}
|
||||
|
||||
/* Trace used for m_malloc trace output */
|
||||
void m_trace(text)
|
||||
char *text ;
|
||||
{
|
||||
m_errline(text) ;
|
||||
}
|
||||
|
||||
void m_wctrace(text)
|
||||
M_WCHAR *text ;
|
||||
{
|
||||
char *mb_text;
|
||||
|
||||
mb_text = MakeMByteString(text);
|
||||
m_trace(mb_text);
|
||||
m_free(mb_text,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes a nonfatal error message to standard error and file "error" */
|
||||
void warning(text)
|
||||
char *text ;
|
||||
{
|
||||
eprefix(FALSE) ;
|
||||
fprintf(stderr,"%s", text) ;
|
||||
fprintf(m_errfile,"%s", text) ;
|
||||
esuffix() ;
|
||||
}
|
||||
|
||||
/* Writes a nonfatal error message with one argument to standard error
|
||||
and file "error" */
|
||||
#if defined(M_PROTO)
|
||||
void warning1( char *text, M_WCHAR *arg)
|
||||
#else
|
||||
void warning1(text, arg)
|
||||
char *text;
|
||||
M_WCHAR *arg ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg;
|
||||
|
||||
mb_arg = MakeMByteString(arg);
|
||||
eprefix(FALSE) ;
|
||||
fprintf(stderr, text, mb_arg) ;
|
||||
fprintf(m_errfile, text, mb_arg) ;
|
||||
esuffix() ;
|
||||
m_free(mb_arg,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes a nonfatal error message with two arguments to standard error
|
||||
and file "error" */
|
||||
#if defined(M_PROTO)
|
||||
void warning2(char *text, M_WCHAR *arg1, M_WCHAR *arg2)
|
||||
#else
|
||||
void warning2(text, arg1, arg2)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
eprefix(FALSE) ;
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2) ;
|
||||
esuffix() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes a nonfatal error message with three arguments to standard error
|
||||
and file "error" */
|
||||
#if defined(M_PROTO)
|
||||
void warning3(char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3)
|
||||
#else
|
||||
void warning3(text, arg1, arg2, arg3)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2, *arg3 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2, *mb_arg3;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
mb_arg3 = MakeMByteString(arg3);
|
||||
eprefix(FALSE) ;
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2, mb_arg3) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2, mb_arg3) ;
|
||||
esuffix() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
m_free(mb_arg3,"multi-byte string");
|
||||
}
|
||||
|
||||
/* Writes a nonfatal error message with four arguments to standard error
|
||||
and file "error" */
|
||||
#if defined(M_PROTO)
|
||||
void warning4(char *text, M_WCHAR *arg1, M_WCHAR *arg2, M_WCHAR *arg3,
|
||||
M_WCHAR *arg4)
|
||||
#else
|
||||
void warning4(text, arg1, arg2, arg3, arg4)
|
||||
char *text;
|
||||
M_WCHAR *arg1, *arg2, *arg3, *arg4 ;
|
||||
#endif
|
||||
{
|
||||
char *mb_arg1, *mb_arg2, *mb_arg3, *mb_arg4;
|
||||
|
||||
mb_arg1 = MakeMByteString(arg1);
|
||||
mb_arg2 = MakeMByteString(arg2);
|
||||
mb_arg3 = MakeMByteString(arg3);
|
||||
mb_arg4 = MakeMByteString(arg4);
|
||||
eprefix(FALSE) ;
|
||||
fprintf(stderr, text, mb_arg1, mb_arg2, mb_arg3, mb_arg4) ;
|
||||
fprintf(m_errfile, text, mb_arg1, mb_arg2, mb_arg3, mb_arg4) ;
|
||||
esuffix() ;
|
||||
m_free(mb_arg1,"multi-byte string");
|
||||
m_free(mb_arg2,"multi-byte string");
|
||||
m_free(mb_arg3,"multi-byte string");
|
||||
m_free(mb_arg4,"multi-byte string");
|
||||
}
|
||||
Reference in New Issue
Block a user