Function Parsing

[LxLeChat]

Check the Body.Process is not null, then check the satements
if null, Check the EndBLock, then check the statements

[LxLeChat]

[node[]] static ParseFile ([string]$File,[String]$Type) {
        
        $x = [System.Collections.Generic.list[node]]@()
        $ParsedFile = [Parser]::ParseFile($file, [ref]$null, [ref]$Null)
        
        $RawAstDocument = $ParsedFile.FindAll({$args[0] -is [System.Management.Automation.Language.Ast]}, $false)
        $RawFunctions = $RawASTDocument.FindAll({$args[0] -is [System.Management.Automation.Language.FunctionDefinitionAst] -and $($args[0].parent) -isnot [System.Management.Automation.Language.FunctionMemberAst] })
        
        Foreach ( $Function in $RawFunctions ) {
            If ( $null -ne $Function.Body.ProcessBlock ) {
                $ToParse = $Function.Body.ProcessBlock
            } Else {
                $ToParse = $Function.Body.EndBLock
            }
                $LinkedList = [System.Collections.Generic.LinkedList[string]]::new()
                $i = 0
                $tmp = $false
                while ( $i -lt $ToParse.Statements.Count ) {
                    # if ( $null -eq $RawAstDocument[$i].parent.parent.parent ) {
                        If ( $ToParse.Statements[$i].GetType() -in [nodeutility]::GetASTitems() ) {
                            $tmp = $true
                            $node = [nodeutility]::SetNode($ToParse.Statements[$i])
                            $LinkedNode = [System.Collections.Generic.LinkedListNode[string]]::new($node.Nodeid)
                            $LinkedList.AddLast($LinkedNode)
                            $node.LinkedBrothers = $LinkedList
                            $node.LinkedNodeId = $LinkedNode
                            $LinkedNodeNext = [System.Collections.Generic.LinkedListNode[string]]::new("End_" + $node.Nodeid)
                            $LinkedList.AddAfter($LinkedNode, $LinkedNodeNext)
                            $x.Add($node)
                        } else {
                            if ( ( $tmp -and ($i -gt 0) ) -or ( ($i -eq 0) -or ($i -eq $ToParse.Statements.count) ) ) {
                                $tmp = $false
                                $node = [BlockProcess]::new()
                                $LinkedNode = [System.Collections.Generic.LinkedListNode[string]]::new($node.Nodeid)
                                $LinkedList.AddLast($LinkedNode)
                                $node.LinkedBrothers = $LinkedList
                                $node.LinkedNodeId = $LinkedNode
                                $x.Add($node)
                            }
                        }
                    # }
                    $i++
                }
                return $x    
            # }
        }
        return $x        
    }