Solution for bug #899 - Mailing list pgsql-bugs

Hi,

I have patched pg_dump.c to have a correct output file
when the database use procedure langages.

Bye

Laurent

PS: I have tryed to send the full source code as
attachement but my message never appear in this ML, so
I hope this diff file is enought ...

**** diff ****

603a604,606
>     MoveToStart(g_fout, "ACL LANGUAGE");
>     MoveToStart(g_fout, "PROCEDURAL LANGUAGE");
>     MoveToStart(g_fout, "FUNC PROCEDURAL LANGUAGE");
3522c3525
<             dumpACL(fout, "LANGUAGE", tmp, lanname,
---
>             dumpACL(fout, "ACL LANGUAGE", tmp, lanname,
3526a3530,3531
>
>
3627a3633
>     char       *funcproclang;
3643c3649,3650
<                           "(SELECT lanname FROM pg_catalog.pg_language
WHERE oid = prolang) as lanname "
---
>                           "(SELECT lanname FROM pg_catalog.pg_language
WHERE oid = prolang) as lanname, "
>                           "exists (SELECT 'x' FROM
pg_catalog.pg_language WHERE lanplcallfoid =
pg_catalog.pg_proc.oid) as funcproclang "
3655c3662,3663
<                           "(SELECT lanname FROM pg_language WHERE oid
= prolang) as lanname "
---
>                           "(SELECT lanname FROM pg_language WHERE oid
= prolang) as lanname, "
>                           "exists (SELECT 'x' FROM pg_language WHERE
lanplcallfoid = pg_proc.oid) as funcproclang "
3667c3675,3676
<                           "(SELECT lanname FROM pg_language WHERE oid
= prolang) as lanname "
---
>                           "(SELECT lanname FROM pg_language WHERE oid
= prolang) as lanname, "
>                           "exists (SELECT 'x' FROM pg_language WHERE
lanplcallfoid = pg_proc.oid) as funcproclang "
3697a3707
>     funcproclang = PQgetvalue(res, 0, PQfnumber(res,
"funcproclang"));
3768c3778
<                  finfo->usename, "FUNCTION", NULL,
---
>                  finfo->usename,
strcmp(funcproclang,"t")?"FUNCTION":"FUNC PROCEDURAL
LANGUAGE", NULL,
4874a4885,4886
>     char       acl_lang=0;
>
4877a4890,4894
>     if(!strcmp(type,"ACL LANGUAGE")){
>         type = "LANGUAGE";
>         acl_lang = 1;
>     }
>
4992c5009
<                  "ACL", NULL, sql->data, "", NULL, NULL, NULL);
---
>                 acl_lang ? "ACL LANGUAGE" : "ACL", NULL,
sql->data, "", NULL, NULL, NULL);


=====
The misspelling master is on the Web.  _________    100 % Dictionnary Free ! /        /(/  Dico  / /    Pleins d'autres
fautessur 
/________/ /    http://go.to/destroyedlolo
(#######( /    http://destroyedlolo.homeunix.org:8080
Quoi, des fautes d'orthographe! Pas possible ;-D.

___________________________________________________________
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en français !
Yahoo! Mail : http://fr.mail.yahoo.com