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
|
/*
This file is part of PolyLib.
PolyLib 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 3 of the License, or
(at your option) any later version.
PolyLib is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with PolyLib. If not, see <http://www.gnu.org/licenses/>.
*/
/* errormsg.c
COPYRIGHT
Both this software and its documentation are
Copyright 1993 by IRISA /Universite de Rennes I - France,
Copyright 1995,1996 by BYU, Provo, Utah
all rights reserved.
Permission is granted to copy, use, and distribute
for any commercial or noncommercial purpose under the terms
of the GNU General Public license, version 2, June 1991
(see file : LICENSING).
*/
#include <stdio.h>
#include <polylib/polylib.h>
extern int Pol_status;
/* This function allows either error messages to be sent to Mathematica,
or messages to be printed to stderr.
If MATHLINK is defined, then a command Message[f::msgname] is sent to
Mathematica. If not, one prints on stderr. The difference with errormsg
is that the control should be returned immediately to Mathematica after
the call to errormsg1. Therefore, no Compound statement is sent to
Mathematica.
*/
void errormsg1(const char *f, const char *msgname, const char *msg)
{
Pol_status = 1;
#ifdef MATHLINK
MLPutFunction(stdlink,"Message",1);
MLPutFunction(stdlink,"MessageName",2);
MLPutSymbol(stdlink,f);
MLPutString(stdlink,msgname);
#else
#ifndef NO_MESSAGES
fprintf(stderr, "?%s: %s\n", f, msg);
#endif
#endif
}
|
