/*   This is part of UMView
 *   The user-mode implementation of View-OS: A Process with a View
 *
 *   Bindings for writing Python modules for *MView
 *
 *   $ umview -p umpyew,modulename command
 *
 *   PYTHONPATH, if unset, will be set to the current working directory.
 *
 *   Copyright 2008 Ludovico Gardenghi, University of Bologna, Italy
 *
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License, version 2, as
 *   published by the Free Software Foundation.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License along
 *   with this program; if not, write to the Free Software Foundation, Inc.,
 *   51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA.
 *
 */

/*
 ***** IMPORTANT NOTICE *****************************************************
 * Please note: these bindings are still PARTIAL! Take a look to the list of
 * PYTHON_SYSCALLS invocations in the _um_mod_init function if you want to
 * know which system calls are currently supported.
 * Also, the support for upcalls is limited. The list of supported upcalls is
 * in the array named pEmbMethods. More will follow.
 * Finally, there is no support for custom ctl commands yet.
 ****************************************************************************
 */

#include <Python.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/statfs.h>
#include <string.h>
#include <utime.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <sys/uio.h>
#include <config.h>
#include "module.h"
#include "libummod.h"

#include "gdebug.h"

struct pService
{
	PyObject *ctl;
	PyObject *checkfun;
	PyObject **syscall;
	PyObject **socket;
};

static struct service s;
static struct pService ps;
static PyObject *pModule;

/* Used for calling PyCall with empty arg */
static PyObject *pEmptyTuple;

#define PYCHKERR {GMESSAGE("testing..."); if (PyErr_Occurred()) PyErr_Print();}

#define PYTHON_SYSCALL(cname, pyname) \
	{ \
		if (PyObject_HasAttrString(pModule, #pyname)) \
		{ \
			pTmpFunc = PyObject_GetAttrString(pModule, #pyname); \
			if (pTmpFunc && PyCallable_Check(pTmpFunc)) \
			{ \
				pTmpObj = PyTuple_New(2); \
				PyTuple_SET_ITEM(pTmpObj, 0, pTmpFunc); \
				pTmpDict = PyDict_New(); \
				PyDict_SetItemString(pTmpDict, "cname", PyString_FromString(#cname)); \
				PyDict_SetItemString(pTmpDict, "pyname", PyString_FromString(#pyname)); \
				PyTuple_SET_ITEM(pTmpObj, 1, pTmpDict); \
				GDEBUG(3, "found function for system call %s, adding", #cname); \
				GENSERVICESYSCALL(ps, cname, pTmpObj, PyObject*); \
				SERVICESYSCALL(s, cname, umpyew_##cname); \
			} \
			else if (pTmpFunc == Py_None) \
			{ \
				GDEBUG(3, "system call %s is mapped to itself", #cname); \
				SERVICESYSCALL(s, cname, cname); \
			} \
			else \
				GERROR("python object %s is not Callable!", #pyname); \
		} \
	}

#define PYIN(type, cname, argc) \
	PyObject *pRetVal; \
	long retval; \
	PyObject *pFunc = PyTuple_GetItem(GETSERVICE##type(ps, cname), 0); \
	PyObject *pKw = PyTuple_GetItem(GETSERVICE##type(ps, cname), 1); \
	PyObject *pArg = PyTuple_New(argc);

#define PYCALL \
	{ \
		GDEBUG(3, "calling python..."); \
		pRetVal = PyObject_Call(pFunc, pArg, pKw); \
		GDEBUG(3, "returned from python"); \
		if (pRetVal) \
		{ \
			retval = PyInt_AsLong(PyTuple_GetItem(pRetVal, 0)); \
			errno = PyInt_AsLong(PyTuple_GetItem(pRetVal, 1)); \
			GDEBUG(3, "(retval, errno) == (%d, %d)", retval, errno); \
		} \
		else \
		{ \
			GDEBUG(3, "retval is null?"); \
			PyErr_Print(); \
			retval = -1; \
			errno = ENOSYS; \
		} \
	}

#define PYOUT \
	{ \
		Py_DECREF(pArg); \
		if (pRetVal) \
		{ \
			Py_DECREF(pRetVal); \
		} \
	}

#define PYINSYS(cname, argc) PYIN(SYSCALL, cname, argc)
#define PYINSOCK(cname, argc) PYIN(SOCKET, cname, argc)

#define PYARG(argnum, argval) \
		PyTuple_SET_ITEM(pArg, argnum, argval)

/*
 * Exported functions (Python side). They must be kept update depending on the
 * evolution of the struct timestamp.
 */

static PyObject *umpyew_tst_matchingepoch(PyObject *self, PyObject *args)
{
	PyObject *obj;
	struct timestamp *ts;
	
	PyArg_ParseTuple(args, "O", &obj);
	ts = PyCObject_AsVoidPtr(obj);

	return PyLong_FromLongLong(tst_matchingepoch(ts));
}

static PyObject *umpyew_tst_timestamp(PyObject *self, PyObject *args)
{
	struct timestamp *ts = malloc(sizeof(struct timestamp));
	
	*ts = tst_timestamp();
	
	return PyCObject_FromVoidPtr(ts, free);
}

static PyMethodDef pEmbMethods[] = {
	{"tstMatchingEpoch", umpyew_tst_matchingepoch, METH_VARARGS, "Fare clic qui per inserire una descrizione."},
	{"tstTimestamp", umpyew_tst_timestamp, METH_VARARGS, "Return a new (opaque) timestamp object/"},
	{NULL, NULL, 0, NULL},
};

/*
 * Begin of system calls definitions (bindings)
 */

static long umpyew_open(char *path, int flags, mode_t mode)
{
	PYINSYS(open, 3);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(flags));
	PYARG(2, PyInt_FromLong(mode));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_close(int fd)
{
	PYINSYS(close, 1);
	PYARG(0, PyInt_FromLong(fd));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_access(char *path, int mode)
{
	PYINSYS(access, 2);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(mode));
	PYCALL;
	PYOUT;

	return retval;
}

static long umpyew_mkdir(char *path, int mode)
{
	PYINSYS(mkdir, 2);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(mode));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_rmdir(char *path)
{
	PYINSYS(rmdir, 1);
	PYARG(0, PyString_FromString(path));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_chmod(char *path, int mode)
{
	PYINSYS(chmod, 2);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(mode));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_chown(char *path, uid_t owner, gid_t group)
{
	PYINSYS(chown, 3);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(owner));
	PYARG(2, PyInt_FromLong(group));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_lchown(char *path, uid_t owner, gid_t group)
{
	PYINSYS(lchown, 3);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(owner));
	PYARG(2, PyInt_FromLong(group));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_unlink(char *path)
{
	PYINSYS(unlink, 1);
	PYARG(0, PyString_FromString(path));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_link(char *oldpath, char *newpath)
{
	PYINSYS(link, 2);
	PYARG(0, PyString_FromString(oldpath));
	PYARG(1, PyString_FromString(newpath));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_symlink(char *oldpath, char *newpath)
{
	PYINSYS(symlink, 2);
	PYARG(0, PyString_FromString(oldpath));
	PYARG(1, PyString_FromString(newpath));
	PYCALL;
	PYOUT;
	return retval;
}

#define PY_COPYSTATFIELD(field) \
	{ \
		if ((pStatField = PyObject_GetAttrString(pStatObj, #field))) \
			buf->field = PyInt_AsLong(pStatField); \
		else \
			buf->field = 0; \
	}

#define UMPYEW_STATFUNC(name, fptype, fpname, fppycmd) \
	static long umpyew_##name(fptype fpname, struct stat64 *buf) \
	{ \
		PyObject *pStatObj; \
		PyObject *pStatField; \
		\
		PYINSYS(name, 1); \
		PYARG(0, fppycmd(fpname)); \
		\
		PYCALL; \
		\
		if (retval == 0) \
		{ \
			pStatObj = PyTuple_GetItem(pRetVal, 2); \
			GDEBUG(3, "%p", pStatObj); \
			PY_COPYSTATFIELD(st_dev); \
			PY_COPYSTATFIELD(st_ino); \
			PY_COPYSTATFIELD(st_mode); \
			PY_COPYSTATFIELD(st_nlink); \
			PY_COPYSTATFIELD(st_uid); \
			PY_COPYSTATFIELD(st_gid); \
			PY_COPYSTATFIELD(st_rdev); \
			PY_COPYSTATFIELD(st_size); \
			PY_COPYSTATFIELD(st_blksize); \
			PY_COPYSTATFIELD(st_blocks); \
			PY_COPYSTATFIELD(st_atime); \
			PY_COPYSTATFIELD(st_mtime); \
			PY_COPYSTATFIELD(st_ctime); \
			GDEBUG(3, "ino: %d", buf->st_ino); \
		} \
		 \
		GDEBUG(3, "returning %d", retval); \
		PYOUT; \
		return retval; \
	}

UMPYEW_STATFUNC(stat64, char*, path, PyString_FromString);
UMPYEW_STATFUNC(lstat64, char*, path, PyString_FromString);
UMPYEW_STATFUNC(fstat64, int, fd, PyInt_FromLong);

#define UMPYEW_STATFSFUNC(name, fptype, fpname, fppycmd) \
	static long umpyew_##name(fptype fpname, struct statfs64 *buf) \
	{ \
		PyObject *pStatObj; \
		PyObject *pStatField; \
	 \
		PYINSYS(name, 1); \
		PYARG(0, fppycmd(fpname)); \
	 \
		PYCALL; \
	 \
		if (retval == 0) \
		{ \
			pStatObj = PyTuple_GetItem(pRetVal, 2); \
			PY_COPYSTATFIELD(f_type); \
			PY_COPYSTATFIELD(f_bsize); \
			PY_COPYSTATFIELD(f_blocks); \
			PY_COPYSTATFIELD(f_bfree); \
			PY_COPYSTATFIELD(f_bavail); \
			PY_COPYSTATFIELD(f_files); \
			PY_COPYSTATFIELD(f_ffree); \
			/* f_namelen is called f_namemax in the posix.stat_result class */ \
			if ((pStatField = PyDict_GetItemString(pStatObj, "f_namemax"))) \
				buf->f_namelen = PyInt_AsLong(pStatField); \
	 \
			/* f_fsid seems to be a struct with a 'int __val[2]' inside. So we \
			 * expect a tuple with the two values. */ \
	 \
			if ((pStatField = PyDict_GetItemString(pStatObj, "f_fsid"))) \
			{ \
				buf->f_fsid.__val[0] = PyInt_AsLong(PyTuple_GetItem(pStatField, 0)); \
				buf->f_fsid.__val[1] = PyInt_AsLong(PyTuple_GetItem(pStatField, 1)); \
			} \
			/* statvfs returns also frsize, favail, flag and namemax (instead of \
			 * namelen), but does not return type. Could they be unified? Mind \
			 * that python has os.statvfs but not os.statfs. */ \
		} \
	 \
		PYOUT; \
		return retval; \
	} \

UMPYEW_STATFSFUNC(statfs64, char*, path, PyString_FromString);
UMPYEW_STATFSFUNC(fstatfs64, int, fd, PyInt_FromLong);

static long umpyew_readlink(char *path, char *buf, size_t bufsiz)
{
	PYINSYS(readlink, 2);
	PYARG(0, PyString_FromString(path));
	PYARG(1, PyInt_FromLong(bufsiz));
	PYCALL;
	if (retval >= 0)
	{
		strncpy(buf, PyString_AsString(PyTuple_GetItem(pRetVal, 2)), bufsiz);
		PYOUT;
		if (buf[bufsiz-1])
			return bufsiz;
		else
			return strlen(buf);
	}
	PYOUT;
	return retval;
}

static long umpyew_lseek(int fd, int offset, int whence)
{
	PYINSYS(lseek, 3);
	PYARG(0, PyInt_FromLong(fd));
	PYARG(1, PyInt_FromLong(offset));
	PYARG(2, PyInt_FromLong(whence));
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_utime(char *path, struct utimbuf *buf)
{
	PYINSYS(utime, 2);
	PYARG(0, PyString_FromString(path));
	if (buf)
		PYARG(1, PyTuple_Pack(2, PyInt_FromLong(buf->actime), PyInt_FromLong(buf->modtime)));
	else
		PYARG(1, Py_None);
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_utimes(char *path, struct timeval tv[2])
{
	PYINSYS(utime, 2);
	PYARG(0, PyString_FromString(path));
	if (tv)
		PYARG(1, PyTuple_Pack(2, 
					(tv[0].tv_usec) ?
					(PyFloat_FromDouble(tv[0].tv_sec + (double)tv[0].tv_usec / 1000000.0)):
					(PyInt_FromLong(tv[0].tv_sec)),
					(tv[1].tv_usec) ?
					(PyFloat_FromDouble(tv[1].tv_sec + (double)tv[1].tv_usec / 1000000.0)):
					(PyInt_FromLong(tv[1].tv_sec))));
	else
		PYARG(1, Py_None);
	PYCALL;
	PYOUT;
	return retval;
}

static long umpyew_read(int fd, void *buf, size_t count)
{
	PYINSYS(read, 2);
	PYARG(0, PyInt_FromLong(fd));
	PYARG(1, PyInt_FromLong(count));
	PYCALL;
	
	if (retval >= 0)
		memcpy(buf, PyString_AsString(PyTuple_GetItem(pRetVal, 2)), retval);

	PYOUT;
	return retval;
}

static long umpyew_write(int fd, const void *buf, size_t count)
{
	PYINSYS(write, 3);
	PYARG(0, PyInt_FromLong(fd));
	PYARG(1, PyString_FromStringAndSize(buf, count));
	PYARG(2, PyInt_FromLong(count));
	PYCALL;
	PYOUT;
	return retval;
}

static ssize_t umpyew_pread64(int fd, void *buf, size_t count, long long offset)
{
	PYINSYS(pread64, 3);
	PYARG(0, PyInt_FromLong(fd));
	PYARG(1, PyInt_FromLong(count));
	PYARG(2, PyLong_FromLongLong(offset));
	PYCALL;

	if (retval >= 0)
		memcpy(buf, PyString_AsString(PyTuple_GetItem(pRetVal, 2)), retval);

	PYOUT;
	return retval;
}

static ssize_t umpyew_pwrite64(int fd, const void *buf, size_t count, long long offset)
{
	PYINSYS(pwrite64, 4);
	PYARG(0, PyInt_FromLong(fd));
	PYARG(1, PyString_FromStringAndSize(buf, count));
	PYARG(2, PyInt_FromLong(count));
	PYARG(3, PyLong_FromLongLong(offset));
	PYCALL;
	PYOUT;
	return retval;
}

/*
 * End of system calls definitions.
 */


/* This is used if modCtl or modCheckFun are not defined */
static long umpyew_alwayszero()
{
	return 0;
}

static epoch_t checkfun(int type, void *arg)
{
	PyObject *pKw = PyDict_New();
	PyObject *pArg;
	PyObject *pRetVal;
	epoch_t retval = -1;
	struct binfmt_req *bf;

	switch(type)
	{
		case CHECKPATH:
			pArg = PyString_FromString((char*)arg);
			PyDict_SetItemString(pKw, "path", pArg);
			break;

		case CHECKSOCKET:
			pArg = PyInt_FromLong((long)arg);
			PyDict_SetItemString(pKw, "socket", pArg);
			break;

		case CHECKFSTYPE:
			pArg = PyString_FromString((char*)arg);
			PyDict_SetItemString(pKw, "fstype", pArg);
			break;

		case CHECKSC:
			pArg = PyInt_FromLong(*((long*)arg));
			PyDict_SetItemString(pKw, "sc", pArg);
			break;

		case CHECKBINFMT:
			bf = (struct binfmt_req*) arg;
			pArg = PyTuple_New(3);
			if (bf->path)
				PyTuple_SET_ITEM(pArg, 0, PyString_FromString(bf->path));

			if (bf->interp)
				PyTuple_SET_ITEM(pArg, 1, PyString_FromString(bf->interp));
				

			PyTuple_SET_ITEM(pArg, 2, PyInt_FromLong(bf->flags));
			PyDict_SetItemString(pKw, "binfmt", pArg);
			break;

		default:
			GERROR("Unknown check type %d", type);
			retval = 0;
			break;
	}

	if (!retval)
	{
		Py_DECREF(pKw);
		return retval;
	}

	pRetVal = PyObject_Call(ps.checkfun, pEmptyTuple, pKw);
	if (!pRetVal)
	{
		PyErr_Print();
		return 0;
	}

	retval = PyInt_AsLong(pRetVal);
	Py_DECREF(pArg);
	Py_DECREF(pKw);
	Py_DECREF(pRetVal);
	return retval;
}

static long ctl(int type, va_list ap)
{
	long retval;
	PyObject *pArg, *pCmdArgs, *pRetVal;

	pArg = PyTuple_New(3);

	switch(type)
	{
		case MC_PROC | MC_ADD:
			PyTuple_SET_ITEM(pArg, 0, PyString_FromString("proc"));
			PyTuple_SET_ITEM(pArg, 1, PyString_FromString("add"));
			pCmdArgs = PyTuple_New(3);
			/* The tuple is (id, ppid, max) */
			PyTuple_SET_ITEM(pCmdArgs, 0, PyInt_FromLong(va_arg(ap, long)));
			PyTuple_SET_ITEM(pCmdArgs, 1, PyInt_FromLong(va_arg(ap, long)));
			PyTuple_SET_ITEM(pCmdArgs, 2, PyInt_FromLong(va_arg(ap, long)));
			break;
			
		case MC_PROC | MC_REM:
			PyTuple_SET_ITEM(pArg, 0, PyString_FromString("proc"));
			PyTuple_SET_ITEM(pArg, 1, PyString_FromString("rem"));
			pCmdArgs = PyTuple_New(1);
			/* The tuple is (id) */
			PyTuple_SET_ITEM(pCmdArgs, 0, PyInt_FromLong(va_arg(ap, long)));
			break;

		case MC_MODULE | MC_ADD:
			PyTuple_SET_ITEM(pArg, 0, PyString_FromString("module"));
			PyTuple_SET_ITEM(pArg, 1, PyString_FromString("add"));
			pCmdArgs = PyTuple_New(1);
			/* The tuple is (code) */
			PyTuple_SET_ITEM(pCmdArgs, 0, PyInt_FromLong(va_arg(ap, long)));
			break;

		case MC_MODULE | MC_REM:
			PyTuple_SET_ITEM(pArg, 0, PyString_FromString("module"));
			PyTuple_SET_ITEM(pArg, 1, PyString_FromString("rem"));
			pCmdArgs = PyTuple_New(1);
			/* The tuple is (code) */
			PyTuple_SET_ITEM(pCmdArgs, 0, PyInt_FromLong(va_arg(ap, long)));
			break;
		
		default:
			Py_DECREF(pArg);
			return -1;
	}
	
	PyTuple_SET_ITEM(pArg, 2, pCmdArgs);

	pRetVal = PyObject_CallObject(ps.ctl, pArg);
	Py_DECREF(pCmdArgs);
	Py_DECREF(pArg);

	retval = PyInt_AsLong(pRetVal);
	Py_DECREF(pRetVal);

	return retval;
}

static void
__attribute__ ((constructor))
init (void)
{}

void _um_mod_init(char *initargs)
{
	const char *name;
	char *tmphs, *cwd;
	int i;

	PyObject *pName, *pTmpObj, *pTmpFunc, *pTmpDict;

	GMESSAGE("umpyew init");

	if (!strlen(initargs))
	{
		GERROR("You must specify the Python module name.");
		return;
	}

	name = initargs;
	
	s.name="Prototypal Python bindings for *MView";
	s.code=0x07;
	s.syscall=(sysfun *)calloc(scmap_scmapsize,sizeof(sysfun));
	s.socket=(sysfun *)calloc(scmap_sockmapsize,sizeof(sysfun));

	Py_Initialize();
	Py_InitModule("umpyew", pEmbMethods);
	
	pEmptyTuple = PyTuple_New(0);
	pName = PyString_FromString(name);


	cwd = getcwd(NULL, 0);
	if (cwd)
	{
		setenv("PYTHONPATH", cwd, 0);
		free(cwd);
	}

	pModule = PyImport_Import(pName);
	Py_DECREF(pName);

	if (!pModule)
	{
		GERROR("Error loading Python module %s.\nIt has been searched for in the following path:\n%s", name, getenv("PYTHONPATH"));
		PyErr_Print();
		return;
	}

	/*
	 * Add ctl
	 */
	if ((ps.ctl = PyObject_GetAttrString(pModule, "modCtl")) && PyCallable_Check(ps.ctl))
		s.ctl = ctl;
	else
	{
		GDEBUG(2, "function modCheckFun not defined in module %s", name);
		s.ctl = umpyew_alwayszero;
		Py_XDECREF(ps.ctl);
	}

	/*
	 * Add checkfun
	 */
	if ((ps.checkfun = PyObject_GetAttrString(pModule, "modCheckFun")) && PyCallable_Check(ps.checkfun))
		s.checkfun = checkfun;
	else
	{
		GDEBUG("2, function modCheckFun not defined in module %s", name);

		/* This makes the module almost useless, but we respect its author's will. */
		s.checkfun = (epoch_t(*)())umpyew_alwayszero;
		Py_XDECREF(ps.checkfun);
	}
	
	/*
	 * Add ctlhs
	 */
	MCH_ZERO(&(s.ctlhs));
	pTmpObj = PyObject_GetAttrString(pModule, "modCtlHistorySet");

	if (pTmpObj && PyList_Check(pTmpObj))
		for (i = 0; i < PyList_Size(pTmpObj); i++)
			if ((tmphs = PyString_AsString(PyList_GET_ITEM(pTmpObj, i))))
			{
				if (!strcmp(tmphs, "proc"))
					MCH_SET(MC_PROC, &(s.ctlhs));
				else if (!strcmp(tmphs, "module"))
					MCH_SET(MC_MODULE, &(s.ctlhs));
				else if (!strcmp(tmphs, "mount"))
					MCH_SET(MC_MOUNT, &(s.ctlhs));
			}

	Py_XDECREF(pTmpObj);

	/*
	 * Call modInit, if present
	 */
	pTmpObj = PyObject_GetAttrString(pModule, "modInit");
	if (pTmpObj && PyCallable_Check(pTmpObj))
		PyObject_CallObject(pTmpObj, pEmptyTuple);
	Py_XDECREF(pTmpObj);


	/*
	 * Add system calls
	 */
	ps.syscall = calloc(scmap_scmapsize, sizeof(PyObject*));

	PYTHON_SYSCALL(open, sysOpen);
	PYTHON_SYSCALL(close, sysClose);
	PYTHON_SYSCALL(access, sysAccess);
	PYTHON_SYSCALL(mkdir, sysMkdir);
	PYTHON_SYSCALL(rmdir, sysRmdir);
	PYTHON_SYSCALL(chmod, sysChmod);
	PYTHON_SYSCALL(chown, sysChown);
	PYTHON_SYSCALL(lchown, sysLchown);
	PYTHON_SYSCALL(unlink, sysUnlink);
	PYTHON_SYSCALL(link, sysLink);
	PYTHON_SYSCALL(symlink, sysSymlink);
	PYTHON_SYSCALL(stat64, sysStat64);
	PYTHON_SYSCALL(lstat64, sysLstat64);
	PYTHON_SYSCALL(fstat64, sysFstat64);
	PYTHON_SYSCALL(statfs64, sysStatfs64);
	PYTHON_SYSCALL(fstatfs64, sysStatfs64);
	PYTHON_SYSCALL(readlink, sysReadlink);
	PYTHON_SYSCALL(lseek, sysLseek);
	PYTHON_SYSCALL(utime, sysUtime);
	PYTHON_SYSCALL(utimes, sysUtimes)
	PYTHON_SYSCALL(read, sysRead);
	PYTHON_SYSCALL(write, sysWrite);
	PYTHON_SYSCALL(pread64, sysPread64);
	PYTHON_SYSCALL(pwrite64, sysPwrite64);

	add_service(&s);
}

static void
__attribute__ ((destructor))
fini (void)
{
	GBACKTRACE(5,20);

	PyObject *pTmpObj = PyObject_GetAttrString(pModule, "modFini");
	if (pTmpObj && PyCallable_Check(pTmpObj))
		PyObject_CallObject(pTmpObj, pEmptyTuple);
	Py_XDECREF(pTmpObj);

	free(s.syscall);
	free(s.socket);

	/* Finalizing will destroy everything, no need for DECREFs (I think) */
	PyErr_Clear();
	Py_Finalize();
	GMESSAGE("umpyew fini");
}

/*
 * Development stuff, don't look!
 */

#if 0	
#if 0 
	SERVICESYSCALL(s, getdents, getdents64);
#endif
	SERVICESYSCALL(s, getdents64, getdents64);
#if !defined(__x86_64__)
	SERVICESYSCALL(s, fcntl, fcntl32);
	SERVICESYSCALL(s, fcntl64, fcntl64);
	SERVICESYSCALL(s, _llseek, _llseek);
#else
	SERVICESYSCALL(s, fcntl, fcntl);
#endif
	SERVICESYSCALL(s, fchown, fchown);
	SERVICESYSCALL(s, fchmod, fchmod);
	SERVICESYSCALL(s, fsync, fsync);
	SERVICESYSCALL(s, fdatasync, fdatasync);
	SERVICESYSCALL(s, _newselect, select);
#endif

#if 0
static struct cpymap_s cpymap_syscall[] = {
	{ "execve", "sysExecve" },
	{ "chdir", "sysChdir" },
	{ "fchdir", "sysFchdir" },
	{ "getcwd", "sysGetcwd" },
	{ "select", "sysSelect" },
	{ "poll", "sysPoll" },
	{ "_newselect", "sys_newselect" },
	{ "pselect6", "sysPselect6" },
	{ "ppoll", "sysPpoll" },
	{ "umask", "sysUmask" },
	{ "chroot", "sysChroot" },
	{ "dup", "sysDup" },
	{ "dup2", "sysDup2" },
	{ "mount", "sysMount" },
	{ "umount2", "sysUmount2" },
	{ "ioctl", "sysIoctl" },
	{ "fchown", "sysFchown" },
	{ "chown32", "sysChown32" },
	{ "lchown32", "sysLchown32" },
	{ "fchown32", "sysFchown32" },
	{ "fchmod", "sysFchmod" },
	{ "getxattr", "sysGetxattr" },
	{ "lgetxattr", "sysLgetxattr" },
	{ "fgetxattr", "sysFgetxattr" },
	{ "readlink", "sysReadlink" },
	{ "getdents64", "sysGetdents64" },
	{ "fcntl", "sysFcntl" },
	{ "fcntl64", "sysFcntl64" },
	{ "lseek", "sysLseek" },
	{ "_llseek", "sys_llseek" },
	{ "rename", "sysRename" },
	{ "fsync", "sysFsync" },
	{ "fdatasync", "sysFdatasync" },
	{ "truncate64", "sysTruncate64" },
	{ "ftruncate64", "sysFtruncate64" },
#ifdef _UM_MMAP
	{ "mmap", "sysMmap" },
	{ "mmap2", "sysMmap2" },
	{ "munmap", "sysMunmap" },
	{ "mremap", "sysMremap" },
#endif
	{ "gettimeofday", "sysGettimeofday" },
	{ "settimeofday", "sysSettimeofday" },
	{ "adjtimex", "sysAdjtimex" },
	{ "clock_gettime", "sysClock_gettime" },
	{ "clock_settime", "sysClock_settime" },
	{ "clock_getres", "sysClock_getres" },
	{ "uname", "sysUname" },
	{ "gethostname", "sysGethostname" },
	{ "sethostname", "sysSethostname" },
	{ "getdomainname", "sysGetdomainname" },
	{ "setdomainname", "sysSetdomainname" },
	{ "getuid", "sysGetuid" },
	{ "setuid", "sysSetuid" },
	{ "geteuid", "sysGeteuid" },
	{ "setfsuid", "sysSetfsuid" },
	{ "setreuid", "sysSetreuid" },
	{ "getresuid", "sysGetresuid" },
	{ "setresuid", "sysSetresuid" },
	{ "getgid", "sysGetgid" },
	{ "setgid", "sysSetgid" },
	{ "getegid", "sysGetegid" },
	{ "setfsgid", "sysSetfsgid" },
	{ "setregid", "sysSetregid" },
	{ "getresgid", "sysGetresgid" },
	{ "setresgid", "sysSetresgid" },
	{ "nice", "sysNice" },
	{ "getpriority", "sysGetpriority" },
	{ "setpriority", "sysSetpriority" },
	{ "getpid", "sysGetpid" },
	{ "getppid", "sysGetppid" },
	{ "getpgid", "sysGetpgid" },
	{ "setpgid", "sysSetpgid" },
	{ "getsid", "sysGetsid" },
	{ "setsid", "sysSetsid" },
#if 0
	{ "sysctl", "sysSysctl" },
	{ "ptrace", "sysPtrace" },
#endif
	{ "kill", "sysKill" },
#if (__NR_socketcall != __NR_doesnotexist)
};

static struct cpymap_s cpymap_socket[] =
{
	{ "doesnotexist", "sysDoesnotexist" },
	{ "socket", "sysSocket" },
#else 
	{ "socket", "sysSocket" },
#endif
	{ "bind", "sysBind" },
	{ "connect", "sysConnect" },
	{ "listen", "sysListen" },
	{ "accept", "sysAccept" },
	{ "getsockname", "sysGetsockname" },
	{ "getpeername", "sysGetpeername" },
	{ "socketpair", "sysSocketpair" },
	{ "send", "sysSend" },
	{ "recv", "sysRecv" },
	{ "sendto", "sysSendto" },
	{ "recvfrom", "sysRecvfrom" },
	{ "shutdown", "sysShutdown" },
	{ "setsockopt", "sysSetsockopt" },
	{ "getsockopt", "sysGetsockopt" },
	{ "sendmsg", "sysSendmsg" },
	{ "recvmsg", "sysRecvmsg" },
#if (__NR_socketcall != __NR_doesnotexist)
	{ "msocket", "sysMsocket" },
#endif
};

#endif