revision of TecsServer / treat "interest" correctly

tecs/err_handling.c

@@ -69,6 +69,14 @@ void ErrShow(char *text)
   outrtn(outarg, "");
 }
 
+void ErrShort(void) {
+  if (outrtn==NULL) {
+    outrtn=ErrOutFil;
+    outarg=stdout;
+  }
+  outrtn(outarg, ErrMessage);
+}
+
 void ErrSetOutRtn(void (*rtn)(), void *arg) {
   outrtn=rtn;
   outarg=arg;
@@ -89,6 +97,8 @@ void ERR_EXIT(char *text) {
 #define err_show_ err_show
 #define err_txt_ err_txt
 #define err_msg_ err_msg
+#define err_set_outrtn_ err_set_outrtn
+#define err_short_ err_short
 #endif
 
 void err_show_(F_CHAR(text), int text_len) {
@@ -112,6 +122,9 @@ void err_msg_(F_CHAR(text), int text_len) {
   ErrMsg(buf);
 }
 
-void errsetoutrtn_(void (*rtn)(), void *arg) {
+void err_set_outrtn_(void (*rtn)(), void *arg) {
   ErrSetOutRtn(rtn, arg);
 }
+void err_short_(void) {
+  ErrShort();
+}