time_seed

src/AST/CodeGenVisitor.cpp

@@ -16,6 +16,11 @@ CodeGenVisitor::CodeGenVisitor(llvm::Module* module, llvm::FunctionPassManager *
 	llvm::FunctionType* ft = llvm::FunctionType::get(typeToLLVMType(Type::INT), argt, false);
 	llvm::Function::Create(ft, llvm::Function::ExternalLinkage, "put_char", module_);
 
+
+	// create external for time_seed
+	ft = llvm::FunctionType::get(typeToLLVMType(Type::INT), false);
+	llvm::Function::Create(ft, llvm::Function::ExternalLinkage, "time_seed", module_);
+
 	// create external for random_if
 	ft = llvm::FunctionType::get(typeToLLVMType(Type::BOOL), argt, false);
 	llvm::Function::Create(ft, llvm::Function::ExternalLinkage, "random_if", module_);

src/libscully.c

@@ -2,7 +2,7 @@
 #include <stdlib.h>
 #include <stdbool.h>
 #include <stdio.h>
-
+#include <time.h>
 int put_char(int c) {
 	printf("%c", c);
 	return 0;
@@ -13,3 +13,8 @@ bool random_if(int p) {
 	int r = rand() % 100;
 	return (r < p);
 }
+
+int time_seed() {
+	srand(time(NULL));
+	return 0;
+}