Changeset d41bd82 in git


Ignore:
Timestamp:
Feb 9, 2001, 3:03:00 PM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
df5fc1772766cfd286e402020e776d19d216951d
Parents:
ec914141cec3772eaa9915a61508834806d5aa21
Message:
*hannes: rGetWeight/rSetWeight


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

Legend:

Unmodified
Added
Removed

  • Singular/ring.cc

    rec91414 rd41bd82  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.159 2001-02-08 12:55:52 Singular Exp $ */
     4/* $Id: ring.cc,v 1.160 2001-02-09 14:03:00 Singular Exp $ */
    55
    66/*
    … …  
    38633863  return n_unknown;
    38643864}
     3865
     3866int * rGetWeightVec(ring r)
     3867{
     3868  assume(r!=NULL);
     3869  assume(r->OrdSize>0);
     3870  assume(r->typ[0].ord_typ==ro_wp);
     3871  return (r->typ[0].data.wp.weights);
     3872}
     3873
     3874void rSetWeightVec(ring r, int *wv)
     3875{
     3876  assume(r!=NULL);
     3877  assume(r->OrdSize>0);
     3878  assume(r->typ[0].ord_typ==ro_wp);
     3879  memcpy(r->typ[0].data.wp.weights,wv,r->N*sizeof(int));
     3880}
     3881

  • Singular/ring.h

    rec91414 rd41bd82  
    77* ABSTRACT - the interpreter related ring operations
    88*/
    9 /* $Id: ring.h,v 1.64 2001-01-30 13:37:02 Singular Exp $ */
     9/* $Id: ring.h,v 1.65 2001-02-09 14:03:00 Singular Exp $ */
    1010
    1111/* includes */
    … …  
    265265void rDebugPrint(ring r);
    266266void pDebugPrint(poly p);
    267 #endif
     267
     268int * rGetWeightVec(ring r);
     269void rSetWeightVec(ring r, int *);
     270
     271#endif
Note: See TracChangeset for help on using the changeset viewer.