5 // Alexander Chebaturkin (chebaturkin@gmail.com)
7 // Copyright (C) 2011 Alexander Chebaturkin
9 // Permission is hereby granted, free of charge, to any person obtaining
10 // a copy of this software and associated documentation files (the
11 // "Software"), to deal in the Software without restriction, including
12 // without limitation the rights to use, copy, modify, merge, publish,
13 // distribute, sublicense, and/or sell copies of the Software, and to
14 // permit persons to whom the Software is furnished to do so, subject to
15 // the following conditions:
17 // The above copyright notice and this permission notice shall be
18 // included in all copies or substantial portions of the Software.
20 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
30 using System.Collections.Generic;
31 using Mono.CodeContracts.Static.AST;
32 using Mono.CodeContracts.Static.ControlFlow;
33 using Mono.CodeContracts.Static.DataStructures;
35 namespace Mono.CodeContracts.Static.Analysis.ExpressionAnalysis.Expressions {
36 class UnaryExpr<TSymbolicValue> : Expr<TSymbolicValue> where TSymbolicValue : IEquatable<TSymbolicValue> {
37 public readonly UnaryOperator Operator;
38 public readonly TSymbolicValue Source;
39 public readonly bool Unsigned;
41 public UnaryExpr (TSymbolicValue source, UnaryOperator op, bool unsigned)
45 this.Unsigned = unsigned;
48 #region Overrides of Expression
49 public override IEnumerable<TSymbolicValue> Variables
51 get { yield return this.Source; }
54 public override Result Decode<Data, Result, Visitor> (APC pc, TSymbolicValue dest, Visitor visitor, Data data)
56 return visitor.Unary (pc, this.Operator, this.Unsigned, dest, this.Source, data);
59 public override Expr<TSymbolicValue> Substitute (IImmutableMap<TSymbolicValue, LispList<TSymbolicValue>> substitutions)
61 if (substitutions.ContainsKey (this.Source))
62 return new UnaryExpr<TSymbolicValue> (substitutions [this.Source].Head, this.Operator, this.Unsigned);
67 public override bool IsContained (IImmutableSet<TSymbolicValue> candidates)
69 return candidates.Contains (this.Source);
72 public override bool Contains (TSymbolicValue symbol)
74 return symbol.Equals (this.Source);
77 public override string ToString ()
79 return String.Format ("Unary({0} {1})", this.Operator, this.Source);
82 public override bool Equals (Expr<TSymbolicValue> other)
84 var unary = other as UnaryExpr<TSymbolicValue>;
85 if (unary == null || unary.Operator != this.Operator || unary.Unsigned != this.Unsigned)
88 return unary.Source.Equals (this.Source);