Changeset 3b00f2 in git


Ignore:
Timestamp:
Apr 29, 2005, 3:23:02 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
4f7a0ae56a8105d1c27c9adc3e9acf125ab0bcd8
Parents:
ed85386b69ec7b0589459023a458180b78281e19
Message:
*hannes/bricken: slimgb


git-svn-id: file:///usr/local/Singular/svn/trunk@7944 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    red8538 r3b00f2  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.349 2005-04-29 12:21:40 bricken Exp $ */
     4/* $Id: iparith.cc,v 1.350 2005-04-29 13:23:02 Singular Exp $ */
    55
    66/*
    … …  
    329329  { "simplify",    0, SIMPLIFY_CMD ,      CMD_2},
    330330  { "size",        0, COUNT_CMD ,         CMD_1},
     331  { "slimgb",      0, SLIM_GB_CMD ,       CMD_1},
    331332  { "sortvec",     0, SORTVEC_CMD ,       CMD_1},
    332333  #ifdef OLD_RES
    … …  
    36083609  return FALSE;
    36093610}
     3611static BOOLEAN jjSLIM_GB(leftv res, leftv u)
     3612{
     3613  if (pOrdSgn!=1)
     3614    return TRUE;
     3615  res->data=(char *)t_rep_gb(currRing, (ideal)u->Data());
     3616  return FALSE;
     3617}
    36103618static BOOLEAN jjSTD(leftv res, leftv v)
    36113619{
    … …  
    42334241,{jjROWS_IV,    ROWS_CMD,        INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
    42344242,{jjCOUNT_IV,   ROWS_CMD,        INT_CMD,        INTVEC_CMD     ALLOW_PLURAL}
     4243,{jjSLIM_GB,    SLIM_GB_CMD,     IDEAL_CMD,      IDEAL_CMD      NO_PLURAL}
    42354244,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     IDEAL_CMD      ALLOW_PLURAL}
    42364245,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     MODUL_CMD      ALLOW_PLURAL}
    … …  
    48854894  tmp.CleanUp();
    48864895  return b;
    4887 }
    4888 static BOOLEAN jjSLIM_GB(leftv res, leftv u){
    4889   if (pOrdSgn!=1){
    4890     return TRUE;
    4891   }
    4892   res->data=t_rep_gb(currRing, (ideal)u->Data());
    4893   return FALSE;
    48944896}
    48954897static BOOLEAN jjMATRIX_Id(leftv res, leftv u, leftv v,leftv w)

  • Singular/tok.h

    red8538 r3b00f2  
    77* ABSTRACT: tokens, types for interpreter; general macros
    88*/
    9 /* $Id: tok.h,v 1.60 2005-04-27 15:15:17 Singular Exp $ */
     9/* $Id: tok.h,v 1.61 2005-04-29 13:23:02 Singular Exp $ */
    1010
    1111#ifndef MYYSTYPE
    … …  
    136136  ROWS_CMD,
    137137  SIMPLEX_CMD,
     138  SLIM_GB_CMD,
    138139  SQR_FREE_DEC_CMD,
    139140  STATUS_CMD,
Note: See TracChangeset for help on using the changeset viewer.