bool doFlowControlFunction(InstructionLine func)
{
switch (func.FunctionCode)
{
case FunctionCode.LOADDATA:
{
ExpressionArgument intExpArg = (ExpressionArgument)func.Argument;
Int64 target = intExpArg.Term.GetIntValue(exm);
if (target < 0)
{
throw new CodeEE("LOADDATAの引数に負の値(" + target.ToString() + ")が指定されました");
}
else if (target > int.MaxValue)
{
throw new CodeEE("LOADDATAの引数(" + target.ToString() + ")が大きすぎます");
}
//EraDataResult result = vEvaluator.checkData((int)target);
EraDataResult result = vEvaluator.CheckData((int)target, EraSaveFileType.Normal);
if (result.State != EraDataState.OK)
{
throw new CodeEE("不正なデータをロードしようとしました");
}
if (!vEvaluator.LoadFrom((int)target))
{
throw new ExeEE("ファイルのロード中に予期しないエラーが発生しました");
}
state.ClearFunctionList();
state.SystemState = SystemStateCode.LoadData_DataLoaded;
return(false);
}
case FunctionCode.TRYCALLLIST:
case FunctionCode.TRYJUMPLIST:
{
//if (!sequential)//RETURNで帰ってきた
//{
// state.JumpTo(func.JumpTo);
// break;
//}
string funcName = "";
CalledFunction callto = null;
SpCallArgment cfa = null;
foreach (InstructionLine iLine in func.callList)
{
cfa = (SpCallArgment)iLine.Argument;
funcName = cfa.FuncnameTerm.GetStrValue(exm);
if (Config.ICFunction)
{
funcName = funcName.ToUpper();
}
callto = CalledFunction.CallFunction(this, funcName, func.JumpTo);
if (callto == null)
{
continue;
}
callto.IsJump = func.Function.IsJump();
string errMes;
UserDefinedFunctionArgument args = callto.ConvertArg(cfa.RowArgs, out errMes);
if (args == null)
{
throw new CodeEE(errMes);
}
state.IntoFunction(callto, args, exm);
return(true);
}
state.JumpTo(func.JumpTo);
}
break;
case FunctionCode.TRYGOTOLIST:
{
string funcName = "";
LogicalLine jumpto = null;
foreach (InstructionLine iLine in func.callList)
{
if (iLine.Argument == null)
{
ArgumentParser.SetArgumentTo(iLine);
}
funcName = ((SpCallArgment)iLine.Argument).FuncnameTerm.GetStrValue(exm);
if (Config.ICVariable)
{
funcName = funcName.ToUpper();
}
jumpto = state.CurrentCalled.CallLabel(this, funcName);
if (jumpto != null)
{
break;
}
}
if (jumpto == null)
{
state.JumpTo(func.JumpTo);
}
else
{
state.JumpTo(jumpto);
}
}
break;
case FunctionCode.CALLTRAIN:
{
ExpressionArgument intExpArg = (ExpressionArgument)func.Argument;
Int64 count = intExpArg.Term.GetIntValue(exm);
SetCommnds(count);
return(false);
}
case FunctionCode.STOPCALLTRAIN:
{
if (isCTrain)
{
ClearCommands();
skipPrint = false;
}
return(false);
}
case FunctionCode.DOTRAIN:
{
switch (state.SystemState)
{
//case SystemStateCode.Train_Begin://BEGIN TRAINから。
case SystemStateCode.Train_CallEventTrain: //@EVENTTRAINの呼び出し中。スキップ可能
case SystemStateCode.Train_CallShowStatus: //@SHOW_STATUSの呼び出し中
//case SystemStateCode.Train_CallComAbleXX://@COM_ABLExxの呼び出し中。
case SystemStateCode.Train_CallShowUserCom: //@SHOW_USERCOMの呼び出し中
//case SystemStateCode.Train_WaitInput://入力待ち状態。選択が実行可能ならEVENTCOMからCOMxx、そうでなければ@USERCOMにRESULTを渡す
//case SystemStateCode.Train_CallEventCom://@EVENTCOMの呼び出し中
//case SystemStateCode.Train_CallComXX://@COMxxの呼び出し中
//case SystemStateCode.Train_CallSourceCheck://@SOURCE_CHECKの呼び出し中
case SystemStateCode.Train_CallEventComEnd: //@EVENTCOMENDの呼び出し中。スキップ可能。Train_CallEventTrainへ帰る。@USERCOMの呼び出し中もここ
break;
default:
exm.Console.PrintSystemLine(state.SystemState.ToString());
throw new CodeEE("DOTRAIN命令をこの位置で実行することはできません");
}
coms.Clear();
isCTrain = false;
this.count = 0;
Int64 train = ((ExpressionArgument)func.Argument).Term.GetIntValue(exm);
if (train < 0)
{
throw new CodeEE("DOTRAIN命令に0未満の値が渡されました");
}
if (train >= TrainName.Length)
{
throw new CodeEE("DOTRAIN命令にTRAINNAMEの配列数以上の値が渡されました");
}
doTrainSelectCom = train;
state.SystemState = SystemStateCode.Train_DoTrain;
return(false);
}
#if DEBUG
default:
throw new ExeEE("未定義の関数です");
#endif
}
return(true);
}
private UserDefinedMethodTerm(UserDefinedFunctionArgument arg, Type returnType, CalledFunction call)
: base(returnType)
{
Argument = arg;
Call = call;
}
public void IntoFunction(CalledFunction call, UserDefinedFunctionArgument srcArgs, ExpressionMediator exm)
{
if (call.IsEvent)
{
foreach (CalledFunction called in functionList)
{
if (called.IsEvent)
{
throw new CodeEE("EVENT関数の解決前にCALLEVENT命令が行われました");
}
}
}
if (Program.DebugMode)
{
FunctionLabelLine label = call.CurrentLabel;
if (call.IsJump)
{
console.DebugAddTraceLog("JUMP :@" + label.LabelName + ":" + label.Position.ToString() + "行目");
}
else
{
console.DebugAddTraceLog("CALL :@" + label.LabelName + ":" + label.Position.ToString() + "行目");
}
}
if (srcArgs != null)
{
//引数の値を確定させる
srcArgs.SetTransporter(exm);
//プライベート変数更新
if (call.TopLabel.hasPrivDynamicVar)
{
call.TopLabel.In();
}
//更新した変数へ引数を代入
for (int i = 0; i < call.TopLabel.Arg.Length; i++)
{
if (srcArgs.Arguments[i] != null)
{
if (call.TopLabel.Arg[i].Identifier.IsReference)
{
((ReferenceToken)(call.TopLabel.Arg[i].Identifier)).SetRef(srcArgs.TransporterRef[i]);
}
else if (srcArgs.Arguments[i].GetOperandType() == typeof(Int64))
{
call.TopLabel.Arg[i].SetValue(srcArgs.TransporterInt[i], exm);
}
else
{
call.TopLabel.Arg[i].SetValue(srcArgs.TransporterStr[i], exm);
}
}
}
}
else//こっちに来るのはシステムからの呼び出し=引数は存在しない関数のみ ifネストの外に出していい気もしないでもないがはてさて
{
//プライベート変数更新
if (call.TopLabel.hasPrivDynamicVar)
{
call.TopLabel.In();
}
}
functionList.Add(call);
//sequential = false;
currentLine = call.CurrentLabel;
lineCount++;
//ShfitNextLine();
}
public void IntoFunction(CalledFunction call, UserDefinedFunctionArgument srcArgs, ExpressionMediator exm)
{
if (Program.DebugMode)
{
FunctionLabelLine label = call.CurrentLabel;
if (call.IsJump)
console.DebugAddTraceLog("JUMP :@" + label.LabelName + ":" + label.Position.ToString() + "行目");
else
console.DebugAddTraceLog("CALL :@" + label.LabelName + ":" + label.Position.ToString() + "行目");
}
if (srcArgs != null)
{
//引数の値を確定させる
srcArgs.SetTransporter(exm);
//プライベート変数更新
if (call.TopLabel.hasPrivDynamicVar)
call.TopLabel.In();
//更新した変数へ引数を代入
for (int i = 0; i < call.TopLabel.Arg.Length; i++)
{
if (srcArgs.Arguments[i] != null)
{
if (call.TopLabel.Arg[i].Identifier.IsReference)
((ReferenceToken)(call.TopLabel.Arg[i].Identifier)).SetRef(srcArgs.TransporterRef[i]);
else if (srcArgs.Arguments[i].GetOperandType() == typeof(Int64))
call.TopLabel.Arg[i].SetValue(srcArgs.TransporterInt[i], exm);
else
call.TopLabel.Arg[i].SetValue(srcArgs.TransporterStr[i], exm);
}
}
}
else//こっちに来るのはシステムからの呼び出し=引数は存在しない関数のみ ifネストの外に出していい気もしないでもないがはてさて
{
//プライベート変数更新
if (call.TopLabel.hasPrivDynamicVar)
call.TopLabel.In();
}
functionList.Add(call);
//sequential = false;
currentLine = call.CurrentLabel;
lineCount++;
//ShfitNextLine();
}