pl_funcs.c File Reference

#include "postgres.h"
#include "plpgsql.h"
#include "utils/memutils.h"

Include dependency graph for pl_funcs.c:

Go to the source code of this file.

Functions
void	plpgsql_ns_init (void)
void	plpgsql_ns_push (const char *label, PLpgSQL_label_type label_type)
void	plpgsql_ns_pop (void)
PLpgSQL_nsitem *	plpgsql_ns_top (void)
void	plpgsql_ns_additem (PLpgSQL_nsitem_type itemtype, int itemno, const char *name)
PLpgSQL_nsitem *	plpgsql_ns_lookup (PLpgSQL_nsitem *ns_cur, bool localmode, const char *name1, const char *name2, const char *name3, int *names_used)
PLpgSQL_nsitem *	plpgsql_ns_lookup_label (PLpgSQL_nsitem *ns_cur, const char *name)
PLpgSQL_nsitem *	plpgsql_ns_find_nearest_loop (PLpgSQL_nsitem *ns_cur)
const char *	plpgsql_stmt_typename (PLpgSQL_stmt *stmt)
const char *	plpgsql_getdiag_kindname (PLpgSQL_getdiag_kind kind)
static void	free_stmt (PLpgSQL_stmt *stmt)
static void	free_block (PLpgSQL_stmt_block *block)
static void	free_assign (PLpgSQL_stmt_assign *stmt)
static void	free_if (PLpgSQL_stmt_if *stmt)
static void	free_case (PLpgSQL_stmt_case *stmt)
static void	free_loop (PLpgSQL_stmt_loop *stmt)
static void	free_while (PLpgSQL_stmt_while *stmt)
static void	free_fori (PLpgSQL_stmt_fori *stmt)
static void	free_fors (PLpgSQL_stmt_fors *stmt)
static void	free_forc (PLpgSQL_stmt_forc *stmt)
static void	free_foreach_a (PLpgSQL_stmt_foreach_a *stmt)
static void	free_exit (PLpgSQL_stmt_exit *stmt)
static void	free_return (PLpgSQL_stmt_return *stmt)
static void	free_return_next (PLpgSQL_stmt_return_next *stmt)
static void	free_return_query (PLpgSQL_stmt_return_query *stmt)
static void	free_raise (PLpgSQL_stmt_raise *stmt)
static void	free_assert (PLpgSQL_stmt_assert *stmt)
static void	free_execsql (PLpgSQL_stmt_execsql *stmt)
static void	free_dynexecute (PLpgSQL_stmt_dynexecute *stmt)
static void	free_dynfors (PLpgSQL_stmt_dynfors *stmt)
static void	free_getdiag (PLpgSQL_stmt_getdiag *stmt)
static void	free_open (PLpgSQL_stmt_open *stmt)
static void	free_fetch (PLpgSQL_stmt_fetch *stmt)
static void	free_close (PLpgSQL_stmt_close *stmt)
static void	free_perform (PLpgSQL_stmt_perform *stmt)
static void	free_call (PLpgSQL_stmt_call *stmt)
static void	free_commit (PLpgSQL_stmt_commit *stmt)
static void	free_rollback (PLpgSQL_stmt_rollback *stmt)
static void	free_expr (PLpgSQL_expr *expr)
static void	free_stmts (List *stmts)
void	plpgsql_free_function_memory (PLpgSQL_function *func)
static void	dump_ind (void)
static void	dump_stmt (PLpgSQL_stmt *stmt)
static void	dump_block (PLpgSQL_stmt_block *block)
static void	dump_assign (PLpgSQL_stmt_assign *stmt)
static void	dump_if (PLpgSQL_stmt_if *stmt)
static void	dump_case (PLpgSQL_stmt_case *stmt)
static void	dump_loop (PLpgSQL_stmt_loop *stmt)
static void	dump_while (PLpgSQL_stmt_while *stmt)
static void	dump_fori (PLpgSQL_stmt_fori *stmt)
static void	dump_fors (PLpgSQL_stmt_fors *stmt)
static void	dump_forc (PLpgSQL_stmt_forc *stmt)
static void	dump_foreach_a (PLpgSQL_stmt_foreach_a *stmt)
static void	dump_exit (PLpgSQL_stmt_exit *stmt)
static void	dump_return (PLpgSQL_stmt_return *stmt)
static void	dump_return_next (PLpgSQL_stmt_return_next *stmt)
static void	dump_return_query (PLpgSQL_stmt_return_query *stmt)
static void	dump_raise (PLpgSQL_stmt_raise *stmt)
static void	dump_assert (PLpgSQL_stmt_assert *stmt)
static void	dump_execsql (PLpgSQL_stmt_execsql *stmt)
static void	dump_dynexecute (PLpgSQL_stmt_dynexecute *stmt)
static void	dump_dynfors (PLpgSQL_stmt_dynfors *stmt)
static void	dump_getdiag (PLpgSQL_stmt_getdiag *stmt)
static void	dump_open (PLpgSQL_stmt_open *stmt)
static void	dump_fetch (PLpgSQL_stmt_fetch *stmt)
static void	dump_cursor_direction (PLpgSQL_stmt_fetch *stmt)
static void	dump_close (PLpgSQL_stmt_close *stmt)
static void	dump_perform (PLpgSQL_stmt_perform *stmt)
static void	dump_call (PLpgSQL_stmt_call *stmt)
static void	dump_commit (PLpgSQL_stmt_commit *stmt)
static void	dump_rollback (PLpgSQL_stmt_rollback *stmt)
static void	dump_expr (PLpgSQL_expr *expr)
static void	dump_stmts (List *stmts)
void	plpgsql_dumptree (PLpgSQL_function *func)

Variables
static PLpgSQL_nsitem *	ns_top = NULL
static int	dump_indent

Function Documentation

dump_assert()

static void dump_assert ( PLpgSQL_stmt_assert *  stmt )

static

Definition at line 1468 of file pl_funcs.c.

{
    dump_ind();
    printf("ASSERT ");
    dump_expr(stmt->cond);
    printf("\n");
 
    dump_indent += 2;
    if (stmt->message != NULL)
    {
        dump_ind();
        printf("    MESSAGE = ");
        dump_expr(stmt->message);
        printf("\n");
    }
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, printf, and stmt.

Referenced by dump_stmt().

dump_assign()

static void dump_assign ( PLpgSQL_stmt_assign *  stmt )

static

Definition at line 976 of file pl_funcs.c.

{
    dump_ind();
    printf("ASSIGN var %d := ", stmt->varno);
    dump_expr(stmt->expr);
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_block()

static void dump_block ( PLpgSQL_stmt_block *  block )

static

Definition at line 935 of file pl_funcs.c.

{
    char       *name;
 
    if (block->label == NULL)
        name = "*unnamed*";
    else
        name = block->label;
 
    dump_ind();
    printf("BLOCK <<%s>>\n", name);
 
    dump_stmts(block->body);
 
    if (block->exceptions)
    {
        ListCell   *e;
 
        foreach(e, block->exceptions->exc_list)
        {
            PLpgSQL_exception *exc = (PLpgSQL_exception *) lfirst(e);
            PLpgSQL_condition *cond;
 
            dump_ind();
            printf("    EXCEPTION WHEN ");
            for (cond = exc->conditions; cond; cond = cond->next)
            {
                if (cond != exc->conditions)
                    printf(" OR ");
                printf("%s", cond->condname);
            }
            printf(" THEN\n");
            dump_stmts(exc->action);
        }
    }
 
    dump_ind();
    printf("    END -- %s\n", name);
}

References PLpgSQL_exception::action, PLpgSQL_stmt_block::body, PLpgSQL_exception::conditions, PLpgSQL_condition::condname, dump_ind(), dump_stmts(), PLpgSQL_exception_block::exc_list, PLpgSQL_stmt_block::exceptions, PLpgSQL_stmt_block::label, lfirst, name, PLpgSQL_condition::next, and printf.

Referenced by dump_stmt(), and plpgsql_dumptree().

dump_call()

static void dump_call ( PLpgSQL_stmt_call *  stmt )

static

Definition at line 1290 of file pl_funcs.c.

{
    dump_ind();
    printf("%s expr = ", stmt->is_call ? "CALL" : "DO");
    dump_expr(stmt->expr);
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_case()

static void dump_case ( PLpgSQL_stmt_case *  stmt )

static

Definition at line 1015 of file pl_funcs.c.

{
    ListCell   *l;
 
    dump_ind();
    printf("CASE %d ", stmt->t_varno);
    if (stmt->t_expr)
        dump_expr(stmt->t_expr);
    printf("\n");
    dump_indent += 6;
    foreach(l, stmt->case_when_list)
    {
        PLpgSQL_case_when *cwt = (PLpgSQL_case_when *) lfirst(l);
 
        dump_ind();
        printf("WHEN ");
        dump_expr(cwt->expr);
        printf("\n");
        dump_ind();
        printf("THEN\n");
        dump_indent += 2;
        dump_stmts(cwt->stmts);
        dump_indent -= 2;
    }
    if (stmt->have_else)
    {
        dump_ind();
        printf("ELSE\n");
        dump_indent += 2;
        dump_stmts(stmt->else_stmts);
        dump_indent -= 2;
    }
    dump_indent -= 6;
    dump_ind();
    printf("    ENDCASE\n");
}

References dump_expr(), dump_ind(), dump_indent, dump_stmts(), PLpgSQL_case_when::expr, lfirst, printf, stmt, and PLpgSQL_case_when::stmts.

Referenced by dump_stmt().

dump_close()

static void dump_close ( PLpgSQL_stmt_close *  stmt )

static

Definition at line 1274 of file pl_funcs.c.

{
    dump_ind();
    printf("CLOSE curvar=%d\n", stmt->curvar);
}

References dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_commit()

static void dump_commit ( PLpgSQL_stmt_commit *  stmt )

static

Definition at line 1299 of file pl_funcs.c.

{
    dump_ind();
    if (stmt->chain)
        printf("COMMIT AND CHAIN\n");
    else
        printf("COMMIT\n");
}

References dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_cursor_direction()

static void dump_cursor_direction ( PLpgSQL_stmt_fetch *  stmt )

static

Definition at line 1240 of file pl_funcs.c.

{
    dump_indent += 2;
    dump_ind();
    switch (stmt->direction)
    {
        case FETCH_FORWARD:
            printf("    FORWARD ");
            break;
        case FETCH_BACKWARD:
            printf("    BACKWARD ");
            break;
        case FETCH_ABSOLUTE:
            printf("    ABSOLUTE ");
            break;
        case FETCH_RELATIVE:
            printf("    RELATIVE ");
            break;
        default:
            printf("??? unknown cursor direction %d", stmt->direction);
    }
 
    if (stmt->expr)
    {
        dump_expr(stmt->expr);
        printf("\n");
    }
    else
        printf("%ld\n", stmt->how_many);
 
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, FETCH_ABSOLUTE, FETCH_BACKWARD, FETCH_FORWARD, FETCH_RELATIVE, printf, and stmt.

Referenced by dump_fetch().

dump_dynexecute()

static void dump_dynexecute ( PLpgSQL_stmt_dynexecute *  stmt )

static

Definition at line 1506 of file pl_funcs.c.

{
    dump_ind();
    printf("EXECUTE ");
    dump_expr(stmt->query);
    printf("\n");
 
    dump_indent += 2;
    if (stmt->target != NULL)
    {
        dump_ind();
        printf("    INTO%s target = %d %s\n",
               stmt->strict ? " STRICT" : "",
               stmt->target->dno, stmt->target->refname);
    }
    if (stmt->params != NIL)
    {
        ListCell   *lc;
        int         i;
 
        dump_ind();
        printf("    USING\n");
        dump_indent += 2;
        i = 1;
        foreach(lc, stmt->params)
        {
            dump_ind();
            printf("    parameter %d: ", i++);
            dump_expr((PLpgSQL_expr *) lfirst(lc));
            printf("\n");
        }
        dump_indent -= 2;
    }
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, i, lfirst, NIL, printf, and stmt.

Referenced by dump_stmt().

dump_dynfors()

static void dump_dynfors ( PLpgSQL_stmt_dynfors *  stmt )

static

Definition at line 1543 of file pl_funcs.c.

{
    dump_ind();
    printf("FORS %s EXECUTE ", stmt->var->refname);
    dump_expr(stmt->query);
    printf("\n");
    if (stmt->params != NIL)
    {
        ListCell   *lc;
        int         i;
 
        dump_indent += 2;
        dump_ind();
        printf("    USING\n");
        dump_indent += 2;
        i = 1;
        foreach(lc, stmt->params)
        {
            dump_ind();
            printf("    parameter $%d: ", i++);
            dump_expr((PLpgSQL_expr *) lfirst(lc));
            printf("\n");
        }
        dump_indent -= 4;
    }
    dump_stmts(stmt->body);
    dump_ind();
    printf("    ENDFORS\n");
}

References dump_expr(), dump_ind(), dump_indent, dump_stmts(), i, lfirst, NIL, printf, and stmt.

Referenced by dump_stmt().

dump_execsql()

static void dump_execsql ( PLpgSQL_stmt_execsql *  stmt )

static

Definition at line 1487 of file pl_funcs.c.

{
    dump_ind();
    printf("EXECSQL ");
    dump_expr(stmt->sqlstmt);
    printf("\n");
 
    dump_indent += 2;
    if (stmt->target != NULL)
    {
        dump_ind();
        printf("    INTO%s target = %d %s\n",
               stmt->strict ? " STRICT" : "",
               stmt->target->dno, stmt->target->refname);
    }
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, printf, and stmt.

Referenced by dump_stmt().

dump_exit()

static void dump_exit ( PLpgSQL_stmt_exit *  stmt )

static

Definition at line 1319 of file pl_funcs.c.

{
    dump_ind();
    printf("%s", stmt->is_exit ? "EXIT" : "CONTINUE");
    if (stmt->label != NULL)
        printf(" label='%s'", stmt->label);
    if (stmt->cond != NULL)
    {
        printf(" WHEN ");
        dump_expr(stmt->cond);
    }
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_expr()

static void dump_expr ( PLpgSQL_expr *  expr )

static

Definition at line 1594 of file pl_funcs.c.

{
    printf("'%s'", expr->query);
}

References printf, and PLpgSQL_expr::query.

Referenced by dump_assert(), dump_assign(), dump_call(), dump_case(), dump_cursor_direction(), dump_dynexecute(), dump_dynfors(), dump_execsql(), dump_exit(), dump_forc(), dump_foreach_a(), dump_fori(), dump_fors(), dump_if(), dump_open(), dump_perform(), dump_raise(), dump_return(), dump_return_next(), dump_return_query(), dump_while(), and plpgsql_dumptree().

dump_fetch()

static void dump_fetch ( PLpgSQL_stmt_fetch *  stmt )

static

Definition at line 1214 of file pl_funcs.c.

{
    dump_ind();
 
    if (!stmt->is_move)
    {
        printf("FETCH curvar=%d\n", stmt->curvar);
        dump_cursor_direction(stmt);
 
        dump_indent += 2;
        if (stmt->target != NULL)
        {
            dump_ind();
            printf("    target = %d %s\n",
                   stmt->target->dno, stmt->target->refname);
        }
        dump_indent -= 2;
    }
    else
    {
        printf("MOVE curvar=%d\n", stmt->curvar);
        dump_cursor_direction(stmt);
    }
}

References dump_cursor_direction(), dump_ind(), dump_indent, printf, and stmt.

Referenced by dump_stmt().

dump_forc()

static void dump_forc ( PLpgSQL_stmt_forc *  stmt )

static

Definition at line 1123 of file pl_funcs.c.

{
    dump_ind();
    printf("FORC %s ", stmt->var->refname);
    printf("curvar=%d\n", stmt->curvar);
 
    dump_indent += 2;
    if (stmt->argquery != NULL)
    {
        dump_ind();
        printf("  arguments = ");
        dump_expr(stmt->argquery);
        printf("\n");
    }
    dump_indent -= 2;
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDFORC\n");
}

References dump_expr(), dump_ind(), dump_indent, dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

dump_foreach_a()

static void dump_foreach_a ( PLpgSQL_stmt_foreach_a *  stmt )

static

Definition at line 1146 of file pl_funcs.c.

{
    dump_ind();
    printf("FOREACHA var %d ", stmt->varno);
    if (stmt->slice != 0)
        printf("SLICE %d ", stmt->slice);
    printf("IN ");
    dump_expr(stmt->expr);
    printf("\n");
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDFOREACHA");
}

References dump_expr(), dump_ind(), dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

dump_fori()

static void dump_fori ( PLpgSQL_stmt_fori *  stmt )

static

Definition at line 1079 of file pl_funcs.c.

{
    dump_ind();
    printf("FORI %s %s\n", stmt->var->refname, (stmt->reverse) ? "REVERSE" : "NORMAL");
 
    dump_indent += 2;
    dump_ind();
    printf("    lower = ");
    dump_expr(stmt->lower);
    printf("\n");
    dump_ind();
    printf("    upper = ");
    dump_expr(stmt->upper);
    printf("\n");
    if (stmt->step)
    {
        dump_ind();
        printf("    step = ");
        dump_expr(stmt->step);
        printf("\n");
    }
    dump_indent -= 2;
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDFORI\n");
}

References dump_expr(), dump_ind(), dump_indent, dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

dump_fors()

static void dump_fors ( PLpgSQL_stmt_fors *  stmt )

static

Definition at line 1109 of file pl_funcs.c.

{
    dump_ind();
    printf("FORS %s ", stmt->var->refname);
    dump_expr(stmt->query);
    printf("\n");
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDFORS\n");
}

References dump_expr(), dump_ind(), dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

dump_getdiag()

static void dump_getdiag ( PLpgSQL_stmt_getdiag *  stmt )

static

Definition at line 1574 of file pl_funcs.c.

{
    ListCell   *lc;
 
    dump_ind();
    printf("GET %s DIAGNOSTICS ", stmt->is_stacked ? "STACKED" : "CURRENT");
    foreach(lc, stmt->diag_items)
    {
        PLpgSQL_diag_item *diag_item = (PLpgSQL_diag_item *) lfirst(lc);
 
        if (lc != list_head(stmt->diag_items))
            printf(", ");
 
        printf("{var %d} = %s", diag_item->target,
               plpgsql_getdiag_kindname(diag_item->kind));
    }
    printf("\n");
}

References dump_ind(), PLpgSQL_diag_item::kind, lfirst, list_head(), plpgsql_getdiag_kindname(), printf, stmt, and PLpgSQL_diag_item::target.

Referenced by dump_stmt().

dump_if()

static void dump_if ( PLpgSQL_stmt_if *  stmt )

static

Definition at line 985 of file pl_funcs.c.

{
    ListCell   *l;
 
    dump_ind();
    printf("IF ");
    dump_expr(stmt->cond);
    printf(" THEN\n");
    dump_stmts(stmt->then_body);
    foreach(l, stmt->elsif_list)
    {
        PLpgSQL_if_elsif *elif = (PLpgSQL_if_elsif *) lfirst(l);
 
        dump_ind();
        printf("    ELSIF ");
        dump_expr(elif->cond);
        printf(" THEN\n");
        dump_stmts(elif->stmts);
    }
    if (stmt->else_body != NIL)
    {
        dump_ind();
        printf("    ELSE\n");
        dump_stmts(stmt->else_body);
    }
    dump_ind();
    printf("    ENDIF\n");
}

References PLpgSQL_if_elsif::cond, dump_expr(), dump_ind(), dump_stmts(), lfirst, NIL, printf, stmt, and PLpgSQL_if_elsif::stmts.

Referenced by dump_stmt().

dump_ind()

static void dump_ind ( void  )

static

Definition at line 822 of file pl_funcs.c.

{
    int         i;
 
    for (i = 0; i < dump_indent; i++)
        printf(" ");
}

References dump_indent, i, and printf.

Referenced by dump_assert(), dump_assign(), dump_block(), dump_call(), dump_case(), dump_close(), dump_commit(), dump_cursor_direction(), dump_dynexecute(), dump_dynfors(), dump_execsql(), dump_exit(), dump_fetch(), dump_forc(), dump_foreach_a(), dump_fori(), dump_fors(), dump_getdiag(), dump_if(), dump_loop(), dump_open(), dump_perform(), dump_raise(), dump_return(), dump_return_next(), dump_return_query(), dump_rollback(), and dump_while().

dump_loop()

static void dump_loop ( PLpgSQL_stmt_loop *  stmt )

static

Definition at line 1053 of file pl_funcs.c.

{
    dump_ind();
    printf("LOOP\n");
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDLOOP\n");
}

References dump_ind(), dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

dump_open()

static void dump_open ( PLpgSQL_stmt_open *  stmt )

static

Definition at line 1163 of file pl_funcs.c.

{
    dump_ind();
    printf("OPEN curvar=%d\n", stmt->curvar);
 
    dump_indent += 2;
    if (stmt->argquery != NULL)
    {
        dump_ind();
        printf("  arguments = '");
        dump_expr(stmt->argquery);
        printf("'\n");
    }
    if (stmt->query != NULL)
    {
        dump_ind();
        printf("  query = '");
        dump_expr(stmt->query);
        printf("'\n");
    }
    if (stmt->dynquery != NULL)
    {
        dump_ind();
        printf("  execute = '");
        dump_expr(stmt->dynquery);
        printf("'\n");
 
        if (stmt->params != NIL)
        {
            ListCell   *lc;
            int         i;
 
            dump_indent += 2;
            dump_ind();
            printf("    USING\n");
            dump_indent += 2;
            i = 1;
            foreach(lc, stmt->params)
            {
                dump_ind();
                printf("    parameter $%d: ", i++);
                dump_expr((PLpgSQL_expr *) lfirst(lc));
                printf("\n");
            }
            dump_indent -= 4;
        }
    }
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, i, lfirst, NIL, printf, and stmt.

Referenced by dump_stmt().

dump_perform()

static void dump_perform ( PLpgSQL_stmt_perform *  stmt )

static

Definition at line 1281 of file pl_funcs.c.

{
    dump_ind();
    printf("PERFORM expr = ");
    dump_expr(stmt->expr);
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_raise()

static void dump_raise ( PLpgSQL_stmt_raise *  stmt )

static

Definition at line 1399 of file pl_funcs.c.

{
    ListCell   *lc;
    int         i = 0;
 
    dump_ind();
    printf("RAISE level=%d", stmt->elog_level);
    if (stmt->condname)
        printf(" condname='%s'", stmt->condname);
    if (stmt->message)
        printf(" message='%s'", stmt->message);
    printf("\n");
    dump_indent += 2;
    foreach(lc, stmt->params)
    {
        dump_ind();
        printf("    parameter %d: ", i++);
        dump_expr((PLpgSQL_expr *) lfirst(lc));
        printf("\n");
    }
    if (stmt->options)
    {
        dump_ind();
        printf("    USING\n");
        dump_indent += 2;
        foreach(lc, stmt->options)
        {
            PLpgSQL_raise_option *opt = (PLpgSQL_raise_option *) lfirst(lc);
 
            dump_ind();
            switch (opt->opt_type)
            {
                case PLPGSQL_RAISEOPTION_ERRCODE:
                    printf("    ERRCODE = ");
                    break;
                case PLPGSQL_RAISEOPTION_MESSAGE:
                    printf("    MESSAGE = ");
                    break;
                case PLPGSQL_RAISEOPTION_DETAIL:
                    printf("    DETAIL = ");
                    break;
                case PLPGSQL_RAISEOPTION_HINT:
                    printf("    HINT = ");
                    break;
                case PLPGSQL_RAISEOPTION_COLUMN:
                    printf("    COLUMN = ");
                    break;
                case PLPGSQL_RAISEOPTION_CONSTRAINT:
                    printf("    CONSTRAINT = ");
                    break;
                case PLPGSQL_RAISEOPTION_DATATYPE:
                    printf("    DATATYPE = ");
                    break;
                case PLPGSQL_RAISEOPTION_TABLE:
                    printf("    TABLE = ");
                    break;
                case PLPGSQL_RAISEOPTION_SCHEMA:
                    printf("    SCHEMA = ");
                    break;
            }
            dump_expr(opt->expr);
            printf("\n");
        }
        dump_indent -= 2;
    }
    dump_indent -= 2;
}

References dump_expr(), dump_ind(), dump_indent, PLpgSQL_raise_option::expr, i, lfirst, PLpgSQL_raise_option::opt_type, PLPGSQL_RAISEOPTION_COLUMN, PLPGSQL_RAISEOPTION_CONSTRAINT, PLPGSQL_RAISEOPTION_DATATYPE, PLPGSQL_RAISEOPTION_DETAIL, PLPGSQL_RAISEOPTION_ERRCODE, PLPGSQL_RAISEOPTION_HINT, PLPGSQL_RAISEOPTION_MESSAGE, PLPGSQL_RAISEOPTION_SCHEMA, PLPGSQL_RAISEOPTION_TABLE, printf, and stmt.

Referenced by dump_stmt().

dump_return()

static void dump_return ( PLpgSQL_stmt_return *  stmt )

static

Definition at line 1334 of file pl_funcs.c.

{
    dump_ind();
    printf("RETURN ");
    if (stmt->retvarno >= 0)
        printf("variable %d", stmt->retvarno);
    else if (stmt->expr != NULL)
        dump_expr(stmt->expr);
    else
        printf("NULL");
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_return_next()

static void dump_return_next ( PLpgSQL_stmt_return_next *  stmt )

static

Definition at line 1348 of file pl_funcs.c.

{
    dump_ind();
    printf("RETURN NEXT ");
    if (stmt->retvarno >= 0)
        printf("variable %d", stmt->retvarno);
    else if (stmt->expr != NULL)
        dump_expr(stmt->expr);
    else
        printf("NULL");
    printf("\n");
}

References dump_expr(), dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_return_query()

static void dump_return_query ( PLpgSQL_stmt_return_query *  stmt )

static

Definition at line 1362 of file pl_funcs.c.

{
    dump_ind();
    if (stmt->query)
    {
        printf("RETURN QUERY ");
        dump_expr(stmt->query);
        printf("\n");
    }
    else
    {
        printf("RETURN QUERY EXECUTE ");
        dump_expr(stmt->dynquery);
        printf("\n");
        if (stmt->params != NIL)
        {
            ListCell   *lc;
            int         i;
 
            dump_indent += 2;
            dump_ind();
            printf("    USING\n");
            dump_indent += 2;
            i = 1;
            foreach(lc, stmt->params)
            {
                dump_ind();
                printf("    parameter $%d: ", i++);
                dump_expr((PLpgSQL_expr *) lfirst(lc));
                printf("\n");
            }
            dump_indent -= 4;
        }
    }
}

References dump_expr(), dump_ind(), dump_indent, i, lfirst, NIL, printf, and stmt.

Referenced by dump_stmt().

dump_rollback()

static void dump_rollback ( PLpgSQL_stmt_rollback *  stmt )

static

Definition at line 1309 of file pl_funcs.c.

{
    dump_ind();
    if (stmt->chain)
        printf("ROLLBACK AND CHAIN\n");
    else
        printf("ROLLBACK\n");
}

References dump_ind(), printf, and stmt.

Referenced by dump_stmt().

dump_stmt()

static void dump_stmt ( PLpgSQL_stmt *  stmt )

static

Definition at line 831 of file pl_funcs.c.

{
    printf("%3d:", stmt->lineno);
    switch (stmt->cmd_type)
    {
        case PLPGSQL_STMT_BLOCK:
            dump_block((PLpgSQL_stmt_block *) stmt);
            break;
        case PLPGSQL_STMT_ASSIGN:
            dump_assign((PLpgSQL_stmt_assign *) stmt);
            break;
        case PLPGSQL_STMT_IF:
            dump_if((PLpgSQL_stmt_if *) stmt);
            break;
        case PLPGSQL_STMT_CASE:
            dump_case((PLpgSQL_stmt_case *) stmt);
            break;
        case PLPGSQL_STMT_LOOP:
            dump_loop((PLpgSQL_stmt_loop *) stmt);
            break;
        case PLPGSQL_STMT_WHILE:
            dump_while((PLpgSQL_stmt_while *) stmt);
            break;
        case PLPGSQL_STMT_FORI:
            dump_fori((PLpgSQL_stmt_fori *) stmt);
            break;
        case PLPGSQL_STMT_FORS:
            dump_fors((PLpgSQL_stmt_fors *) stmt);
            break;
        case PLPGSQL_STMT_FORC:
            dump_forc((PLpgSQL_stmt_forc *) stmt);
            break;
        case PLPGSQL_STMT_FOREACH_A:
            dump_foreach_a((PLpgSQL_stmt_foreach_a *) stmt);
            break;
        case PLPGSQL_STMT_EXIT:
            dump_exit((PLpgSQL_stmt_exit *) stmt);
            break;
        case PLPGSQL_STMT_RETURN:
            dump_return((PLpgSQL_stmt_return *) stmt);
            break;
        case PLPGSQL_STMT_RETURN_NEXT:
            dump_return_next((PLpgSQL_stmt_return_next *) stmt);
            break;
        case PLPGSQL_STMT_RETURN_QUERY:
            dump_return_query((PLpgSQL_stmt_return_query *) stmt);
            break;
        case PLPGSQL_STMT_RAISE:
            dump_raise((PLpgSQL_stmt_raise *) stmt);
            break;
        case PLPGSQL_STMT_ASSERT:
            dump_assert((PLpgSQL_stmt_assert *) stmt);
            break;
        case PLPGSQL_STMT_EXECSQL:
            dump_execsql((PLpgSQL_stmt_execsql *) stmt);
            break;
        case PLPGSQL_STMT_DYNEXECUTE:
            dump_dynexecute((PLpgSQL_stmt_dynexecute *) stmt);
            break;
        case PLPGSQL_STMT_DYNFORS:
            dump_dynfors((PLpgSQL_stmt_dynfors *) stmt);
            break;
        case PLPGSQL_STMT_GETDIAG:
            dump_getdiag((PLpgSQL_stmt_getdiag *) stmt);
            break;
        case PLPGSQL_STMT_OPEN:
            dump_open((PLpgSQL_stmt_open *) stmt);
            break;
        case PLPGSQL_STMT_FETCH:
            dump_fetch((PLpgSQL_stmt_fetch *) stmt);
            break;
        case PLPGSQL_STMT_CLOSE:
            dump_close((PLpgSQL_stmt_close *) stmt);
            break;
        case PLPGSQL_STMT_PERFORM:
            dump_perform((PLpgSQL_stmt_perform *) stmt);
            break;
        case PLPGSQL_STMT_CALL:
            dump_call((PLpgSQL_stmt_call *) stmt);
            break;
        case PLPGSQL_STMT_COMMIT:
            dump_commit((PLpgSQL_stmt_commit *) stmt);
            break;
        case PLPGSQL_STMT_ROLLBACK:
            dump_rollback((PLpgSQL_stmt_rollback *) stmt);
            break;
        default:
            elog(ERROR, "unrecognized cmd_type: %d", stmt->cmd_type);
            break;
    }
}

References dump_assert(), dump_assign(), dump_block(), dump_call(), dump_case(), dump_close(), dump_commit(), dump_dynexecute(), dump_dynfors(), dump_execsql(), dump_exit(), dump_fetch(), dump_forc(), dump_foreach_a(), dump_fori(), dump_fors(), dump_getdiag(), dump_if(), dump_loop(), dump_open(), dump_perform(), dump_raise(), dump_return(), dump_return_next(), dump_return_query(), dump_rollback(), dump_while(), elog(), ERROR, PLPGSQL_STMT_ASSERT, PLPGSQL_STMT_ASSIGN, PLPGSQL_STMT_BLOCK, PLPGSQL_STMT_CALL, PLPGSQL_STMT_CASE, PLPGSQL_STMT_CLOSE, PLPGSQL_STMT_COMMIT, PLPGSQL_STMT_DYNEXECUTE, PLPGSQL_STMT_DYNFORS, PLPGSQL_STMT_EXECSQL, PLPGSQL_STMT_EXIT, PLPGSQL_STMT_FETCH, PLPGSQL_STMT_FORC, PLPGSQL_STMT_FOREACH_A, PLPGSQL_STMT_FORI, PLPGSQL_STMT_FORS, PLPGSQL_STMT_GETDIAG, PLPGSQL_STMT_IF, PLPGSQL_STMT_LOOP, PLPGSQL_STMT_OPEN, PLPGSQL_STMT_PERFORM, PLPGSQL_STMT_RAISE, PLPGSQL_STMT_RETURN, PLPGSQL_STMT_RETURN_NEXT, PLPGSQL_STMT_RETURN_QUERY, PLPGSQL_STMT_ROLLBACK, PLPGSQL_STMT_WHILE, printf, and stmt.

Referenced by dump_stmts().

dump_stmts()

static void dump_stmts ( List *  stmts )

static

Definition at line 924 of file pl_funcs.c.

{
    ListCell   *s;
 
    dump_indent += 2;
    foreach(s, stmts)
        dump_stmt((PLpgSQL_stmt *) lfirst(s));
    dump_indent -= 2;
}

References dump_indent, dump_stmt(), and lfirst.

Referenced by dump_block(), dump_case(), dump_dynfors(), dump_forc(), dump_foreach_a(), dump_fori(), dump_fors(), dump_if(), dump_loop(), and dump_while().

dump_while()

static void dump_while ( PLpgSQL_stmt_while *  stmt )

static

Definition at line 1065 of file pl_funcs.c.

{
    dump_ind();
    printf("WHILE ");
    dump_expr(stmt->cond);
    printf("\n");
 
    dump_stmts(stmt->body);
 
    dump_ind();
    printf("    ENDWHILE\n");
}

References dump_expr(), dump_ind(), dump_stmts(), printf, and stmt.

Referenced by dump_stmt().

free_assert()

static void free_assert ( PLpgSQL_stmt_assert *  stmt )

static

Definition at line 674 of file pl_funcs.c.

{
    free_expr(stmt->cond);
    free_expr(stmt->message);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_assign()

static void free_assign ( PLpgSQL_stmt_assign *  stmt )

static

Definition at line 497 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_block()

static void free_block ( PLpgSQL_stmt_block *  block )

static

Definition at line 480 of file pl_funcs.c.

{
    free_stmts(block->body);
    if (block->exceptions)
    {
        ListCell   *e;
 
        foreach(e, block->exceptions->exc_list)
        {
            PLpgSQL_exception *exc = (PLpgSQL_exception *) lfirst(e);
 
            free_stmts(exc->action);
        }
    }
}

References PLpgSQL_exception::action, PLpgSQL_stmt_block::body, PLpgSQL_exception_block::exc_list, PLpgSQL_stmt_block::exceptions, free_stmts(), and lfirst.

Referenced by free_stmt(), and plpgsql_free_function_memory().

free_call()

static void free_call ( PLpgSQL_stmt_call *  stmt )

static

Definition at line 610 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_case()

static void free_case ( PLpgSQL_stmt_case *  stmt )

static

Definition at line 520 of file pl_funcs.c.

{
    ListCell   *l;
 
    free_expr(stmt->t_expr);
    foreach(l, stmt->case_when_list)
    {
        PLpgSQL_case_when *cwt = (PLpgSQL_case_when *) lfirst(l);
 
        free_expr(cwt->expr);
        free_stmts(cwt->stmts);
    }
    free_stmts(stmt->else_stmts);
}

References PLpgSQL_case_when::expr, free_expr(), free_stmts(), lfirst, stmt, and PLpgSQL_case_when::stmts.

Referenced by free_stmt().

free_close()

static void free_close ( PLpgSQL_stmt_close *  stmt )

static

Definition at line 599 of file pl_funcs.c.

{
}

Referenced by free_stmt().

free_commit()

static void free_commit ( PLpgSQL_stmt_commit *  stmt )

static

Definition at line 616 of file pl_funcs.c.

{
}

Referenced by free_stmt().

free_dynexecute()

static void free_dynexecute ( PLpgSQL_stmt_dynexecute *  stmt )

static

Definition at line 687 of file pl_funcs.c.

{
    ListCell   *lc;
 
    free_expr(stmt->query);
    foreach(lc, stmt->params)
    {
        free_expr((PLpgSQL_expr *) lfirst(lc));
    }
}

References free_expr(), lfirst, and stmt.

Referenced by free_stmt().

free_dynfors()

static void free_dynfors ( PLpgSQL_stmt_dynfors *  stmt )

static

Definition at line 699 of file pl_funcs.c.

{
    ListCell   *lc;
 
    free_stmts(stmt->body);
    free_expr(stmt->query);
    foreach(lc, stmt->params)
    {
        free_expr((PLpgSQL_expr *) lfirst(lc));
    }
}

References free_expr(), free_stmts(), lfirst, and stmt.

Referenced by free_stmt().

free_execsql()

static void free_execsql ( PLpgSQL_stmt_execsql *  stmt )

static

Definition at line 681 of file pl_funcs.c.

{
    free_expr(stmt->sqlstmt);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_exit()

static void free_exit ( PLpgSQL_stmt_exit *  stmt )

static

Definition at line 626 of file pl_funcs.c.

{
    free_expr(stmt->cond);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_expr()

static void free_expr ( PLpgSQL_expr *  expr )

static

Definition at line 717 of file pl_funcs.c.

{
    if (expr && expr->plan)
    {
        SPI_freeplan(expr->plan);
        expr->plan = NULL;
    }
}

References PLpgSQL_expr::plan, and SPI_freeplan().

Referenced by free_assert(), free_assign(), free_call(), free_case(), free_dynexecute(), free_dynfors(), free_execsql(), free_exit(), free_fetch(), free_forc(), free_foreach_a(), free_fori(), free_fors(), free_if(), free_open(), free_perform(), free_raise(), free_return(), free_return_next(), free_return_query(), free_while(), and plpgsql_free_function_memory().

free_fetch()

static void free_fetch ( PLpgSQL_stmt_fetch *  stmt )

static

Definition at line 593 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_forc()

static void free_forc ( PLpgSQL_stmt_forc *  stmt )

static

Definition at line 565 of file pl_funcs.c.

{
    free_stmts(stmt->body);
    free_expr(stmt->argquery);
}

References free_expr(), free_stmts(), and stmt.

Referenced by free_stmt().

free_foreach_a()

static void free_foreach_a ( PLpgSQL_stmt_foreach_a *  stmt )

static

Definition at line 572 of file pl_funcs.c.

{
    free_expr(stmt->expr);
    free_stmts(stmt->body);
}

References free_expr(), free_stmts(), and stmt.

Referenced by free_stmt().

free_fori()

static void free_fori ( PLpgSQL_stmt_fori *  stmt )

static

Definition at line 549 of file pl_funcs.c.

{
    free_expr(stmt->lower);
    free_expr(stmt->upper);
    free_expr(stmt->step);
    free_stmts(stmt->body);
}

References free_expr(), free_stmts(), and stmt.

Referenced by free_stmt().

free_fors()

static void free_fors ( PLpgSQL_stmt_fors *  stmt )

static

Definition at line 558 of file pl_funcs.c.

{
    free_stmts(stmt->body);
    free_expr(stmt->query);
}

References free_expr(), free_stmts(), and stmt.

Referenced by free_stmt().

free_getdiag()

static void free_getdiag ( PLpgSQL_stmt_getdiag *  stmt )

static

Definition at line 712 of file pl_funcs.c.

{
}

Referenced by free_stmt().

free_if()

static void free_if ( PLpgSQL_stmt_if *  stmt )

static

Definition at line 503 of file pl_funcs.c.

{
    ListCell   *l;
 
    free_expr(stmt->cond);
    free_stmts(stmt->then_body);
    foreach(l, stmt->elsif_list)
    {
        PLpgSQL_if_elsif *elif = (PLpgSQL_if_elsif *) lfirst(l);
 
        free_expr(elif->cond);
        free_stmts(elif->stmts);
    }
    free_stmts(stmt->else_body);
}

References PLpgSQL_if_elsif::cond, free_expr(), free_stmts(), lfirst, stmt, and PLpgSQL_if_elsif::stmts.

Referenced by free_stmt().

free_loop()

static void free_loop ( PLpgSQL_stmt_loop *  stmt )

static

Definition at line 536 of file pl_funcs.c.

{
    free_stmts(stmt->body);
}

References free_stmts(), and stmt.

Referenced by free_stmt().

free_open()

static void free_open ( PLpgSQL_stmt_open *  stmt )

static

Definition at line 579 of file pl_funcs.c.

{
    ListCell   *lc;
 
    free_expr(stmt->argquery);
    free_expr(stmt->query);
    free_expr(stmt->dynquery);
    foreach(lc, stmt->params)
    {
        free_expr((PLpgSQL_expr *) lfirst(lc));
    }
}

References free_expr(), lfirst, and stmt.

Referenced by free_stmt().

free_perform()

static void free_perform ( PLpgSQL_stmt_perform *  stmt )

static

Definition at line 604 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_raise()

static void free_raise ( PLpgSQL_stmt_raise *  stmt )

static

Definition at line 657 of file pl_funcs.c.

{
    ListCell   *lc;
 
    foreach(lc, stmt->params)
    {
        free_expr((PLpgSQL_expr *) lfirst(lc));
    }
    foreach(lc, stmt->options)
    {
        PLpgSQL_raise_option *opt = (PLpgSQL_raise_option *) lfirst(lc);
 
        free_expr(opt->expr);
    }
}

References PLpgSQL_raise_option::expr, free_expr(), lfirst, and stmt.

Referenced by free_stmt().

free_return()

static void free_return ( PLpgSQL_stmt_return *  stmt )

static

Definition at line 632 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_return_next()

static void free_return_next ( PLpgSQL_stmt_return_next *  stmt )

static

Definition at line 638 of file pl_funcs.c.

{
    free_expr(stmt->expr);
}

References free_expr(), and stmt.

Referenced by free_stmt().

free_return_query()

static void free_return_query ( PLpgSQL_stmt_return_query *  stmt )

static

Definition at line 644 of file pl_funcs.c.

{
    ListCell   *lc;
 
    free_expr(stmt->query);
    free_expr(stmt->dynquery);
    foreach(lc, stmt->params)
    {
        free_expr((PLpgSQL_expr *) lfirst(lc));
    }
}

References free_expr(), lfirst, and stmt.

Referenced by free_stmt().

free_rollback()

static void free_rollback ( PLpgSQL_stmt_rollback *  stmt )

static

Definition at line 621 of file pl_funcs.c.

{
}

Referenced by free_stmt().

free_stmt()

static void free_stmt ( PLpgSQL_stmt *  stmt )

static

Definition at line 377 of file pl_funcs.c.

{
    switch (stmt->cmd_type)
    {
        case PLPGSQL_STMT_BLOCK:
            free_block((PLpgSQL_stmt_block *) stmt);
            break;
        case PLPGSQL_STMT_ASSIGN:
            free_assign((PLpgSQL_stmt_assign *) stmt);
            break;
        case PLPGSQL_STMT_IF:
            free_if((PLpgSQL_stmt_if *) stmt);
            break;
        case PLPGSQL_STMT_CASE:
            free_case((PLpgSQL_stmt_case *) stmt);
            break;
        case PLPGSQL_STMT_LOOP:
            free_loop((PLpgSQL_stmt_loop *) stmt);
            break;
        case PLPGSQL_STMT_WHILE:
            free_while((PLpgSQL_stmt_while *) stmt);
            break;
        case PLPGSQL_STMT_FORI:
            free_fori((PLpgSQL_stmt_fori *) stmt);
            break;
        case PLPGSQL_STMT_FORS:
            free_fors((PLpgSQL_stmt_fors *) stmt);
            break;
        case PLPGSQL_STMT_FORC:
            free_forc((PLpgSQL_stmt_forc *) stmt);
            break;
        case PLPGSQL_STMT_FOREACH_A:
            free_foreach_a((PLpgSQL_stmt_foreach_a *) stmt);
            break;
        case PLPGSQL_STMT_EXIT:
            free_exit((PLpgSQL_stmt_exit *) stmt);
            break;
        case PLPGSQL_STMT_RETURN:
            free_return((PLpgSQL_stmt_return *) stmt);
            break;
        case PLPGSQL_STMT_RETURN_NEXT:
            free_return_next((PLpgSQL_stmt_return_next *) stmt);
            break;
        case PLPGSQL_STMT_RETURN_QUERY:
            free_return_query((PLpgSQL_stmt_return_query *) stmt);
            break;
        case PLPGSQL_STMT_RAISE:
            free_raise((PLpgSQL_stmt_raise *) stmt);
            break;
        case PLPGSQL_STMT_ASSERT:
            free_assert((PLpgSQL_stmt_assert *) stmt);
            break;
        case PLPGSQL_STMT_EXECSQL:
            free_execsql((PLpgSQL_stmt_execsql *) stmt);
            break;
        case PLPGSQL_STMT_DYNEXECUTE:
            free_dynexecute((PLpgSQL_stmt_dynexecute *) stmt);
            break;
        case PLPGSQL_STMT_DYNFORS:
            free_dynfors((PLpgSQL_stmt_dynfors *) stmt);
            break;
        case PLPGSQL_STMT_GETDIAG:
            free_getdiag((PLpgSQL_stmt_getdiag *) stmt);
            break;
        case PLPGSQL_STMT_OPEN:
            free_open((PLpgSQL_stmt_open *) stmt);
            break;
        case PLPGSQL_STMT_FETCH:
            free_fetch((PLpgSQL_stmt_fetch *) stmt);
            break;
        case PLPGSQL_STMT_CLOSE:
            free_close((PLpgSQL_stmt_close *) stmt);
            break;
        case PLPGSQL_STMT_PERFORM:
            free_perform((PLpgSQL_stmt_perform *) stmt);
            break;
        case PLPGSQL_STMT_CALL:
            free_call((PLpgSQL_stmt_call *) stmt);
            break;
        case PLPGSQL_STMT_COMMIT:
            free_commit((PLpgSQL_stmt_commit *) stmt);
            break;
        case PLPGSQL_STMT_ROLLBACK:
            free_rollback((PLpgSQL_stmt_rollback *) stmt);
            break;
        default:
            elog(ERROR, "unrecognized cmd_type: %d", stmt->cmd_type);
            break;
    }
}

References elog(), ERROR, free_assert(), free_assign(), free_block(), free_call(), free_case(), free_close(), free_commit(), free_dynexecute(), free_dynfors(), free_execsql(), free_exit(), free_fetch(), free_forc(), free_foreach_a(), free_fori(), free_fors(), free_getdiag(), free_if(), free_loop(), free_open(), free_perform(), free_raise(), free_return(), free_return_next(), free_return_query(), free_rollback(), free_while(), PLPGSQL_STMT_ASSERT, PLPGSQL_STMT_ASSIGN, PLPGSQL_STMT_BLOCK, PLPGSQL_STMT_CALL, PLPGSQL_STMT_CASE, PLPGSQL_STMT_CLOSE, PLPGSQL_STMT_COMMIT, PLPGSQL_STMT_DYNEXECUTE, PLPGSQL_STMT_DYNFORS, PLPGSQL_STMT_EXECSQL, PLPGSQL_STMT_EXIT, PLPGSQL_STMT_FETCH, PLPGSQL_STMT_FORC, PLPGSQL_STMT_FOREACH_A, PLPGSQL_STMT_FORI, PLPGSQL_STMT_FORS, PLPGSQL_STMT_GETDIAG, PLPGSQL_STMT_IF, PLPGSQL_STMT_LOOP, PLPGSQL_STMT_OPEN, PLPGSQL_STMT_PERFORM, PLPGSQL_STMT_RAISE, PLPGSQL_STMT_RETURN, PLPGSQL_STMT_RETURN_NEXT, PLPGSQL_STMT_RETURN_QUERY, PLPGSQL_STMT_ROLLBACK, PLPGSQL_STMT_WHILE, and stmt.

Referenced by free_stmts().

free_stmts()

static void free_stmts ( List *  stmts )

static

Definition at line 469 of file pl_funcs.c.

{
    ListCell   *s;
 
    foreach(s, stmts)
    {
        free_stmt((PLpgSQL_stmt *) lfirst(s));
    }
}

References free_stmt(), and lfirst.

Referenced by free_block(), free_case(), free_dynfors(), free_forc(), free_foreach_a(), free_fori(), free_fors(), free_if(), free_loop(), and free_while().

free_while()

static void free_while ( PLpgSQL_stmt_while *  stmt )

static

Definition at line 542 of file pl_funcs.c.

{
    free_expr(stmt->cond);
    free_stmts(stmt->body);
}

References free_expr(), free_stmts(), and stmt.

Referenced by free_stmt().

plpgsql_dumptree()

void plpgsql_dumptree

(

PLpgSQL_function *

func

)

Definition at line 1600 of file pl_funcs.c.

{
    int         i;
    PLpgSQL_datum *d;
 
    printf("\nExecution tree of successfully compiled PL/pgSQL function %s:\n",
           func->fn_signature);
 
    printf("\nFunction's data area:\n");
    for (i = 0; i < func->ndatums; i++)
    {
        d = func->datums[i];
 
        printf("    entry %d: ", i);
        switch (d->dtype)
        {
            case PLPGSQL_DTYPE_VAR:
            case PLPGSQL_DTYPE_PROMISE:
                {
                    PLpgSQL_var *var = (PLpgSQL_var *) d;
 
                    printf("VAR %-16s type %s (typoid %u) atttypmod %d\n",
                           var->refname, var->datatype->typname,
                           var->datatype->typoid,
                           var->datatype->atttypmod);
                    if (var->isconst)
                        printf("                                  CONSTANT\n");
                    if (var->notnull)
                        printf("                                  NOT NULL\n");
                    if (var->default_val != NULL)
                    {
                        printf("                                  DEFAULT ");
                        dump_expr(var->default_val);
                        printf("\n");
                    }
                    if (var->cursor_explicit_expr != NULL)
                    {
                        if (var->cursor_explicit_argrow >= 0)
                            printf("                                  CURSOR argument row %d\n", var->cursor_explicit_argrow);
 
                        printf("                                  CURSOR IS ");
                        dump_expr(var->cursor_explicit_expr);
                        printf("\n");
                    }
                    if (var->promise != PLPGSQL_PROMISE_NONE)
                        printf("                                  PROMISE %d\n",
                               (int) var->promise);
                }
                break;
            case PLPGSQL_DTYPE_ROW:
                {
                    PLpgSQL_row *row = (PLpgSQL_row *) d;
 
                    printf("ROW %-16s fields", row->refname);
                    for (int j = 0; j < row->nfields; j++)
                    {
                        printf(" %s=var %d", row->fieldnames[j],
                               row->varnos[j]);
                    }
                    printf("\n");
                }
                break;
            case PLPGSQL_DTYPE_REC:
                printf("REC %-16s typoid %u\n",
                       ((PLpgSQL_rec *) d)->refname,
                       ((PLpgSQL_rec *) d)->rectypeid);
                if (((PLpgSQL_rec *) d)->isconst)
                    printf("                                  CONSTANT\n");
                if (((PLpgSQL_rec *) d)->notnull)
                    printf("                                  NOT NULL\n");
                if (((PLpgSQL_rec *) d)->default_val != NULL)
                {
                    printf("                                  DEFAULT ");
                    dump_expr(((PLpgSQL_rec *) d)->default_val);
                    printf("\n");
                }
                break;
            case PLPGSQL_DTYPE_RECFIELD:
                printf("RECFIELD %-16s of REC %d\n",
                       ((PLpgSQL_recfield *) d)->fieldname,
                       ((PLpgSQL_recfield *) d)->recparentno);
                break;
            default:
                printf("??? unknown data type %d\n", d->dtype);
        }
    }
    printf("\nFunction's statements:\n");
 
    dump_indent = 0;
    printf("%3d:", func->action->lineno);
    dump_block(func->action);
    printf("\nEnd of execution tree of function %s\n\n", func->fn_signature);
    fflush(stdout);
}

References PLpgSQL_function::action, PLpgSQL_type::atttypmod, PLpgSQL_var::cursor_explicit_argrow, PLpgSQL_var::cursor_explicit_expr, PLpgSQL_var::datatype, PLpgSQL_function::datums, PLpgSQL_var::default_val, PLpgSQL_datum::dtype, PLpgSQL_rec::dtype, dump_block(), dump_expr(), dump_indent, fflush(), PLpgSQL_row::fieldnames, PLpgSQL_function::fn_signature, i, PLpgSQL_var::isconst, j, PLpgSQL_stmt_block::lineno, PLpgSQL_function::ndatums, PLpgSQL_row::nfields, PLpgSQL_var::notnull, PLPGSQL_DTYPE_PROMISE, PLPGSQL_DTYPE_REC, PLPGSQL_DTYPE_RECFIELD, PLPGSQL_DTYPE_ROW, PLPGSQL_DTYPE_VAR, PLPGSQL_PROMISE_NONE, printf, PLpgSQL_var::promise, PLpgSQL_var::refname, PLpgSQL_row::refname, generate_unaccent_rules::stdout, PLpgSQL_type::typname, PLpgSQL_type::typoid, and PLpgSQL_row::varnos.

Referenced by do_compile().

plpgsql_free_function_memory()

void plpgsql_free_function_memory

(

PLpgSQL_function *

func

)

Definition at line 727 of file pl_funcs.c.

{
    int         i;
 
    /* Better not call this on an in-use function */
    Assert(func->use_count == 0);
 
    /* Release plans associated with variable declarations */
    for (i = 0; i < func->ndatums; i++)
    {
        PLpgSQL_datum *d = func->datums[i];
 
        switch (d->dtype)
        {
            case PLPGSQL_DTYPE_VAR:
            case PLPGSQL_DTYPE_PROMISE:
                {
                    PLpgSQL_var *var = (PLpgSQL_var *) d;
 
                    free_expr(var->default_val);
                    free_expr(var->cursor_explicit_expr);
                }
                break;
            case PLPGSQL_DTYPE_ROW:
                break;
            case PLPGSQL_DTYPE_REC:
                {
                    PLpgSQL_rec *rec = (PLpgSQL_rec *) d;
 
                    free_expr(rec->default_val);
                }
                break;
            case PLPGSQL_DTYPE_RECFIELD:
                break;
            default:
                elog(ERROR, "unrecognized data type: %d", d->dtype);
        }
    }
    func->ndatums = 0;
 
    /* Release plans in statement tree */
    if (func->action)
        free_block(func->action);
    func->action = NULL;
 
    /*
     * And finally, release all memory except the PLpgSQL_function struct
     * itself (which has to be kept around because there may be multiple
     * fn_extra pointers to it).
     */
    if (func->fn_cxt)
        MemoryContextDelete(func->fn_cxt);
    func->fn_cxt = NULL;
}

References PLpgSQL_function::action, Assert(), PLpgSQL_var::cursor_explicit_expr, PLpgSQL_function::datums, PLpgSQL_var::default_val, PLpgSQL_rec::default_val, PLpgSQL_datum::dtype, elog(), ERROR, PLpgSQL_function::fn_cxt, free_block(), free_expr(), i, MemoryContextDelete(), PLpgSQL_function::ndatums, PLPGSQL_DTYPE_PROMISE, PLPGSQL_DTYPE_REC, PLPGSQL_DTYPE_RECFIELD, PLPGSQL_DTYPE_ROW, PLPGSQL_DTYPE_VAR, and PLpgSQL_function::use_count.

Referenced by delete_function(), and plpgsql_inline_handler().

plpgsql_getdiag_kindname()

const char* plpgsql_getdiag_kindname

(

PLpgSQL_getdiag_kind

kind

)

Definition at line 300 of file pl_funcs.c.

{
    switch (kind)
    {
        case PLPGSQL_GETDIAG_ROW_COUNT:
            return "ROW_COUNT";
        case PLPGSQL_GETDIAG_ROUTINE_OID:
            return "PG_ROUTINE_OID";
        case PLPGSQL_GETDIAG_CONTEXT:
            return "PG_CONTEXT";
        case PLPGSQL_GETDIAG_ERROR_CONTEXT:
            return "PG_EXCEPTION_CONTEXT";
        case PLPGSQL_GETDIAG_ERROR_DETAIL:
            return "PG_EXCEPTION_DETAIL";
        case PLPGSQL_GETDIAG_ERROR_HINT:
            return "PG_EXCEPTION_HINT";
        case PLPGSQL_GETDIAG_RETURNED_SQLSTATE:
            return "RETURNED_SQLSTATE";
        case PLPGSQL_GETDIAG_COLUMN_NAME:
            return "COLUMN_NAME";
        case PLPGSQL_GETDIAG_CONSTRAINT_NAME:
            return "CONSTRAINT_NAME";
        case PLPGSQL_GETDIAG_DATATYPE_NAME:
            return "PG_DATATYPE_NAME";
        case PLPGSQL_GETDIAG_MESSAGE_TEXT:
            return "MESSAGE_TEXT";
        case PLPGSQL_GETDIAG_TABLE_NAME:
            return "TABLE_NAME";
        case PLPGSQL_GETDIAG_SCHEMA_NAME:
            return "SCHEMA_NAME";
    }
 
    return "unknown";
}

References PLPGSQL_GETDIAG_COLUMN_NAME, PLPGSQL_GETDIAG_CONSTRAINT_NAME, PLPGSQL_GETDIAG_CONTEXT, PLPGSQL_GETDIAG_DATATYPE_NAME, PLPGSQL_GETDIAG_ERROR_CONTEXT, PLPGSQL_GETDIAG_ERROR_DETAIL, PLPGSQL_GETDIAG_ERROR_HINT, PLPGSQL_GETDIAG_MESSAGE_TEXT, PLPGSQL_GETDIAG_RETURNED_SQLSTATE, PLPGSQL_GETDIAG_ROUTINE_OID, PLPGSQL_GETDIAG_ROW_COUNT, PLPGSQL_GETDIAG_SCHEMA_NAME, and PLPGSQL_GETDIAG_TABLE_NAME.

Referenced by dump_getdiag().

plpgsql_ns_additem()

void plpgsql_ns_additem	(	PLpgSQL_nsitem_type	itemtype,
		int	itemno,
		const char *	name
	)

Definition at line 92 of file pl_funcs.c.

{
    PLpgSQL_nsitem *nse;
 
    Assert(name != NULL);
    /* first item added must be a label */
    Assert(ns_top != NULL || itemtype == PLPGSQL_NSTYPE_LABEL);
 
    nse = palloc(offsetof(PLpgSQL_nsitem, name) + strlen(name) + 1);
    nse->itemtype = itemtype;
    nse->itemno = itemno;
    nse->prev = ns_top;
    strcpy(nse->name, name);
    ns_top = nse;
}

References Assert(), PLpgSQL_nsitem::itemno, PLpgSQL_nsitem::itemtype, name, PLpgSQL_nsitem::name, ns_top, palloc(), PLPGSQL_NSTYPE_LABEL, and PLpgSQL_nsitem::prev.

Referenced by add_parameter_name(), plpgsql_build_record(), plpgsql_build_variable(), and plpgsql_ns_push().

plpgsql_ns_find_nearest_loop()

PLpgSQL_nsitem* plpgsql_ns_find_nearest_loop

(

PLpgSQL_nsitem *

ns_cur

)

Definition at line 214 of file pl_funcs.c.

{
    while (ns_cur != NULL)
    {
        if (ns_cur->itemtype == PLPGSQL_NSTYPE_LABEL &&
            ns_cur->itemno == PLPGSQL_LABEL_LOOP)
            return ns_cur;
        ns_cur = ns_cur->prev;
    }
 
    return NULL;                /* no loop found */
}

References PLpgSQL_nsitem::itemno, PLpgSQL_nsitem::itemtype, PLPGSQL_LABEL_LOOP, PLPGSQL_NSTYPE_LABEL, and PLpgSQL_nsitem::prev.

plpgsql_ns_init()

void plpgsql_ns_init

(

void

)

Definition at line 43 of file pl_funcs.c.

{
    ns_top = NULL;
}

References ns_top.

Referenced by do_compile(), and plpgsql_compile_inline().

plpgsql_ns_lookup()

PLpgSQL_nsitem* plpgsql_ns_lookup	(	PLpgSQL_nsitem *	ns_cur,
		bool	localmode,
		const char *	name1,
		const char *	name2,
		const char *	name3,
		int *	names_used
	)

Definition at line 130 of file pl_funcs.c.

{
    /* Outer loop iterates once per block level in the namespace chain */
    while (ns_cur != NULL)
    {
        PLpgSQL_nsitem *nsitem;
 
        /* Check this level for unqualified match to variable name */
        for (nsitem = ns_cur;
             nsitem->itemtype != PLPGSQL_NSTYPE_LABEL;
             nsitem = nsitem->prev)
        {
            if (strcmp(nsitem->name, name1) == 0)
            {
                if (name2 == NULL ||
                    nsitem->itemtype != PLPGSQL_NSTYPE_VAR)
                {
                    if (names_used)
                        *names_used = 1;
                    return nsitem;
                }
            }
        }
 
        /* Check this level for qualified match to variable name */
        if (name2 != NULL &&
            strcmp(nsitem->name, name1) == 0)
        {
            for (nsitem = ns_cur;
                 nsitem->itemtype != PLPGSQL_NSTYPE_LABEL;
                 nsitem = nsitem->prev)
            {
                if (strcmp(nsitem->name, name2) == 0)
                {
                    if (name3 == NULL ||
                        nsitem->itemtype != PLPGSQL_NSTYPE_VAR)
                    {
                        if (names_used)
                            *names_used = 2;
                        return nsitem;
                    }
                }
            }
        }
 
        if (localmode)
            break;              /* do not look into upper levels */
 
        ns_cur = nsitem->prev;
    }
 
    /* This is just to suppress possibly-uninitialized-variable warnings */
    if (names_used)
        *names_used = 0;
    return NULL;                /* No match found */
}

References PLpgSQL_nsitem::itemtype, PLpgSQL_nsitem::name, PLPGSQL_NSTYPE_LABEL, PLPGSQL_NSTYPE_VAR, and PLpgSQL_nsitem::prev.

Referenced by add_parameter_name(), plpgsql_param_ref(), plpgsql_parse_cwordtype(), plpgsql_parse_dblword(), plpgsql_parse_tripword(), plpgsql_parse_word(), plpgsql_parse_wordtype(), and resolve_column_ref().

plpgsql_ns_lookup_label()

PLpgSQL_nsitem* plpgsql_ns_lookup_label	(	PLpgSQL_nsitem *	ns_cur,
		const char *	name
	)

Definition at line 195 of file pl_funcs.c.

{
    while (ns_cur != NULL)
    {
        if (ns_cur->itemtype == PLPGSQL_NSTYPE_LABEL &&
            strcmp(ns_cur->name, name) == 0)
            return ns_cur;
        ns_cur = ns_cur->prev;
    }
 
    return NULL;                /* label not found */
}

References PLpgSQL_nsitem::itemtype, name, PLpgSQL_nsitem::name, PLPGSQL_NSTYPE_LABEL, and PLpgSQL_nsitem::prev.

plpgsql_ns_pop()

void plpgsql_ns_pop

(

void

)

Definition at line 67 of file pl_funcs.c.

{
    Assert(ns_top != NULL);
    while (ns_top->itemtype != PLPGSQL_NSTYPE_LABEL)
        ns_top = ns_top->prev;
    ns_top = ns_top->prev;
}

References Assert(), PLpgSQL_nsitem::itemtype, ns_top, PLPGSQL_NSTYPE_LABEL, and PLpgSQL_nsitem::prev.

plpgsql_ns_push()

void plpgsql_ns_push	(	const char *	label,
		PLpgSQL_label_type	label_type
	)

Definition at line 54 of file pl_funcs.c.

{
    if (label == NULL)
        label = "";
    plpgsql_ns_additem(PLPGSQL_NSTYPE_LABEL, (int) label_type, label);
}

References label, plpgsql_ns_additem(), and PLPGSQL_NSTYPE_LABEL.

Referenced by do_compile(), and plpgsql_compile_inline().

plpgsql_ns_top()

PLpgSQL_nsitem* plpgsql_ns_top

(

void

)

Definition at line 81 of file pl_funcs.c.

{
    return ns_top;
}

References ns_top.

Referenced by add_parameter_name(), plpgsql_parse_cwordtype(), plpgsql_parse_dblword(), plpgsql_parse_tripword(), plpgsql_parse_word(), and plpgsql_parse_wordtype().

plpgsql_stmt_typename()

const char* plpgsql_stmt_typename

(

PLpgSQL_stmt *

stmt

)

Definition at line 232 of file pl_funcs.c.

{
    switch (stmt->cmd_type)
    {
        case PLPGSQL_STMT_BLOCK:
            return _("statement block");
        case PLPGSQL_STMT_ASSIGN:
            return _("assignment");
        case PLPGSQL_STMT_IF:
            return "IF";
        case PLPGSQL_STMT_CASE:
            return "CASE";
        case PLPGSQL_STMT_LOOP:
            return "LOOP";
        case PLPGSQL_STMT_WHILE:
            return "WHILE";
        case PLPGSQL_STMT_FORI:
            return _("FOR with integer loop variable");
        case PLPGSQL_STMT_FORS:
            return _("FOR over SELECT rows");
        case PLPGSQL_STMT_FORC:
            return _("FOR over cursor");
        case PLPGSQL_STMT_FOREACH_A:
            return _("FOREACH over array");
        case PLPGSQL_STMT_EXIT:
            return ((PLpgSQL_stmt_exit *) stmt)->is_exit ? "EXIT" : "CONTINUE";
        case PLPGSQL_STMT_RETURN:
            return "RETURN";
        case PLPGSQL_STMT_RETURN_NEXT:
            return "RETURN NEXT";
        case PLPGSQL_STMT_RETURN_QUERY:
            return "RETURN QUERY";
        case PLPGSQL_STMT_RAISE:
            return "RAISE";
        case PLPGSQL_STMT_ASSERT:
            return "ASSERT";
        case PLPGSQL_STMT_EXECSQL:
            return _("SQL statement");
        case PLPGSQL_STMT_DYNEXECUTE:
            return "EXECUTE";
        case PLPGSQL_STMT_DYNFORS:
            return _("FOR over EXECUTE statement");
        case PLPGSQL_STMT_GETDIAG:
            return ((PLpgSQL_stmt_getdiag *) stmt)->is_stacked ?
                "GET STACKED DIAGNOSTICS" : "GET DIAGNOSTICS";
        case PLPGSQL_STMT_OPEN:
            return "OPEN";
        case PLPGSQL_STMT_FETCH:
            return ((PLpgSQL_stmt_fetch *) stmt)->is_move ? "MOVE" : "FETCH";
        case PLPGSQL_STMT_CLOSE:
            return "CLOSE";
        case PLPGSQL_STMT_PERFORM:
            return "PERFORM";
        case PLPGSQL_STMT_CALL:
            return ((PLpgSQL_stmt_call *) stmt)->is_call ? "CALL" : "DO";
        case PLPGSQL_STMT_COMMIT:
            return "COMMIT";
        case PLPGSQL_STMT_ROLLBACK:
            return "ROLLBACK";
    }
 
    return "unknown";
}

References _, PLPGSQL_STMT_ASSERT, PLPGSQL_STMT_ASSIGN, PLPGSQL_STMT_BLOCK, PLPGSQL_STMT_CALL, PLPGSQL_STMT_CASE, PLPGSQL_STMT_CLOSE, PLPGSQL_STMT_COMMIT, PLPGSQL_STMT_DYNEXECUTE, PLPGSQL_STMT_DYNFORS, PLPGSQL_STMT_EXECSQL, PLPGSQL_STMT_EXIT, PLPGSQL_STMT_FETCH, PLPGSQL_STMT_FORC, PLPGSQL_STMT_FOREACH_A, PLPGSQL_STMT_FORI, PLPGSQL_STMT_FORS, PLPGSQL_STMT_GETDIAG, PLPGSQL_STMT_IF, PLPGSQL_STMT_LOOP, PLPGSQL_STMT_OPEN, PLPGSQL_STMT_PERFORM, PLPGSQL_STMT_RAISE, PLPGSQL_STMT_RETURN, PLPGSQL_STMT_RETURN_NEXT, PLPGSQL_STMT_RETURN_QUERY, PLPGSQL_STMT_ROLLBACK, PLPGSQL_STMT_WHILE, and stmt.

Referenced by plpgsql_exec_error_callback().

Variable Documentation

dump_indent

int dump_indent

static

Definition at line 786 of file pl_funcs.c.

Referenced by dump_assert(), dump_case(), dump_cursor_direction(), dump_dynexecute(), dump_dynfors(), dump_execsql(), dump_fetch(), dump_forc(), dump_fori(), dump_ind(), dump_open(), dump_raise(), dump_return_query(), dump_stmts(), and plpgsql_dumptree().

ns_top

PLpgSQL_nsitem* ns_top = NULL

static

Definition at line 35 of file pl_funcs.c.

Referenced by plpgsql_ns_additem(), plpgsql_ns_init(), plpgsql_ns_pop(), and plpgsql_ns_top().