bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

VERSION,FREEMEM,RIGHT$実装

Browse Source
This commit is contained in:
otya128
2015-08-27 21:35:15 +09:00
parent 7eabb17a22
commit f149ce596f
4 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SMILEBASIC/builtinfunctions.d
View File

@@ -327,6 +327,10 @@ class BuiltinFunction
{ {
return str[0..len]; return str[0..len];
} }
static wstring RIGHT(wstring str, int len)
{
return str[$ - len..$];
}
static wstring SUBST(wstring str, int i, Value alen, DefaultValue!(Value,false) areplace) static wstring SUBST(wstring str, int i, Value alen, DefaultValue!(Value,false) areplace)
{ {
int len = 1; int len = 1;

8
SMILEBASIC/compiler.d
View File

@@ -168,8 +168,14 @@ class Compiler
sysVariable["CSRY"] = new CSRY(); sysVariable["CSRY"] = new CSRY();
global["CSRZ"] = VMVariable(-1); global["CSRZ"] = VMVariable(-1);
sysVariable["CSRZ"] = new CSRZ(); sysVariable["CSRZ"] = new CSRZ();
addSystemVariable("VERSION", new Version());
addSystemVariable("FREEMEM", new FreeMem());
}
void addSystemVariable(wstring name, SystemVariable var)
{
global[name] = VMVariable(-1);
sysVariable[name] = var;
} }
SystemVariable[wstring] sysVariable; SystemVariable[wstring] sysVariable;
Code[] code; Code[] code;
VMVariable[wstring] global; VMVariable[wstring] global;

6
SMILEBASIC/petitcomputer.d
View File

@@ -15,9 +15,9 @@ import otya.smilebasic.error;
import otya.smilebasic.bg; import otya.smilebasic.bg;
import otya.smilebasic.parser; import otya.smilebasic.parser;
const static rot_test_deg = 45f; const static rot_test_deg = 45f;
const static rot_test_x = 1f; const static rot_test_x = 0f;
const static rot_test_y = 0f; const static rot_test_y = 1f;
const static rot_test_z = 0f; const static rot_test_z = 1f;
enum Button enum Button
{ {
NONE = 0, NONE = 0,

17
SMILEBASIC/systemvariable.d
View File

@@ -67,4 +67,19 @@ class CSRZ : SystemVariable
return Value(vm.petitcomputer.CSRZ); return Value(vm.petitcomputer.CSRZ);
} }
} }
class Version : SystemVariable
{
@property
override Value value(VM vm)
{
return Value(0x3010000);
}
}
class FreeMem : SystemVariable
{
@property
override Value value(VM vm)
{
return Value(8327164);
}
}