Changeset d7ad81 in git


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

Legend:

Unmodified
Added
Removed
  • Singular/blackbox.h

    r4f9652 rd7ad81  
    6363BOOLEAN blackbox_default_OpM(int op,leftv l, leftv r);
    6464
    65 /// default procedure to print this blackbox
     65/// default procedure blackbox_default_Print: print the string
    6666void blackbox_default_Print(blackbox *b,void *d);
    6767
  • 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 );
  • Singular/newstruct.cc

    r4f9652 rd7ad81  
    717717  return scanNewstructFromString(s,res);
    718718}
     719
    719720void newstructShow(newstruct_desc d)
    720721{
Note: See TracChangeset for help on using the changeset viewer.