Ejemplo n.º 1
0
 public static new SCode Make(Primitive2 rator, SCode rand0, SCode rand1)
 {
     return
         ((rand0 is LexicalVariable) ? PrimitiveIsObjectEqL.Make(rator, (LexicalVariable)rand0, rand1) :
          (rand0 is Quotation) ? PrimitiveIsObjectEqQ.Make(rator, (Quotation)rand0, rand1) :
          (rand1 is LexicalVariable) ? PrimitiveIsObjectEqSL.Make(rator, rand0, (LexicalVariable)rand1) :
          (rand1 is Quotation) ? PrimitiveIsObjectEqSQ.Make(rator, rand0, (Quotation)rand1) :
          new PrimitiveIsObjectEq(rator, rand0, rand1));
 }
Ejemplo n.º 2
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, SCode consequent, Quotation alternative)
 {
     return
        new PCondIsObjectEqSQSQ (predicate, consequent, alternative);
 }
Ejemplo n.º 3
0
 PCondIsObjectEqSQSQ(PrimitiveIsObjectEqSQ predicate, SCode consequent, Quotation alternative)
     : base(predicate, consequent, alternative)
 {
     this.alternativeValue = alternative.Quoted;
 }
Ejemplo n.º 4
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, SCode consequent, LexicalVariable alternative)
 {
     return
         (alternative is Argument) ? PCondIsObjectEqSQSA.Make (predicate, consequent, (Argument) alternative) :
         (alternative is LexicalVariable1) ? Unimplemented() :
         new PCondIsObjectEqSQSL (predicate, consequent, alternative);
 }
Ejemplo n.º 5
0
 protected PCondIsObjectEqSQSL(PrimitiveIsObjectEqSQ predicate, SCode consequent, LexicalVariable alternative)
     : base(predicate, consequent, alternative)
 {
     ;
 }
Ejemplo n.º 6
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, SCode consequent, Argument0 alternative)
 {
     return
         new PCondIsObjectEqSQSA0 (predicate, consequent, alternative);
 }
Ejemplo n.º 7
0
 PCondIsObjectEqSQSA0(PrimitiveIsObjectEqSQ predicate, SCode consequent, Argument0 alternative)
     : base(predicate, consequent, alternative)
 {
 }
Ejemplo n.º 8
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, SCode consequent, Argument alternative)
 {
     return
         (alternative is Argument0) ? PCondIsObjectEqSQSA0.Make (predicate, consequent, (Argument0) alternative) :
         (alternative is Argument1) ? Unimplemented () :
         new PCondIsObjectEqSQSA (predicate, consequent, alternative);
 }
Ejemplo n.º 9
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, Quotation consequent, LexicalVariable alternative)
 {
     return
         new PCondIsObjectEqSQQL (predicate, consequent, alternative);
 }
Ejemplo n.º 10
0
 protected PCondIsObjectEqSQQL(PrimitiveIsObjectEqSQ predicate, Quotation consequent, LexicalVariable alternative)
     : base(predicate, consequent, alternative)
 {
     this.alternativeName = alternative.Name;
     this.alternativeDepth = alternative.Depth;
     this.alternativeOffset = alternative.Offset;
 }
Ejemplo n.º 11
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, Quotation consequent, SCode alternative)
 {
     return
         (alternative is LexicalVariable) ? PCondIsObjectEqSQQL.Make (predicate, consequent, (LexicalVariable) alternative) :
         (alternative is Quotation) ? PCondIsObjectEqSQQQ.Make (predicate, consequent, (Quotation) alternative) :
         new PCondIsObjectEqSQQ (predicate, consequent, alternative);
 }
Ejemplo n.º 12
0
 protected PCondIsObjectEqSQQ(PrimitiveIsObjectEqSQ predicate, Quotation consequent, SCode alternative)
     : base(predicate, consequent, alternative)
 {
     this.consequentValue = consequent.Quoted;
 }
Ejemplo n.º 13
0
 public static SCode Make(PrimitiveIsObjectEqSQ predicate, SCode consequent, SCode alternative)
 {
     return
         (consequent is LexicalVariable) ? Unimplemented () :
         (consequent is Quotation) ? PCondIsObjectEqSQQ.Make (predicate, (Quotation) consequent, alternative) :
         (alternative is LexicalVariable) ? PCondIsObjectEqSQSL.Make (predicate, consequent, (LexicalVariable) alternative) :
         (alternative is Quotation) ? PCondIsObjectEqSQSQ.Make (predicate, consequent, (Quotation) alternative) :
         new PCondIsObjectEqSQ (predicate, consequent, alternative);
 }
Ejemplo n.º 14
0
 protected PCondIsObjectEqSQ(PrimitiveIsObjectEqSQ predicate, SCode consequent, SCode alternative)
     : base(predicate, consequent, alternative)
 {
     this.rand1Value = predicate.rand1Value;
 }