Changeset d7ad81 in git for Singular/extra.cc


Ignore:
Timestamp:
Aug 2, 2012, 4:11:42 PM (11 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'c987db42cd2ec943b97ac5746c99892ceddf909c')
Children:
4093f96acfcc6419c56ee983c447099c3b87a36e
Parents:
4f9652847609cefd5ff3b91d14f34611592ab699
Message:
add: system("install",...) from master
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r4f9652 rd7ad81  
    9393#include "silink.h"
    9494#include "walk.h"
     95#include <Singular/newstruct.h>
    9596
    9697
     
    37003701  }
    37013702  else
     3703/*==================== install newstruct =================*/
     3704  if (strcmp(sys_cmd,"install")==0)
     3705  {
     3706    if ((h!=NULL) && (h->Typ()==STRING_CMD)
     3707    && (h->next!=NULL) && (h->next->Typ()==STRING_CMD)
     3708    && (h->next->next!=NULL) && (h->next->next->Typ()==PROC_CMD)
     3709    && (h->next->next->next!=NULL) && (h->next->next->next->Typ()==INT_CMD))
     3710    {
     3711      return newstruct_set_proc((char*)h->Data(),(char*)h->next->Data(),
     3712                                (int)(long)h->next->next->next->Data(),
     3713                                (procinfov)h->next->next->Data());
     3714    }
     3715    return TRUE;
     3716  }
     3717  else
    37023718/*==================== Error =================*/
    37033719      Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );
Note: See TracChangeset for help on using the changeset viewer.