sic_python.c

Go to the documentation of this file.

/*****************************************************************************
 *                              Dependencies                                 *
 *****************************************************************************/

#include <Python.h>
#include <string.h>
#include <errcode.h>
#include "cfc.h"
#include "sic_comm.h"

#define pyend       CFC_EXPORT_NAME( pyend )
#define pyexecfile  CFC_EXPORT_NAME( pyexecfile )
#define pyexec      CFC_EXPORT_NAME( pyexec )
#define pyinteract  CFC_EXPORT_NAME( pyinteract )
#define pyfindfunc  CFC_EXPORT_NAME( pyfindfunc )
#define pycallfuncd CFC_EXPORT_NAME( pycallfuncd )
#define pycallfuncs CFC_EXPORT_NAME( pycallfuncs )
#define pygetvar    CFC_EXPORT_NAME( pygetvar )
#define pydelvar    CFC_EXPORT_NAME( pydelvar )


/*****************************************************************************
 *                        Internal function bodies                           *
 *****************************************************************************/

static void lowercase(char string[]) {
   int  i = 0;

   while ( string[i] ) {
      string[i] = tolower(string[i]);
      i++;
   }

   return;
}

static void pystart() {

    if (! Py_IsInitialized()) {
       /* Launch Python interpreter */
       Py_Initialize();
       printf("Python %s on %s\n",Py_GetVersion(),Py_GetPlatform());
       if (! PyImport_ImportModule("readline")) {
          fprintf(stderr,"W-PYTHON,  Failed to load Python module 'readline': ");
          PyErr_Print();
       }

       /* Load the Pygildas init script (Python source) */
       PyRun_SimpleString("from pginit import *\n");
    }

    return;
}

static int pyisslave() {
    int       ret=-1;
    PyObject *module=NULL, *isslave=NULL;

    if (! (module = PyImport_ImportModule("pygildas"))) {
       fprintf(stderr,"E-PYTHON,  Could not import 'pygildas' module into Python.\n");
       PyErr_Print();
    } else if (! PyObject_HasAttrString(module, "is_slave")) {
       fprintf(stderr,"E-PYTHON,  Did not found 'is_slave' attribute of 'pygildas' module.\n");
    } else if (! (isslave = PyObject_GetAttrString(module, "is_slave"))) {
       fprintf(stderr,"E-PYTHON,  Failed to load 'is_slave' attribute of 'pygildas' module.\n");
       PyErr_Print();
    } else if (PyObject_IsTrue(isslave)) {
       ret = 1;
    } else {
       ret = 0;
    }

    Py_XDECREF(module);
    Py_XDECREF(isslave);
    return ret;
}

static int switchflag(int value) {
    int       ret=1;
    PyObject *module;

    if (! (module = PyImport_ImportModule("pygildas"))) {
       fprintf(stderr,"E-PYTHON,  Could not import 'pygildas' module into Python.\n");
       PyErr_Print();
    } else if (! PyObject_HasAttrString(module, "loop")) {
       fprintf(stderr,"E-PYTHON,  Did not found 'loop' attribute of 'pygildas' module.\n");
    } else {
       Py_XDECREF(PyObject_GetAttrString(module,"loop"));
       PyObject_SetAttrString(module,"loop",PyInt_FromLong((long) value));
       ret = 0;
    }
    Py_XDECREF(module);

    return ret;
}

static int PyRun_MyInteractiveLoop(FILE *fp, const char *filename) {
    int              signal;
    PyObject        *v, *module;
    PyCompilerFlags *flags, local_flags;

    /* 'flags' always NULL here */
    flags = &local_flags;
    local_flags.cf_flags = 0;

    v = PySys_GetObject("ps1");
    if (v == NULL) {
       PySys_SetObject("ps1", v = PyString_FromString(">>> "));
       Py_XDECREF(v);
    }
    v = PySys_GetObject("ps2");
    if (v == NULL) {
       PySys_SetObject("ps2", v = PyString_FromString("... "));
       Py_XDECREF(v);
    }

    /* Get 'pygildas' module */
    if (! (module = PyImport_ImportModule("pygildas"))) {
       fprintf(stderr,"E-PYTHON,  Could not import 'pygildas' module into Python.\n");
       PyErr_Print();
       return -1;
    }

    /* Infinite loop */
    for (;;) {
       signal = PyRun_InteractiveOneFlags(fp, filename, flags);
       /* PRINT_TOTAL_REFS(); */
       /* Command: CTRL-D */
       if (signal == E_EOF) {
          switchflag(-1);
          return 1;
       }
       /* Command: exit() */
       if (PyInt_AsLong(PyObject_GetAttrString(module,"loop")) == -1)
          return 1;
       /* Command: Sic() */
       if (PyInt_AsLong(PyObject_GetAttrString(module,"loop")) == 0)
          return 0;
    }

}

static PyObject* sic2pyconv(char *varname) {
   PyObject *module, *Sic=NULL, *pyname=NULL;

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(module, "Sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'Sic' instance in Python __main__.\n");
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' from Python __main__.\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(Sic, "sic2py")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'sic2py' method of 'Sic' instance.\n");
   } else {
      pyname = PyObject_CallMethod(Sic,"sic2py","(s)",varname);
   }
   Py_XDECREF(Sic);

   return pyname; /* New reference, or NULL on failure. */
}

static int pyunsavevar(int level, PyObject *pyname) {
   int       ret=1;
   PyObject *module, *Sic=NULL, *tuple=NULL, *instance, *object=NULL;

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(module, "Sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'Sic' instance in Python __main__.\n");
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' instance from Python __main__.\n");
      PyErr_Print();
   } else  if (! PyObject_HasAttrString(Sic, "localspaces")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'localspaces' array in 'Sic' instance. ");
   } else if (! (tuple = PyObject_GetAttrString(Sic, "localspaces"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'localspaces' array from 'Sic' instance.\n");
      PyErr_Print();
   } else if (! (instance = PyTuple_GetItem(tuple,level))) {
      fprintf(stderr,"E-PYTHON,  Failed to load %d-th element of 'localspaces'.\n",level);
      PyErr_Print();
   } else  if (! (PyObject_HasAttr(instance, pyname))) {
      /* fprintf(stderr,"Did not found '%s' variable from %d-th element of 'localspaces'.\n",PyString_AsString(pyname),level); */
      ;
   } else if (! (object = PyObject_GetAttr(instance, pyname))) {
      fprintf(stderr,"E-PYTHON,  Failed to load '%s' variable from %d-th element of 'localspaces'.\n",PyString_AsString(pyname),level);
      PyErr_Print();
   } else if (PyObject_SetAttr(module,pyname,object) == -1) {
      fprintf(stderr,"E-PYTHON,  Failed to add attribute '%s' to Python __main__.\n",PyString_AsString(pyname));
      PyErr_Print();
   } else if (PyObject_DelAttr(instance, pyname) == -1 ) {
      fprintf(stderr,"E-PYTHON,  Failed to delete '%s' attribute from %d-th element of 'localspaces'.\n",PyString_AsString(pyname),level);
      PyErr_Print();
   } else {
      ret = 0;
   }

   Py_XDECREF(Sic);
   Py_XDECREF(tuple);
   Py_XDECREF(object);

   return ret;
}

static void Py_XDECREF_parent(PyObject *object) {

   if (object == NULL) {
      fprintf(stderr,"E-PYTHON,  Failed to decrement reference count (object is NULL).\n");
   } else if (! (PyObject_HasAttrString(object,"__name__")) ) {
      fprintf(stderr,"E-PYTHON,  Failed to decrement reference count (object has no __name__ attribute).\n");
   } else if ( PyObject_RichCompareBool(PyObject_GetAttrString(object,"__name__"),PyString_FromString("__main__"),Py_EQ) != 1 ) {
      Py_DECREF(object);
   }

   return;
}

static PyObject *getparent(PyObject *name) {
    PyObject *abovename, *childname, *parent=NULL, *parentname, *grandparent;
    int       pos1, pos2;

    pos1 = (int) PyInt_AsLong(PyObject_CallMethod(name,"rfind","s","."));

    if (pos1 != -1) {
       parentname = PyObject_CallMethod(name,"__getslice__","ii",0,pos1);
       childname  = PyObject_CallMethod(name,"__getslice__","ii",pos1+1,PyString_Size(name));

       pos2 = (int) PyInt_AsLong(PyObject_CallMethod(parentname,"rfind","s","."));
       if (pos2 == -1) { pos2 = 0; } else { pos2 += 1; }
       abovename  = PyObject_CallMethod(parentname,"__getslice__","ii",pos2,pos1);

       if (! (grandparent = getparent(parentname))) {
          fprintf(stderr,"E-PYTHON, Failed to get parent of '%s' object.\n",PyString_AsString(PyObject_Repr(parentname)));
       } else if (! (parent = PyObject_GetAttr(grandparent,abovename))) {
          fprintf(stderr,"E-PYTHON, Failed to load '%s' attribute of '%s' object.\n",PyString_AsString(abovename),PyString_AsString(PyObject_Repr(grandparent)));
          PyErr_Print();
       }
       Py_XDECREF_parent(grandparent);

       /* Return a new reference, or NULL on failure.           *
        * Use Py_XDECREF_parent to safely DECREF this reference. */
       return parent;
    }

    /* Load the __main__ module */
    if (! (parent = PyImport_AddModule("__main__"))) {
       fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
       PyErr_Print();
    }

    /* Return a borrowed reference to __main__, or NULL on failure. *
     * Use Py_XDECREF_parent to safely non-DECREF this reference.   */
    return parent;
}


/*****************************************************************************
 *                             Function bodies                               *
 *****************************************************************************/

int CFC_API pyend() {

    if (! Py_IsInitialized()) return 0;

    if (pyisslave() == 1) {
       Py_Finalize();
       printf(" I-PYTHON,  Python interpreter has been finalized.\n");
    } else {
       printf(" I-PYTHON,  Python exit.\n");
       Py_Exit(0);
    }

    return 0;
}

int CFC_API pyexecfile(CFC_FString name, int *ln, CFC_FString args, int *la) {
   int      ret = 1;
   PyObject *sysmod, *tuple=NULL, *mainmod, *sic=NULL, *verify=NULL, *Sic=NULL;
   char     *cargs = malloc(*la + 1);
   char     *cname = malloc(*ln + 1);

   CFC_f2c_strcpy(cname,name,*ln);
   CFC_f2c_strcpy(cargs,args,*la);

   pystart();

   /* Store the arguments in 'sys.argv' */
   if (! (sysmod = PyImport_AddModule("sys"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python module 'sys'\n");
      PyErr_Print();
   } else if (! (tuple = PyObject_CallMethod(PyString_FromString(cargs),"split",NULL)) ) {
      fprintf(stderr,"E-PYTHON,  Failed to split arguments into Python 'sys.argv'.\n");
      PyErr_Print();
   } else if ( PyObject_SetAttrString(sysmod,"argv",tuple) == -1 ) {
      fprintf(stderr,"E-PYTHON,  Failed to store arguments into Python 'sys.argv'.\n");
      PyErr_Print();
   }
   Py_XDECREF(tuple);
   free(cargs);

   /* Check the 'SIC%VERIFY' value, does not print command if it is OFF */
   if (! (mainmod = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(mainmod, "sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'sic' structure in Python __main__.\n");
   } else if (! (sic = PyObject_GetAttrString(mainmod, "sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'sic' structure from Python __main__.\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(sic, "verify")) {
      fprintf(stderr,"E-PYTHON,  'Sic' instance has no attribute 'verify'.\n");
   } else if (! (verify = PyObject_GetAttrString(sic, "verify"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'verify' attribute of 'Sic' instance.\n");
      PyErr_Print();
   } else if ( PyObject_RichCompareBool(verify,PyInt_FromLong(0),Py_NE) == 0 ) {
      /* 'sic.verify' is 'False', nothing is printed (standard call) */
      FILE *fp = fopen (cname, "r+");
      if (fp == NULL) {
         fprintf(stderr,"E-PYTHON,  Python file '%s' was not found.\n",cname);
      } else {
         ret = - PyRun_SimpleFileEx(fp,cname,1);
      }
   /* Else call the 'Sic.pexecfile()' routine: */
   } else if (! PyObject_HasAttrString(mainmod, "Sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'Sic' object in Python __main__.\n");
   } else if (! (Sic = PyObject_GetAttrString(mainmod, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' object from Python __main__.\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(Sic, "pexecfile")) {
      fprintf(stderr,"E-PYTHON,  'Sic' object has no attribute 'pexecfile'.\n");
   } else {
      PyObject_CallMethod(Sic,"pexecfile","(s)",cname);
      if (PyErr_Occurred()) {
         fprintf(stderr,"E-PYTHON,  An error occurred while executing '%s' file:\n",cname);
         PyErr_Print();
      } else {
         ret = 0;
      }
   }
   Py_XDECREF(sic);
   Py_XDECREF(verify);
   Py_XDECREF(Sic);
   free(cname);

   /* Delete the 'sys.argv' attribute */
   if (! (PyObject_HasAttrString(sysmod,"argv"))) {
      /* No matter: it may have been deleted by user. */
      ;
   } else if (PyObject_DelAttrString(sysmod,"argv") == -1) {
      fprintf(stderr,"W-PYTHON,  Could not delete 'argv' attribute of 'sys' module.");
      PyErr_Print();
   }

   return ret;
}

int CFC_API pyexec(CFC_FString command, int *l) {
   int      ret = 1;
   PyObject *mainmod, *sic=NULL, *verify=NULL, *module;
   char     *formatted = malloc(*l + 2);

   CFC_f2c_strcpy(formatted,command,*l);
   formatted[*l]   = '\n';
   formatted[*l+1] = '\0';

   pystart();

   /* Check the 'SIC%VERIFY' value, and print command if it is ON */
   if (! (mainmod = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(mainmod, "sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'sic' structure in Python __main__.\n");
   } else if (! (sic = PyObject_GetAttrString(mainmod, "sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'sic' structure from Python __main__.\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(sic, "verify")) {
      fprintf(stderr,"E-PYTHON,  'Sic' instance has no attribute 'verify'.\n");
   } else if (! (verify = PyObject_GetAttrString(sic, "verify"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'verify' attribute of 'Sic' instance.\n");
      PyErr_Print();
   } else if ( PyObject_RichCompareBool(verify,PyInt_FromLong(0),Py_NE) == 1 ) {
      printf(">>> %s",formatted);
   }

   Py_XDECREF(sic);
   Py_XDECREF(verify);

   /* Run the command */
   ret = - PyRun_SimpleString(formatted);

   /* Add the command line to Python history. */
   if (! (module = PyImport_ImportModule("readline"))) {
      /* No error, no warning. */
      ;
   } else {
      formatted[*l] = '\0';
      PyObject_CallMethod(module,"add_history","s",formatted);
   }
   Py_XDECREF(module);
   free(formatted);

   return ret;
}

int CFC_API pyinteract(int *sic_code_end, int *sic_ocode) {
    int       isslave, py_ocode;

    pystart();
    isslave = pyisslave();

    /* Set 'pygildas.loop' flag to 1 in all cases. */
    if (isslave==-1) {
       fprintf(stderr,"E-PYTHON,  An error occured while loading 'pygildas.is_slave' flag.\n");
       return 1;
    } else if ( switchflag(1) == 1 ) {
       fprintf(stderr,"E-PYTHON,  An error occured while setting 'pygildas.loop' to 1.\n");
       return 1;
    }

    if (isslave==1) {
       printf("Entering interactive session. Type 'Sic()' to go back to SIC.\n");
       py_ocode = PyRun_MyInteractiveLoop(stdin, "<STDIN>");
       if (py_ocode==1) {
          /* CTRL-D or exit() in Python */
          sic_push_command_text("exit");
       }
    } else {
       *sic_ocode = *sic_code_end;
    }

    return 0;
}

int CFC_API pyfindfunc(CFC_FString fname, int *l) {
   int       ret = 1;
   char     *formatted;
   PyObject *module, *func=NULL, *Sic=NULL;

   if (! Py_IsInitialized())  return 1;

   formatted = malloc(*l + 1);
   CFC_f2c_strcpy(formatted,fname,*l);
   lowercase(formatted);

   PyRun_SimpleString("import sys\n");
   PyRun_SimpleString("sys.path.append('')\n");

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(module, formatted)) {
      /* fprintf(stderr,"Did not found '%s' in Python __main__.\n",formatted); */
      ;
   } else if (! (func = PyObject_GetAttrString(module, formatted))) {
      fprintf(stderr,"E-PYTHON,  Failed to load '%s' from Python __main__.\n",formatted);
      PyErr_Print();
   } else if (! PyCallable_Check(func)) {
      /* fprintf(stderr,"'%s' in Python is not callable.\n",formatted); */
   } else if (! PyObject_HasAttrString(module, "Sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'Sic' instance in Python __main__.\n");
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' instance from Python __main__.\n");
      PyErr_Print();
   } else if (PyObject_SetAttrString( Sic, "pyfunc", func)) {
      fprintf(stderr,"E-PYTHON,  Failed to add 'pyfunc' reference to 'Sic' object.\n");
      PyErr_Print();
   } else {
       ret = 0;
   }

   Py_XDECREF(func);
   Py_XDECREF(Sic);
   free(formatted);

   return ret;
}

int CFC_API pycallfuncd(int *nargs, int *index, int strides[], int nwords[], double mem[], double *output) {
   int       i, shift, ret=1;
   double    dble;
   PyObject *module, *Sic=NULL, *func=NULL, *args=NULL, *value=NULL;

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' instance from Python __main__.\n");
      PyErr_Print();
   } else if (! (func = PyObject_GetAttrString(Sic, "pyfunc"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python function (aliased as 'pyfunc') from Sic object.\n");
      PyErr_Print();
   } else if (! (args = PyTuple_New(*nargs))) {
      for (i=0; i<*nargs; i++) {
         shift  = nwords[i]-1;
         dble   = mem[shift/2+(*index-1)*strides[i]];
         /* printf("Valeur de l'arg #%d: %f\n",i,dble); */
         PyTuple_SetItem(args, i, Py_BuildValue("d",dble));
      }
   } else if (! (value = PyObject_CallObject(func,args))) {
      fprintf(stderr,"E-PYTHON,  Failed to call Python function (aliased as 'pyfunc').\n");
      PyErr_Print();
   } else {
      *output = PyFloat_AsDouble(value);
      ret = 0;
   }

   Py_XDECREF(Sic);
   Py_XDECREF(func);
   Py_XDECREF(args);
   Py_XDECREF(value);

   return ret;
}

int CFC_API pycallfuncs(int *nargs, int *index, int strides[], int nwords[], float mem[], float *output) {
   int       i, shift, ret=1;
   float     real;
   PyObject *module, *Sic=NULL, *func=NULL, *args=NULL, *value=NULL;

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic' instance from Python __main__.\n");
      PyErr_Print();
   } else  if (! (func = PyObject_GetAttrString(Sic, "pyfunc"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python function (aliased as 'pyfunc') from Sic object.\n");
      PyErr_Print();
   } else if (! (args = PyTuple_New(*nargs))) {
      for (i=0; i<*nargs; i++) {
         shift = nwords[i]-1;
         real = mem[shift+(*index-1)*strides[i]];
         PyTuple_SetItem(args, i, Py_BuildValue("f",real));
      }
   } else if (! (value = PyObject_CallObject(func,args))) {
      fprintf(stderr,"E-PYTHON,  Failed to call Python function (aliased as 'pyfunc').\n");
      PyErr_Print();
   } else {
      *output = (float) PyFloat_AsDouble(value);
      ret = 0;
   }

   Py_XDECREF(Sic);
   Py_XDECREF(func);
   Py_XDECREF(args);
   Py_XDECREF(value);

   return ret;
}

int CFC_API pygetvar(CFC_FString varname, int *l) {
   int       siclevel, ret=1;
   char     *formatted;
   PyObject *module, *Sic=NULL;

   if (! Py_IsInitialized())  return 1;

   /* Varname followed by blanks (only) */
   formatted = malloc(*l);
   CFC_f2c_strcpy(formatted,varname,*l-1); /* Cut the last char (level) */
   /* Level as int: */
   siclevel = CFC_f2c_string(varname)[*l-1] - '0';

   if (! (module = PyImport_AddModule("__main__"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
      PyErr_Print();
   } else if (! PyObject_HasAttrString(module, "Sic")) {
      fprintf(stderr,"E-PYTHON,  Did not found 'Sic' instance in Python __main__.\n");
   } else if (! (Sic = PyObject_GetAttrString(module, "Sic"))) {
      fprintf(stderr,"E-PYTHON,  Failed to load 'Sic'.\n");
      PyErr_Print();
   } else if (! PyObject_CallMethod(Sic,"get","(si)",formatted,siclevel)) {
      fprintf(stderr,"E-PYTHON,  Failed to call 'get' method of 'Sic' instance.\n");
      PyErr_Print();
   } else {
      ret = 0;
   }

   Py_XDECREF(Sic);
   free(formatted);

   return ret;
}

int CFC_API pydelvar(CFC_FString varname, int *l) {
    int       level, pos, ret=1;
    PyObject *module, *pyname=NULL, *parent=NULL, *shortname=NULL;
    PyObject *var=NULL, *sicname=NULL;
    char     *formatted;

    if (! Py_IsInitialized())  return 1;

    /* Variable name: */
    formatted = malloc(*l);
    CFC_f2c_strcpy(formatted,varname,*l-1);
    /* Level as int: */
    level = CFC_f2c_string(varname)[*l-1] - '0';

    if (! (module = PyImport_AddModule("__main__"))) {
       fprintf(stderr,"E-PYTHON,  Failed to load Python __main__\n");
       PyErr_Print();
    } else if (! (pyname = sic2pyconv(formatted))) {
       fprintf(stderr,"E-PYTHON,  Failed to convert SIC name '%s' to Python name calling 'sic2py'.\n",formatted);
    } else if (! (parent = getparent(pyname))) {
       fprintf(stderr,"E-PYTHON,  Failed to load '%s' parent object.\n",PyString_AsString(pyname));
    } else {
       /* Gets the short name (attribute) of the object */
       pos = (int) PyInt_AsLong(PyObject_CallMethod(pyname,"rfind","s","."));
       if (pos == -1) { pos = 0; } else { pos += 1; }
       shortname = PyObject_CallMethod(pyname,"__getslice__","ii",pos,PyString_Size(pyname));
    }

    /* --- 1: DELETION --- */

    /* Try to load the object. If not: */
    if (! PyObject_HasAttr(parent,shortname)) {
       /* May be it was not imported, or deleted from python-side... */
       /* printf("Did not found '%s' attribute of object '%s'.\n",PyString_AsString(pyname),PyString_AsString(PyObject_Repr(parent))); */
       ret = 0;
       /* Else erase it: */
    } else if (! (var = PyObject_GetAttr(parent,shortname))) {
       fprintf(stderr,"E-PYTHON,  Failed to load '%s' attribute of object '%s'.\n",PyString_AsString(pyname),PyString_AsString(PyObject_Repr(parent)));
       PyErr_Print();
    } else if (! (PyObject_HasAttrString(var,"__sicname__")) ) {
       fprintf(stderr,"W-PYTHON,  '%s' variable is neither a SicVar nor a SicStructure instance. ",PyString_AsString(pyname));
       fprintf(stderr,"W-PYTHON,  It won't be deleted.\n");
    } else if (! (sicname = PyObject_GetAttrString(var,"__sicname__")) ) {
       fprintf(stderr,"E-PYTHON,  Failed to load '__sicname__' attribute of '%s' variable in Python __main__.\n",PyString_AsString(pyname));
       PyErr_Print();
    } else if ( PyObject_RichCompareBool(PyString_FromString(formatted),sicname,Py_EQ) != 1 ) {
       fprintf(stderr,"E-PYTHON,  %s.__sicname__ value ('%s') and original SIC name ('%s') do not match (deletion failure).\n",PyString_AsString(pyname),PyString_AsString(sicname),formatted);
    } else if (PyObject_DelAttr(parent,shortname) == -1) {
       /* Warning: make sure that attribute deletion is enabled in __delattr__ method. */
       fprintf(stderr,"E-PYTHON,  Failed to delete '%s' attribute of object '%s'.\n",PyString_AsString(shortname),PyString_AsString(PyObject_Repr(parent)));
    } else if (PyInt_AsLong(PyObject_CallMethod(pyname,"find","s",".")) == -1) {
       /* RETRIEVE LOWER OBJECT: Rename lower-level variable which had the same name. */

       if (level==0) { pyunsavevar(0,pyname); } /* GLOBAL: A standard python variable may have been saved. */

       while (level>0) { /* LOCAL: Move upper level variable into global. */
          if (pyunsavevar(level-1,pyname) == 0) {
             level = 0;
          } else {
             level--;
          }
       }
       ret = 0;
    } else {
       /* Name has a dot: there is nothing to do, because its parent  *
        * structure has been/will be erased, and conflicting name has *
        * already been/will be moved. */
       ret = 0;
    }

    Py_XDECREF(pyname);
    Py_XDECREF_parent(parent);
    Py_XDECREF(shortname);
    Py_XDECREF(var);
    Py_XDECREF(sicname);
    free(formatted);

    return ret;
}

---