Changeset a610ee in git


Ignore:
Timestamp:
Feb 23, 2009, 2:50:52 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
b0237b842fe21cec3d4b51436f88ff9d8f8aad12
Parents:
08500d542c4163fa9952a6aad1cf846ecf31945d
Message:
*hannes: Print vs. PrintS


git-svn-id: file:///usr/local/Singular/svn/trunk@11452 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • kernel/Poly.h

    r08500d ra610ee  
    1 //$Id: Poly.h,v 1.34 2006-06-21 06:26:58 bricken Exp $
     1//$Id: Poly.h,v 1.35 2009-02-23 13:50:51 Singular Exp $
    22
    33
     
    380380     StringSetS("");
    381381     write();
    382      Print(StringAppendS(""));
     382     PrintS(StringAppendS(""));
    383383     }*/
    384384  virtual ~PolyBase(){}
  • kernel/ncSACache.h

    r08500d ra610ee  
    44 *  Computer Algebra System SINGULAR     *
    55 *****************************************/
    6 /* $Id: ncSACache.h,v 1.4 2008-07-21 00:05:09 motsak Exp $ */
     6/* $Id: ncSACache.h,v 1.5 2009-02-23 13:50:51 Singular Exp $ */
    77
    88// #include <ncSACache.h> // for CCacheHash etc classes
     
    5959    {
    6060/*
    61       Print("//////////////////////////////////////////////////////////////////////////////////////////////");
     61      PrintS("//////////////////////////////////////////////////////////////////////////////////////////////");
    6262      PrintLn();
    63       Print("CCacheHash::LookupEE(a, b, *results)!");
     63      PrintS("CCacheHash::LookupEE(a, b, *results)!");
    6464      PrintLn();
    6565*/
     
    7373    {
    7474/*
    75       Print("CCacheHash::StoreEE(a, b, Product)!");
     75      PrintS("CCacheHash::StoreEE(a, b, Product)!");
    7676      PrintLn();
    7777*/
     
    8080
    8181/*
    82       Print("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
     82      PrintS("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
    8383      PrintLn();
    8484*/
     
    8989    virtual void History(const EHistoryType t, const CExponent a, const CExponent b, const poly p = NULL)
    9090    {
    91       Print("CCacheHash::History(a, b, [p])!");
    92       PrintLn();
     91      PrintS("CCacheHash::History(a, b, [p])!\n");
    9392    }
    9493
  • kernel/ncSAMult.cc

    r08500d ra610ee  
    77 *  Author:  motsak
    88 *  Created:
    9  *  Version: $Id: ncSAMult.cc,v 1.10 2008-07-29 13:28:21 motsak Exp $
     9 *  Version: $Id: ncSAMult.cc,v 1.11 2009-02-23 13:50:52 Singular Exp $
    1010 *******************************************************************/
    1111
     
    4343
    4444#if OUTPUT 
    45   Print("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_pp_Mult_mm(p, m) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
     45  PrintS("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_pp_Mult_mm(p, m) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
    4646  PrintLn();
    4747  PrintS("p: "); p_Write(p, r);   
     
    6767  p_Test(pResult, r);
    6868
    69   Print("gnc_pp_Mult_mm(p, m) => "); p_Write(pResult, r);
     69  PrintS("gnc_pp_Mult_mm(p, m) => "); p_Write(pResult, r);
    7070  PrintS("p: "); p_Write(p, r);   
    7171  PrintS("m: "); p_Write(m, r);     
    72   Print("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
     72  PrintS("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
    7373  PrintLn();
    7474#endif
     
    8989
    9090#if OUTPUT 
    91   Print("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_p_Mult_mm(p, m) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
     91  PrintS("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_p_Mult_mm(p, m) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
    9292  PrintLn();
    9393  PrintS("p: ");
     
    116116  p_Test(pResult, r);
    117117
    118   Print("gnc_p_Mult_mm(p, m) => "); p_Write(pResult, r);     
     118  PrintS("gnc_p_Mult_mm(p, m) => "); p_Write(pResult, r);     
    119119//  PrintS("p: "); p_Write(p, r);   
    120120  PrintS("m: "); p_Write(m, r);     
    121   Print("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
     121  PrintS("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
    122122  PrintLn();
    123123#endif
     
    141141
    142142#if OUTPUT 
    143   Print("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_mm_Mult_p(m, p) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
     143  PrintS("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_mm_Mult_p(m, p) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
    144144  PrintLn();
    145145  PrintS("m: "); p_Write(m, r);     
     
    166166  p_Test(pResult, r);
    167167
    168   Print("gnc_mm_Mult_p(m, p) => "); p_Write(pResult, r);     
     168  PrintS("gnc_mm_Mult_p(m, p) => "); p_Write(pResult, r);     
    169169//  PrintS("p: "); p_Write(p, r);   
    170170  PrintS("m: "); p_Write(m, r);     
    171   Print("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
     171  PrintS("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
    172172  PrintLn();
    173173#endif
     
    189189 
    190190#if OUTPUT 
    191   Print("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_mm_Mult_pp(m, p) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
     191  PrintS("VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV gnc_mm_Mult_pp(m, p) VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ");
    192192  PrintLn();
    193193  PrintS("m: "); p_Write(m, r);     
     
    214214  p_Test(pResult, r);
    215215
    216   Print("gnc_mm_Mult_pp(m, p) => "); p_Write(pResult, r);     
     216  PrintS("gnc_mm_Mult_pp(m, p) => "); p_Write(pResult, r);     
    217217  PrintS("p: "); p_Write(p, r);   
    218218  PrintS("m: "); p_Write(m, r);     
    219   Print("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
     219  PrintS("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ");
    220220  PrintLn();
    221221#endif
     
    227227{
    228228#if OUTPUT 
    229   Print("|gnc_p_ProcsSet()");
     229  PrintS("|gnc_p_ProcsSet()");
    230230  PrintLn();
    231231#endif
     
    249249{
    250250#if OUTPUT 
    251   Print("ncInitSpecialPairMultiplication(ring), ring: \n");
     251  PrintS("ncInitSpecialPairMultiplication(ring), ring: \n");
    252252  rWrite(r);
    253253  PrintLn();
     
    274274{
    275275#if OUTPUT 
    276   Print("CGlobalMultiplier::CGlobalMultiplier(ring)!");
     276  PrintS("CGlobalMultiplier::CGlobalMultiplier(ring)!");
    277277  PrintLn();
    278278#endif
     
    286286{
    287287#if OUTPUT 
    288   Print("CGlobalMultiplier::~CGlobalMultiplier()!");
     288  PrintS("CGlobalMultiplier::~CGlobalMultiplier()!");
    289289  PrintLn();
    290290#endif
     
    306306
    307307#if OUTPUT 
    308   Print("CGlobalMultiplier::MultiplyEE(expLeft, expRight)!");
     308  PrintS("CGlobalMultiplier::MultiplyEE(expLeft, expRight)!");
    309309  PrintLn();
    310310  PrintS("expL: "); p_Write(expLeft, GetBasering());   
     
    342342 
    343343#if OUTPUT 
    344   Print("<CGlobalMultiplier::MultiplyEE>");
    345   PrintLn();
    346   Print("i: %d, j: %d", i, j);
     344  PrintS("<CGlobalMultiplier::MultiplyEE>");
     345  PrintLn();
     346  SPrint("i: %d, j: %d", i, j);
    347347  PrintLn();
    348348  Print("ei: %d, ej: %d", ei, ej);
     
    407407
    408408#if OUTPUT 
    409     Print("<CGlobalMultiplier::MultiplyEE> ==> ");
     409    PrintS("<CGlobalMultiplier::MultiplyEE> ==> ");
    410410    PrintLn();
    411411    Print("i: %d, j: %d", i, j);
     
    413413    Print("ei: %d, ej: %d", ei, ej);
    414414    PrintLn();
    415     Print("<product>: "); p_Write(product, GetBasering()); 
     415    PrintS("<product>: "); p_Write(product, GetBasering()); 
    416416#endif
    417417   
     
    448448
    449449#if OUTPUT 
    450       Print("<CGlobalMultiplier::MultiplyEE> ==> ");
     450      PrintS("<CGlobalMultiplier::MultiplyEE> ==> ");
    451451      PrintLn();
    452452      Print("i: %d, j: %d", i, j);
     
    454454      Print("ei: %d, ej: %d", ei, ej);
    455455      PrintLn();
    456       Print("<product>: "); p_Write(product, GetBasering()); 
     456      PrintS("<product>: "); p_Write(product, GetBasering()); 
    457457#endif
    458458     
     
    473473{
    474474#if OUTPUT 
    475   Print("CGlobalMultiplier::MultiplyME(monom, expR)!"); 
     475  PrintS("CGlobalMultiplier::MultiplyME(monom, expR)!"); 
    476476  PrintLn();
    477477  PrintS("Monom: "); p_Write(pMonom, GetBasering());   
     
    486486{
    487487#if OUTPUT 
    488   Print("CGlobalMultiplier::MultiplyEM(expL, monom)!"); 
     488  PrintS("CGlobalMultiplier::MultiplyEM(expL, monom)!"); 
    489489  PrintLn();
    490490  PrintS("expL: "); p_Write(expLeft, GetBasering());   
     
    513513{
    514514#if OUTPUT 
    515   Print("CCommutativeSpecialPairMultiplier::~CCommutativeSpecialPairMultiplier()");
     515  PrintS("CCommutativeSpecialPairMultiplier::~CCommutativeSpecialPairMultiplier()");
    516516  PrintLn();
    517517#endif
     
    545545{
    546546#if OUTPUT 
    547         Print("CAntiCommutativeSpecialPairMultiplier::~CAntiCommutativeSpecialPairMultiplier()");
     547        PrintS("CAntiCommutativeSpecialPairMultiplier::~CAntiCommutativeSpecialPairMultiplier()");
    548548        PrintLn();
    549549#endif
     
    579579{
    580580#if OUTPUT 
    581         Print("CQuasiCommutativeSpecialPairMultiplier::~CQuasiCommutativeSpecialPairMultiplier()");
     581        PrintS("CQuasiCommutativeSpecialPairMultiplier::~CQuasiCommutativeSpecialPairMultiplier()");
    582582        PrintLn();
    583583#endif
     
    614614{
    615615#if OUTPUT 
    616   Print("CWeylSpecialPairMultiplier::~CWeylSpecialPairMultiplier()");
     616  PrintS("CWeylSpecialPairMultiplier::~CWeylSpecialPairMultiplier()");
    617617  PrintLn();
    618618#endif
     
    652652{
    653653#if OUTPUT 
    654   Print("CShiftSpecialPairMultiplier::~CShiftSpecialPairMultiplier()");
     654  PrintS("CShiftSpecialPairMultiplier::~CShiftSpecialPairMultiplier()");
    655655  PrintLn();
    656656#endif
     
    693693{
    694694#if OUTPUT 
    695   Print("CExternalSpecialPairMultiplier::~CExternalSpecialPairMultiplier()");
     695  PrintS("CExternalSpecialPairMultiplier::~CExternalSpecialPairMultiplier()");
    696696  PrintLn();
    697697#endif
     
    774774{
    775775#if OUTPUT 
    776   Print("CPowerMultiplier::CPowerMultiplier(ring)!");
     776  PrintS("CPowerMultiplier::CPowerMultiplier(ring)!");
    777777  PrintLn();
    778778#endif
     
    789789{
    790790#if OUTPUT 
    791   Print("CPowerMultiplier::~CPowerMultiplier()!");
     791  PrintS("CPowerMultiplier::~CPowerMultiplier()!");
    792792  PrintLn();
    793793#endif
     
    854854
    855855#if OUTPUT 
    856   Print("CPowerMultiplier::MultiplyME() ===> ");
     856  PrintS("CPowerMultiplier::MultiplyME() ===> ");
    857857  p_Write(p, GetBasering()); 
    858858#endif
     
    919919
    920920#if OUTPUT 
    921   Print("CPowerMultiplier::MultiplyEM() ===> ");
     921  PrintS("CPowerMultiplier::MultiplyEM() ===> ");
    922922  p_Write(p, r); 
    923923#endif
     
    933933{
    934934#if OUTPUT 
    935   Print("CPowerMultiplier::MultiplyEE)!");
     935  PrintS("CPowerMultiplier::MultiplyEE)!");
    936936  PrintLn();
    937937#endif
     
    10151015{
    10161016#if OUTPUT 
    1017   Print("CSpecialPairMultiplier::~CSpecialPairMultiplier()!");
     1017  PrintS("CSpecialPairMultiplier::~CSpecialPairMultiplier()!");
    10181018  PrintLn();
    10191019#endif
  • kernel/sca.cc

    r08500d ra610ee  
    77 *  Author:  motsak (Oleksandr Motsak)
    88 *  Created: 2006/12/18
    9  *  Version: $Id: sca.cc,v 1.31 2009-02-21 17:50:11 Singular Exp $
     9 *  Version: $Id: sca.cc,v 1.32 2009-02-23 13:50:52 Singular Exp $
    1010 *******************************************************************/
    1111
     
    689689    if( !p_Test(p, rRing) )
    690690    {
    691       Print("p is wrong!");
     691      PrintS("p is wrong!");
    692692      p_Write(p,rRing);
    693693    }
     
    745745    if( !p_Test(pPoly, rRing) )
    746746    {
    747       Print("pPoly is wrong!");
     747      PrintS("pPoly is wrong!");
    748748      p_Write(pPoly, rRing);
    749749    }
     
    10491049#if MYTEST
    10501050  {
    1051     Print("ideal tempF: \n");
     1051    PrintS("ideal tempF: \n");
    10521052    idPrint(tempF);
    1053     Print("ideal tempQ: \n");
     1053    PrintS("ideal tempQ: \n");
    10541054    idPrint(tempQ);
    10551055  }
     
    14661466
    14671467#if MYTEST
    1468   Print("Analyzing quotient ideal:\n");
     1468  PrintS("Analyzing quotient ideal:\n");
    14691469  idPrint(idQuotient); // in rG!!!
    14701470#endif
     
    15321532#ifdef PDEBUG
    15331533#if OUTPUT
    1534   Print("Quotient: \n");
     1534  PrintS("Quotient: \n");
    15351535  iiWriteMatrix((matrix)idQuotient,"__",1);
    1536   Print("tempSCAQuotient: \n");
     1536  PrintS("tempSCAQuotient: \n");
    15371537  iiWriteMatrix((matrix)tempQ,"__",1);
    15381538#endif
     
    15561556#ifdef PDEBUG
    15571557#if OUTPUT
    1558   Print("SCAQuotient: \n");
     1558  PrintS("SCAQuotient: \n");
    15591559  if(tempQ != NULL)
    15601560    iiWriteMatrix((matrix)tempQ,"__",1);
    15611561  else
    1562     Print("(NULL)\n");
     1562    PrintS("(NULL)\n");
    15631563#endif
    15641564#endif
     
    27152715   PrintS("<id_KillSquares>\n");
    27162716  {
    2717     Print("ideal id: \n");
     2717    PrintS("ideal id: \n");
    27182718    for (int i = 0; i < IDELEMS(id); i++)
    27192719    {
     
    27212721      p_Write(id->m[i], r);
    27222722    }
    2723     Print(";\n");
     2723    PrintS(";\n");
    27242724    PrintLn();
    27252725  }
     
    27352735   PrintS("<id_KillSquares>\n");
    27362736  {
    2737     Print("ideal temp: \n");
     2737    PrintS("ideal temp: \n");
    27382738    for (int i = 0; i < IDELEMS(temp); i++)
    27392739    {
     
    27412741      p_Write(temp->m[i], r);
    27422742    }
    2743     Print(";\n");
     2743    PrintS(";\n");
    27442744    PrintLn();
    27452745  }
  • kernel/shiftgb.cc

    r08500d ra610ee  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: shiftgb.cc,v 1.10 2008-08-07 18:08:37 levandov Exp $ */
     4/* $Id: shiftgb.cc,v 1.11 2009-02-23 13:50:52 Singular Exp $ */
    55/*
    66* ABSTRACT: kernel: utils for shift GB and free GB
     
    101101  {
    102102#ifdef PDEBUG
    103     Print("pmLPshift: negative shift requested");
     103    PrintS("pmLPshift: negative shift requested\n");
    104104#endif
    105105    return(NULL); /* violation, 2check */
     
    110110  {
    111111#ifdef PDEBUG
    112     Print("p_mLPshift: too big shift requested");
     112    PrintS("p_mLPshift: too big shift requested\n");
    113113#endif
    114114    return(NULL); /* violation, 2check */
     
    185185  {
    186186#ifdef PDEBUG
    187     Print("pmLPshift: negative shift requested");
     187    PrintS("pmLPshift: negative shift requested\n");
    188188#endif
    189189    return(NULL); /* violation, 2check */
     
    194194  {
    195195#ifdef PDEBUG
    196     Print("pmLPshift: too big shift requested");
     196    PrintS("pmLPshift: too big shift requested\n");
    197197#endif
    198198    return(NULL); /* violation, 2check */
     
    254254  {
    255255#ifdef PDEBUG
    256     Print("pmLastVblock: unexpected zero exponent vector");
    257     PrintLn();
     256    PrintS("pmLastVblock: unexpected zero exponent vector\n");
    258257#endif   
    259258    return(j);
     
    320319  {
    321320#ifdef PDEBUG
    322     Print("pmLastVblock: unexpected zero exponent vector");
    323     PrintLn();
     321    PrintS("pmLastVblock: unexpected zero exponent vector\n");
    324322#endif   
    325323    return(j);
     
    364362  {
    365363#ifdef PDEBUG
    366     Print("pmFirstVblock: unexpected zero exponent vector");
    367     PrintLn();
     364    PrintS("pmFirstVblock: unexpected zero exponent vector\n");
    368365#endif   
    369366    return(j);
  • kernel/tgb.cc

    r08500d ra610ee  
    55*  Computer Algebra System SINGULAR     *
    66****************************************/
    7 /* $Id: tgb.cc,v 1.160 2008-09-19 17:31:38 Singular Exp $ */
     7/* $Id: tgb.cc,v 1.161 2009-02-23 13:50:52 Singular Exp $ */
    88/*
    99* ABSTRACT: slimgb and F4 implementation
     
    497497      return erg;
    498498    }
    499     //Print("I am here");
     499    //PrintS("I am here");
    500500    wlen_type r=pSLength(p,l);
    501501    assume(r>=0);
     
    16331633      omfree(array_arg); // !!!
    16341634    }
    1635 //     Print("Saturation - done!!!\n");
     1635//     PrintS("Saturation - done!!!\n");
    16361636  }
    16371637#endif // if SCAlgebra
     
    20462046      }
    20472047      if (i!=dn->value_len){
    2048         Print("F4 calc wrong, as poly len was wrong\n");
     2048        PrintS("F4 calc wrong, as poly len was wrong\n");
    20492049      }
    20502050      assume(i==dn->value_len);
     
    42754275    int len;
    42764276    //    wrp(los[erg.to_reduce_u].p);
    4277     //Print("\n");
     4277    //PrintLn();
    42784278    multi_reduce_step(erg,los,c);
    42794279
Note: See TracChangeset for help on using the changeset viewer.