/*
 * call-seq:
 *    conn.lo_truncate( lo_desc, len ) -> nil
 *
 * Truncates the large object _lo_desc_ to size _len_.
 */
static VALUE
pgconn_lotruncate(VALUE self, VALUE in_lo_desc, VALUE in_len)
{
        PGconn *conn = get_pgconn(self);
        int lo_desc = NUM2INT(in_lo_desc);
        size_t len = NUM2INT(in_len);

        if(lo_truncate(conn,lo_desc,len) < 0)
                rb_raise(rb_ePGError,"lo_truncate failed");

        return Qnil;
}