source: git/kernel/polys.cc @ fbc7cb

jengelh-datetimespielwiese
Last change on this file since fbc7cb was ba5e9e, checked in by Oleksandr Motsak <motsak@…>, 9 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
Line 
1#ifdef HAVE_CONFIG_H
2#include "singularconfig.h"
3#endif /* HAVE_CONFIG_H */
4#include "mod2.h"
5
6#include <omalloc/omalloc.h>
7#include <misc/auxiliary.h>
8#include <misc/options.h>
9
10#include "polys.h"
11
12ring  currRing = NULL;
13ideal currQuotient = NULL;
14
15void rChangeCurrRing(ring r)
16{
17  #if 0
18  if ((currRing!=NULL)&&(currRing!=r))
19  {
20    currRing->options=si_opt_1 & TEST_RINGDEP_OPTS;
21  }
22  #endif
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 -----------------
36  }
37  else
38  {
39    currRing = NULL;
40    currQuotient = NULL;
41  }
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  }
69}
70*/
Note: See TracBrowser for help on using the repository browser.