スタブのLOADの定義を修正,FILESのスタブを追加,ACLSを仮実装
This commit is contained in:
@@ -1372,7 +1372,7 @@ class BuiltinFunction
|
|||||||
}
|
}
|
||||||
throw new IllegalFunctionCall("LOAD");
|
throw new IllegalFunctionCall("LOAD");
|
||||||
}
|
}
|
||||||
static Value LOAD(wstring name, Value arr, DefaultValue!(int, false) flag)
|
static void LOAD(wstring name, Value arr, DefaultValue!(int, false) flag)
|
||||||
{
|
{
|
||||||
flag.setDefaultValue(0);
|
flag.setDefaultValue(0);
|
||||||
throw new IllegalFunctionCall("NOTIMPL:LOAD");
|
throw new IllegalFunctionCall("NOTIMPL:LOAD");
|
||||||
@@ -1428,6 +1428,17 @@ class BuiltinFunction
|
|||||||
p.printConsole(i, "\n");
|
p.printConsole(i, "\n");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
static void FILES(PetitComputer p, wstring name, Value[] array)
|
||||||
|
{
|
||||||
|
writeln("NOTIMPL");
|
||||||
|
}
|
||||||
|
static void ACLS(PetitComputer p)
|
||||||
|
{
|
||||||
|
p.cls;
|
||||||
|
SPCLR(p, DefaultValue!(int, false)(true));
|
||||||
|
BGCLR(p, DefaultValue!(int, false)(true));
|
||||||
|
GCLS(p, DefaultValue!(int, false)(true));
|
||||||
|
}
|
||||||
//alias void function(PetitComputer, Value[], Value[]) BuiltinFunc;
|
//alias void function(PetitComputer, Value[], Value[]) BuiltinFunc;
|
||||||
static BuiltinFunctions[wstring] builtinFunctions;
|
static BuiltinFunctions[wstring] builtinFunctions;
|
||||||
static wstring getBasicName(BFD)(const wstring def)
|
static wstring getBasicName(BFD)(const wstring def)
|
||||||
|
|||||||
Reference in New Issue
Block a user