1 |
/* Provides a fortran - c interface for info writer system. |
2 |
*/ |
3 |
#include <string.h> |
4 |
|
5 |
#include "simError.h" |
6 |
|
7 |
|
8 |
void c_info_(char *message, int len); |
9 |
void c_warning_(char *message, int len); |
10 |
void c_error_(char *message, int len); |
11 |
|
12 |
|
13 |
void c_info_(char *message, int len){ |
14 |
|
15 |
strcpy(painCave.errMsg,message); |
16 |
painCave.isFatal = 0; |
17 |
} |
18 |
|
19 |
void c_warning_(char *message, int len){ |
20 |
|
21 |
strcpy(painCave.errMsg,message); |
22 |
painCave.isFatal = 0; |
23 |
|
24 |
} |
25 |
|
26 |
void c_error_(char *message,int len){ |
27 |
|
28 |
strcpy(painCave.errMsg,message); |
29 |
painCave.isFatal = 1; |
30 |
|
31 |
|
32 |
} |