Changeset 67283e in git for Singular/extra.cc


Ignore:
Timestamp:
Jul 23, 2009, 11:14:52 AM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
5dd5814a5a90f887c79c1fcffb83927e5fd0218b
Parents:
4f14e517e43578d335a6caf15b4e150ccb9a6715
Message:
*hannes: code clean, format


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

Legend:

Unmodified
Added
Removed

  • Singular/extra.cc

    r4f14e5 r67283e  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.308 2009-07-20 12:01:13 motsak Exp $ */
     4/* $Id: extra.cc,v 1.309 2009-07-23 09:14:52 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
    … …  
    720720        return FALSE;
    721721      }
    722      
    723722      WerrorS("system(\"tensorModuleMult\", int, module) expected");
    724723      return TRUE;
    … …  
    820819       if ((h!=NULL) && (h->Typ()==IDEAL_CMD))
    821820       {
    822         I=(ideal)h->CopyD();
    823         res->rtyp=IDEAL_CMD;
    824         if (rIsPluralRing(currRing)) res->data=Approx_Step(I);
    825         else res->data=I;
    826         setFlag(res,FLAG_STD);
     821        I=(ideal)h->CopyD();
     822        res->rtyp=IDEAL_CMD;
     823        if (rIsPluralRing(currRing)) res->data=Approx_Step(I);
     824        else res->data=I;
     825        setFlag(res,FLAG_STD);
    827826       }
    828827       else return TRUE;
    … …  
    852851        }
    853852        else
    854           return TRUE;
     853          return TRUE;
    855854        if ((h!=NULL) && (h->Typ()==INT_CMD))
    856855        {
    … …  
    901900    if(strcmp(sys_cmd,"NCUseExtensions")==0)
    902901    {
    903      
     902
    904903      if ((h!=NULL) && (h->Typ()==INT_CMD))
    905904        res->data=(void *)setNCExtensions( (int)((long)(h->Data())) );
    906905      else
    907906        res->data=(void *)getNCExtensions();
    908        
    909       res->rtyp=INT_CMD;     
    910       return FALSE;
    911     }
    912 
    913    
     907
     908      res->rtyp=INT_CMD;
     909      return FALSE;
     910    }
     911
     912
    914913    if(strcmp(sys_cmd,"NCGetType")==0)
    915914    {
    916915      res->rtyp=INT_CMD;
    917      
     916
    918917      if( rIsPluralRing(currRing) )
    919918        res->data=(void *)ncRingType(currRing);
    920919      else
    921920        res->data=(void *)(-1);
    922      
    923       return FALSE;
    924     }
    925 
    926    
     921
     922      return FALSE;
     923    }
     924
     925
    927926    if(strcmp(sys_cmd,"ForceSCA")==0)
    928927    {
    … …  
    931930
    932931      int b, e;
    933      
     932
    934933      if ((h!=NULL) && (h->Typ()==INT_CMD))
    935934      {
    936935        b = (int)((long)(h->Data()));
    937936        h=h->next;
    938       } 
     937      }
    939938      else return TRUE;
    940  
     939
    941940      if ((h!=NULL) && (h->Typ()==INT_CMD))
    942941      {
    943942        e = (int)((long)(h->Data()));
    944       } 
     943      }
    945944      else return TRUE;
    946945
    … …  
    957956        return TRUE;
    958957
    959       if( !ncInitSpecialPairMultiplication(currRing) ) // No Plural! 
     958      if( !ncInitSpecialPairMultiplication(currRing) ) // No Plural!
    960959        return TRUE;
    961960
    … …  
    976975
    977976
    978    
     977
    979978    /*==================== PLURAL =================*/
    980979/*==================== opp ==================================*/
    … …  
    10441043      if ((h!=NULL) && (h->Typ()==IDEAL_CMD))
    10451044      {
    1046         I=(ideal)h->CopyD();
    1047         h=h->next;
     1045        I=(ideal)h->CopyD();
     1046        h=h->next;
    10481047      }
    10491048      else return TRUE;
    10501049      if ((h!=NULL) && (h->Typ()==INT_CMD))
    10511050      {
    1052         uptodeg=(int)((long)(h->Data()));
    1053         h=h->next;
     1051        uptodeg=(int)((long)(h->Data()));
     1052        h=h->next;
    10541053      }
    10551054      else return TRUE;
    10561055      if ((h!=NULL) && (h->Typ()==INT_CMD))
    10571056      {
    1058         lVblock=(int)((long)(h->Data()));
    1059         res->data = freegb(I,uptodeg,lVblock);
    1060         if (res->data == NULL)
    1061         {
    1062           /* that is there were input errors */
    1063           res->data = I;
    1064         }
    1065         res->rtyp = IDEAL_CMD;
     1057        lVblock=(int)((long)(h->Data()));
     1058        res->data = freegb(I,uptodeg,lVblock);
     1059        if (res->data == NULL)
     1060        {
     1061          /* that is there were input errors */
     1062          res->data = I;
     1063        }
     1064        res->rtyp = IDEAL_CMD;
    10661065      }
    10671066      else return TRUE;
    … …  
    19231922       if ((h!=NULL) && (h->Typ()==STRING_CMD))
    19241923       {
    1925         const char *s=(const char *)h->Data();
    1926         if (strcmp(s,"posInT_EcartFDegpLength")==0)
    1927            test_PosInT=posInT_EcartFDegpLength;
     1924        const char *s=(const char *)h->Data();
     1925        if (strcmp(s,"posInT_EcartFDegpLength")==0)
     1926           test_PosInT=posInT_EcartFDegpLength;
    19281927         else if (strcmp(s,"posInT_FDegpLength")==0)
    1929            test_PosInT=posInT_FDegpLength;
     1928           test_PosInT=posInT_FDegpLength;
    19301929         else if (strcmp(s,"posInT_pLength")==0)
    1931            test_PosInT=posInT_pLength;
     1930           test_PosInT=posInT_pLength;
    19321931         else if (strcmp(s,"posInT0")==0)
    1933            test_PosInT=posInT0;
     1932           test_PosInT=posInT0;
    19341933         else if (strcmp(s,"posInT1")==0)
    1935            test_PosInT=posInT1;
     1934           test_PosInT=posInT1;
    19361935         else if (strcmp(s,"posInT2")==0)
    1937            test_PosInT=posInT2;
     1936           test_PosInT=posInT2;
    19381937         else if (strcmp(s,"posInT11")==0)
    1939            test_PosInT=posInT11;
     1938           test_PosInT=posInT11;
    19401939         else if (strcmp(s,"posInT110")==0)
    1941            test_PosInT=posInT110;
     1940           test_PosInT=posInT110;
    19421941         else if (strcmp(s,"posInT13")==0)
    1943            test_PosInT=posInT13;
     1942           test_PosInT=posInT13;
    19441943         else if (strcmp(s,"posInT15")==0)
    1945            test_PosInT=posInT15;
     1944           test_PosInT=posInT15;
    19461945         else if (strcmp(s,"posInT17")==0)
    1947            test_PosInT=posInT17;
     1946           test_PosInT=posInT17;
    19481947         else if (strcmp(s,"posInT17_c")==0)
    1949            test_PosInT=posInT17_c;
     1948           test_PosInT=posInT17_c;
    19501949         else if (strcmp(s,"posInT19")==0)
    1951            test_PosInT=posInT19;
     1950           test_PosInT=posInT19;
    19521951         else Print("valid posInT:0,1,2,11,110,13,15,17,17_c,19,_EcartFDegpLength,_FDegpLength,_pLength,_EcartpLength\n");
    19531952       }
    … …  
    20592058    else
    20602059/*==================== poly debug ==================================*/
     2060#ifdef RDEBUG
    20612061      if(strcmp(sys_cmd,"p")==0)
    20622062      {
     2063        pDebugPrint((poly)h->Data());
     2064        return FALSE;
     2065      }
     2066      else
     2067#endif
     2068/*==================== ring debug ==================================*/
    20632069#ifdef RDEBUG
    2064         pDebugPrint((poly)h->Data());
    2065 #endif
    2066         return FALSE;
    2067       }
    2068       else
    2069 /*==================== ring debug ==================================*/
    20702070      if(strcmp(sys_cmd,"r")==0)
    20712071      {
    2072 #ifdef RDEBUG
    20732072        rDebugPrint((ring)h->Data());
    2074 #endif
    2075         return FALSE;
    2076       }
     2073        return FALSE;
     2074      }
     2075#endif
    20772076/*==================== generic debug ==================================*/
     2077#ifdef PDEBUG
    20782078      if(strcmp(sys_cmd,"DebugPrint")==0)
    20792079      {
    … …  
    21032103
    21042104        return FALSE;
    2105       } else
     2105      }
     2106      else
     2107#endif
    21062108/*==================== mtrack ==================================*/
    21072109    if(strcmp(sys_cmd,"mtrack")==0)
    … …  
    21602162    else
    21612163/*==================== backtrace ==================================*/
     2164#ifndef OM_NDEBUG
    21622165    if(strcmp(sys_cmd,"backtrace")==0)
    21632166    {
    2164 #ifndef OM_NDEBUG
    21652167      omPrintCurrentBackTrace(stdout);
    21662168      return FALSE;
    2167 #else
    2168      WerrorS("btrack not supported without OM_TRACK");
    2169      return TRUE;
    2170 #endif
    2171     }
    2172     else
     2169    }
     2170    else
     2171#endif
    21732172/*==================== naIdeal ==================================*/
    21742173    if(strcmp(sys_cmd,"naIdeal")==0)
    … …  
    22902289    else
    22912290#endif
     2291/*=======================gcd Testerei ================================*/
    22922292#ifdef FACTORY_GCD_TEST
    2293 /*=======================gcd Testerei ================================*/
    2294     if ( ! strcmp( sys_cmd, "setgcd" ) ) {
    2295         if ( (h != NULL) && (h->Typ() == INT_CMD) ) {
     2293    if ( ! strcmp( sys_cmd, "setgcd" ) )
     2294    {
     2295        if ( (h != NULL) && (h->Typ() == INT_CMD) )
     2296        {
    22962297            CFPrimitiveGcdUtil::setAlgorithm( (int)h->Data() );
    22972298            return FALSE;
    … …  
    23032304
    23042305#ifdef FACTORY_GCD_TIMING
    2305     if ( ! strcmp( sys_cmd, "gcdtime" ) ) {
     2306    if ( ! strcmp( sys_cmd, "gcdtime" ) )
     2307    {
    23062308        TIMING_PRINT( contentTimer, "time used for content: " );
    23072309        TIMING_PRINT( algContentTimer, "time used for algContent: " );
    … …  
    23162318
    23172319#ifdef FACTORY_GCD_STAT
    2318     if ( ! strcmp( sys_cmd, "gcdstat" ) ) {
     2320    if ( ! strcmp( sys_cmd, "gcdstat" ) )
     2321    {
    23192322        printGcdTotal();
    23202323        printContTotal();
    … …  
    23252328    else
    23262329#endif
     2330/*==================== lib ==================================*/
    23272331#if !defined(HAVE_NS)
    2328 /*==================== lib ==================================*/
    23292332    if(strcmp(sys_cmd,"LIB")==0)
    23302333    {
    … …  
    24972500    }
    24982501    else
     2502#endif
    24992503/*==================== sdb_edit =================*/
     2504#ifdef HAVE_SDB
    25002505    if (strcmp(sys_cmd, "sdb_edit") == 0)
    25012506    {
    … …  
    25632568     else
    25642569#endif
     2570/*==================== DLL =================*/
    25652571#ifdef ix86_Win
    25662572#ifdef HAVE_DL
    2567 /*==================== DLL =================*/
    25682573/* testing the DLL functionality under Win32 */
    25692574      if (strcmp(sys_cmd, "DLL") == 0)
    … …  
    26352640    }
    26362641    else
     2642/*==================== Creating zero polynomials =================*/
    26372643#ifdef HAVE_VANIDEAL
    2638 /*==================== Creating zero polynomials =================*/
    26392644    if (strcmp(sys_cmd, "createG0")==0)
    26402645    {
    … …  
    26612666    else
    26622667#endif
     2668/*==================== redNF_ring =================*/
    26632669    if (strcmp(sys_cmd, "redNF_ring")==0)
    26642670    {
    … …  
    26732679    else
    26742680#endif
     2681/*==================== minor =================*/
    26752682    if (strcmp(sys_cmd, "minor")==0)
    26762683    {
    … …  
    27002707    }
    27012708    else
     2709/*==================== F5 Implementation =================*/
    27022710#ifdef HAVE_F5
    2703 /*==================== F5 Implementation =================*/
    27042711    if (strcmp(sys_cmd, "f5")==0)
    27052712    {
    … …  
    27082715        WerrorS("ideal expected");
    27092716        return TRUE;
    2710       } 
    2711      
     2717      }
     2718
    27122719      ring r = currRing;
    27132720      ideal G = (ideal) h->Data();
    … …  
    27262733    else
    27272734#endif
     2735/*==================== F5C Implementation =================*/
    27282736#ifdef HAVE_F5C
    2729 /*==================== F5C Implementation =================*/
    27302737    if (strcmp(sys_cmd, "f5c")==0)
    27312738    {
    … …  
    27342741        WerrorS("ideal expected");
    27352742        return TRUE;
    2736       } 
    2737      
     2743      }
     2744
    27382745      ring r = currRing;
    27392746      ideal G = (ideal) h->Data();
    … …  
    27442751    else
    27452752#endif
     2753/*==================== Testing groebner basis =================*/
    27462754#ifdef HAVE_RINGS
    2747 /*==================== Testing groebner basis =================*/
    27482755    if (strcmp(sys_cmd, "NF_ring")==0)
    27492756    {
    … …  
    27792786    else
    27802787#endif
     2788/*==================== sca?AltVar ==================================*/
    27812789#ifdef HAVE_PLURAL
    2782 /*==================== sca?AltVar ==================================*/
    27832790    if ( (strcmp(sys_cmd, "AltVarStart") == 0) || (strcmp(sys_cmd, "AltVarEnd") == 0) )
    27842791    {
    … …  
    28072814    else
    28082815#endif
     2816/*==================== RatNF, noncomm rational coeffs =================*/
    28092817#ifdef HAVE_PLURAL
    28102818#ifdef HAVE_RATGRING
    2811 /*==================== RatNF, noncomm rational coeffs =================*/
    28122819    if (strcmp(sys_cmd, "intratNF") == 0)
    28132820    {
    … …  
    28182825      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    28192826      {
    2820         p=(poly)h->CopyD();
    2821         h=h->next;
    2822         //      Print("poly is done\n");
     2827        p=(poly)h->CopyD();
     2828        h=h->next;
     2829        //        Print("poly is done\n");
    28232830      }
    28242831      else return TRUE;
    28252832      if ((h!=NULL) && (h->Typ()==IDEAL_CMD))
    28262833      {
    2827         I=(ideal)h->CopyD();
    2828         q = I->m;
    2829         h=h->next;
    2830         //      Print("ideal is done\n");
     2834        I=(ideal)h->CopyD();
     2835        q = I->m;
     2836        h=h->next;
     2837        //        Print("ideal is done\n");
    28312838      }
    28322839      else return TRUE;
    28332840      if ((h!=NULL) && (h->Typ()==INT_CMD))
    28342841      {
    2835         is=(int)((long)(h->Data()));
    2836         //      res->rtyp=INT_CMD;
    2837         //      Print("int is done\n");
    2838         //      res->rtyp=IDEAL_CMD;
    2839         if (rIsPluralRing(currRing))
    2840         {
    2841           id = IDELEMS(I);
     2842        is=(int)((long)(h->Data()));
     2843        //        res->rtyp=INT_CMD;
     2844        //        Print("int is done\n");
     2845        //        res->rtyp=IDEAL_CMD;
     2846        if (rIsPluralRing(currRing))
     2847        {
     2848          id = IDELEMS(I);
    28422849                 int *pl=(int*)omAlloc0(IDELEMS(I)*sizeof(int));
    2843           for(k=0; k < id; k++)
    2844           {
    2845             pl[k] = pLength(I->m[k]);
    2846           }
    2847           Print("starting redRat\n");
    2848           //res->data = (char *)
    2849           redRat(&p, q, pl, (int)IDELEMS(I),is,currRing);
    2850           res->data=p;
    2851           res->rtyp=POLY_CMD;
    2852           //    res->data = ncGCD(p,q,currRing);       
    2853         }
    2854         else
    2855         {
    2856           res->rtyp=POLY_CMD;
    2857           res->data=p;
    2858         }
     2850          for(k=0; k < id; k++)
     2851          {
     2852            pl[k] = pLength(I->m[k]);
     2853          }
     2854          Print("starting redRat\n");
     2855          //res->data = (char *)
     2856          redRat(&p, q, pl, (int)IDELEMS(I),is,currRing);
     2857          res->data=p;
     2858          res->rtyp=POLY_CMD;
     2859          //        res->data = ncGCD(p,q,currRing);
     2860        }
     2861        else
     2862        {
     2863          res->rtyp=POLY_CMD;
     2864          res->data=p;
     2865        }
    28592866      }
    28602867      else return TRUE;
    … …  
    28692876      if ((h!=NULL) && ( (h->Typ()==POLY_CMD) || (h->Typ()==VECTOR_CMD) ) )
    28702877      {
    2871         p=(poly)h->CopyD();
    2872         h=h->next;
    2873         htype = h->Typ();
     2878        p=(poly)h->CopyD();
     2879        h=h->next;
     2880        htype = h->Typ();
    28742881      }
    28752882      else return TRUE;
    28762883      if ((h!=NULL) && ( (h->Typ()==POLY_CMD) || (h->Typ()==VECTOR_CMD) ) )
    28772884      {
    2878         q=(poly)h->CopyD();
    2879         h=h->next;
     2885        q=(poly)h->CopyD();
     2886        h=h->next;
    28802887      }
    28812888      else return TRUE;
    28822889      if ((h!=NULL) && (h->Typ()==INT_CMD))
    28832890      {
    2884         is=(int)((long)(h->Data()));
    2885         res->rtyp=htype;
    2886         //      res->rtyp=IDEAL_CMD;
    2887         if (rIsPluralRing(currRing))
    2888         {
    2889           res->data = nc_rat_ReduceSpolyNew(q,p,is, currRing);
    2890           //    res->data = ncGCD(p,q,currRing);       
    2891         }
    2892         else res->data=p;
     2891        is=(int)((long)(h->Data()));
     2892        res->rtyp=htype;
     2893        //        res->rtyp=IDEAL_CMD;
     2894        if (rIsPluralRing(currRing))
     2895        {
     2896          res->data = nc_rat_ReduceSpolyNew(q,p,is, currRing);
     2897          //        res->data = ncGCD(p,q,currRing);
     2898        }
     2899        else res->data=p;
    28932900      }
    28942901      else return TRUE;
    … …  
    29032910      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29042911      {
    2905         p=(poly)h->CopyD();
    2906         h=h->next;
     2912        p=(poly)h->CopyD();
     2913        h=h->next;
    29072914      }
    29082915      else return TRUE;
    29092916      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29102917      {
    2911         q=(poly)h->CopyD();
    2912         h=h->next;
     2918        q=(poly)h->CopyD();
     2919        h=h->next;
    29132920      }
    29142921      else return TRUE;
    29152922      if ((h!=NULL) && (h->Typ()==INT_CMD))
    29162923      {
    2917         is=(int)((long)(h->Data()));
    2918         res->rtyp=POLY_CMD;
    2919         //      res->rtyp=IDEAL_CMD;
    2920         if (rIsPluralRing(currRing))
    2921         {
    2922           res->data = nc_rat_CreateSpoly(p,q,is,currRing);
    2923           //    res->data = ncGCD(p,q,currRing);       
    2924         }
    2925         else res->data=p;
     2924        is=(int)((long)(h->Data()));
     2925        res->rtyp=POLY_CMD;
     2926        //        res->rtyp=IDEAL_CMD;
     2927        if (rIsPluralRing(currRing))
     2928        {
     2929          res->data = nc_rat_CreateSpoly(p,q,is,currRing);
     2930          //        res->data = ncGCD(p,q,currRing);
     2931        }
     2932        else res->data=p;
    29262933      }
    29272934      else return TRUE;
    … …  
    29372944      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29382945      {
    2939         start=pIsPurePower((poly)h->Data());
    2940         h=h->next;
     2946        start=pIsPurePower((poly)h->Data());
     2947        h=h->next;
    29412948      }
    29422949      else return TRUE;
    29432950      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29442951      {
    2945         end=pIsPurePower((poly)h->Data());
    2946         h=h->next;
     2952        end=pIsPurePower((poly)h->Data());
     2953        h=h->next;
    29472954      }
    29482955      else return TRUE;
    … …  
    29602967      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29612968      {
    2962         p=(poly)h->CopyD();
    2963         h=h->next;
     2969        p=(poly)h->CopyD();
     2970        h=h->next;
    29642971      }
    29652972      else return TRUE;
    29662973      if ((h!=NULL) && (h->Typ()==INT_CMD))
    29672974      {
    2968         sh=(int)((long)(h->Data()));
    2969         h=h->next;
     2975        sh=(int)((long)(h->Data()));
     2976        h=h->next;
    29702977      }
    29712978      else return TRUE;
    … …  
    29732980      if ((h!=NULL) && (h->Typ()==INT_CMD))
    29742981      {
    2975         uptodeg=(int)((long)(h->Data()));
    2976         h=h->next;
     2982        uptodeg=(int)((long)(h->Data()));
     2983        h=h->next;
    29772984      }
    29782985      else return TRUE;
    29792986      if ((h!=NULL) && (h->Typ()==INT_CMD))
    29802987      {
    2981         lVblock=(int)((long)(h->Data()));
    2982         res->data = pLPshift(p,sh,uptodeg,lVblock);
    2983         res->rtyp = POLY_CMD;
     2988        lVblock=(int)((long)(h->Data()));
     2989        res->data = pLPshift(p,sh,uptodeg,lVblock);
     2990        res->rtyp = POLY_CMD;
    29842991      }
    29852992      else return TRUE;
    … …  
    29963003      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    29973004      {
    2998         p=(poly)h->CopyD();
    2999         h=h->next;
     3005        p=(poly)h->CopyD();
     3006        h=h->next;
    30003007      }
    30013008      else return TRUE;
    30023009      if ((h!=NULL) && (h->Typ()==INT_CMD))
    30033010      {
    3004         lV=(int)((long)(h->Data()));
    3005         res->rtyp = INT_CMD;
    3006         res->data = (void*)pLastVblock(p, lV);
     3011        lV=(int)((long)(h->Data()));
     3012        res->rtyp = INT_CMD;
     3013        res->data = (void*)pLastVblock(p, lV);
    30073014      }
    30083015      else return TRUE;
    … …  
    30173024      if ((h!=NULL) && (h->Typ()==POLY_CMD))
    30183025      {
    3019         p=(poly)h->CopyD();
    3020         h=h->next;
     3026        p=(poly)h->CopyD();
     3027        h=h->next;
    30213028      }
    30223029      else return TRUE;
    30233030      if ((h!=NULL) && (h->Typ()==INT_CMD))
    30243031      {
    3025         lV=(int)((long)(h->Data()));
    3026         res->rtyp = POLY_CMD;
    3027         //      res->data = p_mShrink(p, lV, currRing);
    3028         //      kStrategy strat=new skStrategy;
    3029         //      strat->tailRing = currRing;
    3030         res->data = p_Shrink(p, lV, currRing);
     3032        lV=(int)((long)(h->Data()));
     3033        res->rtyp = POLY_CMD;
     3034        //        res->data = p_mShrink(p, lV, currRing);
     3035        //        kStrategy strat=new skStrategy;
     3036        //        strat->tailRing = currRing;
     3037        res->data = p_Shrink(p, lV, currRing);
    30313038      }
    30323039      else return TRUE;
    … …  
    32563263      if (h!=NULL)
    32573264      {
    3258         extern ring rSubring(ring r,leftv v); /* ipshell.cc*/
    3259         res->data=(char *)rSubring(currRing,h);
    3260         res->rtyp=RING_CMD;
     3265        extern ring rSubring(ring r,leftv v); /* ipshell.cc*/
     3266        res->data=(char *)rSubring(currRing,h);
     3267        res->rtyp=RING_CMD;
    32613268        return res->data==NULL;
    32623269      }
    … …  
    33233330  if (strcmp(sys_cmd,"Singular++")==0)
    33243331  {
    3325 //    using namespace SINGULAR_NS; 
     3332//    using namespace SINGULAR_NS;
    33263333    extern BOOLEAN Main(leftv res, leftv h); // FALSE = Ok, TRUE = Error!
    33273334    return Main(res, h);
    … …  
    33373344if (strcmp(sys_cmd,"gfan")==0)
    33383345{
    3339         if ((h==NULL) || (h!=NULL && h->Typ()!=IDEAL_CMD))
    3340         {
    3341                 Werror("system(\"gfan\"...) Ideal expected");
    3342                 return TRUE; //Ooooops
    3343         }
     3346        if ((h==NULL) || (h!=NULL && h->Typ()!=IDEAL_CMD))
     3347        {
     3348                Werror("system(\"gfan\"...) Ideal expected");
     3349                return TRUE; //Ooooops
     3350        }
    33443351ideal I=((ideal)h->Data());
    33453352res->rtyp=IDEAL_CMD;
    … …  
    33473354//res->rtyp=LIST_CMD;
    33483355//res->data= ???
    3349        
    3350 return FALSE; //Everything went fine   
     3356
     3357return FALSE; //Everything went fine
    33513358}
    33523359else
Note: See TracChangeset for help on using the changeset viewer.