longrat0.cc File Reference

#include <stdio.h>
#include <string.h>
#include "misc/auxiliary.h"
#include "reporter/reporter.h"
#include "coeffs/coeffs.h"
#include "coeffs/numbers.h"
#include "coeffs/longrat.h"

Go to the source code of this file.

Macros
#define	SR_HDL(A)   ((long)(A))
#define	SR_TO_INT(SR)   (((long)SR) >> 2)

Functions
const char *	nlRead (const char *s, number *a, const coeffs r)
void	nlWrite (number a, const coeffs)

Variables
VAR omBin	rnumber_bin = omGetSpecBin(sizeof(snumber))

Macro Definition Documentation

SR_HDL

#define SR_HDL

(

A

)

((long)(A))

Definition at line 22 of file longrat0.cc.

SR_TO_INT

#define SR_TO_INT

(

SR

)

(((long)SR) >> 2)

Definition at line 25 of file longrat0.cc.

Function Documentation

nlRead()

const char * nlRead	(	const char *	s,
		number *	a,
		const coeffs	r
	)

Definition at line 31 of file longrat0.cc.

{
  if (*s<'0' || *s>'9')
  {
    *a = INT_TO_SR(1); /* nlInit(1) */
    return s;
  }
  *a=(number)ALLOC_RNUMBER();
  {
    (*a)->s = 3;
#if defined(LDEBUG)
    (*a)->debug=123456;
#endif
    mpz_ptr z=(*a)->z;
    mpz_ptr n=(*a)->n;
    mpz_init(z);
    s = nEatLong((char *)s, z);
    if (*s == '/')
    {
      mpz_init(n);
      (*a)->s = 0;
      s++;
      s = nEatLong((char *)s, n);
      if (mpz_cmp_si(n,0L)==0)
      {
        WerrorS(nDivBy0);
        mpz_clear(n);
        (*a)->s = 3;
      }
      else if (mpz_cmp_si(n,1L)==0)
      {
        mpz_clear(n);
        (*a)->s=3;
      }
    }
    if (mpz_cmp_si(z,0L)==0)
    {
      mpz_clear(z);
      FREE_RNUMBER(*a);
      *a=INT_TO_SR(0);
    }
    else if ((*a)->s==3)
    {
      number nlShort3_noinline(number x);
      *a=nlShort3_noinline(*a);
    }
    else
    {
      number aa=*a;
      nlNormalize(aa,r); // FIXME? TODO? // extern void     nlNormalize(number &x, const coeffs r);
      *a=aa;
    }
  }
  return s;
}

nlWrite()

void nlWrite	(	number	a,
		const	coeffs
	)

Definition at line 90 of file longrat0.cc.

{
  char *s,*z;
  if (SR_HDL(a) & SR_INT)
  {
    StringAppend("%ld",SR_TO_INT(a));
  }
  else if (a==NULL)
  {
    StringAppendS("o");
  }
  else
  {
    int l=mpz_sizeinbase(a->z,10);
    if (a->s<2) l=si_max(l,(int)mpz_sizeinbase(a->n,10));
    l+=2;
    s=(char*)omAlloc(l);
    z=mpz_get_str(s,10,a->z);
    StringAppendS(z);
    if (a->s!=3)
    {
      StringAppendS("/");
      z=mpz_get_str(s,10,a->n);
      StringAppendS(z);
    }
    omFreeSize((void *)s,l);
  }
}

Variable Documentation

rnumber_bin

VAR omBin rnumber_bin = omGetSpecBin(sizeof(snumber))

Definition at line 19 of file longrat0.cc.