bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Add program.d

Browse Source
This commit is contained in:
otya128
2016-12-27 17:16:54 +09:00
parent e1888d5032
commit 3ab1c8e6c8
5 changed files with 74 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SMILEBASIC/builtinfunctions.d
View File

@@ -2269,7 +2269,7 @@ class BuiltinFunction
}
if(resname == "" || resname.indexOf("PRG") == 0)
{
int lot = p.currentSlot;
int lot = p.program.currentSlot;
if(resname != "" && resname != "PRG")
{
auto num = resname[3..$];
@@ -2280,7 +2280,7 @@ class BuiltinFunction
//not exist
return;
}
p.slot[lot].load(txt);
p.program.slot[lot].load(txt);
return;
}
if(resname.indexOf("GRP") == 0)
@@ -2301,16 +2301,16 @@ class BuiltinFunction
{
throw new IllegalFunctionCall("SAVE"/*, 1*/);
}
auto slot = p.currentSlot;
auto slot = p.program.currentSlot;
if (file.hasResourceNumber)
{
slot = file.resourceNumber;
}
if (slot >= p.slotSize)
if (slot >= p.program.slotSize)
{
throw new IllegalFunctionCall("SAVE"/*, 1*/);
}
auto str = cast(immutable)p.slot[slot].text;
auto str = cast(immutable)p.program.slot[slot].text;
p.project.saveTextFile(file, str);
}
static void SAVE(PetitComputer p, wstring name, Value data)