Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
2ce1825f
F
fsharp
项目概览
dotNET Platform
/
fsharp
大约 1 年 前同步成功
通知
0
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
F
fsharp
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
未验证
提交
2ce1825f
编写于
4月 05, 2023
作者:
J
Jakub Majocha
提交者:
GitHub
4月 05, 2023
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
VS: log activities to output pane in debug (#15028)
* dump activities to output pane
上级
1515f5ee
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
40 addition
and
4 deletion
+40
-4
vsintegration/src/FSharp.Editor/Common/Logging.fs
vsintegration/src/FSharp.Editor/Common/Logging.fs
+35
-4
vsintegration/src/FSharp.Editor/LanguageService/LanguageService.fs
...tion/src/FSharp.Editor/LanguageService/LanguageService.fs
+5
-0
未找到文件。
vsintegration/src/FSharp.Editor/Common/Logging.fs
浏览文件 @
2ce1825f
...
...
@@ -71,19 +71,19 @@ type Logger [<ImportingConstructor>] ([<Import(typeof<SVsServiceProvider>)>] ser
match
self
.
FSharpLoggingPane
,
msgType
with
|
None
,
_
->
()
|
Some
pane
,
LogType
.
Message
->
String
.
Format
(
"[
F#][
{0}{1}] {2}{3}"
,
""
,
time
,
msg
,
Environment
.
NewLine
)
String
.
Format
(
"[{0}{1}] {2}{3}"
,
""
,
time
,
msg
,
Environment
.
NewLine
)
|>
pane
.
OutputString
|>
ignore
|
Some
pane
,
LogType
.
Info
->
String
.
Format
(
"[
F#][
{0}{1}] {2}{3}"
,
"INFO "
,
time
,
msg
,
Environment
.
NewLine
)
String
.
Format
(
"[{0}{1}] {2}{3}"
,
"INFO "
,
time
,
msg
,
Environment
.
NewLine
)
|>
pane
.
OutputString
|>
ignore
|
Some
pane
,
LogType
.
Warn
->
String
.
Format
(
"[
F#][
{0}{1}] {2}{3}"
,
"WARN "
,
time
,
msg
,
Environment
.
NewLine
)
String
.
Format
(
"[{0}{1}] {2}{3}"
,
"WARN "
,
time
,
msg
,
Environment
.
NewLine
)
|>
pane
.
OutputString
|>
ignore
|
Some
pane
,
LogType
.
Error
->
String
.
Format
(
"[
F#][
{0}{1}] {2}{3}"
,
"ERROR "
,
time
,
msg
,
Environment
.
NewLine
)
String
.
Format
(
"[{0}{1}] {2}{3}"
,
"ERROR "
,
time
,
msg
,
Environment
.
NewLine
)
|>
pane
.
OutputString
|>
ignore
...
...
@@ -112,3 +112,34 @@ module Logging =
let
logExceptionWithContext
(
ex
:
Exception
,
context
)
=
logErrorf
"Context: %s
\n
Exception Message: %s
\n
Stack Trace: %s"
context
ex
.
Message
ex
.
StackTrace
module
Activity
=
let
listen
filter
=
let
indent
(
activity
:
Activity
)
=
let
rec
loop
(
activity
:
Activity
)
n
=
if
activity
.
Parent
<>
null
then
loop
(
activity
.
Parent
)
(
n
+
1
)
else
n
String
.
replicate
(
loop
activity
0
)
" "
let
collectTags
(
activity
:
Activity
)
=
[
for
tag
in
activity
.
Tags
->
$
"{tag.Key}: %A{tag.Value}"
]
|>
String
.
concat
", "
let
listener
=
new
ActivityListener
(
ShouldListenTo
=
(
fun
source
->
source
.
Name
=
FSharp
.
Compiler
.
Diagnostics
.
ActivityNames
.
FscSourceName
),
Sample
=
(
fun
context
->
if
context
.
Name
.
Contains
(
filter
)
then
ActivitySamplingResult
.
AllDataAndRecorded
else
ActivitySamplingResult
.
None
),
ActivityStarted
=
(
fun
a
->
logMsg
$
"{indent a}{a.OperationName} {collectTags a}"
)
)
ActivitySource
.
AddActivityListener
(
listener
)
let
listenToAll
()
=
listen
""
vsintegration/src/FSharp.Editor/LanguageService/LanguageService.fs
浏览文件 @
2ce1825f
...
...
@@ -321,6 +321,11 @@ type internal FSharpPackage() as this =
let
mutable
solutionEventsOpt
=
None
#
if
DEBUG
let
_
logger
=
Logging
.
Activity
.
listenToAll
()
// Logging.Activity.listen "IncrementalBuild"
#
endif
// FSI-LINKAGE-POINT: unsited init
do
Microsoft
.
VisualStudio
.
FSharp
.
Interactive
.
Hooks
.
fsiConsoleWindowPackageCtorUnsited
(
this
:>
Package
)
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录