ThreadPool: display status + work items

Closes #62

Author: fremag

MemoDummy/MemoDummy.csproj

@@ -90,6 +90,7 @@
     <Compile Include="AbstractMemoScript.cs" />
     <Compile Include="ComplexObject.cs" />
     <Compile Include="DeadLockedThreadScript.cs" />
+    <Compile Include="ThreadPoolScript.cs" />
     <Compile Include="LockedThreadScript.cs" />
     <Compile Include="MemoDummyForm.cs">
       <SubType>Form</SubType>

MemoDummy/ThreadPoolScript.cs

@@ -0,0 +1,40 @@
+using System.ComponentModel;
+using System.Threading;
+
+namespace MemoDummy
+{
+    public class ThreadPoolScript : AbstractMemoScript
+    {
+        public override string Name => "ThreadPool";
+        public override string Description => "Queue tasks to the ThreadPool ";
+
+        [Category("Config")]
+        public int MaxWorkerThreads { get; set; } = 4;
+        [Category("Config")]
+        public int MinWorkerThreads { get; set; } = 4;
+        [Category("Config")]
+        public int MinCompletionThreads { get; set; } = 4;
+        [Category("Config")]
+        public int MaxCompletionThreads { get; set; } = 4;
+        [Category("Tasks")]
+        public int NbTasks { get; set; } = 40;
+        [Category("Tasks")]
+        public int DurationInSeconds { get; set; } = 60;
+
+        public override void Run()
+        {
+            ThreadPool.SetMaxThreads(MaxWorkerThreads, MaxCompletionThreads);
+            ThreadPool.SetMinThreads(MinWorkerThreads, MinCompletionThreads);
+
+            for (int i=0; i < NbTasks; i++)
+            {
+                ThreadPool.QueueUserWorkItem(CallBack, $"Task_{i}");
+            }
+        }
+
+        private void CallBack(object state)
+        {
+            Thread.Sleep(DurationInSeconds * 1000);
+        }
+    }
+}

MemoScope/Core/ClrDump.cs

@@ -9,6 +9,7 @@
 using MemoScope.Core.Data;
 using MemoScope.Core.Bookmark;
 using System.Threading;
+using MemoScope.Modules.ThreadPool;
 
 namespace MemoScope.Core
 {
@@ -33,6 +34,8 @@ public class ClrDump
         public IEnumerable<ClrRoot> ClrRoots => Runtime.GetHeap().EnumerateRoots();
         public List<BlockingObject> BlockingObjects => Runtime.GetHeap().EnumerateBlockingObjects().ToList();
         public IList<ClrThread> Threads => Runtime.Threads;
+        public ClrThreadPool ThreadPool => Runtime.GetThreadPool();
+
 
         public Dictionary<int, ThreadProperty> ThreadProperties
         {

MemoScope/Icons/Large/candlestickchart.png

@@ -215,6 +215,16 @@
     <Compile Include="Modules\Stack\StackModule.Designer.cs">
       <DependentUpon>StackModule.cs</DependentUpon>
     </Compile>
+    <Compile Include="Modules\ThreadPool\ManagedWorkItemInformation.cs" />
+    <Compile Include="Modules\ThreadPool\NativeWorkItemInformation.cs" />
+    <Compile Include="Modules\ThreadPool\ThreadPoolCommand.cs" />
+    <Compile Include="Modules\ThreadPool\ThreadPoolInformation.cs" />
+    <Compile Include="Modules\ThreadPool\ThreadPoolModule.cs">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="Modules\ThreadPool\ThreadPoolModule.Designer.cs">
+      <DependentUpon>ThreadPoolModule.cs</DependentUpon>
+    </Compile>
     <Compile Include="Modules\Threads\ThreadsCommand.cs" />
     <Compile Include="Modules\Threads\ThreadsInformation.cs" />
     <Compile Include="Modules\Threads\ThreadsModule.cs">
@@ -434,6 +444,9 @@
     <EmbeddedResource Include="Modules\Stack\StackModule.resx">
       <DependentUpon>StackModule.cs</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Modules\ThreadPool\ThreadPoolModule.resx">
+      <DependentUpon>ThreadPoolModule.cs</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Modules\Threads\ThreadsModule.resx">
       <DependentUpon>ThreadsModule.cs</DependentUpon>
     </EmbeddedResource>
@@ -521,6 +534,7 @@
     <Content Include="Icons\Large\blueprint.png" />
     <Content Include="Icons\Large\bow.png" />
     <Content Include="Icons\Large\broom.png" />
+    <Content Include="Icons\Large\candlestickchart.png" />
     <Content Include="Icons\Large\class_module.png" />
     <Content Include="Icons\Large\ddr_memory.png" />
     <Content Include="Icons\Large\elements.png" />
@@ -610,6 +624,7 @@
     <Content Include="Icons\Small\borders_accent.png" />
     <Content Include="Icons\Small\broom.png" />
     <Content Include="Icons\Small\cancel.png" />
+    <Content Include="Icons\Small\candlestickchart.png" />
     <Content Include="Icons\Small\class_module.png" />
     <Content Include="Icons\Small\clock_go.png" />
     <Content Include="Icons\Small\clock_stop.png" />

MemoScope/Icons/Small/candlestickchart.png

@@ -0,0 +1,20 @@
+using BrightIdeasSoftware;
+using Microsoft.Diagnostics.Runtime;
+
+namespace MemoScope.Modules.ThreadPool
+{
+    public class ManagedWorkItemInformation
+    {
+        private ManagedWorkItem workItem;
+
+        public ManagedWorkItemInformation(ManagedWorkItem workItem)
+        {
+            this.workItem = workItem;
+        }
+
+        [OLVColumn]
+        public ulong Object => workItem.Object;
+        [OLVColumn]
+        public string Type => workItem.Type.Name;
+    }
+}

MemoScope/MemoScope.csproj

@@ -0,0 +1,20 @@
+using BrightIdeasSoftware;
+using Microsoft.Diagnostics.Runtime;
+
+namespace MemoScope.Modules.ThreadPool
+{
+    public class NativeWorkItemInformation
+    {
+        private NativeWorkItem workItem;
+
+        public NativeWorkItemInformation(NativeWorkItem workItem)
+        {
+            this.workItem = workItem;
+        }
+
+        [OLVColumn]
+        public WorkItemKind Kind => workItem.Kind;
+        [OLVColumn]
+        public ulong Data=> workItem.Data;
+    }
+}

MemoScope/Modules/ThreadPool/ManagedWorkItemInformation.cs

@@ -0,0 +1,19 @@
+using MemoScope.Core;
+using WinFwk.UICommands;
+using WinFwk.UIModules;
+
+namespace MemoScope.Modules.ThreadPool
+{
+    public class ThreadPoolCommand : AbstractTypedUICommand<ClrDump>
+    {
+        public ThreadPoolCommand() : base("Thread Pool", "Display Thread Pool Information", "Threads", Properties.Resources.candlestickchart)
+        {
+
+        }
+
+        protected override void HandleData(ClrDump clrDump)
+        {
+            UIModuleFactory.CreateModule<ThreadPoolModule>(module => { module.UIModuleParent = selectedModule; module.Setup(clrDump); }, module => DockModule(module));
+        }
+    }
+}

MemoScope/Modules/ThreadPool/NativeWorkItemInformation.cs

@@ -0,0 +1,28 @@
+using MemoScope.Core;
+using Microsoft.Diagnostics.Runtime;
+
+namespace MemoScope.Modules.ThreadPool
+{
+    public class ThreadPoolInformation
+    {
+        public ClrDump ClrDump { get; }
+        public ClrThreadPool ThreadPool { get; }
+
+        public ThreadPoolInformation(ClrDump clrDump, ClrThreadPool threadPool)
+        {
+            ClrDump = clrDump;
+            ThreadPool = threadPool;
+        }
+
+        public int CpuUtilization => ThreadPool.CpuUtilization;
+        public int FreeCompletionPortCount => ThreadPool.FreeCompletionPortCount;
+        public int IdleThreads => ThreadPool.IdleThreads;
+        public int MaxCompletionPorts => ThreadPool.MaxCompletionPorts;
+        public int MaxFreeCompletionPorts => ThreadPool.MaxFreeCompletionPorts;
+        public int MaxThreads => ThreadPool.MaxThreads;
+        public int MinCompletionPorts => ThreadPool.MinCompletionPorts;
+        public int MinThreads => ThreadPool.MinThreads;
+        public int RunningThreads => ThreadPool.RunningThreads;
+        public int TotalThreads => ThreadPool.TotalThreads;
+    }
+}