Changeset 9085b0 in git


Ignore:
Timestamp:
May 10, 2019, 2:17:12 PM (4 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
2b5e94f2478c6565d4b66d3da00513fe1ab61a7d
Parents:
da7bc40baca2ca1245a810bea9cb09b4124d90bc
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-05-10 14:17:12+02:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-05-10 14:29:30+02:00
Message:
add ring as paramater to ii_CallProcId2Id etc.
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Singular/iplib.cc

    rda7bc4 r9085b0  
    646646
    647647// return NULL on failure
    648 ideal iiCallProcId2Id(const char *lib,const char *proc, ideal arg)
     648ideal ii_CallProcId2Id(const char *lib,const char *proc, ideal arg, const ring R)
    649649{
    650650  char *plib = iiConvName(lib);
    … …  
    656656    if (bo) return NULL;
    657657  }
     658  ring oldR=currRing;
     659  rChangeCurrRing(R);
    658660  BOOLEAN err;
    659661  ideal I=(ideal)iiCallLibProc1(proc,idCopy(arg),IDEAL_CMD,err);
     662  rChangeCurrRing(oldR);
    660663  if (err) return NULL;
    661664  return I;
    662665}
    663666
    664 int iiCallProcId2Int(const char *lib,const char *proc, ideal arg)
     667int ii_CallProcId2Int(const char *lib,const char *proc, ideal arg, const ring R)
    665668{
    666669  char *plib = iiConvName(lib);
    … …  
    673676  }
    674677  BOOLEAN err;
     678  ring oldR=currRing;
     679  rChangeCurrRing(R);
    675680  int I=(int)(long)iiCallLibProc1(proc,idCopy(arg),IDEAL_CMD,err);
     681  rChangeCurrRing(oldR);
    676682  if (err) return 0;
    677683  return I;

  • Singular/ipshell.h

    rda7bc4 r9085b0  
    197197void* iiCallLibProc1(const char* n, void *arg, int arg_type, BOOLEAN &err);
    198198void* iiCallLibProcM(const char* n, void **args, int *arg_types, BOOLEAN &err);
    199 ideal iiCallProcId2Id(const char* lib,const char* proc, ideal arg);
    200 int iiCallProcId2Int(const char* lib,const char* proc, ideal arg);
     199ideal ii_CallProcId2Id(const char* lib,const char* proc, ideal arg,const ring R);
     200int ii_CallProcId2Int(const char* lib,const char* proc, ideal arg,const ring R);
    201201// from misc.cc:
    202202char *  showOption();
Note: See TracChangeset for help on using the changeset viewer.