From 194c025486059cc02106a8751f6ad30563a14f4d Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Wed, 5 Feb 2025 23:46:37 -0600 Subject: [PATCH] the start to implementing plushy interpretation --- src/Instructions.hs | 32 ++++++++++++++++++++++++++++++-- 1 file changed, 30 insertions(+), 2 deletions(-) diff --git a/src/Instructions.hs b/src/Instructions.hs index 6d54438..dea6e53 100644 --- a/src/Instructions.hs +++ b/src/Instructions.hs @@ -28,6 +28,34 @@ import Instructions.VectorFloatInstructions import Instructions.VectorIntInstructions import Instructions.VectorLogicalInstructions import Instructions.VectorStringInstructions +import State --- Will eventually add a list of all instrucitons in this file --- Use template haskell for this? +intInstructions :: [Gene] +intInstructions = [ + StateFunc (instructionIntFromFloat, "instructionIntFromFloat"), + StateFunc (instructionIntFromBool, "instructionIntFromBool"), + StateFunc (instructionIntAdd, "instructionIntAdd"), + StateFunc (instructionIntSub, "instructionIntSub"), + StateFunc (instructionIntMul, "instructionIntMul"), + StateFunc (instructionIntDiv, "instructionIntDiv"), + StateFunc (instructionIntMod, "instructionIntMod"), + StateFunc (instructionIntMin, "instructionIntMin"), + StateFunc (instructionIntMax, "instructionIntMax"), + StateFunc (instructionIntInc, "instructionIntInc"), + StateFunc (instructionIntDec, "instructionIntDec"), + StateFunc (instructionIntLT, "instructionIntLT"), + StateFunc (instructionIntGT, "instructionIntGT"), + StateFunc (instructionIntLTE, "instructionIntLTE"), + StateFunc (instructionIntGTE, "instructionIntGTE"), + StateFunc (instructionIntDup, "instructionIntDup"), + StateFunc (instructionIntPop, "instructionIntPop"), + StateFunc (instructionIntDupN, "instructionIntDupN"), + StateFunc (instructionIntSwap, "instructionIntSwap"), + StateFunc (instructionIntRot, "instructionIntRot"), + StateFunc (instructionIntFlush, "instructionIntFlush"), + StateFunc (instructionIntEq, "instructionIntEq"), + StateFunc (instructionIntYank, "instructionIntYank"), + StateFunc (instructionIntYankDup, "instructionIntYankDup"), + StateFunc (instructionIntShove, "instructionIntShove"), + StateFunc (instructionIntIsEmpty, "instructionIntIsEmpty") + ]