|
|
1.1 root 1: /* parse_error.c - */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/dsap/common/RCS/parse_error.c,v 7.1 90/07/09 14:34:56 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/dsap/common/RCS/parse_error.c,v 7.1 90/07/09 14:34:56 mrose Exp $
9: *
10: *
11: * $Log: parse_error.c,v $
12: * Revision 7.1 90/07/09 14:34:56 mrose
13: * sync
14: *
15: * Revision 7.0 89/11/23 21:42:37 mrose
16: * Release 6.0
17: *
18: */
19:
20: /*
21: * NOTICE
22: *
23: * Acquisition, use, and distribution of this module and related
24: * materials are subject to the restrictions of a license agreement.
25: * Consult the Preface in the User's Manual for the full terms of
26: * this agreement.
27: *
28: */
29:
30:
31: /* LINTLIBRARY */
32:
33: #include "quipu/util.h"
34: #include "psap.h"
35:
36: int print_parse_errors = TRUE;
37: int parse_status = 0;
38: #ifdef TURBO_DISK
39: char *parse_entry = NULL;
40: #endif
41: PS opt = NULLPS;
42: int parse_line = 1;
43: extern LLog * log_dsap;
44:
45: parse_error (a,b)
46: char *a, *b;
47: {
48: char buffer [LINESIZE];
49:
50: parse_status++;
51:
52: if (print_parse_errors) {
53: if (opt == NULLPS) {
54: opt = ps_alloc (std_open);
55: if (std_setup (opt,stderr) != OK) {
56: LLOG (log_dsap,LLOG_EXCEPTIONS,("cant open error (parse)..."));
57: LLOG (log_dsap,LLOG_EXCEPTIONS,(a,b));
58: return;
59: }
60: }
61: #ifdef TURBO_DISK
62: if ( parse_entry != NULL )
63: ps_printf(opt, "key (%s): ", parse_entry);
64: #else
65: if (parse_line != 0)
66: ps_printf (opt,"line %d: ",parse_line);
67: #endif
68: ps_printf (opt,a,b);
69: ps_printf (opt,"\n");
70: } else {
71: #ifdef TURBO_DISK
72: if ( parse_entry != NULL ) {
73: (void) sprintf (buffer,"key (%s): ", parse_entry);
74: (void) strcat (buffer,a);
75: LLOG (log_dsap,LLOG_EXCEPTIONS,(buffer,b));
76: #else
77: if (parse_line != 0) {
78: (void) sprintf (buffer,"line %d: ",parse_line);
79: (void) strcat (buffer,a);
80: LLOG (log_dsap,LLOG_EXCEPTIONS,(buffer,b));
81: #endif
82: } else
83: LLOG (log_dsap,LLOG_EXCEPTIONS,(a,b));
84: }
85: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.