/*
 * call-seq:
 *    conn.lo_truncate( lo_desc, len ) -> nil
 *
 * Truncates the large object _lo_desc_ to size _len_.
 */
static VALUE
pgconn_lotruncate(self, in_lo_desc, in_len)
    VALUE self, in_lo_desc, 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;
}