bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement SAVE (1)

Browse Source
This commit is contained in:
otya128
2016-12-27 15:41:07 +09:00
parent ab86a9fb4e
commit 618a145c9c
2 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SMILEBASIC/builtinfunctions.d
View File

@@ -2269,7 +2269,7 @@ class BuiltinFunction
}
if(resname == "" || resname.indexOf("PRG") == 0)
{
int lot;
int lot = p.currentSlot;
if(resname != "" && resname != "PRG")
{
auto num = resname[3..$];
@@ -2294,6 +2294,25 @@ class BuiltinFunction
flag.setDefaultValue(0);
throw new IllegalFunctionCall("NOTIMPL:LOAD");
}
static void SAVE(PetitComputer p, wstring name)
{
auto file = Projects.parseFileName(name);
if (file.resource != Resource.program && file.resource != Resource.none)
{
throw new IllegalFunctionCall("SAVE"/*, 1*/);
}
auto slot = p.currentSlot;
if (file.hasResourceNumber)
{
slot = file.resourceNumber;
}
if (slot >= p.slotSize)
{
throw new IllegalFunctionCall("SAVE"/*, 1*/);
}
auto str = cast(immutable)p.slot[slot].text;
p.project.saveTextFile(file, str);
}
static void SAVE(PetitComputer p, wstring name, Value data)
{
auto file = Projects.parseFileName(name);