Changeset d3a49c in git


Ignore:
Timestamp:
Sep 19, 2008, 4:15:14 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')
Children:
e8757a4158a0ac53504885de58c28a553151a28c
Parents:
7143128e86b7531f8775b7a857756da9322c43ac
Message:
*hannes: Print format (debug stuff)


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

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    r714312 rd3a49c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.192 2008-08-13 15:16:23 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.193 2008-09-19 14:15:14 Singular Exp $ */
    55/*
    66* ABSTRACT:
     
    132132                    }
    133133                    break;
    134     case MODUL_CMD: Print(", rk %d", IDIDEAL(h)->rank);
     134    case MODUL_CMD: Print(", rk %d", (int)(IDIDEAL(h)->rank));
    135135    case IDEAL_CMD: Print(", %u generator(s)",
    136                     IDELEMS(IDIDEAL(h)),IDIDEAL(h)->rank); break;
     136                    IDELEMS(IDIDEAL(h))); break;
    137137    case MAP_CMD:
    138138                    Print(" from %s",IDMAP(h)->preimage); break;
     
    187187#ifdef RDEBUG
    188188                   if (traceit &TRACE_SHOW_RINGS)
    189                      Print(" <%x>",IDRING(h));
     189                     Print(" <%lx>",(long)(IDRING(h)));
    190190#endif
    191191                   break;
     
    50495049  {
    50505050#ifdef RDEBUG
    5051     if (traceit &TRACE_SHOW_RINGS) Print("kill ring %x\n",r);
     5051    if (traceit &TRACE_SHOW_RINGS) Print("kill ring %lx\n",(long)r);
    50525052#endif
    50535053    if (r==currRing)
  • Singular/misc.cc

    r714312 rd3a49c  
    633633          else if (IDDATA(hh)==(void *)currPack) PrintS("(P)");
    634634          else PrintS("   ");
    635           Print("::%s, typ %s level %d data %x",
    636                  IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),IDDATA(hh));
     635          Print("::%s, typ %s level %d data %lx",
     636                 IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),(long)IDDATA(hh));
    637637          if ((IDTYP(hh)==RING_CMD)
    638638          || (IDTYP(hh)==QRING_CMD))
     
    647647      {
    648648        if (IDDATA(hh)==(void *)basePack)
    649           Print("(T)::%s, typ %s level %d data %x\n",
    650           IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),IDDATA(hh));
     649          Print("(T)::%s, typ %s level %d data %lx\n",
     650          IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),(long)IDDATA(hh));
    651651        else
    652652        if ((IDTYP(hh)==RING_CMD)
     
    665665              else if (IDDATA(h2)==(void *)currPack) PrintS("(P)");
    666666              else PrintS("   ");
    667               Print("%s::%s, typ %s level %d data %x\n",
    668               IDID(hh),IDID(h2),Tok2Cmdname(IDTYP(h2)),IDLEV(h2),IDDATA(h2));
     667              Print("%s::%s, typ %s level %d data %lx\n",
     668              IDID(hh),IDID(h2),Tok2Cmdname(IDTYP(h2)),IDLEV(h2),(long)IDDATA(h2));
    669669            }
    670670            h2=IDNEXT(h2);
     
    673673        hh=IDNEXT(hh);
    674674      }
    675       Print("currRing:%x, currPack:%x,basePack:%x\n",currRing,currPack,basePack);
     675      Print("currRing:%lx, currPack:%lx,basePack:%lx\n",(long)currRing,(long)currPack,(long)basePack);
    676676      iiCheckPack(currPack);
    677677}
  • Singular/silink.cc

    r714312 rd3a49c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: silink.cc,v 1.49 2008-09-10 09:18:01 Singular Exp $ */
     4/* $Id: silink.cc,v 1.50 2008-09-19 14:15:14 Singular Exp $ */
    55
    66/*
     
    453453    buf=(char *)omAlloc((int)len+1);
    454454    if (BVERBOSE(V_READING))
    455       Print("//Reading %d chars\n",len);
     455      Print("//Reading %ld chars\n",len);
    456456    myfread( buf, len, 1, fp);
    457457    buf[len]='\0';
  • Singular/walk.cc

    r714312 rd3a49c  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: walk.cc,v 1.14 2008-09-10 09:21:29 Singular Exp $ */
     4/* $Id: walk.cc,v 1.15 2008-09-19 14:15:14 Singular Exp $ */
    55/*
    66* ABSTRACT: Implementation of the Groebner walk
     
    359359
    360360  Print("\n// total time = %.2f sec", totm);
    361   Print("\n// tostd = %.2f sec = %.2f %", ostd=((double) tostd)/1000000,
     361  Print("\n// tostd = %.2f sec = %.2f", ostd=((double) tostd)/1000000,
    362362        mostd=((((double) tostd)/1000000)/totm)*100);
    363   Print("\n// tif   = %.2f sec = %.2f %", ((double) tif)/1000000,
     363  Print("\n// tif   = %.2f sec = %.2f", ((double) tif)/1000000,
    364364        mif=((((double) tif)/1000000)/totm)*100);
    365   Print("\n// std   = %.2f sec = %.2f %", ((double) tstd)/1000000,
     365  Print("\n// std   = %.2f sec = %.2f", ((double) tstd)/1000000,
    366366        mstd=((((double) tstd)/1000000)/totm)*100);
    367   Print("\n// lift  = %.2f sec = %.2f %", ((double) tlf)/1000000,
     367  Print("\n// lift  = %.2f sec = %.2f", ((double) tlf)/1000000,
    368368        mlf=((((double) tlf)/1000000)/totm)*100);
    369   Print("\n// ired  = %.2f sec = %.2f %", ((double) tred)/1000000,
     369  Print("\n// ired  = %.2f sec = %.2f", ((double) tred)/1000000,
    370370        mred=((((double) tred)/1000000)/totm)*100);
    371   Print("\n// nextw = %.2f sec = %.2f %", ((double) tnw)/1000000,
     371  Print("\n// nextw = %.2f sec = %.2f", ((double) tnw)/1000000,
    372372        mnw=((((double) tnw)/1000000)/totm)*100);
    373373  PrintS("\n Time for the last step:");
    374   Print("\n// xinfo = %.2f sec = %.2f %", ((double) xtif)/1000000,
     374  Print("\n// xinfo = %.2f sec = %.2f", ((double) xtif)/1000000,
    375375        mxif=((((double) xtif)/1000000)/totm)*100);
    376   Print("\n// xstd  = %.2f sec = %.2f %", ((double) xtstd)/1000000,
     376  Print("\n// xstd  = %.2f sec = %.2f", ((double) xtstd)/1000000,
    377377        mxstd=((((double) xtstd)/1000000)/totm)*100);
    378   Print("\n// xlift = %.2f sec = %.2f %", ((double) xtlift)/1000000,
     378  Print("\n// xlift = %.2f sec = %.2f", ((double) xtlift)/1000000,
    379379        mxlf=((((double) xtlift)/1000000)/totm)*100);
    380   Print("\n// xired = %.2f sec = %.2f %", ((double) xtred)/1000000,
     380  Print("\n// xired = %.2f sec = %.2f", ((double) xtred)/1000000,
    381381        mxred=((((double) xtred)/1000000)/totm)*100);
    382   Print("\n// xnextw= %.2f sec = %.2f %", ((double) xtnw)/1000000,
     382  Print("\n// xnextw= %.2f sec = %.2f", ((double) xtnw)/1000000,
    383383        mxnw=((((double) xtnw)/1000000)/totm)*100);
    384384
     
    397397  double ostd, mostd, mif, mstd, mextra, mlf, mred, mnw, tot, res;
    398398  Print("\n// total time = %.2f sec", totm);
    399   Print("\n// tostd = %.2f sec = %.2f %", ostd=((double) tostd)/1000000,
     399  Print("\n// tostd = %.2f sec = %.2f", ostd=((double) tostd)/1000000,
    400400        mostd=((((double) tostd)/1000000)/totm)*100);
    401   Print("\n// tif   = %.2f sec = %.2f %", ((double) tif)/1000000,
     401  Print("\n// tif   = %.2f sec = %.2f", ((double) tif)/1000000,
    402402        mif=((((double) tif)/1000000)/totm)*100);
    403   Print("\n// std   = %.2f sec = %.2f %", ((double) tstd)/1000000,
     403  Print("\n// std   = %.2f sec = %.2f", ((double) tstd)/1000000,
    404404        mstd=((((double) tstd)/1000000)/totm)*100);
    405   Print("\n// xstd  = %.2f sec = %.2f %", ((double) textra)/1000000,
     405  Print("\n// xstd  = %.2f sec = %.2f", ((double) textra)/1000000,
    406406        mextra=((((double) textra)/1000000)/totm)*100);
    407   Print("\n// lift  = %.2f sec = %.2f %", ((double) tlf)/1000000,
     407  Print("\n// lift  = %.2f sec = %.2f", ((double) tlf)/1000000,
    408408        mlf=((((double) tlf)/1000000)/totm)*100);
    409   Print("\n// ired  = %.2f sec = %.2f %", ((double) tred)/1000000,
     409  Print("\n// ired  = %.2f sec = %.2f", ((double) tred)/1000000,
    410410        mred=((((double) tred)/1000000)/totm)*100);
    411   Print("\n// nextw = %.2f sec = %.2f %", ((double) tnw)/1000000,
     411  Print("\n// nextw = %.2f sec = %.2f", ((double) tnw)/1000000,
    412412        mnw=((((double) tnw)/1000000)/totm)*100);
    413413  tot = mostd+mif+mstd+mextra+mlf+mred+mnw;
Note: See TracChangeset for help on using the changeset viewer.