catdog2/scully
1
0
Fork 0
Code Issues Pull Requests Releases Activity

time_seed

Browse Source
This commit is contained in:
Peter Dahlberg
2013-06-02 01:51:19 +02:00
parent 5ff40733e0
commit a986fc4419
4 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
doc/example7.x Normal file
View File

@@ -0,0 +1,7 @@
time_seed dana fox
int bar dana fox mulder int i; rfor dana i = 65; 70; i = i + 1; fox put_char dana i fox; return 0; scully
int foo dana fox mulder int i; rfor dana i = 0; 90; i = i + 1; fox bar dana fox; return 0; scully
foo dana fox
foo dana fox
foo dana fox
foo dana fox

5
src/AST/CodeGenVisitor.cpp
View File

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

7
src/libscully.c
View File

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