python-types.c

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#ifdef USE_PYTHON
#include <Python.h>
#include <tgl/tgl.h>
#include <tgl/tools.h>
#include <tgl/updates.h>
#include <tgl/tgl-structures.h>
#include <stdlib.h>
#include "structmember.h"

// Python Imports
#include "datetime.h"

#include "python-types.h"
#include "python-tg.h"

extern struct tgl_state *TLS;

// TGL Python Exceptions
extern PyObject *TglError;
extern PyObject *PeerError;
extern PyObject *MsgError;

// Forward type declarations
PyTypeObject tgl_PeerType;

// Utility functions
PyObject* get_datetime(long datetime)
{
  return PyDateTime_FromTimestamp(Py_BuildValue("(O)", PyLong_FromLong(datetime)));
}


//
// tgl_peer_t wrapper
//
static void
tgl_Peer_dealloc(tgl_Peer* self)
{
  Py_TYPE(self)->tp_free((PyObject*)self);
}

static PyObject *
tgl_Peer_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
{
  tgl_Peer *self;

  PyDateTime_IMPORT;
  self = (tgl_Peer *)type->tp_alloc(type, 0);
  return (PyObject *)self;
}

static int
tgl_Peer_init(tgl_Peer *self, PyObject *args, PyObject *kwds)
{
  static char *kwlist[] = {"type", "id", NULL};
  tgl_peer_id_t peer_id;
  if(!PyArg_ParseTupleAndKeywords(args, kwds, "ii", kwlist, 
                                  &peer_id.type,
                                  &peer_id.id))
  {
    PyErr_Format(PeerError, "Peer must specify type and id");
    return -1;
  }
  self->peer = tgl_peer_get(TLS, peer_id);
  if(self->peer == NULL)
    return -1;

  return 0;
}

static PyObject *
tgl_Peer_getname (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      ret = PyUnicode_FromString(self->peer->user.print_name);
      break;
    case TGL_PEER_CHAT:
      ret = PyUnicode_FromString(self->peer->chat.print_title);
      break;
    case TGL_PEER_ENCR_CHAT:
      ret = PyUnicode_FromString(self->peer->encr_chat.print_name);
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}


static PyObject *
tgl_Peer_getuser_id (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      ret = PyLong_FromLong(self->peer->id.id);
      break;
    case TGL_PEER_CHAT:
      PyErr_SetString(PeerError, "peer.type_name == 'chat' has no user_id");
      Py_RETURN_NONE;
 
      break;
    case TGL_PEER_ENCR_CHAT:
      ret = PyLong_FromLong(self->peer->encr_chat.user_id);
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getuser_list (tgl_Peer *self, void *closure)
{
  PyObject *ret;
  int i;
  struct tgl_chat_user *user_list;

  switch(self->peer->id.type) {
    case TGL_PEER_CHAT:
      ret = PyList_New(0);
        for(i = 0; i < self->peer->chat.user_list_size; i++) {
        // TODO: Sort tgl_user objects, maybe offline mode is enoug?
        user_list = self->peer->chat.user_list + i;
        PyList_Append(ret, PyLong_FromLong(user_list->user_id));
      }
      break;
    case TGL_PEER_ENCR_CHAT:
    case TGL_PEER_USER:
      PyErr_SetString(PeerError, "Only peer.type_name == 'chat' has user_list");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getuser_status(tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      ret = PyDict_New();
      PyDict_SetItemString(ret, "online", self->peer->user.status.online? Py_True : Py_False);
      PyDict_SetItemString(ret, "when", get_datetime(self->peer->user.status.when));

      break;
    case TGL_PEER_CHAT:
    case TGL_PEER_ENCR_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'user' has user_status");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getphone (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      if(self->peer->user.phone)
        ret = PyUnicode_FromString(self->peer->user.phone);
      else
        Py_RETURN_NONE;
      break;
    case TGL_PEER_CHAT:
    case TGL_PEER_ENCR_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'user' has phone");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getusername (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      if(self->peer->user.username)
        ret = PyUnicode_FromString(self->peer->user.username);
      else
        Py_RETURN_NONE;
      break;
    case TGL_PEER_CHAT:
    case TGL_PEER_ENCR_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'user' has username");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getfirst_name (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      if(self->peer->user.first_name)
        ret = PyUnicode_FromString(self->peer->user.first_name);
      else
        Py_RETURN_NONE;
      break;
    case TGL_PEER_CHAT:
    case TGL_PEER_ENCR_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'user' has first_name");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getlast_name (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      if(self->peer->user.last_name)
        ret = PyUnicode_FromString(self->peer->user.last_name);
      else
        Py_RETURN_NONE;
      break;
    case TGL_PEER_CHAT:
    case TGL_PEER_ENCR_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'user' has last_name");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_getuser (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_ENCR_CHAT:
      ret = tgl_Peer_FromTglPeer(tgl_peer_get(TLS, TGL_MK_USER (self->peer->encr_chat.user_id)));
      break;
    case TGL_PEER_USER:
      ret = (PyObject*)self;
      break;
    case TGL_PEER_CHAT:
      PyErr_SetString(PeerError, "Only peer.type_name == 'chat' does not have user");
      Py_RETURN_NONE;
      break;
    default:
     PyErr_SetString(PeerError, "peer.type_name not supported!");
     Py_RETURN_NONE;
  }

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_gettype_name(tgl_Peer* self)
{
  PyObject *name;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      name = PyUnicode_FromString("user");
      break;
    case TGL_PEER_CHAT:
      name = PyUnicode_FromString("chat");
      break;
    case TGL_PEER_ENCR_CHAT:
      name = PyUnicode_FromString("secret_chat");
      break;
    default:
      name = PyUnicode_FromString("unknown");
    }
  return name;
}

static PyObject *
tgl_Peer_getid (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  ret = PyLong_FromLong(self->peer->id.id);

  Py_XINCREF(ret);
  return ret;
}

static PyObject *
tgl_Peer_gettype (tgl_Peer *self, void *closure)
{
  PyObject *ret;

  ret = PyLong_FromLong(self->peer->id.type); 

  Py_XINCREF(ret);
  return ret;
}

static PyGetSetDef tgl_Peer_getseters[] = {
  {"id", (getter)tgl_Peer_getid, NULL, "", NULL},
  {"type", (getter)tgl_Peer_gettype, NULL, "", NULL},
  {"type_name", (getter)tgl_Peer_gettype_name, NULL, "", NULL},
  {"name", (getter)tgl_Peer_getname, NULL, "", NULL},
  {"user_id", (getter)tgl_Peer_getuser_id, NULL, "", NULL},
  {"user", (getter)tgl_Peer_getuser, NULL, "", NULL},
  {"user_list", (getter)tgl_Peer_getuser_list, NULL, "", NULL},
  {"user_status", (getter)tgl_Peer_getuser_status, NULL, "", NULL},
  {"phone", (getter)tgl_Peer_getphone, NULL, "", NULL},
  {"username", (getter)tgl_Peer_getusername, NULL, "", NULL},
  {"first_name", (getter)tgl_Peer_getfirst_name, NULL, "", NULL},
  {"last_name", (getter)tgl_Peer_getlast_name, NULL, "", NULL},
  {NULL}  /* Sentinel */
};

static PyMemberDef tgl_Peer_members[] = {
  {NULL}  /* Sentinel */
};

static PyObject *
tgl_Peer_send_msg (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"message", "callback", "preview", "reply", NULL};

  char *message;
  int preview = 1;
  int reply = 0;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|Opi", kwlist, &message, &callback, &preview, &reply)) {
    PyObject *api_call;
    PyObject *flags;

    flags = Py_BuildValue("(ii)", preview, reply);


    if(callback)
      api_call = Py_BuildValue("OsOO", (PyObject*) self, message, callback, flags);
    else
      api_call = Py_BuildValue("OsOO", (PyObject*) self, message, Py_None, flags);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);
    Py_XINCREF(flags);

    return py_send_msg(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_typing (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"callback", NULL};

  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "|O", kwlist, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OO", (PyObject*) self, callback);
    else
      api_call = Py_BuildValue("O", (PyObject*) self);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_typing(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_typing_abort (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"callback", NULL};

  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "|O", kwlist, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OO", (PyObject*) self, callback);
    else
      api_call = Py_BuildValue("O", (PyObject*) self);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_typing_abort(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_rename_chat (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"title", "callback", NULL};

  char * title;
  PyObject *callback = NULL;

  if(self->peer->id.type != TGL_PEER_CHAT) {
    PyErr_SetString(PeerError, "Only a chat peer can be renamed");
    Py_XINCREF(Py_False);
    return Py_False;
  }

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &title, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, title, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, title);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_rename_chat(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_photo (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_photo(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_video (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_video(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_audio (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_audio(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_document (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_document(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_file (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_file(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_text (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char *filename;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_text(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_chat_set_photo (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"filename", "callback", NULL};

  char * filename;
  PyObject *callback = NULL;

  if(self->peer->id.type != TGL_PEER_CHAT) {
    PyErr_SetString(PeerError, "Only a chat peer can have a chat photo set.");
    Py_XINCREF(Py_False);
    return Py_False;
  }

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "s|O", kwlist, &filename, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OsO", (PyObject*) self, filename, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, filename);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_chat_set_photo(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_chat_add_user (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"peer", "callback", NULL};

  PyObject *peer;
  PyObject *callback = NULL;

  if(self->peer->id.type != TGL_PEER_CHAT) {
    PyErr_SetString(PeerError, "Only a chat peer can have a user added.");
    Py_XINCREF(Py_False);
    return Py_False;
  }

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "O!|O", kwlist, &tgl_PeerType, &peer, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OOO", (PyObject*) self, peer, callback);
    else
      api_call = Py_BuildValue("OO", (PyObject*) self, peer);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_chat_add_user(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_chat_del_user (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"peer", "callback", NULL};

  PyObject *peer;
  PyObject *callback = NULL;

  if(self->peer->id.type != TGL_PEER_CHAT) {
    PyErr_SetString(PeerError, "Only a chat peer can have a user deleted.");
    Py_XINCREF(Py_False);
    return Py_False;
  }

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "O!|O", kwlist, &tgl_PeerType, &peer, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OOO", (PyObject*) self, peer, callback);
    else
      api_call = Py_BuildValue("OO", (PyObject*) self, peer);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_chat_del_user(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_history (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"offset", "limit", "callback", NULL};

  int offset, limit;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "ii|O", kwlist, &offset, &limit, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OiiO", (PyObject*) self, offset, limit, callback);
    else
      api_call = Py_BuildValue("Oii", (PyObject*) self, offset, limit);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_history(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_info (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"callback", NULL};

  PyObject *callback = NULL;

  if(self->peer->id.type == TGL_PEER_ENCR_CHAT) {
    PyErr_SetString(PeerError, "Secret chats currently have no info.");
    Py_XINCREF(Py_False);
    return Py_False;
  }

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "O", kwlist, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OO", (PyObject*) self, callback);
    else
      api_call = Py_None;

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);
    if(self->peer->id.type == TGL_PEER_USER)
      return py_user_info(Py_None, api_call);
    else
      return py_chat_info(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_send_contact (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"phone", "first_name", "last_name", "callback", NULL};

  char *phone, *first_name, *last_name;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "sss|O", kwlist, &phone, &first_name, &last_name, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("Osss", (PyObject*) self, phone, first_name, last_name, callback);
    else
      api_call = Py_BuildValue("Os", (PyObject*) self, phone, first_name, last_name);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_contact(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}


static PyObject *
tgl_Peer_send_location (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"latitude", "longitude", "callback", NULL};

  PyObject *latitude, *longitude;
  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "O!O!|O", kwlist, &PyFloat_Type,
        &latitude, &PyFloat_Type, &longitude, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OOOO", (PyObject*) self, latitude, longitude, callback);
    else
      api_call = Py_BuildValue("OOO", (PyObject*) self, latitude, longitude);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_send_location(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyObject *
tgl_Peer_mark_read (tgl_Peer *self, PyObject *args, PyObject *kwargs)
{
  static char *kwlist[] = {"callback", NULL};

  PyObject *callback = NULL;

  if(PyArg_ParseTupleAndKeywords(args, kwargs, "|O", kwlist, &callback)) {
    PyObject *api_call;

    if(callback)
      api_call = Py_BuildValue("OO", (PyObject*) self, callback);
    else
      api_call = Py_BuildValue("O", (PyObject*) self);

    Py_INCREF(Py_None);
    Py_XINCREF(api_call);

    return py_mark_read(Py_None, api_call);
  } else {
    PyErr_Print();
    Py_XINCREF(Py_False);
    return Py_False;
  }

}

static PyMethodDef tgl_Peer_methods[] = {
  {"send_msg",          (PyCFunction)tgl_Peer_send_msg, METH_VARARGS | METH_KEYWORDS,
    "Send a message to peer object"},
  {"send_typing",       (PyCFunction)tgl_Peer_send_typing, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_typing_abort", (PyCFunction)tgl_Peer_send_typing_abort, METH_VARARGS | METH_KEYWORDS, ""},
  {"rename_chat",       (PyCFunction)tgl_Peer_rename_chat, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_photo",        (PyCFunction)tgl_Peer_send_photo, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_video",        (PyCFunction)tgl_Peer_send_video, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_audio",        (PyCFunction)tgl_Peer_send_audio, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_file",         (PyCFunction)tgl_Peer_send_file, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_document",     (PyCFunction)tgl_Peer_send_document, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_text",         (PyCFunction)tgl_Peer_send_text, METH_VARARGS | METH_KEYWORDS, ""},
  {"chat_set_photo",    (PyCFunction)tgl_Peer_chat_set_photo, METH_VARARGS | METH_KEYWORDS, ""},
  {"info",              (PyCFunction)tgl_Peer_info, METH_VARARGS | METH_KEYWORDS, ""},
  {"history",           (PyCFunction)tgl_Peer_history, METH_VARARGS | METH_KEYWORDS, ""},
  {"chat_add_user",     (PyCFunction)tgl_Peer_chat_add_user, METH_VARARGS | METH_KEYWORDS, ""},
  {"chat_del_user",     (PyCFunction)tgl_Peer_chat_del_user, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_contact",      (PyCFunction)tgl_Peer_send_contact, METH_VARARGS | METH_KEYWORDS, ""},
  {"send_location",     (PyCFunction)tgl_Peer_send_location, METH_VARARGS | METH_KEYWORDS, ""},
  {"mark_read",         (PyCFunction)tgl_Peer_mark_read, METH_VARARGS | METH_KEYWORDS, ""},
  {NULL}  /* Sentinel */
};


static PyObject *
tgl_Peer_repr(tgl_Peer *self)
{
  PyObject *ret;

  switch(self->peer->id.type) {
    case TGL_PEER_USER:
      ret = PyUnicode_FromFormat("<tgl.Peer: type=user, id=%ld, username=%R, name=%R, first_name=%R, last_name=%R, phone=%R>",
                                  self->peer->id.id,
                                  PyObject_GetAttrString((PyObject*)self, "username"),
                                  PyObject_GetAttrString((PyObject*)self, "name"),
                                  PyObject_GetAttrString((PyObject*)self, "first_name"),
                                  PyObject_GetAttrString((PyObject*)self, "last_name"),
                                  PyObject_GetAttrString((PyObject*)self, "phone")
            );
      break;
    case TGL_PEER_CHAT:
      ret = PyUnicode_FromFormat("<tgl.Peer: type=chat, id=%ld, name=%s>",
                                  self->peer->id.id,  self->peer->chat.print_title);
      break;
    case TGL_PEER_ENCR_CHAT:
      ret = PyUnicode_FromFormat("<tgl.Peer: type=secret_chat, id=%ld, name=%s, user=%R>",
                                  self->peer->id.id,  self->peer->encr_chat.print_name,
                                  PyObject_GetAttrString((PyObject*)self, "user"));
      break;
    default:
      ret = PyUnicode_FromFormat("<tgl.Peer: Type Unknown>");
    }

  return ret;
}

PyObject *
tgl_Peer_RichCompare(PyObject *self, PyObject *other, int cmp)
{
  PyObject *result = NULL;

  if(!PyObject_TypeCheck(other, &tgl_PeerType)) {
    result = Py_False;
  } else {
    if(((tgl_Peer*)self)->peer == NULL ||
       ((tgl_Peer*)other)->peer == NULL) {
      result = Py_False; // If either object is not properly instantiated, compare is false
    } else {
      switch (cmp) {
      case Py_EQ:
        result = ((tgl_Peer*)self)->peer->id.id == ((tgl_Peer*)other)->peer->id.id ? Py_True : Py_False;
        break;
      case Py_NE:
        result = ((tgl_Peer*)self)->peer->id.id == ((tgl_Peer*)other)->peer->id.id ? Py_False : Py_True;
        break;
      case Py_LE:
      case Py_GE:
      case Py_GT:
      case Py_LT:
      default:
        Py_RETURN_NOTIMPLEMENTED;
      }
    }
  }
  Py_XINCREF(result);