bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement PUSH/POP STR$

Browse Source
This commit is contained in:
otya128
2016-12-17 16:07:03 +09:00
parent ffd8743ed6
commit 5c594daba7
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SMILEBASIC/builtinfunctions.d
View File

@@ -2645,7 +2645,10 @@ class BuiltinFunction
switch (ary.type)
{
case ValueType.String:
throw new IllegalFunctionCall("NOTIMPL:PUSH string");
if (ary.stringValue.dimCount != 1)
throw new TypeMismatch("PUSH", 1);
ary.stringValue.push(exp.castString);
break;
case ValueType.IntegerArray:
if (ary.integerArray.dimCount != 1)
throw new TypeMismatch("PUSH", 1);
@@ -2678,7 +2681,9 @@ class BuiltinFunction
switch (ary.type)
{
case ValueType.String:
throw new IllegalFunctionCall("NOTIMPL:POP string");
if (ary.stringValue.dimCount != 1)
throw new TypeMismatch("POP", 1);
return Value(ary.stringValue.pop());
case ValueType.IntegerArray:
if (ary.integerArray.dimCount != 1)
throw new TypeMismatch("POP", 1);

14
SMILEBASIC/type.d
View File

@@ -61,6 +61,11 @@ struct Value
this.type = ValueType.String;
stringValue = new Array!wchar(value);
}
this(wchar value)
{
this.type = ValueType.String;
stringValue = new Array!wchar([value]);
}
this(Array!wchar value)
{
this.type = ValueType.String;
@@ -422,6 +427,15 @@ class Array(T)
array ~= v;
dim[0]++;
}
void push(Array!T v)
{
if (dimCount != 1)
{
throw new TypeMismatch();
}
array ~= v.array;
dim[0] = cast(int)length;
}
T pop()
{
if (dimCount != 1)