本文整理汇总了C#中Microcode.Control类的典型用法代码示例。如果您正苦于以下问题:C# Control类的具体用法?C# Control怎么用?C# Control使用的例子?那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
Control类属于Microcode命名空间,在下文中一共展示了Control类的16个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于我们的系统推荐出更棒的C#代码示例。
示例1: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rand0);
NoteCalls (this.rand1);
rand0TypeHistogram.Note (this.rand0Type);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "PCondRecordRef";
#endif
Control unev = this.rand1;
Environment env = environment;
object ev1;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PCondRecordRef";
#endif
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
}
unev = this.rand0;
env = environment;
object ev0;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PCondRecordRef";
#endif
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination1Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
object result = ((Record) ev0).Ref ((int) ev1);
if (result is Boolean && (((bool) result) == false)) {
#if DEBUG
SCode.location = "-";
NoteCalls (this.alternative);
alternativeTypeHistogram.Note (this.alternativeType);
SCode.location = "PCondRecordRef";
#endif
expression = this.alternative;
answer = null;
return true;
} else {
#if DEBUG
SCode.location = "-";
NoteCalls (this.consequent);
consequentTypeHistogram.Note (this.consequentType);
SCode.location = "PCondRecordRef";
#endif
expression = this.consequent;
answer = null;
return true;
}
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:60,代码来源:PCondRecordRef.cs
示例2: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("PrimitiveIsCharEqA.EvalStep");
#endif
throw new NotImplementedException ();
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:7,代码来源:PrimitiveIsCharEq.cs
示例3: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rand1);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "PrimitiveIsCharEqQ";
#endif
// Eval argument1
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
//bool x = (ev1 is char);
//bool y = (ev1 is Character);
//if (x != y) Debugger.Break ();
answer = ((ev1 is char) && (this.rand0Value == (char) ev1)) ? Constant.sharpT : Constant.sharpF;
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:27,代码来源:PrimitiveIsEq.cs
示例4: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rator);
NoteCalls (this.rand0);
NoteCalls (this.rand1);
ratorTypeHistogram.Note (this.ratorType);
rand0TypeHistogram.Note (this.rand0Type);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "Let2";
#endif
object ev1;
Environment env = environment;
Control unev = this.rand1;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "Let2";
#endif
if (ev1 == Interpreter.UnwindStack) {
((UnwinderState) env).AddFrame (new Combination2Frame0 (this, environment));
environment = env;
answer = Interpreter.UnwindStack;
return false;
}
object ev0;
env = environment;
unev = this.rand0;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "Let2";
#endif
if (ev0 == Interpreter.UnwindStack) {
((UnwinderState) env).AddFrame (new Combination2Frame1 (this, environment, ev1));
environment = env;
answer = Interpreter.UnwindStack;
return false;
}
object evop;
env = environment;
unev = this.rator;
while (unev.EvalStep (out evop, ref unev, ref env)) { };
#if DEBUG
SCode.location = "Let2";
#endif
if (evop == Interpreter.UnwindStack) {
((UnwinderState) env).AddFrame (new Combination2Frame2 (this, environment, ev0, ev1));
environment = env;
answer = Interpreter.UnwindStack;
return false;
}
return Interpreter.Call (out answer, ref expression, ref environment, evop, ev0, ev1);
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:56,代码来源:Let2.cs
示例5: EvalStep
public override bool EvalStep (out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rand0);
NoteCalls (this.rand1);
rand0TypeHistogram.Note (this.rand0Type);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "PCondIsEq";
#endif
Control unev = this.rand1;
Environment env = environment;
object ev1;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PCondIsEq";
#endif
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
}
unev = this.rand0;
env = environment;
object ev0;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PCondIsEq";
#endif
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination1Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
#if DEBUG
SCode.location = "PCondIsEq";
#endif
if (ObjectModel.SchemeEq (ev0, ev1)) {
#if DEBUG
NoteCalls (this.consequent);
consequentTypeHistogram.Note (this.consequentType);
#endif
expression = this.consequent;
}
else {
#if DEBUG
NoteCalls (this.alternative);
alternativeTypeHistogram.Note (this.alternativeType);
#endif
expression = this.alternative;
}
answer = null; // happy compiler
return true;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:56,代码来源:PCondIsEq.cs
示例6: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.arg0);
NoteCalls (this.arg1);
NoteCalls (this.arg2);
rand0TypeHistogram.Note (this.rand0Type);
rand1TypeHistogram.Note (this.rand1Type);
rand2TypeHistogram.Note (this.rand2Type);
SCode.location = "PrimitiveVectorSet";
#endif
object ev2;
Environment env = environment;
Control unev = this.arg2;
while (unev.EvalStep (out ev2, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveVectorSet";
#endif
if (ev2 == Interpreter.UnwindStack) {
((UnwinderState) env).AddFrame (new PrimitiveCombination3Frame0 (this, environment));
answer = Interpreter.UnwindStack;
environment = env;
return false;
}
object ev1;
env = environment;
unev = this.arg1;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveVectorSet";
#endif
if (ev1 == Interpreter.UnwindStack) {
((UnwinderState) env).AddFrame (new PrimitiveCombination3Frame1 (this, environment, ev2));
answer = Interpreter.UnwindStack;
environment = env;
return false;
}
object ev0;
env = environment;
unev = this.arg0;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveVectorSet";
#endif
if (ev0 == Interpreter.UnwindStack) throw new NotImplementedException ();
answer = ((object []) ev0) [(int) ev1];
((object []) ev0) [(int) ev1] = ev2;
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:55,代码来源:PrimitiveVectorSet.cs
示例7: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rand0);
rand0TypeHistogram.Note (this.rand0Type);
NoteCalls (this.rand1);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "PrimitiveLessThan";
#endif
// Eval argument1
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveLessThan";
#endif
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Eval argument0
object ev0;
unev = this.rand0;
env = environment;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveLessThan";
#endif
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// less-than-fixnum?
// Shortcut for fixnums
if (ev0 is int && ev1 is int) {
answer = ((int) ev0 < (int) ev1) ? Constant.sharpT : Constant.sharpF;
return false;
}
else
answer = new TailCallInterpreter (CallFromPrimitive.Make ((IApplicable) FixedObjectsVector.GenericLessP, ev0, ev1), null);
return true;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:54,代码来源:PrimitiveLessThan.cs
示例8: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.rand0);
rand0TypeHistogram.Note (this.rand0Type);
NoteCalls (this.rand1);
rand1TypeHistogram.Note (this.rand1Type);
SCode.location = "PrimitiveVector8BRef";
#endif
// Eval argument1
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveVector8BRef";
#endif
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Eval argument0
object ev0;
unev = this.rand0;
env = environment;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
#if DEBUG
SCode.location = "PrimitiveVector8BRef";
#endif
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Vector-8b-ref
answer = (int) ((char []) ev0) [(int) ev1];
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:50,代码来源:PrimitiveVector8BRef.cs
示例9: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
NoteCalls (this.arg0);
arg0TypeHistogram.Note (this.arg0Type);
SCode.location = "PCondIsNull";
#endif
Control unev0 = this.arg0;
Environment env = environment;
object ev0;
while (unev0.EvalStep (out ev0, ref unev0, ref env)) { };
#if DEBUG
SCode.location = "PCondIsNull";
#endif
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveIsNullFrame0 (this, closureEnvironment));
//answer = Interpreter.Unwind;
//closureEnvironment = env;
//return false;
}
if (ev0 == null) {
#if DEBUG
SCode.location = "-";
NoteCalls (this.consequent);
consequentTypeHistogram.Note (this.consequentType);
SCode.location = "PCondIsNull";
#endif
expression = this.consequent;
answer = null; // keep c# compiler happy
return true;
}
else {
#if DEBUG
SCode.location = "-";
NoteCalls (this.alternative);
alternativeTypeHistogram.Note (this.alternativeType);
SCode.location = "PCondIsNull";
#endif
expression = this.alternative;
answer = null; // keep c# compiler happy
return true;
}
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:46,代码来源:PCondIsNull.cs
示例10: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("PCond2L.EvalStep");
#endif
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException();
}
object ev0;
if (environment.FastLexicalRef (out ev0, this.rand0Name, this.rand0Depth, this.rand0Offset))
throw new NotImplementedException();
#if DEBUG
Primitive.hotPrimitives.Note (this.procedure);
#endif
if (this.method (out answer, ev0, ev1)) {
TailCallInterpreter tci = answer as TailCallInterpreter;
if (tci != null) {
answer = null; // dispose of the evidence
// set up the interpreter for a tail call
Control cExpression = tci.Expression;
Environment cEnvironment = tci.Environment;
while (cExpression.EvalStep (out answer, ref cExpression, ref cEnvironment)) { };
}
}
if ((answer is bool) && (bool) answer == false) {
#if DEBUG
noteCalls (this.alternative);
#endif
expression = this.alternative;
return true;
}
else {
#if DEBUG
noteCalls (this.consequent);
#endif
expression = this.consequent;
return true;
}
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:46,代码来源:PCond2c.cs
示例11: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#region EvalStepBody
#if DEBUG
Warm ();
noteCalls (this.arg0);
procedureHistogram.Note (this.procedure);
arg0TypeHistogram.Note (this.arg0Type);
#endif
Control unev0 = this.arg0;
Environment env = environment;
object ev0;
while (unev0.EvalStep (out ev0, ref unev0, ref env)) { };
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveIsVectorFrame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
if (!(ev0 is object [])) {
#if DEBUG
noteCalls (this.alternative);
alternativeTypeHistogram.Note (this.alternativeType);
#endif
expression = this.alternative;
answer = null;
return true;
}
else {
#if DEBUG
noteCalls (this.consequent);
consequentTypeHistogram.Note (this.consequentType);
#endif
expression = this.consequent;
answer = null;
return true;
}
#endregion
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:41,代码来源:PrimitiveIsVector.cs
示例12: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ();
noteCalls (this.rand0);
noteCalls (this.rand1);
#endif
// Eval argument1
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Eval argument0
object ev0;
unev = this.rand0;
env = environment;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Compute answer
if (Cons.GeneralCarCdr (out answer, ev0, ev1))
throw new NotImplementedException ();
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:40,代码来源:PrimitiveGeneralCarCdr.cs
示例13: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("PrimitiveIsFixnumEqual.EvalStep");
noteCalls (this.rand0);
noteCalls (this.rand1);
#endif
// Eval argument1
object ev1;
Control unev = this.rand1;
Environment env = environment;
while (unev.EvalStep (out ev1, ref unev, ref env)) { };
if (ev1 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
// Eval argument0
object ev0;
unev = this.rand0;
env = environment;
while (unev.EvalStep (out ev0, ref unev, ref env)) { };
if (ev0 == Interpreter.UnwindStack) {
throw new NotImplementedException ();
//((UnwinderState) env).AddFrame (new PrimitiveCombination2Frame0 (this, environment));
//answer = Interpreter.UnwindStack;
//environment = env;
//return false;
}
answer = (int) ev0 == (int) ev1 ? Constant.sharpT : Constant.sharpF;
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:38,代码来源:PrimitiveIsFixnumEqual.cs
示例14: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("PCondIsSymbolLQ.EvalStep");
#endif
object ev0;
if (environment.FastLexicalRef (out ev0, this.predicateName, this.predicateDepth, this.predicateOffset))
throw new NotImplementedException ();
if (!(ev0 is Symbol)) {
#if DEBUG
noteCalls (this.alternative);
#endif
expression = this.alternative;
answer = null;
return true;
}
else {
answer = this.consequentValue;
return true;
}
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:22,代码来源:PCondIsSymbol.cs
示例15: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("-");
SCode.location = "PrimitiveRecordSetSQS";
#endif
object ev2;
if (environment.StaticValue (out ev2, this.rand2Name, this.rand2Offset))
throw new NotImplementedException ();
object ev0;
if (environment.StaticValue (out ev0, this.rand0Name, this.rand0Offset))
throw new NotImplementedException ();
answer = ((Record) ev0).Set (this.rand1Value, ev2);
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:17,代码来源:PrimitiveRecordSet.cs
示例16: EvalStep
public override bool EvalStep(out object answer, ref Control expression, ref Environment environment)
{
#if DEBUG
Warm ("PrimitiveStringSetSQQ");
#endif
object ev0;
if (environment.StaticValue (out ev0, this.rand0Name, this.rand0Offset))
throw new NotImplementedException ();
object ev1 = this.rand1Value;
object ev2 = this.rand2Value;
answer = ((char []) ev0) [(int) ev1];
((char []) ev0) [(int) ev1] = (char) ev2;
return false;
}
开发者ID:NotJRM,项目名称:jrm-code-project,代码行数:15,代码来源:PrimitiveStringSet.cs
注:本文中的Microcode.Control类示例由纯净天空整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。 |
请发表评论