Merge pull request #12 from rensatopc/main

add command "index"

Author: 梶塚太智

.gitignore

@@ -12,3 +12,5 @@ Cargo.lock
 
 # MSVC Windows builds of rustc generate these, which store debugging information
 *.pdb
+
+hidden/

README.md

@@ -5,6 +5,18 @@ The powerful script language designed with a stack oriented approach for efficie
 
 ## Install
 
+### If you don't want to install...
+
+```bash
+git clone https://github.com/Stack-Programing-Community/Stack-Programing-Language.git
+cd Stack-Programing-Language
+cargo build --release
+chmod +x ./run.stack.sh
+./run-stack.sh
+```
+
+### Normal Install
+
 Stack programming language's interpreter binary files for Windows are in the [release](https://github.com/Stack-Programing-Community/Stack-Programing-Language/releases).
 
 the releases are Regularly when new function become stable, that's good way if you prize safety.

mylibrary/clone.stk

@@ -0,0 +1 @@
+((a) var a a () (a) var) (clone) var

mylibrary/queue.stk

@@ -0,0 +1,11 @@
+(
+(mode) var
+(item) var
+
+(
+
+)
+()
+mode equals (push)
+item
+) (queue) var

mysrc/stackprogramminglanguage.stk

@@ -0,0 +1,24 @@
+(
+
+  (Welcome to...) print
+
+  (Stack) () true if
+  
+  ((str) var [str (ming)] () join) func var
+  (Program) func eval
+  
+  [(Lang) (uage) (fake)] l var
+  l 0 get
+  l 1 get
+  (b) var
+  (a) var
+  [a b] () join
+  
+  (a) var
+  (b) var
+  (c) var
+  [c b a] ( ) join (a) var
+  [a (!)] () join print
+  
+) (do) var
+do eval

run-stack.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+cd "$(dirname $0)"
+./target/release/stack $@

src/main.rs

@@ -1277,6 +1277,20 @@ impl Executor {
                 })
             }
 
+            "index" => {
+                let findhint = self.pop_stack().get_string();
+                let findtarget = self.pop_stack().get_list();
+
+                for index in 0..(findtarget.len()) {
+                    if findhint == findtarget[index].clone().get_string() {
+                        self.stack.push(Type::Number(index as f64));
+                        return;
+                    }
+                }
+                self.log_print(String::from("Error! item not found in this list").as_str().to_owned() + "\n");
+                self.stack.push(Type::Error(String::from("item-not-found")));
+            }
+
             // If it is not recognized as a command, use it as a string.
             _ => self.stack.push(Type::String(command)),
         }