ninmonkey · August 26, 2026 02:32
diff --git a/ParseByDepth.ps1 b/ParseByDepth.ps1
 #requires -Modules Pansies
 #requires -PSEdition Core
 remove-module PSFrameWork, psutil, string -ea ignore

 <#
 .SYNOPSIS
    parse a cisco router config from 10 years ago. split into groups. Show depths. Show warnings if any exit contained within
 .NOTES
    I used colors for a screenshot
    but if you use Num and DisplayNum you'd be able to have colors and still filter like

 $summary | ? GroupNum -eq 4
 $summary | ? GroupNum -ge 4 | ? GroupNum -le 7
 $summary | ? Exit | Ft
 $summary | ? -Not Exit | Ft

 #>

 $pathToParse = Join-Path $PSScriptRoot 'Examples/Switch_Configuration_Example_01.txt'

 filter ColorBool {
    # Colorize bools
    param( [switch] $NoColor )
    if( $NoColor ) { return $_ }
    $fg = if( [bool] $_ ) { 'green' } else { 'red' }
    $_ | New-Text -fg $fg
 }
 filter ColorDepth {
    <#
    .SYNOPSIS
        if not an int, return without changing. Otherwise clamp it within: [0, depth)
    #>
    param(
        [int] $MaxDepth = 6,
        [rgbColor] $StartColor = '#000000',
        [rgbColor] $EndColor = '#dddddd',
        [switch] $NoColor
    )

    if( $NoColor ) { return $_ }

    $num = $_ -as [int]
    if( -not $num ) { return $_ }

    $maxDepth = [math]::Max( 3, $MaxDepth ) # Gradients must be at least >= 3
    $clamped = [math]::Min( $num, ( $MaxDepth -1 ) )

    $grads = get-gradient -StartColor $StartColor -EndColor $EndColor -Width $MaxDepth
    $curGrad = $grads[ $clamped ]
    $num | New-Text -bg  $curGrad -fg ( Pansies\Get-Complement $curGrad -HighContrast )
 }

 function ParseGroup {
    <#
    .SYNOPSIS
        parse depth as tree
    #>
    param(
        [string] $Path
    )
    $Content = Get-Content -Raw -Path $Path
    $pattern = @'
 (?mxs)

    # peek before, for a line with just '!'
    (?<=
        ^\s*!\s*$
        \r?\n
    )

    # the content
    (?<Body>
        .*?
    )

    # peek after for a single !
    # or the end of file
    (?=
        (?:\r?\n)?
        ( ^\s*!\s*$ )
        | \Z
    )
 '@

    [int] $GroupNum = 0

    $records = [regex]::Matches($text, $pattern) | ForEach-Object {
        $block = $_.Value
        $body = $_.Groups['Body'].Value
        [pscustomobject]@{
            GroupNum = $GroupNum++
            Body = $Body
            HasExit = $Body -match 'exit'
        }

    }

    $records
 }
 function ParseLine {
    param(
        [object[]] $ParsedGroup
    )
    foreach( $Group in $ParsedGroup ) {
        $LineNum = 0
        $numLinesInGroup = ($Group.Body -split '\r?\n').Count
        foreach( $Line in $Group.Body -split '\r?\n' ) {
            $null = $Line -match '^\s*'
            $IndentDepth = $Matches[0].length

            [pscustomobject]@{
                Exit = if( $Group.HasExit ) {
                    '!' | New-Text -bg Magenta
                }
                GroupNum = $Group.GroupNum
                    | ColorDepth -MaxDepth $Group.Count

                LineNum  = $LineNum++
                    | ColorDepth -MaxDepth $numLinesInGroup

                Depth    = $IndentDepth
                    | ColorDepth -MaxDepth 4 -StartColor 'white' 'magenta'

                Line     = $Line

                # RawGroup = $Group
            }
        }
    }
 }

 $byGroup = ParseGroup -Path $pathToParse
 $summary = ParseLine -ParsedGroup $byGroup

 $byGroup  | ft -AutoSize
 $summary  | ft -AutoSize

 # find groups that *only* have exits in them, somewhere
 $onlyExits = $Summary | ? Exit
 $onlyExits|Ft

 '
 example:
    $ByGroup[6].Body    # each index is a group
    $summary[20..40]    # each index is a single line

    $Summary | ? Exit   # only show groups that have exits in them
 ' | Write-Host -fg 'yellow'
diff --git a/Parsing-CiscoTemplateFiles.ps1 b/Parsing-CiscoTemplateFiles.ps1
 remove-module PSFrameWork, psutil, string -ea ignore

 #region define regex templates
 $Regex = [ordered]@{}
 $Regex.Blocks = @'
 (?msxi)

 ^\s*!\s*$\r?\n
 (?<section>
   .*?
 )(?=
   ^\s*!\s*$
   |
   \z
 )

 '@
 #endregion define regex templates
 [System.Text.RegularExpressions.RegexOptions] $regexOptions =  'Multiline,SingleLine,IgnoreCase,IgnorePatternWhitespace'
 $regexOptions =  'Multiline,IgnoreCase,IgnorePatternWhitespace'

 $pathExportMd = Join-Path $PSScriptRoot 'summary.md'
 $pathToParse = Join-Path $PSScriptRoot 'Examples/Switch_Configuration_Example_01.txt'
 # ($found = Select-String -LiteralPath $pathToParse -Pattern $Regex.Blocks )
 $content = gc -raw $pathToParse
 $found = [regex]::Matches( <# input: #> $content, <# pattern: #> $regex.Blocks, <# options: #> $regexOptions )
 $found | ft -auto


 function Md.CodeBlock {
    # markdown code blocks, optional with language
    param( [string] $LanguageName = '' )
    @(
        "`n"
        '```{0}' -f $LanguageName
        $input
        '```'
        "`n"
    ) | Join-String -sep "`n"
 }
 function Md.Header {
    # markdown header at a depth
    param( [string] $Text, [Alias('Depth')] [int] $Level = 1 )
    $prefix = '#' * $Level -join ''
    "`n${prefix} ${Text}`n"
 }
 function Md.Details {
    param( [string] $Title = 'Details' )
    # markdown collapsible <details><summary> element
    $Content = $Input | Md.CodeBlock
 @"

 <details><summary>${Title} (Click to Expand)

 </summary>

 ${content}

 </details>

 "@
 }



 function WriteSummary {
    <#
    .SYNOPSIS
        Dynamically build a markdown file that splits each chunk into a code block and adds a TOC
    #>
    param(
        $Records,
        [Alias('Path')]
        [string] $ExportPath = $pathExportMd
    )
    [int] $curId = 0
    $totalMatches = $found.count

    @(
        # write table of contents. example string:
        # '- [Index: 9](#index-9)'
        '# Results TOC'
        foreach( $curId in 0..( $totalMatches - 1 ) ) {
            '- [Index: {0}](#index-{0})' -f $curId
        }

        $curId = 0

        Md.Header -Text "Summary: ${ExportPath}"

        # todo(fix): hardcoded, should be handled by regex func
        gc $pathToParse
        | Md.Details -Title "Raw file"

        foreach( $item in @( $found.Value ) ) {
            $label = "Index: ${curId}"
            $curId++
            Md.Header -Text $Label -Depth 2

            $item | Md.CodeBlock
        }
    ) | Set-Content -Path $pathExportMd
 }

 WriteSummary -Records $found -ExportPath $PathExportMd
diff --git a/Results.md b/Results.md
	#requires -Modules Pansies
	#requires -PSEdition Core
	remove-module PSFrameWork, psutil, string -ea ignore

	<#
	.SYNOPSIS
	parse a cisco router config from 10 years ago. split into groups. Show depths. Show warnings if any exit contained within
	.NOTES
	I used colors for a screenshot
	but if you use Num and DisplayNum you'd be able to have colors and still filter like

	$summary \| ? GroupNum -eq 4
	$summary \| ? GroupNum -ge 4 \| ? GroupNum -le 7
	$summary \| ? Exit \| Ft
	$summary \| ? -Not Exit \| Ft

	#>

	$pathToParse = Join-Path $PSScriptRoot 'Examples/Switch_Configuration_Example_01.txt'

	filter ColorBool {
	# Colorize bools
	param( [switch] $NoColor )
	if( $NoColor ) { return $_ }
	$fg = if( [bool] $_ ) { 'green' } else { 'red' }
	$_ \| New-Text -fg $fg
	}
	filter ColorDepth {
	<#
	.SYNOPSIS
	if not an int, return without changing. Otherwise clamp it within: [0, depth)
	#>
	param(
	[int] $MaxDepth = 6,
	[rgbColor] $StartColor = '#000000',
	[rgbColor] $EndColor = '#dddddd',
	[switch] $NoColor
	)

	if( $NoColor ) { return $_ }

	$num = $_ -as [int]
	if( -not $num ) { return $_ }

	$maxDepth = [math]::Max( 3, $MaxDepth ) # Gradients must be at least >= 3
	$clamped = [math]::Min( $num, ( $MaxDepth -1 ) )

	$grads = get-gradient -StartColor $StartColor -EndColor $EndColor -Width $MaxDepth
	$curGrad = $grads[ $clamped ]
	$num \| New-Text -bg $curGrad -fg ( Pansies\Get-Complement $curGrad -HighContrast )
	}

	function ParseGroup {
	<#
	.SYNOPSIS
	parse depth as tree
	#>
	param(
	[string] $Path
	)
	$Content = Get-Content -Raw -Path $Path
	$pattern = @'
	(?mxs)

	# peek before, for a line with just '!'
	(?<=
	^\s!\s$
	\r?\n
	)

	# the content
	(?<Body>
	.*?
	)

	# peek after for a single !
	# or the end of file
	(?=
	(?:\r?\n)?
	( ^\s!\s$ )
	\| \Z
	)
	'@

	[int] $GroupNum = 0

	$records = [regex]::Matches($text, $pattern) \| ForEach-Object {
	$block = $_.Value
	$body = $_.Groups['Body'].Value
	[pscustomobject]@{
	GroupNum = $GroupNum++
	Body = $Body
	HasExit = $Body -match 'exit'
	}

	}

	$records
	}
	function ParseLine {
	param(
	[object[]] $ParsedGroup
	)
	foreach( $Group in $ParsedGroup ) {
	$LineNum = 0
	$numLinesInGroup = ($Group.Body -split '\r?\n').Count
	foreach( $Line in $Group.Body -split '\r?\n' ) {
	$null = $Line -match '^\s*'
	$IndentDepth = $Matches[0].length

	[pscustomobject]@{
	Exit = if( $Group.HasExit ) {
	'!' \| New-Text -bg Magenta
	}
	GroupNum = $Group.GroupNum
	\| ColorDepth -MaxDepth $Group.Count

	LineNum = $LineNum++
	\| ColorDepth -MaxDepth $numLinesInGroup

	Depth = $IndentDepth
	\| ColorDepth -MaxDepth 4 -StartColor 'white' 'magenta'

	Line = $Line

	# RawGroup = $Group
	}
	}
	}
	}

	$byGroup = ParseGroup -Path $pathToParse
	$summary = ParseLine -ParsedGroup $byGroup

	$byGroup \| ft -AutoSize
	$summary \| ft -AutoSize

	# find groups that only have exits in them, somewhere
	$onlyExits = $Summary \| ? Exit
	$onlyExits\|Ft

	'
	example:
	$ByGroup[6].Body # each index is a group
	$summary[20..40] # each index is a single line

	$Summary \| ? Exit # only show groups that have exits in them
	' \| Write-Host -fg 'yellow'
	remove-module PSFrameWork, psutil, string -ea ignore

	#region define regex templates
	$Regex = [ordered]@{}
	$Regex.Blocks = @'
	(?msxi)

	^\s!\s$\r?\n
	(?<section>
	.*?
	)(?=
	^\s!\s$
	\|
	\z
	)

	'@
	#endregion define regex templates
	[System.Text.RegularExpressions.RegexOptions] $regexOptions = 'Multiline,SingleLine,IgnoreCase,IgnorePatternWhitespace'
	$regexOptions = 'Multiline,IgnoreCase,IgnorePatternWhitespace'

	$pathExportMd = Join-Path $PSScriptRoot 'summary.md'
	$pathToParse = Join-Path $PSScriptRoot 'Examples/Switch_Configuration_Example_01.txt'
	# ($found = Select-String -LiteralPath $pathToParse -Pattern $Regex.Blocks )
	$content = gc -raw $pathToParse
	$found = [regex]::Matches( <# input: #> $content, <# pattern: #> $regex.Blocks, <# options: #> $regexOptions )
	$found \| ft -auto


	function Md.CodeBlock {
	# markdown code blocks, optional with language
	param( [string] $LanguageName = '' )
	@(
	"`n"
	'```{0}' -f $LanguageName
	$input
	'```'
	"`n"
	) \| Join-String -sep "`n"
	}
	function Md.Header {
	# markdown header at a depth
	param( [string] $Text, [Alias('Depth')] [int] $Level = 1 )
	$prefix = '#' * $Level -join ''
	"`n${prefix} ${Text}`n"
	}
	function Md.Details {
	param( [string] $Title = 'Details' )
	# markdown collapsible <details><summary> element
	$Content = $Input \| Md.CodeBlock
	@"

	<details><summary>${Title} (Click to Expand)

	</summary>

	${content}

	</details>

	"@
	}



	function WriteSummary {
	<#
	.SYNOPSIS
	Dynamically build a markdown file that splits each chunk into a code block and adds a TOC
	#>
	param(
	$Records,
	[Alias('Path')]
	[string] $ExportPath = $pathExportMd
	)
	[int] $curId = 0
	$totalMatches = $found.count

	@(
	# write table of contents. example string:
	# '- [Index: 9](#index-9)'
	'# Results TOC'
	foreach( $curId in 0..( $totalMatches - 1 ) ) {
	'- [Index: {0}](#index-{0})' -f $curId
	}

	$curId = 0

	Md.Header -Text "Summary: ${ExportPath}"

	# todo(fix): hardcoded, should be handled by regex func
	gc $pathToParse
	\| Md.Details -Title "Raw file"

	foreach( $item in @( $found.Value ) ) {
	$label = "Index: ${curId}"
	$curId++
	Md.Header -Text $Label -Depth 2

	$item \| Md.CodeBlock
	}
	) \| Set-Content -Path $pathExportMd
	}

	WriteSummary -Records $found -ExportPath $PathExportMd