Elemten expressions working in lists and hash too!

Author: Baxi19

VM_CS/Interpreter/InstructionSet.cs

@@ -563,6 +563,39 @@ private void runJUMP_IF_FALSE(int target){
             }
         }
 
+        // Element access
+        private void runBINARY_SUBSCR()
+        {
+            try
+            {
+                dynamic index = pilaExprs.pop();
+                dynamic data = pilaExprs.pop();
+                if (data.GetType() == typeof(List<dynamic>))
+                {
+                    List<dynamic> list = data;
+                    pilaExprs.push(list[index]);
+                    
+                }
+                else
+                {
+                    Dictionary<dynamic, dynamic> hash = data;
+                    foreach (KeyValuePair<dynamic, dynamic> kvp in hash)
+                    {
+                        if (kvp.Key.ToString().Equals(index.ToString()))
+                        {
+                            pilaExprs.push(kvp.Value);
+                        }
+                    }
+                }
+            }
+            catch (Exception e)
+            {
+                Console.WriteLine("SERVER> ERROR : ( " + actualInstrIndex + " ) " + "instruction in method BINARY_SUBSCR: " + e.Message);
+                throw;
+            }
+        }
+
+
         // Hash
         private void runBUILD_CONST_KEY_MAP(int size)
         {
@@ -819,6 +852,9 @@ private void runMain(){
                             case "BUILD_CONST_KEY_MAP":
                                 runBUILD_CONST_KEY_MAP(instSet[actualInstrIndex].Value); 
                                 break;
+                            case "BINARY_SUBSCR":
+                                runBINARY_SUBSCR(); 
+                                break;
                             //default:
                                 //throw new Exception("Instrucción no conocida : (" +actualInstrIndex + " )");
                     }