Changeset 8fc1088 in git

Timestamp:

Apr 9, 2010, 10:21:47 AM (13 years ago)

Author:

Martin Monerjan

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

0aad7c6c69225ee406094d1060cc02a1233fd379

Parents:

cacfb67cf6bf7cd84cd8e725d9acf88690092d61

Message:

Cleanup for gfan


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

File:

• Singular/extra.cc (modified) (3 diffs)

Singular/extra.cc

@@ -3357 +3357 @@
 if (strcmp(sys_cmd,"gfan")==0)
 {
-//         if ((h==NULL) || (h!=NULL && h->Typ()!=IDEAL_CMD))
-//         {
-//                 Werror("system(\"gfan\"...) Ideal expected");
-//                 return TRUE; //Ooooops
-//         }
-//      else if(h->next==NULL)
-//      {
-//              Werror("gfan expects an integer parameter");
-//              return TRUE;
-//      }
-//      else if(h->next!=NULL && h->next->Typ()!=INT_CMD)
-//      {
-//              Werror("1st parameter ist no integer");
-//              return TRUE;
-//      }
         /*
         heuristic:
@@ -3383 +3368 @@
                   heuristic=(int)(long)h->next->Data();
                   ideal I=((ideal)h->Data());
-//                res->rtyp=IDEAL_CMD;
-//                res->data=(ideal) gfan(I,heuristic);
                   res->rtyp=LIST_CMD;
                   res->data=(lists) gfan(I,heuristic);
@@ -3394 +3377 @@
                   return TRUE;
           }
-//res->rtyp=LIST_CMD;
-//res->data= ???
-
-// return FALSE; //Everything went fine
 }
 else