Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
3eabe82a
R
roslyn
项目概览
lwm1986
/
roslyn
与 Fork 源项目一致
从无法访问的项目Fork
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
R
roslyn
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
3eabe82a
编写于
9月 07, 2018
作者:
T
Tomas Matousek
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix up insertion files
上级
424c67d7
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
3 addition
and
32 deletion
+3
-32
src/Setup/DevDivInsertionFiles/BuildDevDivInsertionFiles.vb
src/Setup/DevDivInsertionFiles/BuildDevDivInsertionFiles.vb
+3
-32
未找到文件。
src/Setup/DevDivInsertionFiles/BuildDevDivInsertionFiles.vb
浏览文件 @
3eabe82a
...
...
@@ -59,16 +59,15 @@ Public Class BuildDevDivInsertionFiles
' Build a dependency map
Dim
dependencies
=
BuildDependencyMap
(
_binDirectory
)
GenerateContractsListMsbuild
(
dependencies
)
GenerateAssemblyVersionList
(
dependencies
)
CopyDependencies
(
dependencies
)
End
Sub
Private
Class
DependencyInfo
' For example, "ref/net4
6
"
' For example, "ref/net4
72
"
Public
ContractDir
As
String
' For example, "lib/net4
6
"
' For example, "lib/net4
72
"
Public
ImplementationDir
As
String
' For example, "System.AppContext"
...
...
@@ -99,7 +98,7 @@ Public Class BuildDevDivInsertionFiles
For
Each
projectLockJson
In
files
Dim
items
=
DirectCast
(
JsonConvert
.
DeserializeObject
(
File
.
ReadAllText
(
projectLockJson
)),
JObject
)
Const
targetFx
=
".NETFramework,Version=v4.
6
"
Const
targetFx
=
".NETFramework,Version=v4.
7.2
"
Dim
targets
=
DirectCast
(
items
.
Property
(
"targets"
)
?
.
Value
,
JObject
)
If
targets
Is
Nothing
Then
...
...
@@ -181,34 +180,6 @@ Public Class BuildDevDivInsertionFiles
Return
result
End
Function
Private
Sub
GenerateContractsListMsbuild
(
dependencies
As
IReadOnlyDictionary
(
Of
String
,
DependencyInfo
))
Using
writer
=
New
StreamWriter
(
GetAbsolutePathInOutputDirectory
(
"ProductData\ContractAssemblies.props"
))
writer
.
WriteLine
(
"<?xml version=
""
1.0
""
encoding=
""
utf-8
""
?>"
)
writer
.
WriteLine
(
"<Project ToolsVersion=
""
14.0
""
xmlns=
""
http://schemas.microsoft.com/developer/msbuild/2003
""
>"
)
writer
.
WriteLine
(
" <!-- Generated file, do not directly edit. Contact mlinfraswat@microsoft.com if you need to add a library that's not listed -->"
)
writer
.
WriteLine
(
" <PropertyGroup>"
)
For
Each
entry
In
GetContracts
(
dependencies
)
writer
.
WriteLine
(
$
" <{entry.Key}>{entry.Value}</{entry.Key}>"
)
Next
writer
.
WriteLine
(
" </PropertyGroup>"
)
writer
.
WriteLine
(
"</Project>"
)
End
Using
End
Sub
Private
Iterator
Function
GetContracts
(
dependencies
As
IReadOnlyDictionary
(
Of
String
,
DependencyInfo
))
As
IEnumerable
(
Of
KeyValuePair
(
Of
String
,
String
))
For
Each
entry
In
dependencies
.
OrderBy
(
Function
(
e
)
e
.
Key
)
Dim
fileName
=
entry
.
Key
Dim
dependency
=
entry
.
Value
If
dependency
.
ContractDir
IsNot
Nothing
Then
Dim
variableName
=
"FXContract_"
+
Path
.
GetFileNameWithoutExtension
(
fileName
).
Replace
(
"."
,
"_"
)
Dim
dir
=
Path
.
Combine
(
dependency
.
PackageName
,
dependency
.
ContractDir
)
Yield
New
KeyValuePair
(
Of
String
,
String
)(
variableName
,
Path
.
Combine
(
dir
,
fileName
))
End
If
Next
End
Function
Private
Sub
GenerateAssemblyVersionList
(
dependencies
As
IReadOnlyDictionary
(
Of
String
,
DependencyInfo
))
Using
writer
=
New
StreamWriter
(
GetAbsolutePathInOutputDirectory
(
"DependentAssemblyVersions.csv"
))
For
Each
entry
In
dependencies
.
OrderBy
(
Function
(
e
)
e
.
Key
)
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录