From f53179555f1cfc3983b5851bdddf150aa3a8fae4 Mon Sep 17 00:00:00 2001
From: refaktor <janko.itm+refaktor@gmail.com>
Date: Mon, 19 Aug 2024 03:31:58 +0200
Subject: [PATCH] adding experimental generic functions to Eyr, and tagwords

---
 evaldo/builtins_eyr.go | 56 +++++++++++++++++++++++++++++++++---------
 1 file changed, 44 insertions(+), 12 deletions(-)

diff --git a/evaldo/builtins_eyr.go b/evaldo/builtins_eyr.go
index 2d1a7afe..26548392 100755
--- a/evaldo/builtins_eyr.go
+++ b/evaldo/builtins_eyr.go
@@ -4,7 +4,6 @@ package evaldo
 import (
 	// "fmt"
 
-	"fmt"
 	"slices"
 
 	"github.com/refaktor/rye/env"
@@ -191,19 +190,47 @@ func Eyr_EvalObject(es *env.ProgramState, object env.Object, leftVal env.Object,
 	}
 }
 
-func Eyr_EvalWord(es *env.ProgramState, word env.Object, leftVal env.Object, pipeWord bool) *env.ProgramState {
+func findLastStart(stack *env.EyrStack) (env.Object, bool) {
+	for i := stack.I - 1; i > 0; i-- {
+		// fmt.Println(i)
+		obj := stack.D[i]
+		// fmt.Println(obj)
+		if obj.GetKind() == int(env.CommaType) {
+			if i < stack.I-1 {
+				return stack.D[i+1], true
+			} else {
+				return nil, false
+			}
+		}
+	}
+	return stack.D[0], true
+}
+
+func Eyr_EvalWord(ps *env.ProgramState, word env.Object, leftVal env.Object, pipeWord bool) *env.ProgramState {
 	// LOCAL FIRST
-	found, object, ctx := findWordValue(es, word)
+	found, object, ctx := findWordValue(ps, word)
+	if !found { // look at Generic words, but first check type
+		first, ok := findLastStart(ps.Stack) // get the value on stack before the comma (expression guard)
+		if ok {
+			kind := first.GetKind()
+			//fmt.Println(kind)
+			rword, ok := word.(env.Word)
+			// fmt.Println(rword)
+			if ok && ps.Ctx.Kind.Index != -1 { // don't use generic words if context kind is -1 --- TODO temporary solution to isolates, think about it more
+				object, found = ps.Gen.Get(kind, rword.Index)
+			}
+		}
+	}
 	if found {
-		es = Eyr_EvalObject(es, object, leftVal, pipeWord, ctx, true) //ww0128a *
+		ps = Eyr_EvalObject(ps, object, leftVal, pipeWord, ctx, true) //ww0128a *
 		// es.Stack.Push(es, ¸.Res)
-		return es
+		return ps
 	} else {
-		es.ErrorFlag = true
-		if !es.FailureFlag {
-			es.Res = env.NewError2(5, "Word not found: "+word.Inspect(*es.Idx))
+		ps.ErrorFlag = true
+		if !ps.FailureFlag {
+			ps.Res = env.NewError2(5, "Word not found: "+word.Inspect(*ps.Idx))
 		}
-		return es
+		return ps
 	}
 }
 
@@ -222,6 +249,9 @@ func Eyr_EvalExpression(ps *env.ProgramState) *env.ProgramState {
 	trace2("Before entering expression")
 	if object != nil {
 		switch object.Type() {
+		case env.CommaType:
+			// fmt.Println("** INTEGER")
+			ps.Stack.Push(ps, object)
 		case env.IntegerType:
 			// fmt.Println("** INTEGER")
 			ps.Stack.Push(ps, object)
@@ -235,6 +265,8 @@ func Eyr_EvalExpression(ps *env.ProgramState) *env.ProgramState {
 			ps.Stack.Push(ps, object)
 		case env.EmailType:
 			ps.Stack.Push(ps, object)
+		case env.TagwordType:
+			ps.Stack.Push(ps, env.NewWord(object.(env.Tagword).Index))
 		case env.WordType:
 			// fmt.Println("** WORD")
 			rr := Eyr_EvalWord(ps, object.(env.Word), nil, false)
@@ -321,12 +353,12 @@ func stackToBlock(stack *env.EyrStack, reverse bool) env.Block {
 	real := stack.D[0:stack.I]
 	cpy := make([]env.Object, stack.I)
 	copy(cpy, real)
-	fmt.Println(real)
+	// fmt.Println(real)
 	if reverse {
-		fmt.Println("REVE")
+		// fmt.Println("REVE")
 		slices.Reverse(cpy)
 	}
-	fmt.Println(cpy)
+	// fmt.Println(cpy)
 	return *env.NewBlock(*env.NewTSeries(cpy))
 }