Changeset 24189c in git


Ignore:
Timestamp:
Apr 30, 1998, 5:29:34 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
f3be56249f8545e0883de56c30477e9efbcb5189
Parents:
df3483a4b8a87d1e82ff2a88566dc58eb1386be5
Message:
* added target tar in Makefile
* clean-up of some stuff


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

Legend:

Unmodified
Added
Removed

  • Singular/Makefile.in

    rdf3483a r24189c  
    1212SINGULAR_MAJOR_VERSION  = @SINGULAR_MAJOR_VERSION@
    1313SINGULAR_MINOR_VERSION  = @SINGULAR_MINOR_VERSION@
    14 DIST_NAME       = Singular-${SINGULAR_MAJOR_VERSION}.${SINGULAR_MINOR_VERSION}
     14DISTNAME        = Singular-${SINGULAR_MAJOR_VERSION}.${SINGULAR_MINOR_VERSION}
    1515
    1616##
    … …  
    8989    longrat0.cc maps.cc matpol.cc misc.cc \
    9090    mminit.cc modulop.cc \
    91     fglm.cc fglmzero.cc fglmvec.cc fglmgauss.cc fglmhom.cc \
     91    fglm.cc fglmzero.cc fglmvec.cc fglmgauss.cc fglmhom.cc fglmcomb.cc \
    9292    numbers.cc polys.cc polys0.cc polys1.cc polys-impl.cc \
    9393    ring.cc shortfl.cc silink.cc sing_mp.cc\
    … …  
    113113        fglmgauss.h fglmvec.h kstd2.h mpsr.h sing_mp.h \
    114114        kstdfac.h mpsr_Get.h spolys.h \
    115         kutil.h mpsr_Put.h spolys0.h \
    116         ndbm.h spSpolyLoop.h polys-impl.h polys-comp.h getopt.h
     115        kutil.h mpsr_Put.h spolys0.h sing_dld.h\
     116        ndbm.h spSpolyLoop.h polys-impl.h polys-comp.h getopt.h libparse.h
     117
     118INCS=febase.inc polys.inc iparith.inc mpsr_Tok.inc spSpolyLoop.inc
    117119
    118120TESTS=${testdir}/comparecheck ${testdir}/fac_test.in ${testdir}/fac_test.out\
    … …  
    128130DISTFILES=${SOURCES} ${HEADERS} Makefile.in configure.in configure \
    129131        mod2.h.in grammar.h testgh install-sh mkinstalldirs \
    130         ${TESTS} ${DOCS}
     132        ${INCS} ${DOCS}
    131133
    132134OBJS=grammar.o scanner.o matpol.o binom.o\
    … …  
    304306distclean: clean
    305307        -rm -rf depend iparith.inc mpsr_Tok.inc
    306         -rm -rf ${DIST_NAME} ${testdir}/out stamp-h
     308        -rm -rf ${DISTNAME} ${testdir}/out stamp-h
    307309        -rm mod2.h Makefile TAGS* config.status config.cache config.log
    308310        cd ${docdir}; ${MAKE} distclean
    … …  
    363365        - gzip -9 ${TEMPDIR}/${DISTNAME}.tar
    364366        - mv ${TEMPDIR}/${DISTNAME}.tar.gz .
     367
     368tar:
     369        tar cf ${DISTNAME}.tar ${DISTFILES}
     370        gzip -f ${DISTNAME}.tar
     371
    365372
    366373TAGS:

  • Singular/polys-comp.h

    rdf3483a r24189c  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys-comp.h,v 1.6 1998-03-17 10:59:56 obachman Exp $ */
     6/* $Id: polys-comp.h,v 1.7 1998-04-30 15:29:34 obachman Exp $ */
    77
    88/***************************************************************
    … …  
    177177while(0)
    178178
     179#define _pMonComp_otEXP_nwGEN(p1, p2, length, d, actionD, actionE)  \
     180do                                                                  \
     181{                                                                   \
     182  const long* s1 = (long*) &(p1->exp[0]);                           \
     183  const long* s2 = (long*) &(p2->exp[0]);                           \
     184  const long* const lb = s1 + length;                               \
     185                                                                    \
     186  for (;;)                                                          \
     187  {                                                                 \
     188    d = *s1 - *s2;                                                  \
     189    if (d) actionD;                                                 \
     190    s1++;                                                           \
     191    if (s1 == lb) actionE;                                          \
     192    s2++;                                                           \
     193  }                                                                 \
     194}                                                                   \
     195while(0)
     196
     197#define _pMonComp_otEXPCOMP_nwGEN(p1, p2, length, d, actionD, actionE)  \
     198do                                                                      \
     199{                                                                       \
     200  const long* s1 = (long*) &(p1->exp[0]);                               \
     201  const long* s2 = (long*) &(p2->exp[0]);                               \
     202  const long* const lb = s1 + length      -1;                           \
     203                                                                        \
     204  for (;;)                                                              \
     205  {                                                                     \
     206    d = *s1 - *s2;                                                      \
     207    if (d) actionD;                                                     \
     208    s1++;                                                               \
     209    if (s1 == lb) break;                                                \
     210    s2++;                                                               \
     211  }                                                                     \
     212                                                                        \
     213  d = *s1 - *(s2 + 1);                                                  \
     214  if (d)                                                                \
     215  {                                                                     \
     216    if (((long) (pGetComp(p1) - pGetComp(p2))) == d)                    \
     217      d = -d;                                                           \
     218    actionD;                                                            \
     219  }                                                                     \
     220  actionE;                                                              \
     221}                                                                       \
     222while(0)
     223
     224 
    179225#else //  ! WORDS_BIGENDIAN
    180226
    … …  
    340386while(0)
    341387
     388#define _pMonComp_otEXP_nwGEN(p1, p2, length, d, actionD, actionE)  \
     389do                                                                  \
     390{                                                                   \
     391  const long* s1 = ((long*) p1) + pMonomSizeW-1;                    \
     392  const long* s2 = ((long*) p2)  + pMonomSizeW-1;                   \
     393  const long* const lb = s1 - length;                               \
     394                                                                    \
     395  for (;;)                                                          \
     396  {                                                                 \
     397    d = *s1 - *s2;                                                  \
     398    if (d) actionD;                                                 \
     399    s1--;                                                           \
     400    if (s1 == lb) actionE;                                          \
     401    s2--;                                                           \
     402  }                                                                 \
     403}                                                                   \
     404while(0)
     405 
     406#define _pMonComp_otEXPCOMP_nwGEN(p1, p2, length, d, actionD, actionE) \
     407do                                                                      \
     408{                                                                       \
     409  const long* s1 = ((long*) p1) + pMonomSizeW-1;                        \
     410  const long* s2 = ((long*) p2)  + pMonomSizeW-1;                       \
     411  const long* const lb = s1 - length +1;                                \
     412                                                                        \
     413  for (;;)                                                              \
     414  {                                                                     \
     415    d = *s1 - *s2;                                                      \
     416    if (d) actionD;                                                     \
     417    s1--;                                                               \
     418    if (s1 == lb) break;                                                \
     419    s2--;                                                               \
     420  }                                                                     \
     421                                                                        \
     422  d = *s1 - *(s2 - 1);                                                  \
     423  if (d)                                                                \
     424  {                                                                     \
     425    if (((long) (pGetComp(p1) - pGetComp(p2))) == d)                    \
     426      d = -d;                                                           \
     427    actionD;                                                            \
     428  }                                                                     \
     429  actionE;                                                              \
     430}                                                                       \
     431while(0)
     432
    342433#endif // WORDS_BIGENDIAN
    343434
Note: See TracChangeset for help on using the changeset viewer.