Changeset db7f1f in git


Ignore:
Timestamp:
Nov 30, 2022, 2:47:34 PM (2 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'ad2543eab51733612ba7d118afc77edca719600e')
Children:
0f9b034e4375576eb669e2c023d31263b050fee3
Parents:
d64b95c40e04b29c0132dc440dd6bf287f1eccfc
Message:
simplify syzextra
Location:
Singular/dyn_modules/syzextra
Files:
2 deleted
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/dyn_modules/syzextra/Makefile.am

    rd64b95 rdb7f1f  
    1717endif
    1818
    19 SOURCES = mod_main.cc singularxx_defs.h syzextra.cc syzextra.h
     19SOURCES = mod_main.cc syzextra.h
    2020syzextra_la_SOURCES   = $(SOURCES)
    2121syzextra_la_CPPFLAGS  = ${MYINCLUDES} ${P_PROCS_CPPFLAGS_COMMON}
  • Singular/dyn_modules/syzextra/mod_main.cc

    rd64b95 rdb7f1f  
    211211
    212212
    213 
    214 /// wrapper around p_Tail and id_Tail
    215 static BOOLEAN Tail(leftv res, leftv h)
    216 {
    217   NoReturn(res);
    218 
    219   if( h == NULL )
    220   {
    221     WarnS("Tail needs a poly/vector/ideal/module argument...");
    222     return TRUE;
    223   }
    224 
    225   assume( h != NULL );
    226 
    227   const ring r =  currRing;
    228 
    229   if( h->Typ() == POLY_CMD || h->Typ() == VECTOR_CMD)
    230   {
    231     res->data = p_Tail( (const poly)h->Data(), r );
    232     res->rtyp = h->Typ();
    233 
    234     h = h->Next(); assume (h == NULL);
    235 
    236     return FALSE;
    237   }
    238 
    239   if( h->Typ() == IDEAL_CMD || h->Typ() == MODUL_CMD)
    240   {
    241     res->data = id_Tail( (const ideal)h->Data(), r );
    242     res->rtyp = h->Typ();
    243 
    244     h = h->Next(); assume (h == NULL);
    245 
    246     return FALSE;
    247   }
    248 
    249   WarnS("Tail needs a single poly/vector/ideal/module argument...");
    250   return TRUE;
    251 }
    252213
    253214/// Get leading component
     
    522483  ADD("idPrepare", FALSE, idPrepare);
    523484
    524   ADD("Tail", FALSE, Tail);
    525 
    526485#undef ADD
    527486  return MAX_TOK;
  • Singular/dyn_modules/syzextra/syzextra.h

    rd64b95 rdb7f1f  
    4141
    4242poly leadmonom(const poly p, const ring r, const bool bSetZeroComp = true);
    43 
    44 /// return the tail of a given polynomial or vector
    45 /// returns NULL if input is NULL, otherwise
    46 /// the result is a new polynomial/vector in the ring r
    47 poly p_Tail(const poly p, const ring r);
    48 
    49 
    50 /// return the tail of a given ideal or module
    51 /// returns NULL if input is NULL, otherwise
    52 /// the result is a new ideal/module in the ring r
    53 /// NOTE: the resulting rank is autocorrected
    54 ideal id_Tail(const ideal id, const ring r);
    5543
    5644/// inplace sorting of the module (ideal) id wrt <_(c,ds)
Note: See TracChangeset for help on using the changeset viewer.