Reinstate supplemental API remarks (System.Runtime)

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/Friend2.csproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net10.0</TargetFramework>
+  </PropertyGroup>
+
+ </Project>

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/friend1.cs → snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/friend1.cs

@@ -26,7 +26,7 @@ public static void Main()
 //       C:\Program Files\
 // </Snippet2>
 
-public class FileUtilities
+public class FileUtilities1
 {
    internal static string AppendDirectorySeparator(string dir)
    {

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/friend2.cs

@@ -0,0 +1,12 @@
+// <Snippet6>
+using System;
+
+public class Example1
+{
+   public static void Main()
+   {
+      String s = "The Sign of the Four";
+      //Console.WriteLine(Utilities.StringUtilities.StringLib.IsFirstLetterUpperCase(s));
+   }
+}
+// </Snippet6>

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/multiple1.cs

@@ -0,0 +1,23 @@
+using System;
+using System.Runtime.CompilerServices;
+
+// <Snippet3>
+[assembly:InternalsVisibleTo("Friend1a")]
+[assembly:InternalsVisibleTo("Friend1b")]
+// </Snippet3>
+
+public class StringUtilities
+{
+   internal string ToTitleCase(string value)
+   {
+      string retval = null;
+      for (int ctr = 0; ctr < value.Length; ctr++)
+         if (ctr == 0)     
+            retval += Char.ToUpper(value[ctr]);
+         else if (ctr > 0 && Char.IsWhiteSpace(value[ctr - 1]))
+            retval += Char.ToUpper(value[ctr]);
+         else
+            retval += value[ctr];     
+      return retval;            
+   }
+}

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/multiple2.cs

@@ -0,0 +1,26 @@
+using System;
+using System.Runtime.CompilerServices;
+
+// <Snippet4>
+[assembly:InternalsVisibleTo("Friend2a"), 
+          InternalsVisibleTo("Friend2b")]
+// </Snippet4>
+
+namespace Utilities
+{
+   public class StringUtilities1
+   {
+      internal static string ToTitleCase(string value)
+      {
+         string retval = null;
+         for (int ctr = 0; ctr < value.Length; ctr++)
+            if (ctr == 0)     
+               retval += Char.ToUpper(value[ctr]);
+            else if (ctr > 0 && Char.IsWhiteSpace(value[ctr - 1]))
+               retval += Char.ToUpper(value[ctr]);
+            else
+               retval += value[ctr];     
+         return retval;            
+      }
+   }
+}

snippets/csharp/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/UtilityLib/UtilityLib.csproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net10.0</TargetFramework>
+  </PropertyGroup>
+
+ </Project>

snippets/csharp/System.Runtime.CompilerServices/RuntimeHelpers/GetHashCode/gethashcodeex1.cs

@@ -0,0 +1,51 @@
+// <Snippet1>
+using System;
+using System.Runtime.CompilerServices;
+
+public class Example
+{
+   public static void Main()
+   {
+      Console.WriteLine("{0,-18} {1,6} {2,18:N0}    {3,6} {4,18:N0}\n",
+                        "", "Var 1", "Hash Code", "Var 2", "Hash Code");
+
+      // Get hash codes of two different strings.
+      String sc1 = "String #1";
+      String sc2 = "String #2";
+      ShowHashCodes("sc1", sc1, "sc2", sc2);
+
+      // Get hash codes of two identical non-interned strings.
+      String s1 = "This string";
+      String s2 = String.Format("{0} {1}", "This", "string");
+      ShowHashCodes("s1", s1, "s2", s2);
+
+      // Get hash codes of two (evidently concatenated) strings.
+      String si1 = "This is a string!";
+      String si2 = "This " + "is " + "a " + "string!";
+      ShowHashCodes("si1", si1, "si2", si2);
+   }
+
+   private static void ShowHashCodes(String var1, Object value1, 
+                                     String var2, Object value2)
+   {
+      Console.WriteLine("{0,-18} {1,6} {2,18:X8}    {3,6} {4,18:X8}",
+                        "Obj.GetHashCode", var1, value1.GetHashCode(),
+                        var2, value2.GetHashCode());
+
+      Console.WriteLine("{0,-18} {1,6} {2,18:X8}    {3,6} {4,18:X8}\n",
+                        "RTH.GetHashCode", var1, RuntimeHelpers.GetHashCode(value1),
+                        var2, RuntimeHelpers.GetHashCode(value2));
+   }
+}
+// The example displays output similar to the following:
+//                        Var 1          Hash Code     Var 2          Hash Code
+//    
+//    Obj.GetHashCode       sc1           94EABD27       sc2           94EABD24
+//    RTH.GetHashCode       sc1           02BF8098       sc2           00BB8560
+//    
+//    Obj.GetHashCode        s1           29C5A397        s2           29C5A397
+//    RTH.GetHashCode        s1           0297B065        s2           03553390
+//    
+//    Obj.GetHashCode       si1           941BCEA5       si2           941BCEA5
+//    RTH.GetHashCode       si1           01FED012       si2           01FED012
+// </Snippet1>

snippets/csharp/System.Runtime.InteropServices/ICustomMarshaler/Overview/Project.csproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net10.0</TargetFramework>
+  </PropertyGroup>
+
+ </Project>

snippets/csharp/System.Runtime.InteropServices/ICustomMarshaler/Overview/source.cs

@@ -0,0 +1,65 @@
+using System;
+// <Snippet4>
+using System.Runtime.InteropServices;
+// </Snippet4>
+
+// <Snippet1>
+public interface INew
+{
+    void NewMethod();
+}
+// </Snippet1>
+
+// <Snippet2>
+public interface ICustomMarshaler
+{
+    Object MarshalNativeToManaged(IntPtr pNativeData);
+    IntPtr MarshalManagedToNative(Object ManagedObj);
+    void CleanUpNativeData(IntPtr pNativeData);
+    void CleanUpManagedData(Object ManagedObj);
+    int GetNativeDataSize();
+}
+// </Snippet2>
+
+namespace scope1
+{
+    // <Snippet3>
+    interface IUserData
+    {
+        void DoSomeStuff(INew pINew);
+    }
+    // </Snippet3>
+}
+
+namespace scope2
+{
+    // <Snippet5>
+    interface IUserData
+    {
+        void DoSomeStuff(
+            [MarshalAs(UnmanagedType.CustomMarshaler,
+             MarshalType="NewOldMarshaler")]
+        INew pINew
+        );
+    }
+    // </Snippet5>
+}
+
+// <Snippet6>
+public class NewOldMarshaler : ICustomMarshaler
+{
+    public static ICustomMarshaler GetInstance(string pstrCookie)
+        => new NewOldMarshaler();
+
+    public Object MarshalNativeToManaged(IntPtr pNativeData) => throw new NotImplementedException();
+    public IntPtr MarshalManagedToNative(Object ManagedObj) => throw new NotImplementedException();
+    public void CleanUpNativeData(IntPtr pNativeData) => throw new NotImplementedException();
+    public void CleanUpManagedData(Object ManagedObj) => throw new NotImplementedException();
+    public int GetNativeDataSize() => throw new NotImplementedException();
+}
+// </Snippet6>
+
+class StubClass
+{
+    public static void Main() { }
+}

snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/Friend2.vbproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net10.0</TargetFramework>
+  </PropertyGroup>
+
+ </Project>

snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/friend1.vb → snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/friend1.vb

@@ -17,21 +17,21 @@ Imports System.IO
 Module Example
    Public Sub Main()
       Dim dir As String = "C:\Program Files"
-      dir = FileUtilities.AppendDirectorySeparator(dir)
-      Console.WriteLine(dir)
+        dir = FileUtilities1.AppendDirectorySeparator(dir)
+        Console.WriteLine(dir)
    End Sub
 End Module
 ' The example displays the following output:
 '       C:\Program Files\
 ' </Snippet2>
 
 
-Public Class FileUtilities
-   Friend Shared Function AppendDirectorySeparator(dir As String) As String
-      If Not dir.Trim().EndsWith(Path.DirectorySeparatorChar) Then
-         Return dir.Trim() + Path.DirectorySeparatorChar
-      Else
-         Return dir
-      End If   
-   End Function
+Public Class FileUtilities1
+    Friend Shared Function AppendDirectorySeparator(dir As String) As String
+        If Not dir.Trim().EndsWith(Path.DirectorySeparatorChar) Then
+            Return dir.Trim() + Path.DirectorySeparatorChar
+        Else
+            Return dir
+        End If
+    End Function
 End Class

snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/friend2.vb

@@ -0,0 +1,11 @@
+' Visual Basic .NET Document
+Option Strict On
+
+' <Snippet6>
+Module Example1
+    Public Sub Main()
+        Dim s As String = "The Sign of the Four"
+        ' Console.WriteLine(Utilities.StringUtilities.StringLib.IsFirstLetterUpperCase(s))
+    End Sub
+End Module
+' </Snippet6>

snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/multiple1.vb

@@ -0,0 +1,21 @@
+Imports System.Runtime.CompilerServices
+
+' <Snippet3>
+<assembly:InternalsVisibleTo("Friend1a")>
+<assembly:InternalsVisibleTo("Friend1b")>
+' </Snippet3>
+Public Class StringUtilities
+   Friend Function ToTitleCase(value As String) As String
+      Dim retval As String = Nothing
+      For ctr As Integer = 0 To value.Length - 1
+         If ctr = 0 Then     
+            retval += Char.ToUpper(value(ctr))
+         ElseIf ctr > 0 AndAlso Char.IsWhiteSpace(value(ctr - 1))
+            retval += Char.ToUpper(value(ctr))
+         Else
+            retval += value(ctr)     
+         End If      
+      Next
+      Return retval            
+   End Function
+End Class

snippets/visualbasic/System.Runtime.CompilerServices/InternalsVisibleToAttribute/Overview/Friend/multiple2.vb

@@ -0,0 +1,23 @@
+Imports System.Runtime.CompilerServices
+
+' <Snippet4>
+<Assembly:InternalsVisibleTo("Friend2a"), _
+ Assembly:InternalsVisibleTo("Friend2b")>
+' </Snippet4>
+Namespace Utilities
+    Public Class StringUtilities1
+        Friend Shared Function ToTitleCase(value As String) As String
+            Dim retval As String = Nothing
+            For ctr As Integer = 0 To value.Length - 1
+                If ctr = 0 Then
+                    retval += Char.ToUpper(value(ctr))
+                ElseIf ctr > 0 AndAlso Char.IsWhiteSpace(value(ctr - 1)) Then
+                    retval += Char.ToUpper(value(ctr))
+                Else
+                    retval += value(ctr)
+                End If
+            Next
+            Return retval
+        End Function
+    End Class
+End Namespace

snippets/visualbasic/System.Runtime.CompilerServices/RuntimeHelpers/GetHashCode/Project.vbproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net10.0</TargetFramework>
+  </PropertyGroup>
+
+ </Project>