forked from RTimothyEdwards/magic
-
Notifications
You must be signed in to change notification settings - Fork 0
/
EFerr.c
80 lines (71 loc) · 2.57 KB
/
EFerr.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
/*
* EFerr.c -
*
* Contains only the routine efReadError(). This used to be in EFread.c,
* but including Tcl/Tk stuff caused definition conflicts. So now it
* gets its own file. Note that *printf routines have been changed to
* the Tx* print routines for compatibility with the Tcl-based version.
* Note also that the standalone executables ext2sim and ext2spice get
* the Tx* functions from utils/LIBtextio.c, whereas the built-in
* "extract" function gets them from textio/txOutput.c. In the Tcl
* version, all these functions are built in, so utils/LIBtextio.c is
* not compiled or linked.
*
* *********************************************************************
* * Copyright (C) 1985, 1990 Regents of the University of California. *
* * Permission to use, copy, modify, and distribute this *
* * software and its documentation for any purpose and without *
* * fee is hereby granted, provided that the above copyright *
* * notice appear in all copies. The University of California *
* * makes no representations about the suitability of this *
* * software for any purpose. It is provided "as is" without *
* * express or implied warranty. Export of this software outside *
* * of the United States of America may require an export license. *
* *********************************************************************
*/
#ifndef lint
static char rcsid[] __attribute__ ((unused)) = "$Header: /usr/cvsroot/magic-8.0/extflat/EFerr.c,v 1.1.1.1 2008/02/03 20:43:50 tim Exp $";
#endif /* not lint */
#include <stdio.h>
#include <ctype.h>
#include <stdarg.h>
#include <stdlib.h>
#include "utils/magic.h"
#include "utils/geometry.h"
#include "textio/textio.h"
extern char *efReadFileName;
extern int efReadLineNum;
#ifdef MAGIC_WRAPPER
extern int Tcl_printf();
#endif
/*
* ----------------------------------------------------------------------------
*
* efReadError --
*
* Complain about an error encountered while reading an .ext file.
* Called with a variable number of arguments.
*
* Results:
* None.
*
* Side effects:
* Prints an error message to stderr, complete with offending
* filename and line number.
*
* ----------------------------------------------------------------------------
*/
void
efReadError(char *fmt, ...)
{
va_list args;
TxError("%s, line %d: ", efReadFileName, efReadLineNum);
va_start(args, fmt);
#ifdef MAGIC_WRAPPER
Tcl_printf(stderr, fmt, args);
#else
vfprintf(stderr, fmt, args);
#endif
va_end(args);
TxFlushErr();
}