| 22 | VAR void (*PrintS_callback)(const char *s) = NULL; |
| 23 | VAR short errorreported=0; |
| 24 | void WerrorS(const char *s) |
| 25 | { |
| 26 | errorreported = 1; |
| 27 | if (WerrorS_callback == NULL) |
| 28 | { |
| 29 | fwrite(" ? ",1,5,stderr); |
| 30 | fwrite((char *)s,1,strlen((char *)s),stderr); |
| 31 | fwrite("\n",1,1,stderr); |
| 32 | fflush(stderr); |
| 33 | } |
| 34 | else |
| 35 | { |
| 36 | WerrorS_callback(s); |
| 37 | } |
| 38 | } |
| 39 | } |
| 40 | |
| 41 | /***************************************************************** |