Changeset 2a10547 in git


Ignore:
Timestamp:
Mar 9, 1999, 1:22:18 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
41442f095ba5a5301108857c89ac604ccfdcf0f3
Parents:
17e692576cbeb0b918e77a2b33f3d8bac726d8fe
Message:
* added some more rField inline functions (check of characteristics)
* inserted spaces in > < tests -- wrong code was produced, otherwise


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

Legend:

Unmodified
Added
Removed

  • Singular/ring.h

    r17e692 r2a10547  
    77* ABSTRACT - the interpreter related ring operations
    88*/
    9 /* $Id: ring.h,v 1.21 1999-03-08 17:30:50 Singular Exp $ */
     9/* $Id: ring.h,v 1.22 1999-03-09 12:22:18 obachman Exp $ */
    1010
    1111/* includes */
    … …  
    4949
    5050#define  rInternalChar(r) ((r)->ch)
     51#ifndef ABS
     52#define ABS(x) ((x) < 0 ? (-(x)) : (x))
     53#endif
    5154inline BOOLEAN rField_is_Zp(ring r=currRing)
    52 { return (r->ch>1) && (r->parameter==NULL); }
     55{ return (r->ch > 1) && (r->parameter==NULL); }
     56inline BOOLEAN rField_is_Zp(ring r, int p)
     57{ return (r->ch > 1 && r->ch == ABS(p) && r->parameter==NULL); }
    5358inline BOOLEAN rField_is_Q(ring r=currRing)
    54 { return (r->ch==0) && (r->parameter==NULL); }
     59{ return (r->ch == 0) && (r->parameter==NULL); }
    5560inline BOOLEAN rField_is_R(ring r=currRing)
    56 { return (r->ch==-1); }
     61{ return (r->ch == -1); }
    5762inline BOOLEAN rField_is_GF(ring r=currRing)
    58 { return (r->ch>1) && (r->parameter!=NULL); }
     63{ return (r->ch > 1) && (r->parameter!=NULL); }
    5964inline BOOLEAN rField_is_Zp_a(ring r=currRing)
    60 { return (r->ch<-1); }
     65{ return (r->ch < -1); }
     66inline BOOLEAN rField_is_Zp_a(ring r, int p)
     67{ return (r->ch < -1 ) && (-(r->ch) == ABS(p)); }
    6168inline BOOLEAN rField_is_Q_a(ring r=currRing)
    62 { return (r->ch==1); }
     69{ return (r->ch == 1); }
    6370inline BOOLEAN rField_has_simple_inverse(ring r=currRing)
    6471{ return (r->ch>1); } /* Z/p and GF(p,n) */
Note: See TracChangeset for help on using the changeset viewer.