source: git/kernel/polys.cc @ ba5e9e

spielwiese
Last change on this file since ba5e9e was ba5e9e, checked in by Oleksandr Motsak <motsak@…>, 11 years ago
Changed configure-scripts to generate individual public config files for each package: resources, libpolys, singular (main) fix: sources should include correct corresponding config headers.
  • Property mode set to 100644
File size: 1.6 KB
RevLine 
[16f511]1#ifdef HAVE_CONFIG_H
[ba5e9e]2#include "singularconfig.h"
[16f511]3#endif /* HAVE_CONFIG_H */
[737a68]4#include "mod2.h"
5
6#include <omalloc/omalloc.h>
7#include <misc/auxiliary.h>
[a8516a]8#include <misc/options.h>
[737a68]9
10#include "polys.h"
11
[929fae]12ring  currRing = NULL;
13ideal currQuotient = NULL;
[737a68]14
15void rChangeCurrRing(ring r)
16{
[3772383]17  #if 0
18  if ((currRing!=NULL)&&(currRing!=r))
19  {
20    currRing->options=si_opt_1 & TEST_RINGDEP_OPTS;
21  }
22  #endif
[e12050]23  if( r != NULL )
24  {
25    rTest(r);   
26
27    //------------ set global ring vars --------------------------------
28    currRing = r;
29    currQuotient = r->qideal;
30    //------------ global variables related to coefficients ------------
31    assume( r->cf!= NULL );
32    nSetChar(r->cf);
33    //------------ global variables related to polys
34    p_SetGlobals(r);
35    //------------ global variables related to factory -----------------
[3772383]36  }
37  else
[e12050]38  {
39    currRing = NULL;
40    currQuotient = NULL;
41  }
[85fd90]42}
43/*
44/// internally changes the gloabl ring and resets the relevant
45/// global variables:
46/// SHOULD BE DEPRECATED NOW...?
47void rChangeCurrRing(ring r)
48{
49 // if (!rMinpolyIsNULL(currRing))
50 // {
51 //   omCheckAddr(currRing->cf->minpoly);
52 // }
53  //------------ set global ring vars --------------------------------
54  //currRing = r;
55  //currQuotient=NULL;
56  if (r != NULL)
57  {
58    rTest(r);
59    //------------ set global ring vars --------------------------------
60    //currQuotient=r->qideal;
61
62    //------------ global variables related to coefficients ------------
63    nSetChar(r->cf);
64
65    //------------ global variables related to polys -------------------
66    p_SetGlobals(r);
67    //------------ global variables related to factory -----------------
68  }
[737a68]69}
[85fd90]70*/
Note: See TracBrowser for help on using the repository browser.