public static SCode Make(Primitive2 rator, Quotation rand0, SCode rand1)
 {
     return
         (rand1 is Argument) ? PrimitiveIsCharEqQA.Make (rator, rand0, (Argument) rand1) :
         (rand1 is StaticVariable) ? PrimitiveIsCharEqQS.Make (rator, rand0, (StaticVariable) rand1) :
         new PrimitiveIsCharEqQ (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, Argument rand0, SCode rand1)
 {
     return
         (rand0 is Argument0) ? PrimitiveIsCharEqA0.Make (rator, (Argument0) rand0, rand1)
         : (rand0 is Argument1) ? PrimitiveIsCharEqA1.Make (rator, (Argument1) rand0, rand1)
         : Unimplemented ();
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is Argument) ? PrimitiveRecordRefA.Make(rator, (Argument) rand0, rand1) :
         (rand0 is StaticVariable) ? PrimitiveRecordRefS.Make (rator, (StaticVariable) rand0, rand1) :
         (rand1 is Quotation) ? PrimitiveRecordRefXQ.Make (rator, rand0, (Quotation) rand1) :
         new PrimitiveRecordRef (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         //(rand0 is Argument) ? PrimitiveLessThanFixnumA.Make (rator, (Argument) rand0, rand1) :
         //(rand0 is StaticVariable) ? PrimitiveLessThanFixnumS.Make (rator, (StaticVariable) rand0, rand1) :
         //(rand1 is Quotation) ? PrimitiveLessThanFixnumXQ.Make (rator, rand0, (Quotation) rand1) :
         new PrimitiveLessThan (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is LexicalVariable) ? PrimitivePlusFixnumL.Make (rator, (LexicalVariable) rand0, rand1) :
         (rand0 is Quotation) ? PrimitivePlusFixnumQ.Make (rator, (Quotation) rand0, rand1) :
         (rand1 is LexicalVariable) ? PrimitivePlusFixnumSL.Make (rator, rand0, (LexicalVariable) rand1) :
         (rand1 is Quotation) ? PrimitivePlusFixnumSQ.Make (rator, rand0, (Quotation) rand1) :
         new PrimitivePlusFixnum (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is Argument) ? PrimitiveVector8BRefA.Make (rator, (Argument) rand0, rand1) :
         (rand0 is StaticVariable) ? PrimitiveVector8BRefS.Make (rator, (StaticVariable) rand0, rand1) :
         (rand1 is Argument) ? PrimitiveVector8BRefXA.Make (rator, rand0, (Argument) rand1) :
         (rand1 is StaticVariable) ? PrimitiveVector8BRefXS.Make (rator, rand0, (StaticVariable) rand1) :
         new PrimitiveVector8BRef (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is LexicalVariable) ? PrimitiveIsCharEqL.Make (rator, (LexicalVariable) rand0, rand1)
         : (rand0 is Quotation) ? PrimitiveIsCharEqQ.Make (rator, (Quotation) rand0, rand1)
         : (rand1 is LexicalVariable) ? PrimitiveIsCharEqSL.Make (rator, rand0, (LexicalVariable) rand1)
         : (rand1 is Quotation) ? PrimitiveIsCharEqSQ.Make (rator, rand0, (Quotation) rand1)
         : new PrimitiveIsCharEq (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, Argument rand0, SCode rand1)
 {
     return
         (rand0 is Argument0) ? PrimitiveIsObjectEqA0.Make (rator, (Argument0) rand0, rand1)
         : (rand0 is Argument1) ? PrimitiveIsObjectEqA1.Make (rator, (Argument1) rand0, rand1)
         : (rand1 is LexicalVariable) ? Unimplemented()
         : (rand1 is Quotation) ? PrimitiveIsObjectEqAQ.Make (rator, rand0, (Quotation) rand1)
         : new PrimitiveIsObjectEqA (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is LexicalVariable) ? PrimitiveGeneralCarCdrL.Make (rator, (LexicalVariable) rand0, rand1) :
         (rand0 is Quotation) ? Unimplemented() : // PrimitiveGeneralCarCdrQ.Make (rator, (Quotation) rand0, rand1)
         (rand1 is LexicalVariable) ? Unimplemented() : // PrimitiveGeneralCarCdrSL.Make (rator, rand0, (LexicalVariable) rand1)
         (rand1 is Quotation) ?  PrimitiveGeneralCarCdrSQ.Make (rator, rand0, (Quotation) rand1) :
         new PrimitiveGeneralCarCdr (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         (rand0 is PrimitiveObjectType &&
         Configuration.EnableObjectTypePrimitives) ? RewriteAsSameType ((PrimitiveObjectType) rand0, rand1) :
         (rand0 is Quotation) ? PrimitiveIsObjectTypeQ.Make (rator, (Quotation) rand0, rand1) :
         //(rand1 is Quotation) ? PrimitiveIsObjectTypeSQ.Make (rator, rand0, (Quotation) rand1) :
         (rand1 is Argument) ? PrimitiveIsObjectTypeXA.Make (rator, rand0, (Argument) rand1) :
         new PrimitiveIsObjectType (rator, rand0, rand1);
 }
Beispiel #11
0
        protected PCond2 (PrimitiveCombination2 predicate, SCode consequent, SCode alternative)
            : base (predicate, consequent, alternative)
        {
            this.procedure = predicate.Rator;
            this.method = this.procedure.Method;
            this.rand0 = predicate.Operand0;
            this.rand1 = predicate.Operand1;
#if DEBUG
            rand0Type = rand0.GetType ();
            rand1Type = rand1.GetType ();
#endif
        }
 public static SCode Make(Primitive2 rator, Argument rand0, Quotation rand1)
 {
     return
         new PrimitivePlusFixnumAQ (rator, rand0, (Quotation) rand1);
 }
 protected PrimitivePlusFixnumL(Primitive2 rator, LexicalVariable rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
     this.rand0Name = rand0.Name;
     this.rand0Depth = rand0.Depth;
     this.rand0Offset = rand0.Offset;
 }
 public static SCode Make(Primitive2 rator, Quotation rand0, LexicalVariable1 rand1)
 {
     return
         (new PrimitiveIsIntEqQL1(rator, rand0, rand1));
 }
 public static SCode Make(Primitive2 rator, Argument rand0, LexicalVariable rand1)
 {
     return
         (rand1 is Argument) ? PrimitivePlusFixnumAA.Make (rator, rand0, (Argument) rand1)
         : (rand1 is LexicalVariable1) ? Unimplemented ()
         : new PrimitivePlusFixnumAL (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, SCode rand0, Quotation rand1)
 {
     return
         (new PrimitiveIsIntEqSQ(rator, rand0, rand1));
 }
 protected PrimitiveIsIntEqQ(Primitive2 rator, Quotation rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
     this.rand0Value = (int)rand0.Quoted;
 }
 protected PrimitiveIsIntEqLQ(Primitive2 rator, LexicalVariable rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 protected PrimitivePlusFixnumL1A0(Primitive2 rator, LexicalVariable1 rand0, Argument0 rand1)
     : base(rator, rand0, rand1)
 {
 }
 protected PrimitiveVectorRefA0Q(Primitive2 rator, Argument0 rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 public static new SCode Make(Primitive2 rator, Argument0 rand0, Quotation rand1)
 {
     return
         (new PrimitiveVectorRefA0Q(rator, rand0, rand1));
 }
 public static new SCode Make(Primitive2 rator, Argument0 rand0, SCode rand1)
 {
     return
         ((rand1 is Quotation) ? PrimitiveVectorRefA0Q.Make(rator, rand0, (Quotation)rand1) :
          new PrimitiveVectorRefA0(rator, rand0, rand1));
 }
 protected PrimitiveVectorRefA0(Primitive2 rator, Argument0 rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 protected PrimitiveVectorRef(Primitive2 rator, SCode rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 public static SCode Make(Primitive2 rator, Argument rand0, SCode rand1)
 {
     return
         (rand0 is Argument0) ? PrimitivePlusFixnumA0.Make (rator, (Argument0) rand0, rand1)
         : (rand0 is Argument1) ? PrimitivePlusFixnumA1.Make (rator, (Argument1) rand0, rand1)
         : (rand1 is LexicalVariable) ? PrimitivePlusFixnumAL.Make (rator, rand0, (LexicalVariable) rand1)
         : (rand1 is Quotation) ? PrimitivePlusFixnumAQ.Make (rator, rand0, (Quotation) rand1)
         : new PrimitivePlusFixnumA (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, SCode rand0, LexicalVariable rand1)
 {
     throw new NotImplementedException();
 }
 public static SCode Make(Primitive2 rator, LexicalVariable1 rand0, SCode rand1)
 {
     return
         (rand1 is LexicalVariable) ? PrimitivePlusFixnumL1L.Make (rator, rand0, (LexicalVariable) rand1)
         : (rand1 is Quotation) ? PrimitivePlusFixnumL1Q.Make (rator, rand0, (Quotation) rand1)
         : new PrimitivePlusFixnumL1 (rator, rand0, rand1);
 }
 PrimitiveIsIntEqSQ(Primitive2 rator, SCode rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 protected PrimitiveLessThan(Primitive2 rator, SCode rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 protected PrimitiveIsIntEqA0(Primitive2 rator, Argument0 rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 internal PrimitiveVectorRefAQ(Primitive2 rator, Argument rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 protected PrimitiveIsIntEqSL(Primitive2 rator, SCode rand0, LexicalVariable rand1)
     : base(rator, rand0, rand1)
 {
 }
 public static SCode Make(Primitive2 rator, Quotation rand0, Argument0 rand1)
 {
     return
         (new PrimitiveIsIntEqQA0(rator, rand0, rand1));
 }
 protected PrimitiveVectorRefS(Primitive2 rator, StaticVariable rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
     this.rand0Name   = rand0.Name;
     this.rand0Offset = rand0.Offset;
 }
 protected PrimitiveIsIntEqQA0(Primitive2 rator, Quotation rand0, Argument0 rand1)
     : base(rator, rand0, rand1)
 {
 }
 public static SCode Make(Primitive2 rator, Argument0 rand0, LexicalVariable rand1)
 {
     return
         (rand1 is Argument) ? PrimitivePlusFixnumA0A.Make (rator, rand0, (Argument) rand1)
         : (rand1 is LexicalVariable1) ? PrimitivePlusFixnumA0L1.Make (rator, rand0, (LexicalVariable1) rand1)
         : new PrimitivePlusFixnumA0L (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, Argument rand0, Argument rand1)
 {
     return
         (rand1 is Argument0) ? Unimplemented ()
         : (rand1 is Argument1) ? PrimitivePlusFixnumAA1.Make (rator, rand0, (Argument1) rand1)
         : new PrimitivePlusFixnumAA (rator, rand0, rand1);
 }
 public static SCode Make(Primitive2 rator, Argument rand0, Argument1 rand1)
 {
     return new PrimitivePlusFixnumAA1 (rator, rand0, rand1);
 }
 protected PrimitiveVectorRefSA(Primitive2 rator, StaticVariable rand0, Argument rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Offset = rand1.Offset;
 }
 protected PrimitiveIsIntEqQL1(Primitive2 rator, Quotation rand0, LexicalVariable1 rand1)
     : base(rator, rand0, rand1)
 {
 }
 PrimitivePlusFixnumA1A0(Primitive2 rator, Argument1 rand0, Argument0 rand1)
     : base(rator, rand0, rand1)
 {
 }
 PrimitiveVectorRefSA0(Primitive2 rator, StaticVariable rand0, Argument0 rand1)
     : base(rator, rand0, rand1)
 {
 }
 protected PrimitivePlusFixnumAA1(Primitive2 rator, Argument rand0, Argument1 rand1)
     : base(rator, rand0, rand1)
 {
 }
 PrimitiveVectorRefSQ(Primitive2 rator, StaticVariable rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 protected PrimitivePlusFixnumAL(Primitive2 rator, Argument rand0, LexicalVariable rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Name = rand1.Name;
     this.rand1Depth = rand1.Depth;
     this.rand1Offset = rand1.Offset;
 }
 protected PrimitiveVectorRefT(Primitive2 rator, TopLevelVariable rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
     this.rand0Cell = rand0.valueCell;
 }
 protected PrimitivePlusFixnumAQ(Primitive2 rator, Argument rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int) rand1.Quoted;
 }
 public static new SCode Make(Primitive2 rator, TopLevelVariable rand0, SCode rand1)
 {
     return
         (new PrimitiveVectorRefT(rator, rand0, rand1));
 }
 protected PrimitivePlusFixnumA(Primitive2 rator, Argument rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, Argument rand1)
 {
     return
         ((rand1 is Argument0) ? PrimitiveVectorRefXA0.Make(rator, rand0, (Argument0)rand1) :
          new PrimitiveVectorRefXA(rator, rand0, rand1));
 }
 public static SCode Make(Primitive2 rator, LexicalVariable rand0, SCode rand1)
 {
     return
         (rand0 is Argument) ? PrimitivePlusFixnumA.Make (rator, (Argument) rand0, rand1)
         : (rand0 is LexicalVariable1) ? PrimitivePlusFixnumL1.Make (rator, (LexicalVariable1) rand0, rand1)
         : (rand1 is LexicalVariable) ? PrimitivePlusFixnumLL.Make (rator, rand0, (LexicalVariable) rand1)
         : (rand1 is Quotation) ? PrimitivePlusFixnumLQ.Make (rator, rand0, (Quotation) rand1)
         : new PrimitivePlusFixnumL (rator, rand0, rand1);
 }
 PrimitiveVectorRefXA0(Primitive2 rator, SCode rand0, Argument0 rand1)
     : base(rator, rand0, rand1)
 {
 }
 protected PrimitivePlusFixnumL1(Primitive2 rator, LexicalVariable1 rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, Argument0 rand1)
 {
     return
         (new PrimitiveVectorRefXA0(rator, rand0, rand1));
 }
 public static SCode Make(Primitive2 rator, LexicalVariable1 rand0, Argument rand1)
 {
     return
          (rand1 is Argument0) ? PrimitivePlusFixnumL1A0.Make (rator, rand0, (Argument0) rand1)
         : (rand1 is Argument1) ? Unimplemented ()
         : new PrimitivePlusFixnumL1A (rator, rand0, rand1);
 }
 protected PrimitiveVectorRefXQ(Primitive2 rator, SCode rand0, Quotation rand1)
     : base(rator, rand0, rand1)
 {
     this.rand1Value = (int)rand1.Quoted;
 }
 public static SCode Make(Primitive2 rator, LexicalVariable1 rand0, Argument0 rand1)
 {
     return
          new PrimitivePlusFixnumL1A0 (rator, rand0, rand1);
 }
 public static new SCode Make(Primitive2 rator, SCode rand0, Quotation rand1)
 {
     return
         (new PrimitiveVectorRefXQ(rator, rand0, rand1));
 }
 protected PrimitiveVectorRefA(Primitive2 rator, Argument rand0, SCode rand1)
     : base(rator, rand0, rand1)
 {
     this.rand0Offset = rand0.Offset;
 }
 public static SCode Make(Primitive2 rator, LexicalVariable1 rand0, SCode rand1)
 {
     return
         ((rand1 is Quotation) ? PrimitiveIsIntEqL1Q.Make(rator, rand0, (Quotation)rand1)
         : Unimplemented());
 }