source: git/libpolys/coeffs/rintegers.cc @ a3f0fea

fieker-DuValspielwiese
Last change on this file since a3f0fea was a3f0fea, checked in by Reimer Behrends <behrends@…>, 5 years ago
Modify variable declarions for pSingular.
  • Property mode set to 100644
File size: 1.0 KB
RevLine 
[255eaa]1/****************************************
2*  Computer Algebra System SINGULAR     *
3****************************************/
4/*
[6a1aa7]5* ABSTRACT: numbers (integers)
[255eaa]6*/
[9f7665]7
[f5f5c9]8#include "misc/auxiliary.h"
[f1c465f]9
[9e2cf88]10#ifdef HAVE_RINGS
[d2f250]11#include "factory/factory.h"
[255eaa]12
[f5f5c9]13#include "misc/mylimits.h"
14#include "reporter/reporter.h"
[2206753]15
[f5f5c9]16#include "coeffs/rintegers.h"
[9e2cf88]17#include "coeffs/mpr_complex.h"
[f5f5c9]18#include "coeffs/rmodulon.h"
19#include "coeffs/longrat.h"
[9e2cf88]20#include "coeffs/numbers.h"
[2206753]21
22#include <string.h>
23
[a3f0fea]24VAR omBin gmp_nrz_bin = omGetSpecBin(sizeof(mpz_t));
[1e579c6]25
[72f518]26static void nrzCoeffWrite  (const coeffs, BOOLEAN /*details*/)
[7a8011]27{
[8d1432e]28  PrintS("ZZ");
[7a8011]29}
30
[9a1960]31static char* nrzCoeffName(const coeffs)
[45cc512]32{
[9a1960]33  return (char*)"ZZ";
[45cc512]34}
[7a8011]35
[9a1960]36static char* nrzCoeffString(const coeffs cf)
37{
38  return omStrDup(nrzCoeffName(cf));
39}
40
[9e2cf88]41#if SI_INTEGER_VARIANT == 2
42#include "rintegers2.cc"
[6a1aa7]43#elif SI_INTEGER_VARIANT == 3
[9e2cf88]44#include "rintegers3.cc"
[f3e64d2]45#elif SI_INTEGER_VARIANT == 1
46BOOLEAN nrzInitChar(coeffs r,  void *)
47{
48  return nlInitChar(r,(void*)1);
49}
[6a1aa7]50#else
51#error set SI_INTEGER_VARIANT
52#endif
[1e579c6]53#endif
Note: See TracBrowser for help on using the repository browser.