// Five #pragma BEGINDUMP demo — HB_FUNC Go API
//
// Harbour's HB_FUNC(name) C API → Five's hbrt.HB_FUNC("name", fn) Go API
// Parameters: PRG → Go via ctx.ParC/NI/ND/L (1-based)
// Returns:    Go → PRG via ctx.RetC/NI/ND/L

PROCEDURE Main()
   LOCAL aResult, nSquared, i

   ? "=== Five Inline Go Demo ==="
   ?

   ? "GoUpper('hello world') =", GoUpper("hello world")
   ? "GoFib(10) =", GoFib(10)
   ? "GoGCD(48, 18) =", GoGCD(48, 18)

   aResult := GoSplit("one,two,three", ",")
   ? "GoSplit result:"
   FOR i := 1 TO Len(aResult)
      ? "  ", aResult[i]
   NEXT

   nSquared := 0
   GoSquare(7, @nSquared)
   ? "GoSquare(7, @n) => n =", nSquared

   ? "GoTypeOf('abc') =", GoTypeOf("abc")
   ? "GoTypeOf(123)   =", GoTypeOf(123)
   ? "GoTypeOf(.T.)   =", GoTypeOf(.T.)
   ? "GoTypeOf({1,2}) =", GoTypeOf({1,2})
   ? "GoTypeOf(NIL)   =", GoTypeOf(NIL)

   RETURN

#pragma BEGINDUMP

import (
	"five/hbrt"
	"strings"
)

func init() {
	hbrt.HB_FUNC("GOUPPER", goUpper)
	hbrt.HB_FUNC("GOFIB", goFib)
	hbrt.HB_FUNC("GOGCD", goGCD)
	hbrt.HB_FUNC("GOSPLIT", goSplit)
	hbrt.HB_FUNC("GOSQUARE", goSquare)
	hbrt.HB_FUNC("GOTYPEOF", goTypeOf)
}

func goUpper(ctx *hbrt.HBContext) {
	if ctx.PCount() < 1 || !ctx.IsChar(1) {
		ctx.RetC("")
		return
	}
	ctx.RetC(strings.ToUpper(ctx.ParC(1)))
}

func goFib(ctx *hbrt.HBContext) {
	n := ctx.ParNIDef(1, 0)
	if n <= 1 {
		ctx.RetNI(n)
		return
	}
	a, b := 0, 1
	for i := 2; i <= n; i++ {
		a, b = b, a+b
	}
	ctx.RetNI(b)
}

func goGCD(ctx *hbrt.HBContext) {
	a := ctx.ParNI(1)
	b := ctx.ParNI(2)
	for b != 0 {
		a, b = b, a%b
	}
	ctx.RetNI(a)
}

func goSplit(ctx *hbrt.HBContext) {
	s := ctx.ParC(1)
	delim := ctx.ParC(2)
	if delim == "" {
		delim = ","
	}
	parts := strings.Split(s, delim)
	items := make([]hbrt.Value, len(parts))
	for i, p := range parts {
		items[i] = hbrt.MakeString(p)
	}
	ctx.RetArray(items)
}

func goSquare(ctx *hbrt.HBContext) {
	n := ctx.ParNI(1)
	ctx.StorNI(n*n, 2)
	ctx.RetNI(n * n)
}

func goTypeOf(ctx *hbrt.HBContext) {
	switch {
	case ctx.IsChar(1):
		ctx.RetC("STRING")
	case ctx.IsNum(1):
		ctx.RetC("NUMERIC")
	case ctx.IsLog(1):
		ctx.RetC("LOGICAL")
	case ctx.IsDate(1):
		ctx.RetC("DATE")
	case ctx.IsArray(1):
		ctx.RetC("ARRAY")
	case ctx.IsHash(1):
		ctx.RetC("HASH")
	case ctx.IsNil(1):
		ctx.RetC("NIL")
	default:
		ctx.RetC("UNKNOWN")
	}
}

#pragma ENDDUMP