chore: deploy initial linqpad queries

2026-05-12 11:33:21 -05:00
parent 0a7a550d46
commit 96d0067f2d
120 changed files with 22939 additions and 0 deletions
@@ -0,0 +1,87 @@
+<Query Kind="VBProgram">
+  <Reference>&lt;ProgramFilesX64&gt;\Microsoft SDKs\Azure\.NET SDK\v2.9\bin\plugins\Diagnostics\Newtonsoft.Json.dll</Reference>
+  <NuGetReference>Amazon.Lambda.S3Events</NuGetReference>
+  <NuGetReference>AWSSDK.Core</NuGetReference>
+  <NuGetReference>AWSSDK.S3</NuGetReference>
+  <Namespace>Amazon</Namespace>
+  <Namespace>Amazon.Auth.AccessControlPolicy</Namespace>
+  <Namespace>Amazon.Auth.AccessControlPolicy.ActionIdentifiers</Namespace>
+  <Namespace>Amazon.Internal</Namespace>
+  <Namespace>Amazon.Lambda.S3Events</Namespace>
+  <Namespace>Amazon.MissingTypes</Namespace>
+  <Namespace>Amazon.Runtime</Namespace>
+  <Namespace>Amazon.Runtime.CredentialManagement</Namespace>
+  <Namespace>Amazon.Runtime.CredentialManagement.Internal</Namespace>
+  <Namespace>Amazon.Runtime.EventStreams</Namespace>
+  <Namespace>Amazon.Runtime.EventStreams.Internal</Namespace>
+  <Namespace>Amazon.Runtime.Internal</Namespace>
+  <Namespace>Amazon.Runtime.Internal.Auth</Namespace>
+  <Namespace>Amazon.Runtime.Internal.Settings</Namespace>
+  <Namespace>Amazon.Runtime.Internal.Transform</Namespace>
+  <Namespace>Amazon.Runtime.Internal.Util</Namespace>
+  <Namespace>Amazon.Runtime.SharedInterfaces</Namespace>
+  <Namespace>Amazon.Runtime.SharedInterfaces.Internal</Namespace>
+  <Namespace>Amazon.S3</Namespace>
+  <Namespace>Amazon.S3.Encryption</Namespace>
+  <Namespace>Amazon.S3.Encryption.Internal</Namespace>
+  <Namespace>Amazon.S3.Internal</Namespace>
+  <Namespace>Amazon.S3.IO</Namespace>
+  <Namespace>Amazon.S3.Model</Namespace>
+  <Namespace>Amazon.S3.Model.Internal.MarshallTransformations</Namespace>
+  <Namespace>Amazon.S3.Transfer</Namespace>
+  <Namespace>Amazon.S3.Util</Namespace>
+  <Namespace>Amazon.Util</Namespace>
+  <Namespace>Amazon.Util.Internal</Namespace>
+  <Namespace>Amazon.Util.Internal.PlatformServices</Namespace>
+  <Namespace>Newtonsoft.Json</Namespace>
+  <Namespace>Newtonsoft.Json.Converters</Namespace>
+  <Namespace>Newtonsoft.Json.Linq</Namespace>
+  <Namespace>Newtonsoft.Json.Schema</Namespace>
+  <Namespace>Newtonsoft.Json.Serialization</Namespace>
+  <Namespace>System</Namespace>
+  <Namespace>System.Diagnostics</Namespace>
+  <Namespace>System.Diagnostics.Tracing</Namespace>
+  <Namespace>System.IO.Compression</Namespace>
+  <Namespace>ThirdParty.BouncyCastle.Asn1</Namespace>
+  <Namespace>ThirdParty.BouncyCastle.Asn1.Utilities</Namespace>
+  <Namespace>ThirdParty.BouncyCastle.Math</Namespace>
+  <Namespace>ThirdParty.BouncyCastle.OpenSsl</Namespace>
+  <Namespace>ThirdParty.BouncyCastle.Utilities.IO.Pem</Namespace>
+  <Namespace>ThirdParty.Ionic.Zlib</Namespace>
+  <Namespace>ThirdParty.Json.LitJson</Namespace>
+  <Namespace>ThirdParty.MD5</Namespace>
+</Query>
+
+Sub Main
+	Dim aListOfDirectories = New List(Of String)
+	aListOfDirectories.Add("d:\Git")
+	'This file does not exist
+	IsFileInDirectory("D:\Git\thom.txt", aListOfDirectories).Dump("D:\Git\thom.txt")
+	MyIsFileInDirectory("D:\Git\thom.txt", aListOfDirectories).Dump("D:\Git\thom.txt")
+	'This file does exist
+	IsFileInDirectory("D:\Git\new migration.txt", aListOfDirectories).Dump("D:\Git\new migration.txt")
+	MyIsFileInDirectory("D:\Git\new migration.txt", aListOfDirectories).Dump("D:\Git\new migration.txt")
+	MyIsFileInDirectory("D:\Git\new migration.txt", aListOfDirectories).Equals(IsFileInDirectory("D:\Git\new migration.txt", aListOfDirectories)).Dump("My Equals not My")
+End Sub
+
+' Define other methods and classes here
+Public Shared Function MyIsFileInDirectory(ByVal aFilePath As String, ByVal aListOfDirectories As List(Of String)) As Boolean
+	Dim fileObject = New System.IO.FileInfo(aFilePath)
+	If Not fileObject.Exists
+		Return False
+	End If
+	Return aListOfDirectories _
+		.Select(Function(allowedDir) New System.IO.DirectoryInfo(allowedDir)) _
+		.Any(Function(testDirectory) fileObject.Directory.FullName.Equals(testDirectory.FullName.TrimEnd("\"), StringComparison.OrdinalIgnoreCase))
+End Function
+
+Public Shared Function IsFileInDirectory(ByVal aFilePath As String, ByVal aListOfDirectories As List(Of String)) As Boolean
+	Dim fileObject = New System.IO.FileInfo(aFilePath)
+	For Each allowedDir In aListOfDirectories
+		Dim testDirectory = New System.IO.DirectoryInfo(allowedDir)
+		If fileObject.Directory.FullName.Equals(testDirectory.FullName, StringComparison.OrdinalIgnoreCase) Then
+			Return True
+		End If
+	Next
+	Return False
+End Function