database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-02 09:02:37 +03:00
Code Activity

Fix a few missed NOIND usages.

Browse Source
This commit is contained in:
Tom Lane
2001-06-09 02:19:07 +00:00
parent 0acd843c05
commit 7c106621de
7 changed files with 6 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
doc/src/sgml/pltcl.sgml
View File

@ -1,5 +1,5 @@
<!-- <!--
$Header: /cvsroot/pgsql/doc/src/sgml/pltcl.sgml,v 2.10 2001/05/12 22:51:35 petere Exp $ $Header: /cvsroot/pgsql/doc/src/sgml/pltcl.sgml,v 2.11 2001/06/09 02:19:07 tgl Exp $
--> -->
<chapter id="pltcl"> <chapter id="pltcl">
@ -348,7 +348,7 @@ CREATE TRIGGER trig_mytab_modcount BEFORE INSERT OR UPDATE ON mytab
<listitem> <listitem>
<para> <para>
Fire a log message. Possible levels are NOTICE, ERROR, Fire a log message. Possible levels are NOTICE, ERROR,
FATAL, DEBUG and NOIND FATAL, and DEBUG
as for the <function>elog</function> C function. as for the <function>elog</function> C function.
</para> </para>
</listitem> </listitem>

3
src/pl/plperl/SPI.xs
View File

@ -61,9 +61,6 @@ elog_elog(level, message)
elog(level, message); elog(level, message);
int
elog_NOIND()
int int
elog_DEBUG() elog_DEBUG()

6
src/pl/plperl/eloglvl.c
View File

@ -22,12 +22,6 @@ elog_ERROR(void)
return ERROR; return ERROR;
} }
int
elog_NOIND(void)
{
return NOIND;
}
int int
elog_NOTICE(void) elog_NOTICE(void)
{ {

3
src/pl/plperl/eloglvl.h
View File

@ -5,7 +5,4 @@ int
int int
elog_ERROR(void); elog_ERROR(void);
int
elog_NOIND(void);
int elog_NOTICE(void); int elog_NOTICE(void);

6
src/pl/plperl/plperl.c
View File

@ -33,7 +33,7 @@
* ENHANCEMENTS, OR MODIFICATIONS. * ENHANCEMENTS, OR MODIFICATIONS.
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.20 2001/06/01 18:17:44 tgl Exp $ * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.21 2001/06/09 02:19:07 tgl Exp $
* *
**********************************************************************/ **********************************************************************/
@ -252,7 +252,7 @@ plperl_init_safe_interp(void)
*/ */
"require Safe; SPI::bootstrap();" "require Safe; SPI::bootstrap();"
"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');" "sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');"
"$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);" "$x->share(qw[&elog &DEBUG &NOTICE &ERROR]);"
" return $x->reval(qq[sub { $_[0] }]); }" " return $x->reval(qq[sub { $_[0] }]); }"
}; };
@ -1192,8 +1192,6 @@ plperl_elog(ClientData cdata, Tcl_Interp *interp,
level = FATAL; level = FATAL;
else if (strcmp(argv[1], "DEBUG") == 0) else if (strcmp(argv[1], "DEBUG") == 0)
level = DEBUG; level = DEBUG;
else if (strcmp(argv[1], "NOIND") == 0)
level = NOIND;
else else
{ {
Tcl_AppendResult(interp, "Unknown elog level '", argv[1], Tcl_AppendResult(interp, "Unknown elog level '", argv[1],

4
src/pl/tcl/pltcl.c
View File

@ -31,7 +31,7 @@
* ENHANCEMENTS, OR MODIFICATIONS. * ENHANCEMENTS, OR MODIFICATIONS.
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.36 2001/06/01 18:17:44 tgl Exp $ * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.37 2001/06/09 02:19:07 tgl Exp $
* *
**********************************************************************/ **********************************************************************/
@ -1295,8 +1295,6 @@ pltcl_elog(ClientData cdata, Tcl_Interp *interp,
level = FATAL; level = FATAL;
else if (strcmp(argv[1], "DEBUG") == 0) else if (strcmp(argv[1], "DEBUG") == 0)
level = DEBUG; level = DEBUG;
else if (strcmp(argv[1], "NOIND") == 0)
level = NOIND;
else else
{ {
Tcl_AppendResult(interp, "Unknown elog level '", argv[1], Tcl_AppendResult(interp, "Unknown elog level '", argv[1],

2
src/pl/tcl/pltcl_guide.nr
View File

@ -268,7 +268,7 @@ the body of a PL/Tcl procedure:
elog level msg elog level msg
.br .br
Fire a log message. Possible levels are NOTICE, WARN, ERROR, Fire a log message. Possible levels are NOTICE, WARN, ERROR,
FATAL, DEBUG and NOIND FATAL, and DEBUG
like for the elog() C function. like for the elog() C function.
.ti -4 .ti -4