/*
 * call-seq:
 *    conn.describe_portal( portal_name ) -> PGresult
 *
 * Retrieve information about the portal _portal_name_.
 */
static VALUE
pgconn_describe_portal(self, stmt_name)
    VALUE self, stmt_name;
{
    PGresult *result;
    VALUE rb_pgresult;
    PGconn *conn = get_pgconn(self);
    char *stmt;
    if(stmt_name == Qnil) {
        stmt = NULL;
    }
    else {
        Check_Type(stmt_name, T_STRING);
        stmt = StringValuePtr(stmt_name);
    }
    result = PQdescribePortal(conn, stmt);
    rb_pgresult = new_pgresult(result, conn);
    pgresult_check(self, rb_pgresult);
    return rb_pgresult;
}