Add F# support (#2165)

* add a dummy throwing stub for EventWriteTransfer (#2057)

This enables F# apps to be built against CoreRT
until System.Diagnostics.Tracing is ported to Unix

* add implementation for Environment.ProcessorCount (#2057)

- This fixes "unimplemented runtime method" runtime error
for GetNativeSystemInfo method.
- Achieves successful run of a simple "Hello Wolrd!"
F# console app

* Remove GetNativeSystemInfo unix stub (#2057)

The GetNativeSystemInfo method is no longer called
on unix so can be removed

src/Common/src/Interop/Unix/System.Private.CoreLib.Native/Interop.Libraries.cs

@@ -9,5 +9,6 @@ internal static partial class Interop
     internal static partial class Libraries
     {
         internal const string CoreLibNative = "System.Private.CoreLib.Native";
+        internal const string SystemNative = "System.Native";
     }
 }

src/Common/src/Interop/Unix/System.Private.CoreLib.Native/Interop.SysConf.cs

@@ -0,0 +1,21 @@
+// 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;
+
+internal static partial class Interop
+{
+    internal unsafe static partial class Sys
+    {
+        internal enum SysConfName
+        {
+            _SC_CLK_TCK = 1,
+            _SC_PAGESIZE = 2,
+            _SC_NPROCESSORS_ONLN = 3,
+        }
+
+        [DllImport(Interop.Libraries.SystemNative, EntryPoint = "SystemNative_SysConf", SetLastError = true)]
+        internal static extern long SysConf(SysConfName name);
+    }
+}

src/Native/Bootstrap/platform.unix.cpp

@@ -61,11 +61,6 @@ extern "C"
         throw "CreateEventExW";
     }
 
-    void GetNativeSystemInfo()
-    {
-        throw "GetNativeSystemInfo";
-    }
-
     void OutputDebugStringW()
     {
     }
@@ -104,4 +99,9 @@ extern "C"
     {
         throw "GetCPInfo";
     }
+
+    void EventWriteTransfer()
+    {
+        throw "EventWriteTransfer";
+    }
 }

src/System.Private.CoreLib/src/System.Private.CoreLib.csproj

@@ -776,6 +776,9 @@
     <Compile Include="..\..\Common\src\Interop\Unix\System.Private.CoreLib.Native\Interop.DynamicLoad.cs">
       <Link>Interop\Unix\System.Private.CoreLib.Native\Interop.DynamicLoad.cs</Link>
     </Compile>
+    <Compile Include="..\..\Common\src\Interop\Unix\System.Private.CoreLib.Native\Interop.SysConf.cs">
+      <Link>Interop\Unix\System.Private.CoreLib.Native\Interop.SysConf.cs</Link>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <Compile Include="..\..\Common\src\System\Collections\Generic\LowLevelList.cs">

src/System.Private.CoreLib/src/System/Environment.Unix.cs

@@ -51,6 +51,8 @@ public unsafe static String ExpandEnvironmentVariables(String name)
             return blob.ToString();
         }
 
+        public static int ProcessorCount => (int)Interop.Sys.SysConf(Interop.Sys.SysConfName._SC_NPROCESSORS_ONLN);
+
         public unsafe static String GetEnvironmentVariable(String variable)
         {
             if (variable == null)

src/System.Private.CoreLib/src/System/Environment.Windows.cs

@@ -13,5 +13,16 @@ internal static long TickCount64
                 return (long)Interop.mincore.GetTickCount64();
             }
         }
+
+        public static int ProcessorCount
+        {
+            get
+            {
+                // @TODO: can we finally fix this to return the actual number of processors when there are >64?
+                Interop.mincore.SYSTEM_INFO info;
+                Interop.mincore.GetNativeSystemInfo(out info);
+                return (int)info.dwNumberOfProcessors;
+            }
+        }
     }
 }

src/System.Private.CoreLib/src/System/Environment.cs

@@ -59,17 +59,6 @@ public static void FailFast(String message, Exception exception)
             RuntimeExceptionHelpers.FailFast(message, exception);
         }
 
-        public static int ProcessorCount
-        {
-            get
-            {
-                // @TODO: can we finally fix this to return the actual number of processors when there are >64?
-                Interop.mincore.SYSTEM_INFO info;
-                Interop.mincore.GetNativeSystemInfo(out info);
-                return (int)info.dwNumberOfProcessors;
-            }
-        }
-
         public static int CurrentManagedThreadId
         {
             get