sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

type alias JoyFunction

This commit is contained in:
sforman 2023-07-30 14:27:27 -07:00
parent 64d9bb75a4
commit 850bc3a500
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
implementations/Elm/src/Joy.elm
View File

@ -22,6 +22,13 @@ type alias JoyDict =
Dict String JList Dict String JList
-- Joy functions take a stack and expression and return a stack and
-- expression, but something might go wrong, so they really return a
-- Result value.
type alias JoyFunction = JList -> JList -> Result String ( JList, JList )
joy : JList -> JList -> JoyDict -> Result String ( JList, JoyDict ) joy : JList -> JList -> JoyDict -> Result String ( JList, JoyDict )
joy stack expression dict = joy stack expression dict =
case expression of case expression of
@ -225,7 +232,7 @@ joy_inscribe stack expression dict =
Err msg Err msg
joy_branch : JList -> JList -> Result String ( JList, JList ) joy_branch : JoyFunction
joy_branch stack expression = joy_branch stack expression =
case pop_list stack of case pop_list stack of
Ok ( true_body, s0 ) -> Ok ( true_body, s0 ) ->
@ -249,7 +256,7 @@ joy_branch stack expression =
Err msg Err msg
joy_i : JList -> JList -> Result String ( JList, JList ) joy_i : JoyFunction
joy_i stack expression = joy_i stack expression =
case pop_list stack of case pop_list stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -259,7 +266,7 @@ joy_i stack expression =
Err msg Err msg
joy_dip : JList -> JList -> Result String ( JList, JList ) joy_dip : JoyFunction
joy_dip stack expression = joy_dip stack expression =
case pop_list stack of case pop_list stack of
Ok ( quoted_expression, s0 ) -> Ok ( quoted_expression, s0 ) ->
@ -274,7 +281,7 @@ joy_dip stack expression =
Err msg Err msg
joy_loop : JList -> JList -> Result String ( JList, JList ) joy_loop : JoyFunction
joy_loop stack expression = joy_loop stack expression =
case pop_list stack of case pop_list stack of
Ok ( loop_body, s0 ) -> Ok ( loop_body, s0 ) ->
@ -293,7 +300,7 @@ joy_loop stack expression =
Err msg Err msg
joy_binary_math_op : (Int -> Int -> Int) -> JList -> JList -> Result String ( JList, JList ) joy_binary_math_op : (Int -> Int -> Int) -> JoyFunction
joy_binary_math_op op stack expression = joy_binary_math_op op stack expression =
case pop_int stack of case pop_int stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -313,7 +320,7 @@ swap_args op =
\a b -> op b a \a b -> op b a
joy_comparison_op : (Int -> Int -> Bool) -> JList -> JList -> Result String ( JList, JList ) joy_comparison_op : (Int -> Int -> Bool) -> JoyFunction
joy_comparison_op op stack expression = joy_comparison_op op stack expression =
case pop_int stack of case pop_int stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -328,7 +335,7 @@ joy_comparison_op op stack expression =
Err msg Err msg
joy_logical_op : (Bool -> Bool -> Bool) -> JList -> JList -> Result String ( JList, JList ) joy_logical_op : (Bool -> Bool -> Bool) -> JoyFunction
joy_logical_op op stack expression = joy_logical_op op stack expression =
case pop_bool stack of case pop_bool stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -343,7 +350,7 @@ joy_logical_op op stack expression =
Err msg Err msg
joy_concat : JList -> JList -> Result String ( JList, JList ) joy_concat : JoyFunction
joy_concat stack expression = joy_concat stack expression =
case pop_list stack of case pop_list stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -358,7 +365,7 @@ joy_concat stack expression =
Err msg Err msg
joy_cons : JList -> JList -> Result String ( JList, JList ) joy_cons : JoyFunction
joy_cons stack expression = joy_cons stack expression =
case pop_list stack of case pop_list stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -373,7 +380,7 @@ joy_cons stack expression =
Err msg Err msg
joy_dup : JList -> JList -> Result String ( JList, JList ) joy_dup : JoyFunction
joy_dup stack expression = joy_dup stack expression =
case pop_any stack of case pop_any stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -383,7 +390,7 @@ joy_dup stack expression =
Err msg Err msg
joy_first : JList -> JList -> Result String ( JList, JList ) joy_first : JoyFunction
joy_first stack expression = joy_first stack expression =
case pop_list stack of case pop_list stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -398,7 +405,7 @@ joy_first stack expression =
Err msg Err msg
joy_pop : JList -> JList -> Result String ( JList, JList ) joy_pop : JoyFunction
joy_pop stack expression = joy_pop stack expression =
case pop_any stack of case pop_any stack of
Ok ( _, s0 ) -> Ok ( _, s0 ) ->
@ -408,7 +415,7 @@ joy_pop stack expression =
Err msg Err msg
joy_rest : JList -> JList -> Result String ( JList, JList ) joy_rest : JoyFunction
joy_rest stack expression = joy_rest stack expression =
case pop_list stack of case pop_list stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -423,12 +430,12 @@ joy_rest stack expression =
Err msg Err msg
joy_stack : JList -> JList -> Result String ( JList, JList ) joy_stack : JoyFunction
joy_stack stack expression = joy_stack stack expression =
Ok ( push_list stack stack, expression ) Ok ( push_list stack stack, expression )
joy_swaack : JList -> JList -> Result String ( JList, JList ) joy_swaack : JoyFunction
joy_swaack stack expression = joy_swaack stack expression =
case pop_list stack of case pop_list stack of
Ok ( s, s0 ) -> Ok ( s, s0 ) ->
@ -438,7 +445,7 @@ joy_swaack stack expression =
Err msg Err msg
joy_swap : JList -> JList -> Result String ( JList, JList ) joy_swap : JoyFunction
joy_swap stack expression = joy_swap stack expression =
case pop_any stack of case pop_any stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->
@ -453,7 +460,7 @@ joy_swap stack expression =
Err msg Err msg
joy_truthy : JList -> JList -> Result String ( JList, JList ) joy_truthy : JoyFunction
joy_truthy stack expression = joy_truthy stack expression =
case pop_any stack of case pop_any stack of
Ok ( a, s0 ) -> Ok ( a, s0 ) ->