From: sforman <sforman@hushmail.com>
Date: Sat, 29 Jul 2023 19:30:22 +0000 (-0700)
Subject: Thread the dictionary through the call stack.
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=4acdec71ed0c22435a5aafb4c14413ada306cced;p=joypy%2FThun.git

Thread the dictionary through the call stack.
---

diff --git a/implementations/Elm/src/Joy.elm b/implementations/Elm/src/Joy.elm
index dac5dbe..8b4d42f 100644
--- a/implementations/Elm/src/Joy.elm
+++ b/implementations/Elm/src/Joy.elm
@@ -18,25 +18,38 @@ type alias JList = List JoyType
 type alias JoyDict = Dict String JList
 
 
-joy : JList -> JList -> Result String JList
-joy stack expression =
+joy : JList -> JList -> JoyDict -> Result String (JList, JoyDict)
+joy stack expression dict =
         case expression of
                 [] ->
-                        Ok stack
+                        Ok (stack, dict)
                 term :: rest_of_expression ->
                         case term of
                                 JoySymbol symbol ->
-                                        case joy_eval symbol stack rest_of_expression of
+                                        case joy_eval symbol stack rest_of_expression dict of
                                             Err msg -> Err msg
-                                            Ok (s, e) -> joy s e
+                                            Ok (s, e, dict0) -> joy s e dict0
                                 _ ->
-                                        joy (term :: stack) rest_of_expression
+                                        joy (term :: stack) rest_of_expression dict
 
 
-joy_eval : String -> JList -> JList -> Result String (JList, JList)
-joy_eval symbol stack expression =
+joy_eval : String -> JList -> JList -> JoyDict -> Result String (JList, JList, JoyDict)
+joy_eval symbol stack expression dict =
+    if symbol == "" then
+        Ok (stack, expression, dict)
+    else
+        case joy_function_eval symbol stack expression of
+            Err msg ->
+                if "Unknown word." == msg then
+                    -- Look up word in dictionary.
+                    Err ("Unknown word: " ++ symbol)
+                else
+                    Err msg
+            Ok (stack0, expression0) -> Ok (stack0, expression0, dict)
+
+
+joy_function_eval symbol stack expression =
     case symbol of
-        "" -> Ok (stack, expression)
 
         "branch" -> joy_branch stack expression
         "i" -> joy_i stack expression
@@ -81,7 +94,10 @@ joy_eval symbol stack expression =
         "swap" -> joy_swap stack expression
         "truthy" -> joy_truthy stack expression
 
-        _ -> Err ("Unknown word: " ++ symbol)
+        _ -> Err ("Unknown word.")
+
+
+--        _ -> Err ("Unknown word: " ++ symbol)
 
 
 joy_branch : JList -> JList -> Result String (JList, JList)
@@ -428,12 +444,12 @@ parse tokens = parse0 tokens []
 text_to_expression text = parse (tokenize text)
 
 
-
-doit text =
+doit : String -> JoyDict -> Result String (String, JoyDict)
+doit text dict =
     case text_to_expression text of
         Ok ast ->
-            case joy [] ast of
-                Ok expr -> Ok (joyExpressionToString expr)
+            case joy [] ast dict of
+                Ok (expr, dict0) -> Ok (joyExpressionToString expr, dict0)
                 Err msg -> Err msg
         Err msg -> Err msg
 
diff --git a/implementations/Elm/src/Main.elm b/implementations/Elm/src/Main.elm
index fd16447..3420df1 100644
--- a/implementations/Elm/src/Main.elm
+++ b/implementations/Elm/src/Main.elm
@@ -52,13 +52,13 @@ update msg model =
 
 view : Model -> Html Msg
 view model =
-  case doit model.content of
+  case doit model.content model.dictionary of
     Err msg ->
       div []
         [ input [ placeholder "Text to reverse", value model.content, onInput Change ] []
         , div [] [ text msg ]
         ]
-    Ok message ->
+    Ok (message, dict0) ->
       div []
         [ input [ placeholder "Text to reverse", value model.content, onInput Change ] []
         , div [] [ text message ]