Changeset 144103 in git


Ignore:
Timestamp:
Jul 1, 1999, 6:13:42 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
6de26a0e63b1ed1c30b10d4e5574fe8982f9f569
Parents:
776986f6ec49c2c9cfbbf03aa967863dd9d7cd22
Message:
* hannes: rField_is_R


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

Legend:

Unmodified
Added
Removed
  • Singular/numbers.cc

    r776986 r144103  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: numbers.cc,v 1.16 1999-06-23 10:04:55 wenk Exp $ */
     4/* $Id: numbers.cc,v 1.17 1999-07-01 16:13:40 Singular Exp $ */
    55
    66/*
     
    164164    }
    165165  }
    166   else
    167   if (rField_is_Q(r))
     166  else if (rField_is_Q(r))
    168167  {
    169168#ifdef LDEBUG
     
    253252    }
    254253  }
    255   else
    256254  /* -------------- GF(p^m) -----------------------*/
    257   if (rField_is_GF(r))
     255  else if (rField_is_GF(r))
    258256  {
    259257#ifdef LDEBUG
     
    301299    }
    302300  }
    303   else
    304301  /* -------------- R -----------------------*/
    305302  //if (c==(-1))
    306   if (rField_is_R(r))
     303  else if (rField_is_R(r))
    307304  {
    308305#ifdef LDEBUG
     
    346343    }
    347344  }
    348   else
    349345  /* -------------- long R -----------------------*/
    350   if (rField_is_long_R(r))
     346  else if (rField_is_long_R(r))
    351347  {
    352348    setGMPFloatDigits(r->ch_flags);
  • Singular/ring.cc

    r776986 r144103  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.54 1999-05-19 15:17:01 Singular Exp $ */
     4/* $Id: ring.cc,v 1.55 1999-07-01 16:13:41 Singular Exp $ */
    55
    66/*
     
    3838
    3939/*0 implementation*/
     40BOOLEAN rField_is_R(ring r=currRing)
     41{
     42  return ((r->ch == -1) && (r->ch_flags==0));
     43}
     44
    4045int rBlocks(ring r)
    4146{
  • Singular/ring.h

    r776986 r144103  
    77* ABSTRACT - the interpreter related ring operations
    88*/
    9 /* $Id: ring.h,v 1.26 1999-05-26 16:24:00 obachman Exp $ */
     9/* $Id: ring.h,v 1.27 1999-07-01 16:13:42 Singular Exp $ */
    1010
    1111/* includes */
     
    5858inline BOOLEAN rField_is_Q(ring r=currRing)
    5959{ return (r->ch == 0) && (r->parameter==NULL); }
    60 inline BOOLEAN rField_is_R(ring r=currRing)
    61 { return (r->ch == -1) && (r->ch_flags==0); }
     60BOOLEAN rField_is_R(ring r=currRing);
    6261inline BOOLEAN rField_is_GF(ring r=currRing)
    6362{ return (r->ch > 1) && (r->parameter!=NULL); }
Note: See TracChangeset for help on using the changeset viewer.