plpgsql function, comment with single quote, braces

This email repeats my post http://www.sql.ru/forum/actualthread.aspx?tid=908777

I used
PostgreSQL 9.1.1 on x86_64-apple-darwin10.8.0, compiled by
i686-apple-darwin10-gcc-4.2.1 (GCC) 4.2.1 (Apple Inc. build 5666) (dot
3), 64-bit
PostgreSQL 8.4.6 on i386-apple-darwin, compiled by GCC
i686-apple-darwin8-gcc-4.0.1 (GCC) 4.0.1 (Apple Computer, Inc. build
5370), 32-bit
with
postgresql-8.4-701.jdbc3.jar
postgresql-8.4-701.jdbc4.jar
postgresql-9.1-901.jdbc3.jar
postgresql-9.1-901.jdbc4.jar

for creating function like this:

<pre>
create or replace function f ()
returns void as $f$ begin
-- ' comment with single quote symbol
declare
_A_65 text := '{A}';
_B_66 text := '{B}';
_C_67 text := '{C}';
_D_68 text := '{D}';
_E_69 text := '{E}';
_F_70 text := '{F}';
_G_71 text := '{G}';
_H_72 text := '{H}';
_I_73 text := '{I}';
_J_74 text := '{J}';
_K_75 text := '{K}';
_L_76 text := '{L}';
_M_77 text := '{M}';
_N_78 text := '{N}';
_O_79 text := '{O}';
_P_80 text := '{P}';
_Q_81 text := '{Q}';
_R_82 text := '{R}';
_S_83 text := '{S}';
_T_84 text := '{T}';
_U_85 text := '{U}';
_V_86 text := '{V}';
_W_87 text := '{W}';
_X_88 text := '{X}';
_Y_89 text := '{Y}';
_Z_90 text := '{Z}';
_a_97 text := '{a}';
_b_98 text := '{b}';
_c_99 text := '{c}';
_d_100 text := '{d}';
_e_101 text := '{e}';
_f_102 text := '{f}';
_g_103 text := '{g}';
_h_104 text := '{h}';
_i_105 text := '{i}';
_j_106 text := '{j}';
_k_107 text := '{k}';
_l_108 text := '{l}';
_m_109 text := '{m}';
_n_110 text := '{n}';
_o_111 text := '{o}';
_p_112 text := '{p}';
_q_113 text := '{q}';
_r_114 text := '{r}';
_s_115 text := '{s}';
_t_116 text := '{t}';
_u_117 text := '{u}';
_v_118 text := '{v}';
_w_119 text := '{w}';
_x_120 text := '{x}';
_y_121 text := '{y}';
_z_122 text := '{z}';
begin
end;

end; $f$ language plpgsql;
</pre>

and get this in my database:

<pre>
...
CREATE OR REPLACE FUNCTION f()
RETURNS void AS
$BODY$ begin
-- ' comment
declare
_A_65 text := '{A}';
_B_66 text := '{B}';
_C_67 text := '{C}';
_D_68 text := 'DATE ';
_E_69 text := 'E';
_F_70 text := '';
_G_71 text := '{G';
_H_72 text := '{H}';
_I_73 text := '{I}';
_J_74 text := '{J}';
_K_75 text := '{K}';
_L_76 text := '{L}';
_M_77 text := '{M}';
_N_78 text := '{N}';
_O_79 text := '';
_P_80 text := '{P}';
_Q_81 text := '{Q}';
_R_82 text := '{R}';
_S_83 text := '{S}';
_T_84 text := 'TIME ';
_U_85 text := '{U}';
_V_86 text := '{V}';
_W_87 text := '{W}';
_X_88 text := '{X}';
_Y_89 text := '{Y}';
_Z_90 text := '{Z}';
_a_97 text := '{a}';
_b_98 text := '{b}';
_c_99 text := '{c}';
_d_100 text := 'DATE ';
_e_101 text := 'e';
_f_102 text := '';
_g_103 text := '{g';
_h_104 text := '{h}';
_i_105 text := '{i}';
_j_106 text := '{j}';
_k_107 text := '{k}';
_l_108 text := '{l}';
_m_109 text := '{m}';
_n_110 text := '{n}';
_o_111 text := '';
_p_112 text := '{p}';
_q_113 text := '{q}';
_r_114 text := '{r}';
_s_115 text := '{s}';
_t_116 text := 'TIME ';
_u_117 text := '{u}';
_v_118 text := '{v}';
_w_119 text := '{w}';
_x_120 text := '{x}';
_y_121 text := '{y}';
_z_122 text := '{z}';
begin
end;

end; $BODY$
LANGUAGE plpgsql VOLATILE
COST 100;
...
</pre>

please check it.