Changeset 45bd4a5 in git for Singular/extra.cc

Timestamp:

Aug 19, 2014, 4:14:55 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

85e86930dc779f09984e6c7072e7e5818ec04930

Parents:

8664f3a2ab7076c6ef0da4380e7c25276945221f

Message:

AE,pAE,QAE removed from system: included in SINGULAR_4_1 stuff

File:

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

Singular/extra.cc

@@ -3875 +3875 @@
   }
   else
-  /*==================== Test Boos Epure ==================================*/
-  if (strcmp(sys_cmd, "Hallo")==0)
-  {
-    n_coeffType nae=nRegister(n_unknown,n_AEInitChar);
-    coeffs AE=nInitChar(nae,NULL);
-    ring r=currRing;
-    rUnComplete(r);
-    r->cf=AE;
-    rComplete(r,TRUE);
-    /*
-    // Ab hier wird gespielt
-    int_poly* f=new int_poly;
-    f->poly_insert();
-    int_poly* g=new int_poly;
-    g->poly_insert();
-    // Ab hier gerechnet
-    number a=reinterpret_cast<number> (f);
-    number b=reinterpret_cast<number> (g);
-    number erg=n_Gcd(a,b,AE);
-    int_poly* h= reinterpret_cast<int_poly*> (erg);
-    h->poly_print();
-*/
-    return FALSE;
-  }
-  else
-  /*==================== Test Boos Epure 2 ==================================*/
-  if (strcmp(sys_cmd, "Hallo2")==0)
-  {
-    n_coeffType naeq=nRegister(n_unknown,n_QAEInitChar);
-    coeffs AEQ=nInitChar(naeq,NULL);
-    ring r=currRing;
-    rUnComplete(r);
-    r->cf=AEQ;
-    rComplete(r,TRUE);
-
-    return FALSE;
-  }
-  else
-  /*==================== Test Boos Epure 3==================================*/
-  if (strcmp(sys_cmd, "Hallo3")==0)
-  {
-    n_coeffType naep=nRegister(n_unknown,n_pAEInitChar);
-    coeffs AEp=nInitChar(naep,NULL);
-    ring r=currRing;
-    rUnComplete(r);
-    r->cf=AEp;
-    rComplete(r,TRUE);
-    //JETZT WOLLEN WIR DOCH MAL SPIELEN
-
-    // Ab hier wird gespielt
-    p_poly* f=new p_poly;
-    f->p_poly_insert();
-
-    p_poly* g=new p_poly;
-    g->p_poly_insert();
-    // Ab hier gerechnet
-    number a=reinterpret_cast<number> (f);
-    number b=reinterpret_cast<number> (g);
-    number erg=n_Add(a,b,AEp);
-    p_poly* h= reinterpret_cast<p_poly*> (erg);
-    h->p_poly_print();
-
-    return FALSE;
-  }
-  else
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );