UIntPtr F# snippets (#8052)

Author: albert-du

snippets/fsharp/System/UIntPtr/Add/add1.fs

@@ -0,0 +1,11 @@
+// <Snippet1>
+open System
+
+let arr = [| 1; 2; 3; 4; 5; 6; 7; 8; 9; 10 |]
+let ptr = UIntPtr(uint arr[0])
+for i = 0 to arr.Length - 1 do
+    let newPtr = UIntPtr.Add(ptr, i)
+    printf $"{newPtr}   "
+// The example displays the following output:
+//       1   2   3   4   5   6   7   8   9   10
+// </Snippet1>

snippets/fsharp/System/UIntPtr/Add/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="add1.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UIntPtr/Subtract/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="subtract1.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UIntPtr/Subtract/subtract1.fs

@@ -0,0 +1,11 @@
+// <Snippet1>
+open System
+
+let arr = [| 1; 2; 3; 4; 5; 6; 7; 8; 9; 10 |]
+let ptr = UIntPtr(uint arr[arr.GetUpperBound 0])
+for i = 0 to arr.GetUpperBound 0 do
+    let newPtr = UIntPtr.Subtract(ptr, i)
+    printf $"{newPtr}   "
+// The example displays the following output:
+//       10   9   8   7   6   5   4   3   2   1
+// </Snippet1>

snippets/fsharp/System/UIntPtr/op_Addition/fs.fsproj

@@ -0,0 +1,11 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="op_addition1.fs" />
+    <Compile Include="op_subtraction1.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UIntPtr/op_Addition/op_addition1.fs

@@ -0,0 +1,11 @@
+module op_addition1
+
+open System
+
+// <Snippet1>
+let arr = [| 1; 2; 3; 4; 5; 6; 7; 8; 9; 10 |]
+let ptr = UIntPtr(uint arr[0])
+for i = 0 to arr.Length - 1 do
+    let newPtr = ptr + UIntPtr(uint i)
+    printfn $"{newPtr}"
+// </Snippet1>  

snippets/fsharp/System/UIntPtr/op_Addition/op_subtraction1.fs

@@ -0,0 +1,11 @@
+module op_subtraction
+
+open System
+
+// <Snippet2>
+let arr = [| 1; 2; 3; 4; 5; 6; 7; 8; 9; 10 |]
+let ptr = UIntPtr(uint arr[arr.GetUpperBound 0])
+for i = 0 to arr.GetUpperBound 0 do
+    let newPtr = ptr - UIntPtr(uint i)
+    printf $"{newPtr}   "
+// </Snippet2>

xml/System/UIntPtr.xml

@@ -495,6 +495,7 @@
  The following example instantiates a <xref:System.UIntPtr> object that points to the beginning of a ten-element array, and then calls the <xref:System.UIntPtr.Add%2A> method to iterate the elements in the array.
 
  :::code language="csharp" source="~/snippets/csharp/System/UIntPtr/Add/add1.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/UIntPtr/Add/add1.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.uintptr.add/vb/add1.vb" id="Snippet1":::
 
  ]]></format>
@@ -877,6 +878,7 @@ For <xref:System.IFloatingPoint`1> this method matches the IEEE 754:2019 `minimu
  The <xref:System.UIntPtr.op_Addition%2A> method defines the addition operation for <xref:System.UIntPtr> objects. It enables code such as the following.
 
  :::code language="csharp" source="~/snippets/csharp/System/UIntPtr/op_Addition/op_addition1.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/UIntPtr/op_Addition/op_addition1.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.uintptr.op_addition/vb/op_addition1.vb" id="Snippet1":::
 
  Languages that do not support custom operators can call the <xref:System.UIntPtr.Add%2A> method instead.
@@ -1388,6 +1390,7 @@ For <xref:System.IFloatingPoint`1> this method matches the IEEE 754:2019 `minimu
  The <xref:System.UIntPtr.op_Subtraction%2A> method defines the subtraction operation for <xref:System.UIntPtr> objects. It enables code such as the following.
 
  :::code language="csharp" source="~/snippets/csharp/System/UIntPtr/op_Addition/op_subtraction1.cs" id="Snippet2":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/UIntPtr/op_Addition/op_subtraction1.fs" id="Snippet2":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.uintptr.op_addition/vb/op_subtraction1.vb" id="Snippet2":::
 
  Languages that do not support custom operators can call the <xref:System.UIntPtr.Subtract%2A> method instead.
@@ -1720,6 +1723,7 @@ For <xref:System.IFloatingPoint`1> this method matches the IEEE 754:2019 `minimu
  The following example instantiates an <xref:System.IntPtr> object that points to the end of a ten-element array, and then calls the <xref:System.IntPtr.Subtract%2A> method to iterate the elements in the array in reverse order.
 
  :::code language="csharp" source="~/snippets/csharp/System/UIntPtr/Subtract/subtract1.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/UIntPtr/Subtract/subtract1.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.uintptr.subtract/vb/subtract1.vb" id="Snippet1":::
 
  ]]></format>