|
3 | 3 | * procedural language |
4 | 4 | * |
5 | 5 | * IDENTIFICATION |
6 | | - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_funcs.c,v 1.25 2003/03/25 03:16:41 tgl Exp $ |
| 6 | + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_funcs.c,v 1.26 2003/05/23 04:08:34 tgl Exp $ |
7 | 7 | * |
8 | 8 | * This software is copyrighted by Jan Wieck - Hamburg. |
9 | 9 | * |
@@ -472,6 +472,8 @@ plpgsql_stmt_typename(PLpgSQL_stmt * stmt) |
472 | 472 | return"fetch"; |
473 | 473 | casePLPGSQL_STMT_CLOSE: |
474 | 474 | return"close"; |
| 475 | +casePLPGSQL_STMT_PERFORM: |
| 476 | +return"perform"; |
475 | 477 | } |
476 | 478 |
|
477 | 479 | return"unknown"; |
@@ -504,6 +506,7 @@ static void dump_getdiag(PLpgSQL_stmt_getdiag * stmt); |
504 | 506 | staticvoiddump_open(PLpgSQL_stmt_open*stmt); |
505 | 507 | staticvoiddump_fetch(PLpgSQL_stmt_fetch*stmt); |
506 | 508 | staticvoiddump_close(PLpgSQL_stmt_close*stmt); |
| 509 | +staticvoiddump_perform(PLpgSQL_stmt_perform*stmt); |
507 | 510 | staticvoiddump_expr(PLpgSQL_expr*expr); |
508 | 511 |
|
509 | 512 |
|
@@ -579,6 +582,9 @@ dump_stmt(PLpgSQL_stmt * stmt) |
579 | 582 | casePLPGSQL_STMT_CLOSE: |
580 | 583 | dump_close((PLpgSQL_stmt_close*)stmt); |
581 | 584 | break; |
| 585 | +casePLPGSQL_STMT_PERFORM: |
| 586 | +dump_perform((PLpgSQL_stmt_perform*)stmt); |
| 587 | +break; |
582 | 588 | default: |
583 | 589 | elog(ERROR,"plpgsql_dump: unknown cmd_type %d\n",stmt->cmd_type); |
584 | 590 | break; |
@@ -808,6 +814,15 @@ dump_close(PLpgSQL_stmt_close * stmt) |
808 | 814 | printf("CLOSE curvar=%d\n",stmt->curvar); |
809 | 815 | } |
810 | 816 |
|
| 817 | +staticvoid |
| 818 | +dump_perform(PLpgSQL_stmt_perform*stmt) |
| 819 | +{ |
| 820 | +dump_ind(); |
| 821 | +printf("PERFORM expr = "); |
| 822 | +dump_expr(stmt->expr); |
| 823 | +printf("\n"); |
| 824 | +} |
| 825 | + |
811 | 826 | staticvoid |
812 | 827 | dump_exit(PLpgSQL_stmt_exit*stmt) |
813 | 828 | { |
|