archived-frankenphp/internal/extgen/srcanalyzer.go

package extgen

import (
	"fmt"
	"go/parser"
	"go/token"
	"os"
	"strings"
)

type SourceAnalyzer struct{}

func (sa *SourceAnalyzer) analyze(filename string) (packageName string, variables []string, internalFunctions []string, err error) {
	fset := token.NewFileSet()
	node, err := parser.ParseFile(fset, filename, nil, parser.ParseComments)
	if err != nil {
		return "", nil, nil, fmt.Errorf("parsing file: %w", err)
	}

	packageName = node.Name.Name

	sourceContent, err := os.ReadFile(filename)
	if err != nil {
		return "", nil, nil, fmt.Errorf("reading source file: %w", err)
	}

	variables = sa.extractVariables(string(sourceContent))
	internalFunctions = sa.extractInternalFunctions(string(sourceContent))

	return packageName, variables, internalFunctions, nil
}

func (sa *SourceAnalyzer) extractVariables(content string) []string {
	lines := strings.Split(content, "\n")
	var (
		variables  []string
		currentVar strings.Builder
		inVarBlock bool
		parenCount int
	)

	for _, line := range lines {
		trimmedLine := strings.TrimSpace(line)

		if strings.HasPrefix(trimmedLine, "var ") && !inVarBlock {
			if strings.Contains(trimmedLine, "(") {
				inVarBlock = true
				parenCount = 1
				currentVar.Reset()
				currentVar.WriteString(line + "\n")
			} else {
				variables = append(variables, strings.TrimSpace(line))
			}
		} else if inVarBlock {
			currentVar.WriteString(line + "\n")

			for _, char := range line {
				switch char {
				case '(':
					parenCount++
				case ')':
					parenCount--
				}
			}

			if parenCount == 0 {
				varContent := currentVar.String()
				variables = append(variables, strings.TrimSpace(varContent))
				inVarBlock = false
				currentVar.Reset()
			}
		}
	}

	return variables
}

func (sa *SourceAnalyzer) extractInternalFunctions(content string) []string {
	lines := strings.Split(content, "\n")
	var (
		functions              []string
		currentFunc            strings.Builder
		inFunction, hasPHPFunc bool
		braceCount             int
	)

	for i, line := range lines {
		trimmedLine := strings.TrimSpace(line)

		if strings.HasPrefix(trimmedLine, "func ") && !inFunction {
			inFunction = true
			braceCount = 0
			hasPHPFunc = false
			currentFunc.Reset()

			// look backwards for export_php comment
			for j := i - 1; j >= 0 && j >= i-5; j-- {
				prevLine := strings.TrimSpace(lines[j])
				if prevLine == "" {
					continue
				}

				if strings.Contains(prevLine, "export_php:") {
					hasPHPFunc = true

					break
				}

				if !strings.HasPrefix(prevLine, "//") {
					break
				}
			}
		}

		if inFunction {
			currentFunc.WriteString(line + "\n")

			for _, char := range line {
				switch char {
				case '{':
					braceCount++
				case '}':
					braceCount--
				}
			}

			if braceCount == 0 && strings.Contains(line, "}") {
				funcContent := currentFunc.String()

				if !hasPHPFunc {
					functions = append(functions, strings.TrimSpace(funcContent))
				}

				inFunction = false
				currentFunc.Reset()
			}
		}
	}

	return functions
}