Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
7c106621
G
Gpdb
项目概览
Greenplum
/
Gpdb
通知
7
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
Gpdb
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
7c106621
编写于
6月 09, 2001
作者:
T
Tom Lane
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix a few missed NOIND usages.
上级
0acd843c
变更
7
隐藏空白更改
内联
并排
Showing
7 changed file
with
6 addition
and
22 deletion
+6
-22
doc/src/sgml/pltcl.sgml
doc/src/sgml/pltcl.sgml
+2
-2
src/pl/plperl/SPI.xs
src/pl/plperl/SPI.xs
+0
-3
src/pl/plperl/eloglvl.c
src/pl/plperl/eloglvl.c
+0
-6
src/pl/plperl/eloglvl.h
src/pl/plperl/eloglvl.h
+0
-3
src/pl/plperl/plperl.c
src/pl/plperl/plperl.c
+2
-4
src/pl/tcl/pltcl.c
src/pl/tcl/pltcl.c
+1
-3
src/pl/tcl/pltcl_guide.nr
src/pl/tcl/pltcl_guide.nr
+1
-1
未找到文件。
doc/src/sgml/pltcl.sgml
浏览文件 @
7c106621
<!--
$Header: /cvsroot/pgsql/doc/src/sgml/pltcl.sgml,v 2.1
0 2001/05/12 22:51:35 petere
Exp $
$Header: /cvsroot/pgsql/doc/src/sgml/pltcl.sgml,v 2.1
1 2001/06/09 02:19:07 tgl
Exp $
-->
<chapter id="pltcl">
...
...
@@ -348,7 +348,7 @@ CREATE TRIGGER trig_mytab_modcount BEFORE INSERT OR UPDATE ON mytab
<listitem>
<para>
Fire a log message. Possible levels are NOTICE, ERROR,
FATAL,
DEBUG and NOIND
FATAL,
and DEBUG
as for the <function>elog</function> C function.
</para>
</listitem>
...
...
src/pl/plperl/SPI.xs
浏览文件 @
7c106621
...
...
@@ -61,9 +61,6 @@ elog_elog(level, message)
elog(level, message);
int
elog_NOIND()
int
elog_DEBUG()
...
...
src/pl/plperl/eloglvl.c
浏览文件 @
7c106621
...
...
@@ -22,12 +22,6 @@ elog_ERROR(void)
return
ERROR
;
}
int
elog_NOIND
(
void
)
{
return
NOIND
;
}
int
elog_NOTICE
(
void
)
{
...
...
src/pl/plperl/eloglvl.h
浏览文件 @
7c106621
...
...
@@ -5,7 +5,4 @@ int
int
elog_ERROR
(
void
);
int
elog_NOIND
(
void
);
int
elog_NOTICE
(
void
);
src/pl/plperl/plperl.c
浏览文件 @
7c106621
...
...
@@ -33,7 +33,7 @@
* ENHANCEMENTS, OR MODIFICATIONS.
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.2
0 2001/06/01 18:17:44
tgl Exp $
* $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.2
1 2001/06/09 02:19:07
tgl Exp $
*
**********************************************************************/
...
...
@@ -252,7 +252,7 @@ plperl_init_safe_interp(void)
*/
"require Safe; SPI::bootstrap();"
"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] }]); }"
};
...
...
@@ -1192,8 +1192,6 @@ plperl_elog(ClientData cdata, Tcl_Interp *interp,
level
=
FATAL
;
else
if
(
strcmp
(
argv
[
1
],
"DEBUG"
)
==
0
)
level
=
DEBUG
;
else
if
(
strcmp
(
argv
[
1
],
"NOIND"
)
==
0
)
level
=
NOIND
;
else
{
Tcl_AppendResult
(
interp
,
"Unknown elog level '"
,
argv
[
1
],
...
...
src/pl/tcl/pltcl.c
浏览文件 @
7c106621
...
...
@@ -31,7 +31,7 @@
* ENHANCEMENTS, OR MODIFICATIONS.
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.3
6 2001/06/01 18:17:44
tgl Exp $
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.3
7 2001/06/09 02:19:07
tgl Exp $
*
**********************************************************************/
...
...
@@ -1295,8 +1295,6 @@ pltcl_elog(ClientData cdata, Tcl_Interp *interp,
level
=
FATAL
;
else
if
(
strcmp
(
argv
[
1
],
"DEBUG"
)
==
0
)
level
=
DEBUG
;
else
if
(
strcmp
(
argv
[
1
],
"NOIND"
)
==
0
)
level
=
NOIND
;
else
{
Tcl_AppendResult
(
interp
,
"Unknown elog level '"
,
argv
[
1
],
...
...
src/pl/tcl/pltcl_guide.nr
浏览文件 @
7c106621
...
...
@@ -268,7 +268,7 @@ the body of a PL/Tcl procedure:
elog level msg
.br
Fire a log message. Possible levels are NOTICE, WARN, ERROR,
FATAL,
DEBUG and NOIND
FATAL,
and DEBUG
like for the elog() C function.
.ti -4
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录