/*
 * call-seq:
 *    lrg.tell()
 *
 * Returns the current position of the large object pointer.
 */
static VALUE
pglarge_tell(obj)
  VALUE obj;
{
  int start;
  PGlarge *pglarge = get_pglarge(obj);

  if ((start = lo_tell(pglarge->pgconn,pglarge->lo_fd)) == -1) {
  rb_raise(rb_ePGError, "error while getting position");
  }
  return INT2NUM(start);
}