bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

COS TAN RAD DEG PI追加

Browse Source
This commit is contained in:
otya128
2015-08-23 12:02:19 +09:00
parent 6df9bc25f8
commit cd8f5c9c42
2 changed files with 135 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SMILEBASIC/TEST.txt
View File

@@ -29,6 +29,9 @@ ASSERT__ VAL("&HA")==10, "VAL"
ASSERT__ VAL("&H-A")==0, "VAL" ASSERT__ VAL("&H-A")==0, "VAL"
ASSERT__ VAL("&B10")==2, "VAL" ASSERT__ VAL("&B10")==2, "VAL"
ASSERT__ VAL("aa")==0, "VAL" ASSERT__ VAL("aa")==0, "VAL"
ASSERT__ RAD(180)==PI(), "RAD"
ASSERT__ DEG(RAD(180)), "DEG"
ASSERT__ SUBST$("0123456789",0,"B")=="B","SUBST$" ASSERT__ SUBST$("0123456789",0,"B")=="B","SUBST$"
ASSERT__ SUBST$("0123456789",0,4,"B")=="B456789","SUBST$" ASSERT__ SUBST$("0123456789",0,4,"B")=="B456789","SUBST$"
ASSERT__ SUBST$("",0,4,"B")=="B","SUBST$" ASSERT__ SUBST$("",0,4,"B")=="B","SUBST$"

230
SMILEBASIC/builtinfunctions.d
View File

@@ -80,6 +80,26 @@ class BuiltinFunction
{ {
return sin(arg1); return sin(arg1);
} }
static double COS(double arg1)
{
return cos(arg1);
}
static double TAN(double arg1)
{
return tan(arg1);
}
static double RAD(double arg1)
{
return arg1 * std.math.PI / 180;
}
static double DEG(double arg1)
{
return arg1 * 180 / std.math.PI;
}
static double PI()
{
return std.math.PI;
}
//static ABS = function double(double x) => abs(this.result == ValueType.Double ? 1 : 0); //static ABS = function double(double x) => abs(this.result == ValueType.Double ? 1 : 0);
static void LOCATE(PetitComputer p, DefaultValue!int x, DefaultValue!int y, DefaultValue!(int, false) z) static void LOCATE(PetitComputer p, DefaultValue!int x, DefaultValue!int y, DefaultValue!(int, false) z)
{ {
@@ -752,101 +772,108 @@ template GetFunctionParamType(T, string N)
template AddFuncArg(int L, int N, int M, int O, T, string NAME, P...) template AddFuncArg(int L, int N, int M, int O, T, string NAME, P...)
{ {
enum I = L - N; enum I = L - N;
enum storage = ParameterStorageClassTuple!(__traits(getMember, T, NAME))[M]; static if(ParameterStorageClassTuple!(__traits(getMember, T, NAME)).length <= M)
static if(is(P[0] == double))
{ {
enum add = 1; const string AddFuncArg = "";
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "].castDouble";
} }
else static if(is(P[0] == PetitComputer)) else
{ {
enum add = 0; enum storage = ParameterStorageClassTuple!(__traits(getMember, T, NAME))[M];
enum outadd = 0; static if(is(P[0] == double))
const string arg = "p"; {
} enum add = 1;
else static if(is(P[0] == int)) enum outadd = 0;
{ const string arg = "arg[" ~ I.to!string ~ "].castDouble";
static if(storage & ParameterStorageClass.out_) }
else static if(is(P[0] == PetitComputer))
{ {
enum add = 0; enum add = 0;
enum outadd = 1; enum outadd = 0;
const string arg = "ret[" ~ O.to!string ~ "].integerValue"; const string arg = "p";
}
else static if(is(P[0] == int))
{
static if(storage & ParameterStorageClass.out_)
{
enum add = 0;
enum outadd = 1;
const string arg = "ret[" ~ O.to!string ~ "].integerValue";
}
else
{
enum add = 1;
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "].castInteger";
}
}
else static if(is(P[0] == wstring))
{
enum add = 1;
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "].castString";
}
else static if(is(P[0] == DefaultValue!int))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromIntToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(int, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromIntToSkip(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!wstring))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromStringToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(wstring, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromStringToSkip(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == Value[]))
{
const string arg = "arg";
}
else static if(is(P[0] == Value))
{
enum add = 1;
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "]";
}
else static if(is(P[0] == DefaultValue!Value))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromValueToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(Value, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromValueToSkip(arg[" ~ I.to!string ~ "])";
} }
else else
{ {
enum add = 1; enum add = 1;
enum outadd = 0; enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "].castInteger"; pragma(msg, P[0]);
static assert(false, "Invalid type");
const string arg = "";
}
static if(1 == P.length)
{
const string AddFuncArg = arg;
}
else
{
const string AddFuncArg = arg ~ ", " ~ AddFuncArg!(L - !add, N + add, M + 1, O + outadd, T, NAME, P[1..$]);
} }
}
else static if(is(P[0] == wstring))
{
enum add = 1;
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "].castString";
}
else static if(is(P[0] == DefaultValue!int))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromIntToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(int, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromIntToSkip(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!wstring))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromStringToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(wstring, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromStringToSkip(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == Value[]))
{
const string arg = "arg";
}
else static if(is(P[0] == Value))
{
enum add = 1;
enum outadd = 0;
const string arg = "arg[" ~ I.to!string ~ "]";
}
else static if(is(P[0] == DefaultValue!Value))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromValueToDefault(arg[" ~ I.to!string ~ "])";
}
else static if(is(P[0] == DefaultValue!(Value, false)))
{
enum add = 1;
enum outadd = 0;
const string arg = "fromValueToSkip(arg[" ~ I.to!string ~ "])";
}
else
{
enum add = 1;
enum outadd = 0;
pragma(msg, P[0]);
static assert(false, "Invalid type");
const string arg = "";
}
static if(1 == P.length)
{
const string AddFuncArg = arg;
}
else
{
const string AddFuncArg = arg ~ ", " ~ AddFuncArg!(L - !add, N + add, M + 1, O + outadd, T, NAME, P[1..$]);
} }
} }
template OutArgsInit(T, string N, int I = 0, int J = 0) template OutArgsInit(T, string N, int I = 0, int J = 0)
@@ -886,30 +913,37 @@ template OutArgsInit(T, string N, int I = 0, int J = 0)
} }
template GetArgumentCount(T, string N, int I = 0) template GetArgumentCount(T, string N, int I = 0)
{ {
enum tuple = ParameterStorageClassTuple!(__traits(getMember, T, N))[I];
alias param = ParameterTypeTuple!(__traits(getMember, T, N)); alias param = ParameterTypeTuple!(__traits(getMember, T, N));
static if(is(param[I] == PetitComputer)) static if(param.length <= I)
{ {
enum add = 0 + 1; enum GetArgumentCount = 0;
} }
else else
{ {
static if(tuple & ParameterStorageClass.out_) enum tuple = ParameterStorageClassTuple!(__traits(getMember, T, N))[I];
static if(is(param[I] == PetitComputer))
{ {
enum add = 0; enum add = 0 + 1;
} }
else else
{ {
enum add = 1; static if(tuple & ParameterStorageClass.out_)
{
enum add = 0;
}
else
{
enum add = 1;
}
}
static if(param.length > I + 1)
{
enum GetArgumentCount = add + GetArgumentCount!(T, N, I + 1);
}
else
{
enum GetArgumentCount = add;
} }
}
static if(param.length > I + 1)
{
enum GetArgumentCount = add + GetArgumentCount!(T, N, I + 1);
}
else
{
enum GetArgumentCount = add;
} }
} }
template IsVariadic(T, string N, int I = 0) template IsVariadic(T, string N, int I = 0)