EPS

0.3.1

New-EpsTemplateScript.ps1

function New-EpsTemplateScript {
    Param(
        [Parameter(Mandatory = $True)]
        [AllowEmptyString()]
        [String]$Template
    )
    $position = 0
    $Pattern = [regex]"(?sm)<%(?<ind>={1,2}|-|#|%)?(?<code>.*?)(?<tailch>[-=])?%>(?<rspace>[ \t]*\r?\n)?"
    $StringBuilder = New-Object -TypeName "System.Text.StringBuilder"

    function Add-Prolog {
        [void]$StringBuilder.`
            Append("`$sb = New-Object -TypeName 'System.Text.StringBuilder'`n").`
            Append("[void]`$(`n")
    }

    function Add-String {
        Param([String]$Value, [switch]$NoEscape) 

        if ($Value) {
            if (!$NoEscape) {
                $Value = ($Value -replace "<%%", "<%") -replace "%%>", "%>"
            }
            $Value = $Value -replace '([`"$])', '`$1'
            [void]$StringBuilder.Append(";`$sb.Append(`"").Append($Value).Append("`");")
        }
    }

    function Add-LiteralString {
        Param([String[]]$Values) 

        foreach ($Value in $Values) {
            [void]$StringBuilder.Append($Value)    
        }
    }

    function Add-Expression {
        Param([String]$Value)

        [void]$StringBuilder.`
            Append("`$sb.Append(`"`$(").`
            Append($Value).`
            Append(")`");") 
    }

    function Add-Code {
        Param([String]$Value)

        [void]$StringBuilder.Append($Value)
    }

    function Add-Epilog {
        [void]$StringBuilder.Append("`n)`n`$sb.ToString()")
    }

    Add-Prolog
    $Pattern.Matches($Template) | ForEach-Object {
        $match         = $_
        $contentLength = $match.Index - $position
        $content       = $Template.Substring($position, $contentLength)
        $position      = $match.Index + $match.Length
        $ind           = $Match.Groups["ind"].Value
        $code          = $Match.Groups["code"].Value
        $tail          = $Match.Groups["tailch"].Value
        $rspace        = $Match.Groups["rspace"].Value

        if ($ind -ne '-') {
            Add-String $content
        }
        switch ($ind) {
            '=' {
                Add-Expression $code
            }
            '-' {
                Add-String ($content -replace '(?smi)([\n\r]+|\A)[ \t]+\z', '$1')
                Add-Code $code
            }
            '' {
                Add-Code $code
            }
            '%' {
                Add-LiteralString "`$sb.Append('<%", $code, ">');"
                Add-String $rspace -NoEscape
            }
            '#' {
            }
        }
        if (($ind -ne '%') -and (($tail -ne '-') -or ($rspace -match '^[^\r\n]'))) {
            Add-String $rspace -NoEscape
        }
    }
    if ($position -eq 0) {
        Add-String $Template
    } elseif ($position -lt $Template.Length) {
        Add-String $Template.Substring($position, $Template.Length - $position)
    }
    Add-Epilog

    [ScriptBlock]::Create($StringBuilder.ToString())
}