Changeset d2ac76 in git for Singular/ipprint.cc


Ignore:
Timestamp:
Aug 19, 1999, 1:56:28 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
af02e94f77dcfb727ab1b5afaa21e365262bc0e3
Parents:
e1594a457595b16402757886a9305b354f7a488f
Message:
*hannes: print(r,betti): 0 -> -


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

Legend:

Unmodified
Added
Removed

  • Singular/ipprint.cc

    re1594a rd2ac76  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipprint.cc,v 1.13 1999-05-26 16:23:55 obachman Exp $ */
     4/* $Id: ipprint.cc,v 1.14 1999-08-19 11:56:28 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: printing
    … …  
    220220      case INTVEC_CMD:
    221221        return ipPrint_INTVEC(u);
    222        
     222
    223223      case INTMAT_CMD:
    224224        return ipPrint_INTMAT(u);
    225        
     225
    226226      case MATRIX_CMD:
    227227        return ipPrint_MA(u);
    … …  
    235235        return FALSE;
    236236      }
    237      
     237
    238238      case MODUL_CMD:
    239239      {
    … …  
    243243        return FALSE;
    244244      }
    245      
     245
    246246      case VECTOR_CMD:
    247247        return ipPrint_V(u);
    248        
     248
    249249      default:
    250250        u->Print();
    … …  
    298298    for(j=1;j<=betti->cols();j++)
    299299    {
    300       Print(" %5d",IMATELEM(*betti,i+1,j));
     300      int m=IMATELEM(*betti,i+1,j);
     301      if (m==0)
     302        PrintS("     -");
     303      else
     304        Print(" %5d",m);
    301305    }
    302306    PrintLn();
    … …  
    357361  {
    358362    SPrintStart();
    359     if (u->rtyp==IDHDL) 
     363    if (u->rtyp==IDHDL)
    360364      type_cmd((idhdl) (u->data));
    361     else 
     365    else
    362366      type_cmd((idhdl) u);
    363367    res->data = SPrintEnd();
    364     if (dim != 2) 
     368    if (dim != 2)
    365369      ((char*)res->data)[strlen((char*)res->data) -1] = '\0';
    366370  }
    … …  
    386390    res->data = SPrintEnd();
    387391  }
    388   else 
     392  else
    389393  {
    390394    res->data = u->String(NULL, FALSE, dim);
    … …  
    398402    }
    399403  }
    400    
     404
    401405  FreeL(ns);
    402406  res->rtyp = STRING_CMD;
Note: See TracChangeset for help on using the changeset viewer.