added input() function

1 files changed, 12 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index f140ed0..7dba60d 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -42,7 +42,7 @@ sym_t* eval(sym_t* symbol, hashtable_t* parentScope) {
 				}
 			}
 			else {
-				printf("no matching pair in hashtable\n");
+				printf("key %s not found in any scope\n", (char*)symbol->name);
 			}
 		}
 		/* clear new scope, then return */
@@ -334,6 +334,17 @@ sym_t* try_eval_internal(sym_t* symbol, hashtable_t* symbolScope) {
 		printf("\n");
 		return init_sym_int(1);
 	}
+	else if (hash == get_hash("input")) {
+		if (symbol->argCount > 0) {
+			sym_t* v = eval(symbol->args[0], symbolScope);
+			printf("%s", symtos(v));
+			destroy_sym(v);
+		}
+		char buffer[4096];
+		fgets(buffer, sizeof(buffer), stdin);
+		buffer[strcspn(buffer, "\n")] = '\0';
+		return init_sym_str(buffer);
+	}
 	else {
 		return NULL;
 	}