Changeset fcafdb in git for Singular/silink.cc


Ignore:
Timestamp:
Feb 27, 2001, 4:50:04 PM (23 years ago)
Author:
Viktor Levandovskyy <levandov@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
8cfee1c3269a440dc074eae208795fd4da490c0e
Parents:
c2f5270fb552e6b92d376b11a283d939362193a4
Message:
gdbm-related stuff for win32


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

Legend:

Unmodified
Added
Removed
  • Singular/silink.cc

    rc2f5270 rfcafdb  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: silink.cc,v 1.38 2000-12-12 08:44:52 obachman Exp $ */
     4/* $Id: silink.cc,v 1.39 2001-02-27 15:50:04 levandov Exp $ */
    55
    66/*
     
    211211leftv slRead(si_link l, leftv a)
    212212{
     213  char *mode;
    213214  leftv v = NULL;
    214215  if( ! SI_LINK_R_OPEN_P(l)) // open r ?
    215216  {
     217#ifdef HAVE_DBM
     218#ifdef USE_GDBM
     219    if (! SI_LINK_CLOSE_P(l))
     220      {
     221        if (slClose(l)) return NULL;
     222      }
     223#endif
     224#endif
    216225    if (slOpen(l, SI_LINK_READ)) return NULL;
    217226  }
     
    253262  if(! SI_LINK_W_OPEN_P(l)) // open w ?
    254263  {
     264#ifdef HAVE_DBM
     265#ifdef USE_GDBM
     266    if (! SI_LINK_CLOSE_P(l))
     267      {
     268        if (slClose(l)) return TRUE;
     269      }
     270#endif
     271#endif
    255272    if (slOpen(l, SI_LINK_WRITE)) return TRUE;
    256273  }
    257274
    258   if(SI_LINK_W_OPEN_P(l))
     275  if (SI_LINK_W_OPEN_P(l))
    259276  { // now open w
    260277    if (l->m->Write != NULL)
Note: See TracChangeset for help on using the changeset viewer.