1  /*
 2   * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
 3   *
 4   * Permission is hereby granted, free of charge, to any person obtaining 
 5   * a copy of this software and associated documentation files (the
 6   * "Software"), to deal in the Software without restriction, including
 7   * without limitation the rights to use, copy, modify, merge, publish,
 8   * distribute, sublicense, and/or sell copies of the Software, and to
 9   * permit persons to whom the Software is furnished to do so, subject to
10   * the following conditions:
11   *
12   * The above copyright notice and this permission notice shall be 
13   * included in all copies or substantial portions of the Software.
14   *
15   * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
16   * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17   * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
18   * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
19   * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
20   * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
21   * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22   * SOFTWARE.
23   */
24  
25  using System;
26  using System.Collections.Generic;
27  
28  class TPointerXT : TPointerBase {
29  
30  	internal string Name {
31  		get; private set;
32  	}
33  
34  	internal Word Target {
35  		get; private set;
36  	}
37  
38  	internal TPointerXT(string name)
39  	{
40  		this.Name = name;
41  		this.Target = null;
42  	}
43  
44  	internal TPointerXT(Word target)
45  	{
46  		this.Name = target.Name;
47  		this.Target = target;
48  	}
49  
50  	internal void Resolve(T0Comp ctx)
51  	{
52  		if (Target == null) {
53  			Target = ctx.Lookup(Name);
54  		}
55  	}
56  
57  	internal override void Execute(T0Comp ctx, CPU cpu)
58  	{
59  		Resolve(ctx);
60  		Target.Run(cpu);
61  	}
62  
63  	internal override string ToString(TValue vp)
64  	{
65  		return String.Format("<'{0}>", Name);
66  	}
67  
68  	internal override bool Equals(TPointerBase tp)
69  	{
70  		TPointerXT tx = tp as TPointerXT;
71  		return tx != null && Name == tx.Name;
72  	}
73  }