bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement PRGNAME$

Browse Source
This commit is contained in:
otya128
2016-12-28 16:27:49 +09:00
parent 5505d7c9f0
commit 88c015c34f
4 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SMILEBASIC/program.d
View File

@@ -169,16 +169,18 @@ enum SizeType
struct Slot
{
DList!wstring program;
DList!wstring.Range range;
private DList!wstring program;
private DList!wstring.Range range;
wstring name;
void init()
{
program = make!(DList!wstring)(["\n"w]);
range = program[];
}
void load(wstring data)
void load(wstring filename, wstring data)
{
name = filename;
program.clear();
foreach(l; splitter(data, "\n"))
{
@@ -324,11 +326,11 @@ struct Slot
switch(type)
{
case SizeType.Line:
return program[].walkLength;
return cast(int)program[].walkLength;
case SizeType.Char:
return program[].map!(x => x.length).sum;
return cast(int)program[].map!(x => x.length).sum;
case SizeType.FreeChar:
return (memorySize - program[].map!(x => x.length).sum).max(0);
return cast(int)(memorySize - program[].map!(x => x.length).sum).max(0);
default:
throw new OutOfRange("PRGSIZE", 2);
}
@@ -383,4 +385,8 @@ class Program
{
return this.slot[slot].size(st);
}
wstring name(int slot)
{
return this.slot[slot].name;
}
}