linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor changes

Browse Source
This commit is contained in:
cvs
2000-05-24 15:11:09 +00:00
parent 9053ae4e2d
commit 1a56fbc568
14 changed files with 643 additions and 212 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tecs/err_handling.c
View File

@@ -41,7 +41,7 @@ void ErrOutFil(void *arg, char *text) {
fprintf((FILE *)arg, "%s\n", text);
}
void ErrWrite(char *text)
void ErrShow(char *text)
{
int i, l;
char buf[256];
@@ -80,7 +80,7 @@ void ErrSetOutFile(FILE *arg) {
}
void ERR_EXIT(char *text) {
ErrWrite(text); exit(1);
ErrShow(text); exit(1);
}
/* FORTRAN wrappers */
@@ -88,13 +88,14 @@ void ERR_EXIT(char *text) {
#ifdef __VMS
#define err_show_ err_show
#define err_txt_ err_txt
#define err_msg_ err_msg
#endif
void err_show_(F_CHAR(text), int text_len) {
char buf[256];
STR_TO_C(buf, text);
ErrWrite(buf);
ErrShow(buf);
}
void err_txt_(F_CHAR(text), int text_len) {
@@ -104,6 +105,13 @@ void err_txt_(F_CHAR(text), int text_len) {
ErrTxt(buf,0);
}
void err_msg_(F_CHAR(text), int text_len) {
char buf[256];
STR_TO_C(buf, text);
ErrMsg(buf);
}
void errsetoutrtn_(void (*rtn)(), void *arg) {
ErrSetOutRtn(rtn, arg);
}