Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
e69f7f45
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,发现更多精彩内容 >>
提交
e69f7f45
编写于
3月 23, 2007
作者:
M
Magnus Hagander
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Generate SQL files for /contrib (based on .sql.in)
上级
fb8155d0
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
63 addition
and
5 deletion
+63
-5
src/tools/msvc/Mkvcbuild.pm
src/tools/msvc/Mkvcbuild.pm
+55
-4
src/tools/msvc/clean.bat
src/tools/msvc/clean.bat
+8
-1
未找到文件。
src/tools/msvc/Mkvcbuild.pm
浏览文件 @
e69f7f45
package
Mkvcbuild
;
#
# Package that generates build files for msvc build
#
# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.
4 2007/03/21 14:39:2
3 mha Exp $
# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.
5 2007/03/23 09:53:3
3 mha Exp $
#
use
Carp
;
use
Win32
;
...
...
@@ -249,6 +250,8 @@ sub mkvcbuild
}
$pgcrypto
->
AddReference
(
$postgres
);
$pgcrypto
->
AddLibrary
('
wsock32.lib
');
my
$mf
=
Project::
read_file
('
contrib/pgcrypto/Makefile
');
GenerateContribSqlFiles
('
pgcrypto
',
$mf
);
my
$D
;
opendir
(
$D
,
'
contrib
')
||
croak
"
Could not opendir on contrib!
\n
";
...
...
@@ -384,7 +387,6 @@ sub AddContrib
}
}
AdjustContribProj
(
$proj
);
return
$proj
;
}
elsif
(
$mf
=~
/^MODULES\s*=\s*(.*)$/mg
)
{
...
...
@@ -395,7 +397,6 @@ sub AddContrib
$proj
->
AddReference
(
$postgres
);
AdjustContribProj
(
$proj
);
}
return
undef
;
}
elsif
(
$mf
=~
/^PROGRAM\s*=\s*(.*)$/mg
)
{
...
...
@@ -407,12 +408,62 @@ sub AddContrib
$proj
->
AddFile
('
contrib
\\
'
.
$n
.
'
\\
'
.
$o
);
}
AdjustContribProj
(
$proj
);
return
$proj
;
}
else
{
croak
"
Could not determine contrib module type for
$n
\n
";
}
# Are there any output data files to build?
GenerateContribSqlFiles
(
$n
,
$mf
);
}
sub
GenerateContribSqlFiles
{
my
$n
=
shift
;
my
$mf
=
shift
;
if
(
$mf
=~
/^DATA_built\s*=\s*(.*)$/mg
)
{
my
$l
=
$
1
;
# Strip out $(addsuffix) rules
if
(
index
(
$l
,
'
$(addsuffix
')
>=
0
)
{
my
$pcount
=
0
;
my
$i
;
for
(
$i
=
index
(
$l
,
'
$(addsuffix
')
+
12
;
$i
<
length
(
$l
);
$i
++
)
{
$pcount
++
if
(
substr
(
$l
,
$i
,
1
)
eq
'
(
');
$pcount
--
if
(
substr
(
$l
,
$i
,
1
)
eq
'
)
');
last
if
(
$pcount
<
0
);
}
$l
=
substr
(
$l
,
0
,
index
(
$l
,
'
$(addsuffix
'))
.
substr
(
$l
,
$i
+
1
);
}
# Special case for contrib/spi
$l
=
"
autoinc.sql insert_username.sql moddatetime.sql refint.sql timetravel.sql
"
if
(
$n
eq
'
spi
');
foreach
my
$d
(
split
/\s+/
,
$l
)
{
my
$in
=
"
$d
.in
";
my
$out
=
"
$d
";
# tsearch2 uses inconsistent naming
$in
=
"
tsearch.sql.in
"
if
(
$in
eq
"
tsearch2.sql.in
");
$in
=
"
untsearch.sql.in
"
if
(
$in
eq
"
uninstall_tsearch2.sql.in
");
if
(
Solution::
IsNewer
("
contrib/
$n
/
$out
",
"
contrib/
$n
/
$in
"))
{
print
"
Building
$out
from
$in
(contrib/
$n
)...
\n
";
my
$cont
=
Project::
read_file
("
contrib/
$n
/
$in
");
$cont
=~
s/MODULE_PATHNAME/\$libdir\/$n/g
;
my
$o
;
open
(
$o
,"
>contrib/
$n
/
$out
")
||
croak
"
Could not write to contrib/
$n
/
$d
";
print
$o
$cont
;
close
(
$o
);
}
}
}
}
sub
AdjustContribProj
...
...
src/tools/msvc/clean.bat
浏览文件 @
e69f7f45
@echo
off
REM $PostgreSQL: pgsql/src/tools/msvc/clean.bat,v 1.
3 2007/03/17 14:01:01
mha Exp $
REM $PostgreSQL: pgsql/src/tools/msvc/clean.bat,v 1.
4 2007/03/23 09:53:33
mha Exp $
set
D
=
%CD%
if
exist
..\msvc
if
exist
..\..\..\src
cd
..\..\..
...
...
@@ -51,6 +51,13 @@ call :del contrib\spi\refint.dll
call
:del
contrib
\spi\autoinc.dll
call
:del
src
\test\regress\regress.dll
REM Clean up datafiles built with contrib
cd
contrib
for
/r
%%f
in
(*
.sql
)
do
if
exist
%%f
.in
del
%%f
REM Clean up tsearch2 which uses inconsistent names
call
:del
tsearch2
\tsearch2.sql
call
:del
tsearch2
\uninstall_tsearch2.sql
cd
%D%
goto
:eof
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录