[profiler] Introduce runtime control API.

4 files changed, 278 insertions, 14 deletions

diff --git a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log.dll.sources b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log.dll.sources
index bfb0fea4fed..27b58318f27 100644
--- a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log.dll.sources
+++ b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log.dll.sources
@@ -8,7 +8,7 @@ Mono.Profiler.Log/LogEventVisitor.cs
 Mono.Profiler.Log/LogEvents.cs
 Mono.Profiler.Log/LogException.cs
 Mono.Profiler.Log/LogProcessor.cs
+Mono.Profiler.Log/LogProfiler.cs
 Mono.Profiler.Log/LogReader.cs
-Mono.Profiler.Log/LogRuntimeProfiler.cs
 Mono.Profiler.Log/LogStream.cs
 Mono.Profiler.Log/LogStreamHeader.cs
diff --git a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogEnums.cs b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogEnums.cs
index 01ce114093b..0dbc72eb003 100644
--- a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogEnums.cs
+++ b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogEnums.cs
@@ -195,4 +195,20 @@ namespace Mono.Profiler.Log {
 		WorldStop = 1,
 		WorldStart = 2,
 	}
+
+	// mono/metadata/profiler.h : MonoProfilerSampleMode
+	public enum LogSampleMode {
+		None = 0,
+		Process = 1,
+		Real = 2,
+	}
+
+	// mono/profiler/log.h : MonoProfilerHeapshotMode
+	public enum LogHeapshotMode {
+		None = 0,
+		EveryMajor = 1,
+		OnDemand = 2,
+		Milliseconds = 3,
+		Collections = 4,
+	}
 }
diff --git a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogProfiler.cs b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogProfiler.cs
new file mode 100644
index 00000000000..289b1803613
--- /dev/null
+++ b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogProfiler.cs
@@ -0,0 +1,261 @@
+// Licensed to the .NET Foundation under one or more agreements.
+// The .NET Foundation licenses this file to you under the MIT license.
+// See the LICENSE file in the project root for more information.
+
+using System;
+using System.Runtime.CompilerServices;
+using System.Runtime.InteropServices;
+
+namespace Mono.Profiler.Log {
+
+	public static class LogProfiler {
+
+		static bool? _attached;
+
+		public static bool IsAttached {
+			get {
+				if (_attached != null)
+					return (bool) _attached;
+
+				try {
+					GetMaxStackTraceFrames ();
+					return (bool) (_attached = true);
+				} catch (MissingMethodException) {
+					return (bool) (_attached = false);
+				}
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static int GetMaxStackTraceFrames ();
+
+		public static int MaxStackTraceFrames {
+			get { return GetMaxStackTraceFrames (); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static int GetStackTraceFrames ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetStackTraceFrames (int value);
+
+		public static int StackTraceFrames {
+			get { return GetStackTraceFrames (); }
+			set {
+				var max = MaxStackTraceFrames;
+
+				if (value < 0 || value > max)
+					throw new ArgumentOutOfRangeException (nameof (value), value, $"Value must be between 0 and {max}.");
+
+				SetStackTraceFrames (value);
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static LogHeapshotMode GetHeapshotMode ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetHeapshotMode (LogHeapshotMode value);
+
+		public static LogHeapshotMode HeapshotMode {
+			get { return GetHeapshotMode (); }
+			set {
+				if (!Enum.IsDefined (typeof (LogHeapshotMode), value))
+					throw new ArgumentException ("Invalid heapshot mode.", nameof (value));
+
+				SetHeapshotMode (value);
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static int GetHeapshotMillisecondsFrequency ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetHeapshotMillisecondsFrequency (int value);
+
+		public static int HeapshotMillisecondsFrequency {
+			get { return GetHeapshotMillisecondsFrequency (); }
+			set {
+				if (value < 0)
+					throw new ArgumentOutOfRangeException (nameof (value), value, "Value must be non-negative.");
+
+				SetHeapshotMillisecondsFrequency (value);
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static int GetHeapshotCollectionsFrequency ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetHeapshotCollectionsFrequency (int value);
+
+		public static int HeapshotCollectionsFrequency {
+			get { return GetHeapshotCollectionsFrequency (); }
+			set {
+				if (value < 0)
+					throw new ArgumentOutOfRangeException (nameof (value), value, "Value must be non-negative.");
+
+				SetHeapshotCollectionsFrequency (value);
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static int GetCallDepth ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetCallDepth (int value);
+
+		public static int CallDepth {
+			get { return GetCallDepth (); }
+			set {
+				if (value < 0)
+					throw new ArgumentOutOfRangeException (nameof (value), value, "Value must be non-negative.");
+
+				SetCallDepth (value);
+			}
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void GetSampleMode (out LogSampleMode mode, out int frequency);
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool SetSampleMode (LogSampleMode value, int frequency);
+
+		public static LogSampleMode SampleMode {
+			get {
+				GetSampleMode (out var mode, out var _);
+
+				return mode;
+			}
+		}
+
+		public static int SampleFrequency {
+			get {
+				GetSampleMode (out var _, out var frequency);
+
+				return frequency;
+			}
+		}
+
+		public static bool SetSampleParameters (LogSampleMode mode, int frequency)
+		{
+			if (!Enum.IsDefined (typeof (LogSampleMode), mode))
+				throw new ArgumentException ("Invalid sample mode.", nameof (mode));
+
+			if (frequency < 1)
+				throw new ArgumentOutOfRangeException (nameof (frequency), frequency, "Frequency must be positive.");
+
+			return SetSampleMode (mode, frequency);
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetExceptionEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetExceptionEvents (bool value);
+
+		public static bool ExceptionEventsEnabled {
+			get { return GetExceptionEvents (); }
+			set { SetExceptionEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetMonitorEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetMonitorEvents (bool value);
+
+		public static bool MonitorEventsEnabled {
+			get { return GetMonitorEvents (); }
+			set { SetMonitorEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCEvents (bool value);
+
+		public static bool GCEventsEnabled {
+			get { return GetGCEvents (); }
+			set { SetGCEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCAllocationEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCAllocationEvents (bool value);
+
+		public static bool GCAllocationEventsEnabled {
+			get { return GetGCAllocationEvents (); }
+			set { SetGCAllocationEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCMoveEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCMoveEvents (bool value);
+
+		public static bool GCMoveEventsEnabled {
+			get { return GetGCMoveEvents (); }
+			set { SetGCMoveEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCRootEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCRootEvents (bool value);
+
+		public static bool GCRootEventsEnabled {
+			get { return GetGCRootEvents (); }
+			set { SetGCRootEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCHandleEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCHandleEvents (bool value);
+
+		public static bool GCHandleEventsEnabled {
+			get { return GetGCHandleEvents (); }
+			set { SetGCHandleEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetGCFinalizationEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetGCFinalizationEvents (bool value);
+
+		public static bool GCFinalizationEventsEnabled {
+			get { return GetGCFinalizationEvents (); }
+			set { SetGCFinalizationEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetCounterEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetCounterEvents (bool value);
+
+		public static bool CounterEventsEnabled {
+			get { return GetCounterEvents (); }
+			set { SetCounterEvents (value); }
+		}
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static bool GetJitEvents ();
+
+		[MethodImpl (MethodImplOptions.InternalCall)]
+		extern static void SetJitEvents (bool value);
+
+		public static bool JitEventsEnabled {
+			get { return GetJitEvents (); }
+			set { SetJitEvents (value); }
+		}
+	}
+}
diff --git a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogRuntimeProfiler.cs b/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogRuntimeProfiler.cs
deleted file mode 100644
index 8ed09930acb..00000000000
--- a/mcs/class/Mono.Profiler.Log/Mono.Profiler.Log/LogRuntimeProfiler.cs
+++ /dev/null
@@ -1,13 +0,0 @@
-// Licensed to the .NET Foundation under one or more agreements.
-// The .NET Foundation licenses this file to you under the MIT license.
-// See the LICENSE file in the project root for more information.
-
-using System.Runtime.InteropServices;
-
-namespace Mono.Profiler.Log {
-
-	public static class LogRuntimeProfiler {
-
-		// TODO: Runtime profiler interface.
-	}
-}