Changeset 3e4cb1 in git for libpolys

Timestamp:

Apr 21, 2016, 3:15:46 PM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

ffa0d1dc21cfd5ee9b20a51105e62bd0af1503ba

Parents:

27f3593e8355ebd5b09faa21e66ea07117b79fcc

Message:

add: possibility to redirect warnings: WarnS_callback

Location:

libpolys/reporter

Files:

• reporter.cc (modified) (1 diff)
• reporter.h (modified) (1 diff)

libpolys/reporter/reporter.cc

@@ -208 +208 @@
 }
 
+void (*WarnS_callback)(const char *s) = NULL;
+
 void WarnS(const char *s)
 {
   #define warn_str "// ** "
-#ifdef HAVE_TCL
-  if (tclmode)
-  {
-    PrintTCLS('W',warn_str);
-    PrintTCLS('W',s);
-    PrintTCLS('W',"\n");
-  }
-  else
-#endif
   if (feWarn) /* ignore warnings if option --no-warn was given */
   {
-    fwrite(warn_str,1,6,stdout);
-    fwrite(s,1,strlen(s),stdout);
-    fwrite("\n",1,1,stdout);
-    fflush(stdout);
+    if (WarnS_callback==NULL)
+    {
+      fwrite(warn_str,1,6,stdout);
+      fwrite(s,1,strlen(s),stdout);
+      fwrite("\n",1,1,stdout);
+      fflush(stdout);
+    }
+    else
+    {
+      WarnS_callback(s);
+    }
     if (feProt&SI_PROT_O)
     {

libpolys/reporter/reporter.h

@@ -23 +23 @@
 extern BOOLEAN feOut;
 extern int  traceit ;
+extern void (*WarnS_callback)(const char *s);
+
 // show entering/leaving proc:
 #define TRACE_SHOW_PROC   1