Implement method call system

Author: 梶塚太智

src/main.rs

@@ -1010,6 +1010,7 @@ impl Executor {
             // Generate a instance of object
             "instance" => {
                 let data = self.pop_stack().get_list();
+                let mut methods = self.pop_stack().get_list();
                 let mut class = self.pop_stack().get_list();
                 let mut object: HashMap<String, Type> = HashMap::new();
                 let name = class[0].get_string();
@@ -1018,6 +1019,11 @@ impl Executor {
                     object.insert(name.to_owned().get_string(), element);
                 }
 
+                for item in &mut methods {
+                    let item = item.get_list();
+                    object.insert(item[0].clone().get_string(), item[1].clone());
+                }
+
                 self.stack.push(Type::Object(name, object))
             }
 
@@ -1034,6 +1040,28 @@ impl Executor {
                 }
             }
 
+            // Call the method of object
+            "method" => {
+                let method = self.pop_stack().get_string();
+                match self.pop_stack() {
+                    Type::Object(name, value) => {
+                        let data = Type::Object(name, value.clone());
+                        self.memory
+                            .entry("self".to_string())
+                            .and_modify(|value| *value = data.clone())
+                            .or_insert(data);
+
+                        let program: String = match value.get(&method) {
+                            Some(i) => i.to_owned().get_string().to_string(),
+                            None => "".to_string(),
+                        };
+
+                        self.evaluate_program(program)
+                    }
+                    _ => self.stack.push(Type::Error("not-object".to_string())),
+                }
+            }
+
             // Get all of properties
             "all" => match self.pop_stack() {
                 Type::Object(_, data) => self.stack.push(Type::List(