Core Inline Transpiler : Adding -LinePattern (fixes #197)

Author: James Brundage

Transpilers/Core/PipeScript.Inline.psx.ps1

@@ -77,7 +77,13 @@ $Parameter = @{},
 # An argument list. 
 [Alias('Args')]
 [PSObject[]]
-$ArgumentList = @()
+$ArgumentList = @(),
+
+# Some languages only allow single-line comments.
+# To work with these languages, provide a -LinePattern indicating what makes a comment
+# Only lines beginning with this pattern within -StartPattern and -EndPattern will be considered a script.
+[Regex]
+$LinePattern
 )
 
 begin {
@@ -93,6 +99,11 @@ begin {
             return
         }
 
+        if ($LinePattern) {
+            $pipeScriptLines = @($pipeScriptText -split '(?>\r\n|\n)')
+            $pipeScriptText  = $pipeScriptLines -match $LinePattern -replace $LinePattern -join [Environment]::Newline
+        }
+
         $InlineScriptBlock = [scriptblock]::Create($pipeScriptText)
         if (-not $InlineScriptBlock) {                    
             return