Changeset 37fd1b in git


Ignore:
Timestamp:
Mar 31, 2000, 3:20:00 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
c7cdc19733f0f1f963726000c989fcd1ff4d548f
Parents:
ea4c430e366b0ae703c0e5248dc67e826a8da2b0
Message:
*hannes: wrp0 added


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

Legend:

Unmodified
Added
Removed
  • Singular/polys0.cc

    rea4c43 r37fd1b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys0.cc,v 1.13 1999-11-15 17:20:41 obachman Exp $ */
     4/* $Id: polys0.cc,v 1.14 2000-03-31 13:20:00 Singular Exp $ */
    55
    66/*
     
    151151/*2
    152152*the standard debugging output:
    153 *print the first two monomials of the poly,
     153*print the first two monomials of the poly (wrp) or only the lead ter (wrp0),
    154154*possibly followed by the string "+..."
    155155*/
     156void wrp0(poly p)
     157{
     158  poly r;
     159
     160  if (p==NULL) PrintS("NULL");
     161  else if (pNext(p)==NULL) pWrite0(p);
     162  else
     163  {
     164    r = pNext(p);
     165    pNext(p) = NULL;
     166    pWrite0(p);
     167    if (r!=NULL)
     168    {
     169      PrintS("+...");
     170      pNext(p) = r;
     171    }
     172  }
     173}
    156174void wrp(poly p)
    157175{
Note: See TracChangeset for help on using the changeset viewer.