feat: Porting JSON Template to Language Function (Fixes #605)

Commands/Languages/JSON/JSON-Language.ps.ps1

@@ -0,0 +1,46 @@
+Language function JSON {
+    <#
+    .SYNOPSIS
+        JSON PipeScript Transpiler.
+    .DESCRIPTION
+        Allows PipeScript to generate JSON.
+
+        Multiline comments blocks like ```/*{}*/``` will be treated as blocks of PipeScript.
+
+        String output from these blocks will be embedded directly.  All other output will be converted to JSON.
+
+        Multiline comments can be preceeded or followed by 'empty' syntax, which will be ignored.
+
+        * ```null```
+        * ```""```
+        * ```{}```
+        * ```[]```
+    .EXAMPLE
+        a.json template "{
+        procs : null/*{Get-Process | Select Name, ID}*/
+        }"
+    #>
+    [ValidatePattern('\.json$')]
+    param(
+    )
+
+    # We start off by declaring a number of regular expressions:
+    $startComment = '/\*' # * Start Comments ```\*```
+    $endComment   = '\*/' # * End Comments   ```/*```
+    $Whitespace   = '[\s\n\r]{0,}'
+    # * IgnoredContext ```String.empty```, ```null```, blank strings and characters
+    $IgnoredContext = "(?<ignore>(?>$('null', '""', '\{\}', '\[\]' -join '|'))\s{0,}){0,1}"
+
+    $StartPattern = "(?<PSStart>${IgnoredContext}${startComment}\{$Whitespace)"    
+    $EndPattern   = "(?<PSEnd>$Whitespace\}${endComment}\s{0,}${IgnoredContext})"
+
+    $ForeachObject = {
+        $in = $_
+        if (($in -is [string]) -or 
+            ($in.GetType -and $in.GetType().IsPrimitive)) {
+            $in
+        } else {
+            ConvertTo-Json -Depth 100 -InputObject $in
+        }
+    }
+}