Transpilers/Inline/Inline.Racket.psx.ps1
|
<# .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 } |