-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathscm-log.cpp
71 lines (55 loc) · 1.65 KB
/
scm-log.cpp
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
// Copyright (C) 2011-2012 Robert Kooima
//
// LIBSCM is free software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the Free Software
// Foundation; either version 2 of the License, or (at your option) any later
// version.
//
// This program is distributed in the hope that it will be useful, but WITH-
// OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
// FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
// more details.
#include <cstdarg>
#include <cstdio>
//------------------------------------------------------------------------------
#ifdef WIN32
#include <Windows.h>
void scm_log(const char *fmt, ...)
{
char err[1024];
char str[1024];
va_list ap;
va_start(ap, fmt);
vsnprintf(err, 1024, fmt, ap);
va_end (ap);
sprintf(str, "(SCM) %s\n", err);
OutputDebugStringA(str);
}
#else
void scm_log(const char *fmt, ...)
{
flockfile(stderr);
{
va_list ap;
va_start(ap, fmt);
vfprintf(stderr, fmt, ap);
fprintf(stderr, "\n");
va_end (ap);
}
funlockfile(stderr);
}
#endif
//------------------------------------------------------------------------------
void tiff_error(const char *module, const char *fmt, va_list args)
{
char err[1024];
sprintf(err, "%s Error: %s", module, fmt);
scm_log(err, args);
}
void tiff_warning(const char *module, const char *fmt, va_list args)
{
char err[1024];
sprintf(err, "%s Warning: %s", module, fmt);
scm_log(err, args);
}
//------------------------------------------------------------------------------