Changeset 052f0b in git

Timestamp:

Mar 7, 2011, 5:57:55 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

6c22988cb1f5917e11f9c422e55ed6f8cead4d84

Parents:

98918e0e8e316ab9f84c64bb667ce839fffa6af7

Message:

error messages for blackbox

git-svn-id: file:///usr/local/Singular/svn/trunk@13938 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/blackbox.cc (modified) (1 diff)

Singular/blackbox.cc

@@ -50 +50 @@
     return FALSE;
   }
-  Werror("blackbox_Op1 of type %s(%d) for op %s(%d) not implemented",
-     getBlackboxName(r->Typ()),r->Typ(),Tok2Cmdname(op),op);
+  if (op<127)
+    Werror("blackbox_Op1 of type %s(%d) for op '%c' not implemented",
+      getBlackboxName(r->Typ()),r->Typ(),op);
+  else
+    Werror("blackbox_Op1 of type %s(%d) for op %s(%d) not implemented",
+      getBlackboxName(r->Typ()),r->Typ(),Tok2Cmdname(op),op);
   return TRUE;
 }
 BOOLEAN blackboxDefaultOp2(int op,leftv l, leftv r1, leftv r2)
 {
-  Werror("blackbox_Op2 of type %s(%d) for op %s(%d) not implemented",
-     getBlackboxName(r1->Typ()),r1->Typ(),Tok2Cmdname(op),op);
+  if (op<127)
+    Werror("blackbox_Op2 of type %s(%d) for op '%c' not implemented",
+      getBlackboxName(r1->Typ()),r1->Typ(),op);
+  else
+    Werror("blackbox_Op2 of type %s(%d) for op %s(%d) not implemented",
+      getBlackboxName(r1->Typ()),r1->Typ(),Tok2Cmdname(op),op);
   return TRUE;
 }
 BOOLEAN blackbox_default_Op3(int op,leftv l, leftv r1,leftv r2, leftv r3)
 {
-  Werror("blackbox_Op3 of type %s(%d) for op %s(%d) not implemented",
-     getBlackboxName(r1->Typ()),r1->Typ(),Tok2Cmdname(op),op);
+  if (op<127)
+    Werror("blackbox_Op3 of type %s(%d) for op '%c' not implemented",
+      getBlackboxName(r1->Typ()),r1->Typ(),op);
+  else
+    Werror("blackbox_Op3 of type %s(%d) for op %s(%d) not implemented",
+      getBlackboxName(r1->Typ()),r1->Typ(),Tok2Cmdname(op),op);
   return TRUE;
 }
 BOOLEAN blackbox_default_OpM(int op,leftv l, leftv r)
 {
-  Werror("blackbox_OpM of type %s(%d) for op %s(%d) not implemented",
-     getBlackboxName(r->Typ()),r->Typ(),Tok2Cmdname(op),op);
+  if (op<127)
+    Werror("blackbox_OpM of type %s(%d) for op '%c' not implemented",
+      getBlackboxName(r->Typ()),r->Typ(),op);
+  else
+    Werror("blackbox_OpM of type %s(%d) for op %s(%d) not implemented",
+      getBlackboxName(r->Typ()),r->Typ(),Tok2Cmdname(op),op);
   return TRUE;
 }