/****************************************
*  Computer Algebra System SINGULAR     *
****************************************/
/***************************************************************
 *  File:    pShallowCopyDelete.cc
 *  Purpose: implementation of pShallowCopyDelete routines
 *  Author:  obachman (Olaf Bachmann)
 *  Created: 8/00
 *******************************************************************/

// returns a poly from dest_r which is a ShallowCopy of s_p from source_r
// assumes that source_r->N == dest_r->N and that orderings are the same
typedef poly (*pShallowCopyDeleteProc)(poly s_p, ring source_r, ring dest_r, 
                                       omBin dest_bin);
pShallowCopyDeleteProc pGetShallowCopyDeleteProc(ring source_r, ring dest_r);

