Adding Inline Racket Transpiler (Fixes #262)

Author: James Brundage

Transpilers/Inline/Inline.Racket.psx.ps1

@@ -0,0 +1,57 @@
+<#
+.SYNOPSIS
+    Racket Inline PipeScript Transpiler.
+.DESCRIPTION
+    Transpiles Racket with Inline PipeScript into Racket.
+
+    Multiline comments blocks enclosed with {} will be treated as Blocks of PipeScript.
+
+    Multiline comments can be preceeded or followed by single-quoted strings, which will be ignored.
+
+    * ```''```
+    * ```{}```
+#>
+[ValidatePattern('\.rkt$')]
+param(
+# The command information.  This will include the path to the file.
+[Parameter(Mandatory,ValueFromPipeline)]
+[Management.Automation.CommandInfo]
+$CommandInfo,
+
+# A dictionary of parameters.
+[Collections.IDictionary]
+$Parameter,
+
+# A list of arguments.
+[PSObject[]]
+$ArgumentList
+)
+
+begin {
+    # We start off by declaring a number of regular expressions:
+    $startComment = '\#\|' # * Start Comments ```#|```
+    $endComment   = '\|\#' # * End Comments   ```|#```
+    $Whitespace   = '[\s\n\r]{0,}'
+    # * IgnoredContext (single-quoted strings)    
+    # * StartRegex     ```$IgnoredContext + $StartComment + '{' + $Whitespace```
+    $startRegex = [Regex]::New("(?<PSStart>${startComment}\{$Whitespace)", 'IgnorePatternWhitespace')
+    # * EndRegex       ```$whitespace + '}' + $EndComment + $ignoredContext```
+    $endRegex   = "(?<PSEnd>$Whitespace\}${endComment}[\s-[\r\n]]{0,})"
+
+    # Create a splat containing arguments to the core inline transpiler
+    $Splat      = [Ordered]@{
+        StartPattern  = $startRegex
+        EndPattern    = $endRegex
+    }
+}
+
+process {
+    # Add parameters related to the file
+    $Splat.SourceFile = $commandInfo.Source -as [IO.FileInfo]
+    $Splat.SourceText = [IO.File]::ReadAllText($commandInfo.Source)
+    if ($Parameter) { $splat.Parameter = $Parameter }
+    if ($ArgumentList) { $splat.ArgumentList = $ArgumentList }
+
+    # Call the core inline transpiler.
+    .>PipeScript.Inline @Splat
+}