Changeset 62aecd in git


Ignore:
Timestamp:
May 11, 1998, 3:19:58 PM (26 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
ad523bfd7b961919b952f71d36c00847fc5c9f0c
Parents:
540479614febf9bda82e5ebb24f5a4e19e3b5cdf
Message:
* enabled system("neworder")


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r540479 r62aecd  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.45 1998-05-08 15:29:38 Singular Exp $ */
     4/* $Id: extra.cc,v 1.46 1998-05-11 13:19:58 obachman Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    312312      return FALSE;
    313313    }
     314/*==================== neworder =============================*/
     315// should go below
     316#ifdef HAVE_LIBFAC_P
     317    if(strcmp((char*)(h->Data()),"neworder")==0)
     318    {
     319      if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
     320      {
     321        res->rtyp=STRING_CMD;
     322        res->data=(void *)singclap_neworder((ideal)h->next->Data());
     323        return FALSE;
     324      }
     325      else
     326        WerrorS("ideal expected");
     327    }
     328    else
     329#endif
    314330#ifdef HAVE_EXTENDED_SYSTEM
    315331// You can put your own system calls here
     
    360376      else
    361377        WerrorS("poly expected");
    362     }
    363     else
    364 #endif
    365 /*==================== neworder =============================*/
    366 #ifdef HAVE_LIBFAC_P
    367     if(strcmp((char*)(h->Data()),"neworder")==0)
    368     {
    369       if ((h->next!=NULL) &&(h->next->Typ()==IDEAL_CMD))
    370       {
    371         res->rtyp=STRING_CMD;
    372         res->data=(void *)singclap_neworder((ideal)h->next->Data());
    373         return FALSE;
    374       }
    375       else
    376         WerrorS("ideal expected");
    377378    }
    378379    else
Note: See TracChangeset for help on using the changeset viewer.