package main

import (
	"fmt"

	"github.com/mediocregopher/ginger/lang"
	"github.com/mediocregopher/ginger/vm"
)

func main() {
	t := lang.Tuple{lang.AAdd, lang.Tuple{
		lang.Tuple{lang.AInt, lang.Const("1")},
		lang.Tuple{lang.AInt, lang.Const("2")},
	}}

	mod, err := vm.Build(t)
	if err != nil {
		panic(err)
	}
	defer mod.Dispose()

	mod.Dump()

	out, err := mod.Run()
	fmt.Printf("\n\n########\nout: %v %v\n", out, err)
}

/*
func main() {
	//ee, err := expr.Parse(os.Stdin)
	//if err != nil {
	//	panic(err)
	//}
	//for _, e := range ee {
	//	fmt.Println(e)
	//}

	log.Printf("initializing build context")
	ctx := expr.NewCtx()
	bctx := expr.NewBuildCtx("my_module")

	log.Printf("making program")
	add := expr.Macro("add")
	//bind := expr.Macro("bind")
	op := expr.Macro("op")
	in := expr.Macro("in")

	incr := expr.NewStatement(op,
		expr.NewList(
			expr.NewStatement(add, expr.NewTuple(
				expr.Int(1),
				expr.NewStatement(in, expr.NewTuple()),
			)),
		),
	)

	stmts := []expr.Statement{
		expr.NewStatement(
			incr,
			expr.NewStatement(incr, expr.Int(4)),
		),
	}

	log.Printf("creating main function")
	mainFn := llvm.AddFunction(bctx.M, "main", llvm.FunctionType(llvm.Int64Type(), []llvm.Type{}, false))
	mainBlock := llvm.AddBasicBlock(mainFn, "")
	bctx.B.SetInsertPoint(mainBlock, mainBlock.FirstInstruction())
	log.Printf("actually processing program")
	out := bctx.Build(ctx, stmts...)
	bctx.B.CreateRet(out)
	//bctx.Build(ctx, stmts...)
	//bctx.B.CreateRet(llvm.ConstInt(llvm.Int64Type(), uint64(5), false))

	fmt.Println("######## dumping IR")
	bctx.M.Dump()
	fmt.Println("######## done dumping IR")

	log.Printf("verifying")
	if err := llvm.VerifyModule(bctx.M, llvm.ReturnStatusAction); err != nil {
		panic(err)
	}

	log.Printf("creating execution enging")
	engine, err := llvm.NewExecutionEngine(bctx.M)
	if err != nil {
		panic(err)
	}

	log.Printf("running main function")
	funcResult := engine.RunFunction(bctx.M.NamedFunction("main"), []llvm.GenericValue{})
	fmt.Printf("\nOUTPUT:\n%d\n", funcResult.Int(false))
}
*/