Capitalize language key words in error messages

diff --git a/src/pl/plpgsql/src/pl_funcs.c b/src/pl/plpgsql/src/pl_funcs.c
index da128daa7f7f39ae0c22216a3541fadf322947c4..894284fc19722d941bc05df90c35b2609edfec05 100644 (file)
--- a/src/pl/plpgsql/src/pl_funcs.c
+++ b/src/pl/plpgsql/src/pl_funcs.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *   $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_funcs.c,v 1.61 2007/07/16 17:01:11 tgl Exp $
+ *   $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_funcs.c,v 1.62 2007/07/20 16:23:34 petere Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -428,39 +428,39 @@ plpgsql_stmt_typename(PLpgSQL_stmt *stmt)
        case PLPGSQL_STMT_ASSIGN:
            return _("assignment");
        case PLPGSQL_STMT_IF:
-           return _("if");
+           return "IF";
        case PLPGSQL_STMT_LOOP:
-           return _("loop");
+           return "LOOP";
        case PLPGSQL_STMT_WHILE:
-           return _("while");
+           return "WHILE";
        case PLPGSQL_STMT_FORI:
-           return _("for with integer loop variable");
+           return _("FOR with integer loop variable");
        case PLPGSQL_STMT_FORS:
-           return _("for over select rows");
+           return _("FOR over SELECT rows");
        case PLPGSQL_STMT_EXIT:
-           return _("exit");
+           return "EXIT";
        case PLPGSQL_STMT_RETURN:
-           return _("return");
+           return "RETURN";
        case PLPGSQL_STMT_RETURN_NEXT:
-           return _("return next");
+           return "RETURN NEXT";
        case PLPGSQL_STMT_RAISE:
-           return _("raise");
+           return "RAISE";
        case PLPGSQL_STMT_EXECSQL:
            return _("SQL statement");
        case PLPGSQL_STMT_DYNEXECUTE:
-           return _("execute statement");
+           return _("EXECUTE statement");
        case PLPGSQL_STMT_DYNFORS:
-           return _("for over execute statement");
+           return _("FOR over EXECUTE statement");
        case PLPGSQL_STMT_GETDIAG:
-           return _("get diagnostics");
+           return "GET DIAGNOSTICS";
        case PLPGSQL_STMT_OPEN:
-           return _("open");
+           return "OPEN";
        case PLPGSQL_STMT_FETCH:
-           return _("fetch");
+           return "FETCH";
        case PLPGSQL_STMT_CLOSE:
-           return _("close");
+           return "CLOSE";
        case PLPGSQL_STMT_PERFORM:
-           return _("perform");
+           return "PERFORM";
    }
 
    return "unknown";