Changeset a3bc95e in git for Singular/prCopy.cc


Ignore:
Timestamp:
Oct 9, 2001, 6:36:27 PM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
7497ef3773fc1afff892546445b1d82b1cf0fb05
Parents:
e58c4abd91b68d128331a23f3f9dd76dff924048
Message:
*hannes: namespaces ->ns


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

Legend:

Unmodified
Added
Removed
  • Singular/prCopy.cc

    re58c4a ra3bc95e  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: prCopy.cc,v 1.11 2000-12-31 15:14:43 obachman Exp $ */
     4/* $Id: prCopy.cc,v 1.12 2001-10-09 16:36:19 Singular Exp $ */
    55/*
    66* ABSTRACT - implementation of functions for Copy/Move/Delete for Polys
     
    1616#include "sbuckets.h"
    1717
    18 static inline void 
     18static inline void
    1919prCopyEvector(poly dest, ring dest_r, poly src, ring src_r,int max)
    2020{
     
    4141{
    4242  poly res;
    43  
     43
    4444  if (rField_has_simple_Alloc(currRing))
    4545    res = pr_Copy_REqual_NSimple_NoSort(p, currRing, currRing);
     
    9292  else
    9393    res =  pr_Move_NoREqual_NoNSimple_NoSort(p, src_r, currRing);
    94   pTest(res); 
    95   return res;
    96 }
    97  
     94  pTest(res);
     95  return res;
     96}
     97
    9898/////////////////////////////////////////////////////////////////////////
    9999// prHead
     
    114114{
    115115  prCopyProc_t prproc;
    116   if (rField_has_simple_Alloc(currRing)) 
     116  if (rField_has_simple_Alloc(currRing))
    117117    prproc = pr_Copy_NoREqual_NSimple_NoSort;
    118118  else
    119     prproc = pr_Copy_NoREqual_NoNSimple_NoSort; 
    120  
     119    prproc = pr_Copy_NoREqual_NoNSimple_NoSort;
     120
    121121  return prHeadR(p, src_r, prproc);
    122122}
     
    124124/////////////////////////////////////////////////////////////////////////
    125125// idrCopy
    126 static inline ideal 
     126static inline ideal
    127127idrCopy(ideal id, ring src_r, ring dest_r, prCopyProc_t prproc)
    128128{
     
    131131  ideal res = idInit(IDELEMS(id), id->rank);
    132132  int i;
    133  
     133
    134134  for (i=IDELEMS(id)-1; i>=0; i--)
    135135  {
     
    145145  ideal res;
    146146  prCopyProc_t prproc;
    147   if (rField_has_simple_Alloc(currRing)) 
     147  if (rField_has_simple_Alloc(currRing))
    148148    prproc = pr_Copy_REqual_NSimple_NoSort;
    149149  else
     
    157157  ideal res;
    158158  prCopyProc_t prproc;
    159   if (rField_has_simple_Alloc(currRing)) 
     159  if (rField_has_simple_Alloc(currRing))
    160160    prproc = pr_Copy_NoREqual_NSimple_Sort;
    161161  else
     
    164164  return res;
    165165}
    166  
     166
    167167ideal idrCopyR_NoSort(ideal id, ring src_r)
    168168{
    169169  ideal res;
    170170  prCopyProc_t prproc;
    171   if (rField_has_simple_Alloc(currRing)) 
     171  if (rField_has_simple_Alloc(currRing))
    172172    prproc = pr_Copy_NoREqual_NSimple_NoSort;
    173173  else
     
    176176  return res;
    177177}
    178  
     178
    179179/////////////////////////////////////////////////////////////////////////
    180180// idrMove
    181 static inline ideal 
     181static inline ideal
    182182idrMove(ideal &id, ring src_r, ring dest_r, prCopyProc_t prproc)
    183183{
    184184  if (id == NULL) return NULL;
    185185  ideal res = id;
    186  
     186
    187187  int i;
    188188  for (i=IDELEMS(id)-1; i>=0; i--)
     
    196196  prCopyProc_t prproc;
    197197  ideal res;
    198  
    199   if (rField_has_simple_Alloc(currRing)) 
     198
     199  if (rField_has_simple_Alloc(currRing))
    200200    prproc = pr_Move_NoREqual_NSimple_Sort;
    201201  else
     
    204204  return res;
    205205}
    206  
     206
    207207ideal idrMoveR_NoSort(ideal &id, ring src_r)
    208208{
    209209  prCopyProc_t prproc;
    210210  ideal res;
    211  
    212   if (rField_has_simple_Alloc(currRing)) 
     211
     212  if (rField_has_simple_Alloc(currRing))
    213213    prproc = pr_Move_NoREqual_NSimple_NoSort;
    214214  else
Note: See TracChangeset for help on using the changeset viewer.