bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement MILLISEC system variable

Browse Source
This commit is contained in:
otya128
2016-12-16 23:14:35 +09:00
parent e106374bb6
commit b4d283daad
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SMILEBASIC/compiler.d
View File

@@ -228,6 +228,7 @@ class Compiler
addSystemVariable("TABSTEP", new TabStep()); addSystemVariable("TABSTEP", new TabStep());
addSystemVariable("RESULT", new Result()); addSystemVariable("RESULT", new Result());
addSystemVariable("HARDWARE", new Hardware()); addSystemVariable("HARDWARE", new Hardware());
addSystemVariable("MILLISEC", new MilliSecond());
} }
void addSystemVariable(wstring name, SystemVariable var) void addSystemVariable(wstring name, SystemVariable var)
{ {

9
SMILEBASIC/systemvariable.d
View File

@@ -124,3 +124,12 @@ class Hardware : SystemVariable
return Value(cast(int)vm.petitcomputer.hardware); return Value(cast(int)vm.petitcomputer.hardware);
} }
} }
class MilliSecond : SystemVariable
{
@property
override Value value()
{
import derelict.sdl2.sdl;
return Value(cast(int)SDL_GetTicks());
}
}