Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
bc959b7b
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,发现更多精彩内容 >>
提交
bc959b7b
编写于
2月 19, 2007
作者:
M
Magnus Hagander
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Parse pg_proc.h with entries without OIDs.
上级
7c5e5439
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
16 addition
and
4 deletion
+16
-4
src/tools/msvc/Solution.pm
src/tools/msvc/Solution.pm
+12
-3
src/tools/msvc/genbki.pl
src/tools/msvc/genbki.pl
+4
-1
未找到文件。
src/tools/msvc/Solution.pm
浏览文件 @
bc959b7b
...
...
@@ -145,7 +145,7 @@ sub GenerateFiles {
print
H
"
/* fmgroids.h generated for Visual C++ */
\n
#ifndef FMGROIDS_H
\n
#define FMGROIDS_H
\n\n
";
open
(
T
,"
>src
\\
backend
\\
utils
\\
fmgrtab.c
")
||
confess
"
Could not open fmgrtab.c
";
print
T
"
/* fmgrtab.c generated for Visual C++ */
\n
#include
\"
postgres.h
\"\n
#include
\"
utils/fmgrtab.h
\"\n\n
";
foreach
my
$s
(
sort
{
$a
->
{
oid
}
<=>
$b
->
{
oid
}
}
@fmgr
)
{
foreach
my
$s
(
sort
{
intval
(
$a
->
{
oid
})
<=>
intval
(
$b
->
{
oid
})
}
@fmgr
)
{
next
if
$seenit
{
$s
->
{
prosrc
}};
$seenit
{
$s
->
{
prosrc
}}
=
1
;
print
H
"
#define F_
"
.
uc
$s
->
{
prosrc
}
.
"
$s
->{oid}
\n
";
...
...
@@ -157,8 +157,9 @@ sub GenerateFiles {
my
%bmap
;
$bmap
{'
t
'}
=
'
true
';
$bmap
{'
f
'}
=
'
false
';
foreach
my
$s
(
sort
{
$a
->
{
oid
}
<=>
$b
->
{
oid
}}
@fmgr
)
{
print
T
"
{
$s
->{oid},
\"
$s
->{prosrc}
\"
,
$s
->{nargs},
$bmap
{
$s
->{strict}},
$bmap
{
$s
->{retset}},
$s
->{prosrc} },
\n
";
foreach
my
$s
(
sort
{
intval
(
$a
->
{
oid
})
<=>
intval
(
$b
->
{
oid
})}
@fmgr
)
{
my
$o
=
intval
(
$s
->
{
oid
});
print
T
"
{
$o
,
\"
$s
->{prosrc}
\"
,
$s
->{nargs},
$bmap
{
$s
->{strict}},
$bmap
{
$s
->{retset}},
$s
->{prosrc} },
\n
";
}
...
...
@@ -231,6 +232,14 @@ EOF
}
}
sub
intval
{
my
$v
=
shift
;
if
(
$v
=~
/^\d+$/
)
{
return
$v
;
}
return
0
;
}
sub
AddProject
{
my
(
$self
,
$name
,
$type
,
$folder
,
$initialdir
)
=
@_
;
...
...
src/tools/msvc/genbki.pl
浏览文件 @
bc959b7b
...
...
@@ -11,7 +11,7 @@
#
#
# IDENTIFICATION
# $PostgreSQL: pgsql/src/tools/msvc/genbki.pl,v 1.
3 2007/02/06 09:16:08 petere
Exp $
# $PostgreSQL: pgsql/src/tools/msvc/genbki.pl,v 1.
4 2007/02/19 14:05:42 mha
Exp $
#
#-------------------------------------------------------------------------
...
...
@@ -80,6 +80,9 @@ foreach my $line (split /\n/, $indata) {
if
(
$#fields
>=
4
&&
$fields
[
0
]
eq
"
insert
"
&&
$fields
[
1
]
eq
"
OID
"
&&
$fields
[
2
]
eq
"
=
")
{
$oid
=
$fields
[
3
];
}
else
{
$oid
=
0
;
}
$data
=~
s/\s{2,}/ /g
;
$bki
.=
$data
.
"
\n
";
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录