package cobol

import (
	"strconv"
	"strings"
)

// just give back an int
func Int(maybeInt any) int {
	switch v := maybeInt.(type) {
	case int:
		return v
	case *int:
		return *v
	case string:
		s := strings.TrimSpace(v)
		if s == "" {
			return 0
		}
		i, err := strconv.Atoi(s)
		if err == nil {
			return i
		}
		parts := strings.Fields(s)
		if len(parts) == 0 {
			return 0
		}
		// check every field for an int. sure, why not
		for _, part := range parts {
			if part == "" {
				continue
			}
			i, err := strconv.Atoi(part)
			if err == nil {
				return i
			}
		}
		return i
	}
	return 0
}