Changeset 3a2345 in git


Ignore:
Timestamp:
Jan 4, 2007, 3:08:00 PM (17 years ago)
Author:
Motsak Oleksandr <motsak@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
cb3cec459c8230dac182b1e9f52e7a09fd3690d1
Parents:
e7953b4dd50733208462d5f48180e9391688c7b1
Message:
*motsak: +sca properties


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    re7953b r3a2345  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.244 2006-12-15 15:25:11 Singular Exp $ */
     4/* $Id: extra.cc,v 1.245 2007-01-04 14:08:00 motsak Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    8282#include "ring.h"
    8383#include "gring.h"
     84#include "sca.h"
    8485#include "ipconv.h"
    8586#endif
     
    499500              res->rtyp=INT_CMD;
    500501              res->data=(void*)complexNearZero((gmp_complex*)h->Data(),
    501                                                (int)((long)(h->next->Data())));
     502                             (int)((long)(h->next->Data())));
    502503              return FALSE;
    503504            }
     
    835836        currRing->nc->IsSkewConstant=1;
    836837        /* create matrix C */
    837         C=mpNew(currRing->N,currRing->N);
     838        C=mpNew(currRing->N,currRing->N);  "Alternating variables: [", AltVarStart(ER), ", ", AltVarEnd(ER), "].";
     839
    838840        for(i=1;i<currRing->N;i++)
    839841        {
     
    978980    else
    979981#endif
     982/*==================== sca?AltVar ==================================*/
     983    if ( (strcmp(sys_cmd, "AltVarStart") == 0) || (strcmp(sys_cmd, "AltVarEnd") == 0) )
     984    {
     985      ring r = currRing;
     986
     987      if((h!=NULL) && (h->Typ()==RING_CMD)) r = (ring)h->Data(); else
     988      {
     989        WerrorS("`system(\"AltVarStart\"[,<ring>])` expected");
     990        return TRUE;
     991      }
     992
     993      res->rtyp=INT_CMD;
     994
     995      if (rIsSCA(r))
     996      {
     997        if(strcmp(sys_cmd, "AltVarStart") == 0)
     998          res->data = (void*)scaFirstAltVar(r);
     999        else
     1000          res->data = (void*)scaLastAltVar(r);
     1001        return FALSE;
     1002      }
     1003
     1004      res->data=NULL;
     1005      return TRUE;
     1006    }
    9801007/*==================== opp ==================================*/
    9811008    if (strcmp(sys_cmd, "opp")==0)
     
    28042831//          initPySingular();
    28052832        }
    2806 //          PyRun_SimpleString(c);
     2833//      PyRun_SimpleString(c);
    28072834        return FALSE;
    28082835      }
     
    28202847          initPySingular();
    28212848        }
    2822         PyRun_SimpleString(
     2849  PyRun_SimpleString(
    28232850"try:                                                                                       \n\
    28242851    __IPYTHON__                                                                             \n\
     
    28312858    banner = '*** Nested interpreter ***'                                                   \n\
    28322859    exit_msg = '*** Back in main IPython ***'                                               \n\
    2833                                                                                             \n\
     2860                          \n\
    28342861# First import the embeddable shell class                                                   \n\
    28352862from IPython.Shell import IPShellEmbed                                                      \n\
Note: See TracChangeset for help on using the changeset viewer.