|
21 | 21 | * |
22 | 22 | * |
23 | 23 | * IDENTIFICATION |
24 | | - * $Header: /cvsroot/pgsql/src/bin/pg_dump/pg_dump.c,v 1.46 1997/09/24 15:14:02 momjian Exp $ |
| 24 | + * $Header: /cvsroot/pgsql/src/bin/pg_dump/pg_dump.c,v 1.47 1997/09/24 15:36:34 momjian Exp $ |
25 | 25 | * |
26 | 26 | * Modifications - 6/10/96 - dave@bensoft.com - version 1.13.dhb |
27 | 27 | * |
|
59 | 59 | #include"postgres.h" |
60 | 60 | #include"access/htup.h" |
61 | 61 | #include"catalog/pg_type.h" |
| 62 | +#include"catalog/pg_language.h" |
62 | 63 | #include"catalog/pg_index.h" |
63 | 64 | #include"libpq-fe.h" |
64 | 65 | #ifndefHAVE_STRDUP |
@@ -1238,7 +1239,7 @@ getFuncs(int *numFuncs) |
1238 | 1239 | finfo[i].prorettype=strdup(PQgetvalue(res,i,i_prorettype)); |
1239 | 1240 | finfo[i].retset= (strcmp(PQgetvalue(res,i,i_proretset),"t")==0); |
1240 | 1241 | finfo[i].nargs=atoi(PQgetvalue(res,i,i_pronargs)); |
1241 | | -finfo[i].lang=(atoi(PQgetvalue(res,i,i_prolang))==C_PROLANG_OID); |
| 1242 | +finfo[i].lang=atoi(PQgetvalue(res,i,i_prolang)); |
1242 | 1243 |
|
1243 | 1244 | finfo[i].usename=strdup(PQgetvalue(res,i,i_usename)); |
1244 | 1245 |
|
@@ -1717,8 +1718,12 @@ dumpOneFunc(FILE *fout, FuncInfo *finfo, int i, |
1717 | 1718 | q, |
1718 | 1719 | (finfo[i].retset) ?" SETOF " :"", |
1719 | 1720 | findTypeByOid(tinfo,numTypes,finfo[i].prorettype), |
1720 | | -(finfo[i].lang) ?finfo[i].probin :finfo[i].prosrc, |
1721 | | -(finfo[i].lang) ?"C" :"SQL"); |
| 1721 | +(finfo[i].lang==INTERNALlanguageId) ?finfo[i].prosrc : |
| 1722 | +(finfo[i].lang==ClanguageId) ?finfo[i].probin : |
| 1723 | +(finfo[i].lang==SQLlanguageId) ?finfo[i].prosrc :"unknown"); |
| 1724 | +(finfo[i].lang==INTERNALlanguageId) ?"INTERNAL" : |
| 1725 | +(finfo[i].lang==ClanguageId) ?"C" : |
| 1726 | +(finfo[i].lang==SQLlanguageId) ?"SQL" :"unknown"); |
1722 | 1727 |
|
1723 | 1728 | fputs(q,fout); |
1724 | 1729 |
|
|